diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-09-28 14:02:16 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-09-28 14:02:16 +0000 |
| commit | 0971ccd6f98b5405c0b83474a50a4d1737e6bd6f (patch) | |
| tree | 28653905099d4b1dfc9f1b6790c76f4ff3d94895 /pretyping | |
| parent | d3893a93a48e1f47d5175f7a3649f58f86c8f5ca (diff) | |
Correction bug 1711
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10151 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/clenv.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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'' = |