diff options
| author | Pierre-Marie Pédrot | 2018-10-01 13:40:45 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-09 14:10:27 +0100 |
| commit | 23ef45aa14308aa0b1e1b1f6061ec9e7e7634e49 (patch) | |
| tree | 755fe122bf2b78df37d42897fdec6d66e8695de6 /kernel/entries.ml | |
| parent | 6e5dd2ee8bc014d1f99cef3156a5114b11510398 (diff) | |
Use arrays of names instead of lists in abstract universe names.
There is little point in having a list, as there is virtually no sharing
nor expansion of bound universe names. This representation is thus more
compact.
Diffstat (limited to 'kernel/entries.ml')
| -rw-r--r-- | kernel/entries.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/entries.ml b/kernel/entries.ml index 87fa385a60..58bb782f15 100644 --- a/kernel/entries.ml +++ b/kernel/entries.ml @@ -30,8 +30,8 @@ then, in i{^ th} block, [mind_entry_params] is [xn:Xn;...;x1:X1]; type inductive_universes = | Monomorphic_ind_entry of Univ.ContextSet.t - | Polymorphic_ind_entry of Name.t list * Univ.UContext.t - | Cumulative_ind_entry of Name.t list * Univ.CumulativityInfo.t + | Polymorphic_ind_entry of Name.t array * Univ.UContext.t + | Cumulative_ind_entry of Name.t array * Univ.CumulativityInfo.t type one_inductive_entry = { mind_entry_typename : Id.t; @@ -60,7 +60,7 @@ type 'a const_entry_body = 'a proof_output Future.computation type constant_universes_entry = | Monomorphic_const_entry of Univ.ContextSet.t - | Polymorphic_const_entry of Name.t list * Univ.UContext.t + | Polymorphic_const_entry of Name.t array * Univ.UContext.t type 'a in_constant_universes_entry = 'a * constant_universes_entry |