From 23cb5bf85ffa54cd681d134ea77e061b73dd0e62 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 12 Jun 2010 15:18:07 +0000
Subject: 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
---
 pretyping/evarutil.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ->
-- 
cgit v1.2.3