diff options
Diffstat (limited to 'library/declare.ml')
| -rw-r--r-- | library/declare.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/declare.ml b/library/declare.ml index bf5313545..e2b726f45 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -352,13 +352,14 @@ let dummy_inductive_entry (_,m) = ([],{ mind_entry_finite = Decl_kinds.BiFinite; mind_entry_inds = List.map dummy_one_inductive_entry m.mind_entry_inds; mind_entry_polymorphic = false; + mind_entry_cumulative = false; mind_entry_universes = Univ.UInfoInd.empty; mind_entry_private = None; }) (* reinfer subtyping constraints for inductive after section is dischared. *) let infer_inductive_subtyping (pth, mind_ent) = - if mind_ent.mind_entry_polymorphic then + if mind_ent.mind_entry_polymorphic && mind_ent.mind_entry_cumulative then begin let env = Global.env () in let env' = @@ -370,7 +371,6 @@ let infer_inductive_subtyping (pth, mind_ent) = end else (pth, mind_ent) - type inductive_obj = Dischargedhypsmap.discharged_hyps * mutual_inductive_entry let inInductive : inductive_obj -> obj = |