diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-17 20:26:35 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 18:54:43 +0200 |
| commit | ecb032467557631ea60324c6afa55c91c133e40d (patch) | |
| tree | 831803ca1db0e73ec3cea91c52f5f2e288d12341 /kernel/environ.ml | |
| parent | 53ced0735f7e24735d78a02fc74588b8d9186eab (diff) | |
Reuse the typing_flags datatype for inductives.
Diffstat (limited to 'kernel/environ.ml')
| -rw-r--r-- | kernel/environ.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 |