diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-01 16:51:20 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-03-01 16:51:20 +0000 |
commit | 9935f0d7ab63d31f7a4a8c05d90627dff41dabf8 (patch) | |
tree | 4a7cf02adc2d7b12a6daedafa3e11969551c1071 /pretyping/cbv.ml | |
parent | 8d4d10eab8e7ab0b4981faa6575c5b2862e80fe9 (diff) |
Nouveau comportement: Delta ne s'applique pas aux variables liées par un let
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2506 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/cbv.ml')
-rw-r--r-- | pretyping/cbv.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/pretyping/cbv.ml b/pretyping/cbv.ml index fa1d9fa3a..d1d9206fa 100644 --- a/pretyping/cbv.ml +++ b/pretyping/cbv.ml @@ -207,7 +207,11 @@ let rec norm_head info env t stack = (* allow substitution but leave let's in place *) let zeta = red_set (info_flags info) fZETA in let env' = - if zeta or red_set (info_flags info) fDELTA then + if zeta + (* New rule: for Cbv, Delta does not apply to locally bound variables + or red_set (info_flags info) fDELTA + *) + then subs_cons (cbv_stack_term info TOP env b,env) else subs_lift env in |