diff options
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'' = |