diff options
| author |  mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-14 07:42:27 +0000 |
|---|---|---|
| committer | mohring <mohring@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-14 07:42:27 +0000 |
| commit | fdb4e951e25d8e1a87c7ccc32acfdcf8d7737368 (patch) | |
| tree | 12f995cc61c504aca2d04fb903484c2c15a7bc8a /pretyping | |
| parent | e166c79cd0dfdcb40693b8e20a96eb9927013df7 (diff) | |
LetIn dans Simpl
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1104 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/tacred.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 2768bb3fe..fbf9b3477 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) |