diff options
| author | Gaëtan Gilbert | 2020-07-07 15:13:33 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-11-16 11:21:14 +0100 |
| commit | 3c8fd95682810afd9f784d9ea54e14cc3535273c (patch) | |
| tree | 1d40d0c5b2534e65ab9478a250cb94ceed6103cf /kernel | |
| parent | 9990bea3e163850c0ac4dca982c73d2b2bc19a38 (diff) | |
Syntax for specifying cumulative inductives
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/entries.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/kernel/entries.ml b/kernel/entries.ml index b0bb9cabef..1bfc740017 100644 --- a/kernel/entries.ml +++ b/kernel/entries.ml @@ -20,6 +20,8 @@ type universes_entry = | Monomorphic_entry of Univ.ContextSet.t | Polymorphic_entry of Name.t array * Univ.UContext.t +type variance_entry = Univ.Variance.t option array + type 'a in_universes_entry = 'a * universes_entry (** {6 Declaration of inductive types. } *) @@ -50,7 +52,7 @@ type mutual_inductive_entry = { mind_entry_inds : one_inductive_entry list; mind_entry_universes : universes_entry; mind_entry_template : bool; (* Use template polymorphism *) - mind_entry_variance : Univ.Variance.t option array option; + mind_entry_variance : variance_entry option; (* [None] if non-cumulative, otherwise associates each universe of the entry to [None] if to be inferred or [Some v] if to be checked. *) |