diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-05-13 18:19:15 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 18:54:43 +0200 |
commit | 575da16f72ac125ba7e50b1bfe63302dee639973 (patch) | |
tree | 7e967e4b8031059b301f537b068f198b54213daf /kernel/environ.ml | |
parent | 561dbba4ce47aa1920b27a6fa3ea1fdb03835557 (diff) |
Adding a local type-in-type flag in kernel declarations.
Diffstat (limited to 'kernel/environ.ml')
-rw-r--r-- | kernel/environ.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index d8493d9ba..032e71359 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -328,6 +328,9 @@ let polymorphic_pconstant (cst,u) env = if Univ.Instance.is_empty u then false else polymorphic_constant cst env +let type_in_type_constant cst env = + not (lookup_constant cst env).const_typing_flags.check_universes + let template_polymorphic_constant cst env = match (lookup_constant cst env).const_type with | TemplateArity _ -> true @@ -357,6 +360,9 @@ let polymorphic_pind (ind,u) env = if Univ.Instance.is_empty u then false else polymorphic_ind ind env +let type_in_type_ind (mind,i) env = + (lookup_mind mind env).mind_unsafe_universes + let template_polymorphic_ind (mind,i) env = match (lookup_mind mind env).mind_packets.(i).mind_arity with | TemplateArity _ -> true |