From ec209ea02cb8fa86f09aff88d0464c865ed7b8a5 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Tue, 13 Nov 2018 16:02:03 +0100
Subject: Put -indices-matter in typing_flags

---
 vernac/comInductive.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'vernac/comInductive.ml')

diff --git a/vernac/comInductive.ml b/vernac/comInductive.ml
index fbfa997555..8507ee6e2c 100644
--- a/vernac/comInductive.ml
+++ b/vernac/comInductive.ml
@@ -266,7 +266,7 @@ let inductive_levels env evd poly arities inds =
         in
         let minlev =
           (** Indices contribute. *)
-          if Indtypes.is_indices_matter () && List.length ctx > 0 then (
+          if indices_matter env && List.length ctx > 0 then (
             let ilev = sign_level env evd ctx in
               Univ.sup ilev minlev)
           else minlev
-- 
cgit v1.2.3