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 /library/global.ml | |
| parent | 561dbba4ce47aa1920b27a6fa3ea1fdb03835557 (diff) | |
Adding a local type-in-type flag in kernel declarations.
Diffstat (limited to 'library/global.ml')
| -rw-r--r-- | library/global.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/library/global.ml b/library/global.ml index f4ee62b6e..e456841f8 100644 --- a/library/global.ml +++ b/library/global.ml @@ -244,6 +244,14 @@ let is_template_polymorphic r = | IndRef ind -> Environ.template_polymorphic_ind ind env | ConstructRef cstr -> Environ.template_polymorphic_ind (inductive_of_constructor cstr) env +let is_type_in_type r = + let env = env() in + match r with + | VarRef id -> false + | ConstRef c -> Environ.type_in_type_constant c env + | IndRef ind -> Environ.type_in_type_ind ind env + | ConstructRef cstr -> Environ.type_in_type_ind (inductive_of_constructor cstr) env + let current_dirpath () = Safe_typing.current_dirpath (safe_env ()) |