diff options
| author | Hugo Herbelin | 2014-09-13 10:44:40 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-09-13 11:20:28 +0200 |
| commit | 24d0027f0344bca7abce3b8fa8c2a1e42ecf1a00 (patch) | |
| tree | bdde5a56a8e3ca5b0a258ccb68a85caf498fdf56 /kernel/pre_env.ml | |
| parent | 9a4e062c92ad88c894ebbd6e20ee9d1511f24a3f (diff) | |
Providing a -type-in-type option for collapsing the universe hierarchy.
Diffstat (limited to 'kernel/pre_env.ml')
| -rw-r--r-- | kernel/pre_env.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/kernel/pre_env.ml b/kernel/pre_env.ml index ba9f302334..a5221c7794 100644 --- a/kernel/pre_env.ml +++ b/kernel/pre_env.ml @@ -46,7 +46,8 @@ type globals = { type stratification = { env_universes : universes; - env_engagement : engagement option + env_engagement : engagement option; + env_type_in_type : bool } type val_kind = @@ -92,7 +93,8 @@ let empty_env = { env_nb_rel = 0; env_stratification = { env_universes = initial_universes; - env_engagement = None }; + env_engagement = None; + env_type_in_type = false}; env_conv_oracle = Conv_oracle.empty; retroknowledge = Retroknowledge.initial_retroknowledge } |