From 9990bea3e163850c0ac4dca982c73d2b2bc19a38 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Tue, 7 Jul 2020 14:25:20 +0200
Subject: Infrastructure for cumulative inductive syntax (no grammar extension
 yet)

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

(limited to 'kernel/entries.ml')

diff --git a/kernel/entries.ml b/kernel/entries.ml
index ae64112e33..b0bb9cabef 100644
--- a/kernel/entries.ml
+++ b/kernel/entries.ml
@@ -50,9 +50,10 @@ 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_cumulative : bool;
-  (* universe constraints and the constraints for subtyping of
-     inductive types in the block. *)
+  mind_entry_variance : Univ.Variance.t option array 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. *)
   mind_entry_private : bool option;
 }
 
-- 
cgit v1.2.3