From 2bc6182bf4c4b6e401c3bfd1b46f1abd2075927d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 19 Dec 2001 22:32:09 +0000
Subject: Bug de de Bruijn pour le LetIn

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2348 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/inductive.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index a905ce12ad..f52634f4c9 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -475,7 +475,7 @@ let case_branches_specif renv =
 	      | _ -> push_var_renv renv (x,a) in
           crec renv' lr b
       | (_,LetIn (x,c,a,b)) ->
-          crec (push_def_renv renv (x,c,a)) lrec (subst1 c b)
+          crec renv (*(push_def_renv renv (x,c,a)) *)lrec (subst1 c b)
       (* Rq: if branch is not eta-long, then the recursive information
          is not propagated: *)
       | (_,_) -> (renv,c')
-- 
cgit v1.2.3