diff options
| author |  bgregoir <bgregoir@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-25 12:34:26 +0000 |
|---|---|---|
| committer | bgregoir <bgregoir@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-25 12:34:26 +0000 |
| commit | aadd90837e8e0eb015e4e4999394ca56f55f70b8 (patch) | |
| tree | 7c8266d4a6df4a2d885e057a3df84e66b7740d16 /pretyping/cbv.ml | |
| parent | ecd2f83848ab06048d67189972e92657bffcc92d (diff) | |
avoid relying on weak invariant in cbv.ml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14728 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/cbv.ml')
| -rw-r--r-- | pretyping/cbv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/cbv.ml b/pretyping/cbv.ml index cd8314573..ad33bae1f 100644 --- a/pretyping/cbv.ml +++ b/pretyping/cbv.ml @@ -290,7 +290,7 @@ and cbv_stack_term info stack env t = cbv_stack_term info (stack_app cargs stk) env br.(n-1) (* constructor of arity 0 in a Case -> IOTA *) - | (CONSTR((_,n),_), CASE(_,br,_,env,stk)) + | (CONSTR((_,n),[||]), CASE(_,br,_,env,stk)) when red_set (info_flags info) fIOTA -> cbv_stack_term info stk env br.(n-1) |