diff options
| author | Gaëtan Gilbert | 2018-10-31 13:33:35 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-10-31 13:36:13 +0100 |
| commit | 6da464438366b2b5d752b44536b2bedac2a34187 (patch) | |
| tree | b34537eba6e4f270665b18ee9ef8c39c450d9635 | |
| parent | f7472bf04801ebbda372d0c16267f9d9668ec5fa (diff) | |
Fix #8873: coqchk on inductive with letin parameter
| -rw-r--r-- | checker/indtypes.ml | 7 | ||||
| -rw-r--r-- | test-suite/coqchk/bug_8655.v | 1 |
2 files changed, 5 insertions, 3 deletions
diff --git a/checker/indtypes.ml b/checker/indtypes.ml index 50e65ef587..f6c510ee1c 100644 --- a/checker/indtypes.ml +++ b/checker/indtypes.ml @@ -531,10 +531,11 @@ let check_positivity env_ar mind params nrecp inds = Array.mapi (fun j t -> (Mrec(mind,j),t)) (Rtree.mk_rec_calls ntypes) in let lra_ind = List.rev (Array.to_list rc) in let lparams = rel_context_length params in + let ra_env = + List.init lparams (fun _ -> (Norec,mk_norec)) @ lra_ind in + let env_ar_par = push_rel_context params env_ar in let check_one i mip = - let ra_env = - List.init lparams (fun _ -> (Norec,mk_norec)) @ lra_ind in - let ienv = (env_ar, 1+lparams, ntypes, ra_env) in + let ienv = (env_ar_par, 1+lparams, ntypes, ra_env) in check_positivity_one ienv params nrecp (mind,i) mip.mind_nf_lc in let irecargs = Array.mapi check_one inds in diff --git a/test-suite/coqchk/bug_8655.v b/test-suite/coqchk/bug_8655.v new file mode 100644 index 0000000000..06d08b2082 --- /dev/null +++ b/test-suite/coqchk/bug_8655.v @@ -0,0 +1 @@ +Inductive IND2 (A:Type) (T:=fun _ : Type->Type => A) := CONS2 : IND2 A -> IND2 (T IND2). |