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/instantiate.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/instantiate.ml')

diff --git a/kernel/instantiate.ml b/kernel/instantiate.ml
index 37ffa5ca12..f3634eac5b 100644
--- a/kernel/instantiate.ml
+++ b/kernel/instantiate.ml
@@ -82,7 +82,7 @@ let existential_type sigma c =
   let (n,args) = destEvar c in
   let info = Evd.map sigma n in
   let hyps = evar_hyps info in
-  instantiate_constr (ids_of_sign hyps) (body_of_type info.evar_concl)
+  instantiate_constr (ids_of_sign hyps) info.evar_concl
     (Array.to_list args)
 
 let existential_value sigma c =
-- 
cgit v1.2.3