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/uState.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/uState.ml')
| -rw-r--r-- | engine/uState.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/engine/uState.ml b/engine/uState.ml index 99ac5f2ce8..7c60d8317c 100644 --- a/engine/uState.ml +++ b/engine/uState.ml @@ -63,6 +63,8 @@ let make ~lbound u = uctx_universes_lbound = lbound; uctx_initial_universes = u} +let from_env e = make ~lbound:(Environ.universes_lbound e) (Environ.universes e) + let is_empty ctx = ContextSet.is_empty ctx.uctx_local && LMap.is_empty ctx.uctx_univ_variables |