diff options
| author | Pierre-Marie Pédrot | 2016-05-13 18:19:15 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-06-18 18:54:43 +0200 |
| commit | 575da16f72ac125ba7e50b1bfe63302dee639973 (patch) | |
| tree | 7e967e4b8031059b301f537b068f198b54213daf /kernel/declareops.ml | |
| parent | 561dbba4ce47aa1920b27a6fa3ea1fdb03835557 (diff) | |
Adding a local type-in-type flag in kernel declarations.
Diffstat (limited to 'kernel/declareops.ml')
| -rw-r--r-- | kernel/declareops.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/declareops.ml b/kernel/declareops.ml index 28f7e69cd4..5caf052ace 100644 --- a/kernel/declareops.ml +++ b/kernel/declareops.ml @@ -16,6 +16,7 @@ open Context.Rel.Declaration let safe_flags = { check_guarded = true; + check_universes = true; } (** {6 Arities } *) @@ -261,6 +262,7 @@ let subst_mind_body sub mib = mind_universes = mib.mind_universes; mind_private = mib.mind_private; mind_checked_positive = mib.mind_checked_positive; + mind_unsafe_universes = mib.mind_unsafe_universes; } let inductive_instance mib = |