diff options
Diffstat (limited to 'kernel')
| -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') |