diff options
| author | Hugo Herbelin | 2014-12-11 19:06:12 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2014-12-11 19:06:48 +0100 |
| commit | 86af14b5e0b813df0949659bb77f8e7d88bcd1aa (patch) | |
| tree | 3e44cc3c592dc18f8306d8f1e831edb311d470da | |
| parent | f37ce408e943b29ab41c979a7f95ee824813397b (diff) | |
Commit not ready. Sorry.
Revert "Fixing an evar_map bug revealed by commit 603b66f81 on unification flags."
This reverts commit d083200ae5b391ceffaa0329a8e3a334036c7968.
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 40b81dd4c6..a53240a1cf 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -1368,7 +1368,7 @@ let w_unify_core_0 env evd with_types cv_pb flags m n = let (mc1,evd') = retract_coercible_metas evd in let (sigma,ms,es) = check_types env (set_flags_for_type flags.core_unify_flags) (evd,mc1,[]) m n in let subst2 = - unify_0_with_initial_metas (sigma,ms,es) false env cv_pb + unify_0_with_initial_metas (evd',ms,es) false env cv_pb flags.core_unify_flags m n in let evd = w_merge env with_types flags.merge_unify_flags subst2 in |