From e5a040666d1dc58995d7a08e8fe18de90abc7a2d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 25 Nov 1999 01:13:00 +0000
Subject: Backtrack sur modif Evd.evd_concl

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@139 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/typeops.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/typeops.ml')

diff --git a/kernel/typeops.ml b/kernel/typeops.ml
index f20c5d213a..d224b0209e 100644
--- a/kernel/typeops.ml
+++ b/kernel/typeops.ml
@@ -181,7 +181,7 @@ let type_of_existential env sigma c =
   let hyps = get_globals (context evi.Evd.evar_env) in
   let id = id_of_string ("?" ^ string_of_int ev) in
   check_hyps id env sigma hyps;
-  instantiate_type (ids_of_sign hyps) evi.Evd.evar_concl (Array.to_list args)
+  instantiate_constr (ids_of_sign hyps) evi.Evd.evar_concl (Array.to_list args)
 
 
 (* Case. *)
-- 
cgit v1.2.3