diff options
| author | herbelin | 2001-12-19 22:32:09 +0000 |
|---|---|---|
| committer | herbelin | 2001-12-19 22:32:09 +0000 |
| commit | 2bc6182bf4c4b6e401c3bfd1b46f1abd2075927d (patch) | |
| tree | d9030b4350121232eccf9fc7619ec25b93e58529 /kernel/inductive.ml | |
| parent | 425b881a6ee10e09dcd373d38693bf1dc327c5e8 (diff) | |
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
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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') |