From 64aba424936825c7c6cf3433941e6ca53de1459a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 22 Nov 2001 12:56:09 +0000
Subject: La mise en forme normale du prédicat d'élimination était un peu trop
 violente pour la compatibilité de la synthèse des evars

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

(limited to 'pretyping')

diff --git a/pretyping/cases.ml b/pretyping/cases.ml
index 9ea6c85464..5b3f3522ac 100644
--- a/pretyping/cases.ml
+++ b/pretyping/cases.ml
@@ -1498,7 +1498,8 @@ let prepare_predicate_from_tycon dep env isevars tomatchs c =
   let allargs =
     List.map (fun c -> lift n (nf_betadeltaiota env (evars_of isevars) c)) allargs in
   let rec build_skeleton env c =
-    let c = whd_betadeltaiota env (evars_of isevars) c in
+    (* Don't put into normal form, it has effects on the synthesis of evars *)
+ (* 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 isevars env
-- 
cgit v1.2.3