From f7bb1cf476d3f1ecf555a2ddf5dd39bdf3c6f777 Mon Sep 17 00:00:00 2001
From: barras
Date: Wed, 8 Jun 2005 09:30:39 +0000
Subject: evar declarees avec mauvais type

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7125 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/cases.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pretyping/cases.ml b/pretyping/cases.ml
index b6326c29e7..0f079bcf95 100644
--- a/pretyping/cases.ml
+++ b/pretyping/cases.ml
@@ -1610,7 +1610,8 @@ let prepare_predicate_from_tycon loc dep env isevars tomatchs c =
  (* let c = whd_betadeltaiota env (evars_of isevars) c in *)
     (* We turn all subterms possibly dependent into an evar with maximum ctxt*)
     if isEvar c or List.exists (eq_constr c) allargs then
-      mkExistential env ~src:(loc, Evd.CasesType) isevars
+      e_new_evar isevars env  ~src:(loc, Evd.CasesType)
+        (Retyping.get_type_of env (Evd.evars_of !isevars) c)
     else
       map_constr_with_full_binders push_rel build_skeleton env c in
   names, build_skeleton env (lift n c)
-- 
cgit v1.2.3