diff options
| author | Gaëtan Gilbert | 2018-10-30 18:09:31 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-10-30 21:47:36 +0100 |
| commit | f18ea56a697fe27467e499d35495e18b866de371 (patch) | |
| tree | 30503211af1548035b799d577a00d2f904ceb434 /kernel | |
| parent | 9a99bad924f3c82107a5ecfa7a906988f0f69309 (diff) | |
Remove Environ.set_universes / Typing.enrich_env
Made possible by the previous commit passing ~evars to
check_hyps_inclusion.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 3 | ||||
| -rw-r--r-- | kernel/environ.mli | 5 |
2 files changed, 0 insertions, 8 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index f09f782008..cdb8836ed2 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -350,9 +350,6 @@ let map_universes f env = { env with env_stratification = { s with env_universes = f s.env_universes } } -let set_universes env u = - { env with env_stratification = { env.env_stratification with env_universes = u } } - let add_constraints c env = if Univ.Constraint.is_empty c then env else map_universes (UGraph.merge_constraints c) env diff --git a/kernel/environ.mli b/kernel/environ.mli index 43bfe7c2fb..53a2eae7e1 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -155,11 +155,6 @@ val named_body : variable -> env -> constr option val fold_named_context : (env -> Constr.named_declaration -> 'a -> 'a) -> env -> init:'a -> 'a -val set_universes : env -> UGraph.t -> env -(** This is used to update universes during a proof for the sake of - evar map-unaware functions, eg [Typing] calling - [Typeops.check_hyps_inclusion]. *) - (** Recurrence on [named_context] starting from younger decl *) val fold_named_context_reverse : ('a -> Constr.named_declaration -> 'a) -> init:'a -> env -> 'a |