diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 5 | ||||
| -rw-r--r-- | kernel/environ.mli | 1 |
2 files changed, 0 insertions, 6 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 59336a762..7759efb67 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -195,11 +195,6 @@ let add_mind kn mib env = { env with env_globals = new_globals } (* Universe constraints *) -let set_universes g env = - if env.env_stratification.env_universes == g then env - else - { env with env_stratification = - { env.env_stratification with env_universes = g } } let add_constraints c env = if c == empty_constraint then diff --git a/kernel/environ.mli b/kernel/environ.mli index aa6f52128..42100e4eb 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -152,7 +152,6 @@ val lookup_modtype : module_path -> env -> module_type_body (** {5 Universe constraints } *) -val set_universes : Univ.universes -> env -> env val add_constraints : Univ.constraints -> env -> env val set_engagement : engagement -> env -> env |