From 0971ccd6f98b5405c0b83474a50a4d1737e6bd6f Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Fri, 28 Sep 2007 14:02:16 +0000
Subject: Correction bug 1711

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10151 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/clenv.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'pretyping/clenv.ml')

diff --git a/pretyping/clenv.ml b/pretyping/clenv.ml
index 25d18d308..2533e64e4 100644
--- a/pretyping/clenv.ml
+++ b/pretyping/clenv.ml
@@ -308,7 +308,8 @@ let clenv_fchain mv clenv nextclenv =
   let clenv' =
     { templval = clenv.templval;
       templtyp = clenv.templtyp;
-      evd = meta_merge clenv.evd nextclenv.evd;
+      evd = 
+        evar_merge (meta_merge clenv.evd nextclenv.evd) (evars_of clenv.evd);
       env = nextclenv.env } in
   (* unify the type of the template of [nextclenv] with the type of [mv] *)
   let clenv'' =
-- 
cgit v1.2.3