diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2018-06-04 14:05:14 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2018-06-04 14:05:14 +0200 |
| commit | 10e323fe4cebd1addfe1af32407f1277214d2c7b (patch) | |
| tree | 9d4bc6e0694fd456933457078acc0e2beaec6c45 /pretyping | |
| parent | 01128a2ff774f0ef249ee54a67e88d49ae254a4d (diff) | |
| parent | 98814890466b2ee4b72235a2591ecd150bff08e7 (diff) | |
Merge PR #7590: Fix #7586: Anomaly "Uncaught exception Not_found".
Diffstat (limited to 'pretyping')
| -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 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 |