diff options
| author | Emilio Jesus Gallego Arias | 2020-05-18 18:40:26 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-05-19 14:31:23 +0200 |
| commit | c8e7ffe08e119132bec097424f21b4570150893b (patch) | |
| tree | 9e337fa9c316b0f4a52b4a030f7e156c36817f34 /engine/evd.ml | |
| parent | 5b23b80c8a0af603e8078616b2c5957a6f709e62 (diff) | |
[universes] [api] Provide UState.from_env
This seems like a recurring pattern, and IMO makes a bit better API.
We also remove `merge_universe_subst` as it is not needed so far, as
we were creating stale `evar_map`s just for this purpose.
Diffstat (limited to 'engine/evd.ml')
| -rw-r--r-- | engine/evd.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index 5642145f6d..ff13676818 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -697,8 +697,7 @@ let empty = { extras = Store.empty; } -let from_env e = - { empty with universes = UState.make ~lbound:(Environ.universes_lbound e) (Environ.universes e) } +let from_env e = { empty with universes = UState.from_env e } let from_ctx ctx = { empty with universes = ctx } @@ -862,9 +861,6 @@ let universe_subst evd = let merge_context_set ?loc ?(sideff=false) rigid evd ctx' = {evd with universes = UState.merge ?loc ~sideff rigid evd.universes ctx'} -let merge_universe_subst evd subst = - {evd with universes = UState.merge_subst evd.universes subst } - let with_context_set ?loc rigid d (a, ctx) = (merge_context_set ?loc rigid d ctx, a) |