diff options
| author | filliatr | 2001-04-23 12:03:17 +0000 |
|---|---|---|
| committer | filliatr | 2001-04-23 12:03:17 +0000 |
| commit | 75d004dd8e7718c5eaee36ec4623a6cac898df89 (patch) | |
| tree | 825de6165cdb920d3490b69d379e001818b99749 /kernel/reduction.ml | |
| parent | bdde80e72ae789f1378355532ed069f9c82383c5 (diff) | |
reduction des let in dans whd_programs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1664 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/reduction.ml')
| -rw-r--r-- | kernel/reduction.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index aa60bfb8c5..478ffa5a81 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -1021,6 +1021,11 @@ let whd_programs_stack env sigma = s else whrec (mkApp (f, Array.sub cl 0 n), append_stack [|c|] stack) + | IsLetIn (_,b,_,c) -> + if occur_existential b then + s + else + stacklam whrec [b] c stack | IsLambda (_,_,c) -> (match decomp_stack stack with | None -> s |