From fdb4e951e25d8e1a87c7ccc32acfdcf8d7737368 Mon Sep 17 00:00:00 2001
From: mohring
Date: Thu, 14 Dec 2000 07:42:27 +0000
Subject: LetIn dans Simpl

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

(limited to 'pretyping')

diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml
index 2768bb3fea..fbf9b34776 100644
--- a/pretyping/tacred.ml
+++ b/pretyping/tacred.ml
@@ -314,6 +314,7 @@ and construct_const env sigma =
              | None -> assert false
              | Some (c',rest) -> 
 		   stacklam hnfstack [c'] c rest)
+      | IsLetIn (n,b,t,c) -> stacklam hnfstack [b] c stack
       | IsMutCase (ci,p,c,lf) ->
           hnfstack 
 	    (special_red_case env (construct_const env sigma) (ci,p,c,lf), stack)
-- 
cgit v1.2.3