diff options
| author | herbelin | 2010-06-12 15:18:07 +0000 |
|---|---|---|
| committer | herbelin | 2010-06-12 15:18:07 +0000 |
| commit | 23cb5bf85ffa54cd681d134ea77e061b73dd0e62 (patch) | |
| tree | b6eb5fbcdc33ac8954955ddd25af4c1f1486509b | |
| parent | da9d3e75dd0b38d24f23fd4278714f502a73acd5 (diff) | |
Fixed a bug in evarutil.ml (wrong env of a postponed conversion problem).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13116 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/evarutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 19b05682f2..9761561a89 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -1296,7 +1296,7 @@ let solve_simple_eqn conv_algo ?(choose=false) env evd (pbty,(evk1,args1 as ev1) let evd = evar_define ~choose env ev1 t2 evd in let evi = Evd.find evd evk1 in if occur_existential evd evi.evar_concl then - let evenv = evar_env evi in + let evenv = evar_unfiltered_env evi in let evc = nf_isevar evd evi.evar_concl in match evi.evar_body with | Evar_defined body -> |