diff options
| author | Matthieu Sozeau | 2018-06-04 14:08:04 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2018-06-04 14:08:04 +0200 |
| commit | 1757f89b6c61024bbe3aebd6b43c56df0d92f5eb (patch) | |
| tree | 3a04f1f948df72be5d58ae992508e303128db23d /checker | |
| parent | 10e323fe4cebd1addfe1af32407f1277214d2c7b (diff) | |
| parent | 3be70f39bbaba7c7edb5e5f3e26d4f952c06824e (diff) | |
Merge PR #7552: Fix #7539: Checker does not properly handle negative coinductive types.
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/closure.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/closure.ml b/checker/closure.ml index 66e69f2250..b9ae4daa86 100644 --- a/checker/closure.ml +++ b/checker/closure.ml @@ -754,7 +754,7 @@ let rec knr info m stk = | (_,args,s) -> (m,args@s)) | FCoFix _ when red_set info.i_flags fIOTA -> (match strip_update_shift_app m stk with - (_, args, (((ZcaseT _)::_) as stk')) -> + (_, args, (((ZcaseT _|Zproj _)::_) as stk')) -> let (fxe,fxbd) = contract_fix_vect m.term in knit info fxe fxbd (args@stk') | (_,args,s) -> (m,args@s)) |