From 3c8fd95682810afd9f784d9ea54e14cc3535273c Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Tue, 7 Jul 2020 15:13:33 +0200
Subject: Syntax for specifying cumulative inductives

---
 kernel/entries.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'kernel')

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. *)
-- 
cgit v1.2.3