From 75d004dd8e7718c5eaee36ec4623a6cac898df89 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Mon, 23 Apr 2001 12:03:17 +0000
Subject: 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
---
 kernel/reduction.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'kernel')

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
-- 
cgit v1.2.3