From 98814890466b2ee4b72235a2591ecd150bff08e7 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Wed, 23 May 2018 21:38:08 +0200 Subject: Fix #7586: Anomaly "Uncaught exception Not_found". The old unification engine was using the unfiltered environment when a context had been cleared, leading to an ill-typed goal. --- pretyping/unification.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pretyping') diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 62bee5a36..b9678fa10 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -1391,7 +1391,7 @@ let w_merge env with_types flags (evd,metas,evars : subst0) = and mimick_undefined_evar evd flags hdc nargs sp = let ev = Evd.find_undefined evd sp in - let sp_env = Global.env_of_context ev.evar_hyps in + let sp_env = Global.env_of_context (evar_filtered_hyps ev) in let (evd', c) = applyHead sp_env evd nargs hdc in let (evd'',mc,ec) = unify_0 sp_env evd' CUMUL flags -- cgit v1.2.3