diff options
| author | Gaëtan Gilbert | 2020-05-20 13:32:17 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-05-20 13:32:17 +0200 |
| commit | 7163b75641bb8bf0a88856f43e536a9fba0d6ae7 (patch) | |
| tree | a1e6f274780ba825b01693ec464c3339fcfd8562 /engine/uState.ml | |
| parent | 547a384901d2785dcf9c849f09d4693174be3024 (diff) | |
| parent | c8e7ffe08e119132bec097424f21b4570150893b (diff) | |
Merge PR #12354: [universes] [api] Provide UState.from_env
Reviewed-by: SkySkimmer
Reviewed-by: ppedrot
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 |