diff options
| -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 cd83145734..ad33bae1fb 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) |