From ecb032467557631ea60324c6afa55c91c133e40d Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Fri, 17 Jun 2016 20:26:35 +0200 Subject: Reuse the typing_flags datatype for inductives. --- kernel/environ.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'kernel/environ.ml') diff --git a/kernel/environ.ml b/kernel/environ.ml index 65aaa3f7b..9fb3bf79f 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -53,6 +53,7 @@ let is_impredicative_set env = | _ -> false let type_in_type env = not (typing_flags env).check_universes +let deactivated_guard env = not (typing_flags env).check_guarded let universes env = env.env_stratification.env_universes let named_context env = env.env_named_context @@ -362,7 +363,7 @@ let polymorphic_pind (ind,u) env = else polymorphic_ind ind env let type_in_type_ind (mind,i) env = - (lookup_mind mind env).mind_unsafe_universes + not (lookup_mind mind env).mind_typing_flags.check_universes let template_polymorphic_ind (mind,i) env = match (lookup_mind mind env).mind_packets.(i).mind_arity with -- cgit v1.2.3