diff options
| author | Maxime Dénès | 2018-06-23 12:48:08 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-06-23 12:48:08 +0200 |
| commit | 38b180984b09840e0b1023cc441917acc77dd438 (patch) | |
| tree | 789a228bc09ea801116745dff353483d22fa605c /kernel/inductive.ml | |
| parent | f337d237c97db0b29619e15d21a022bba953a794 (diff) | |
| parent | 50105b474cb2daaad997ebbd4eab096600dadcd9 (diff) | |
Merge PR #7750: Handle mutual records in the kernel
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 090acdf16e..9130b8778c 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -293,8 +293,8 @@ let elim_sorts (_,mip) = mip.mind_kelim let is_private (mib,_) = mib.mind_private = Some true let is_primitive_record (mib,_) = match mib.mind_record with - | Some (Some _) -> true - | _ -> false + | PrimRecord _ -> true + | NotRecord | FakeRecord -> false let build_dependent_inductive ind (_,mip) params = let realargs,_ = List.chop mip.mind_nrealdecls mip.mind_arity_ctxt in |