diff options
| author | Gaëtan Gilbert | 2017-09-15 21:01:57 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2017-11-24 19:18:56 +0100 |
| commit | a5feb9687819c5e7ef0db6e7b74d0e236a296674 (patch) | |
| tree | bfd809fd50c8db88f390e3d5cba22360a0c90724 /engine/evd.ml | |
| parent | d437078a4ca82f7ca6d19be5ee9452359724f9a0 (diff) | |
Separate checking univ_decls and obtaining universe binder names.
Diffstat (limited to 'engine/evd.ml')
| -rw-r--r-- | engine/evd.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index ca1196b948..67ae73ceb2 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -936,6 +936,8 @@ let universe_of_name evd s = UState.universe_of_name evd.universes s let add_universe_name evd s l = { evd with universes = UState.add_universe_name evd.universes s l } +let universe_binders evd = UState.universe_binders evd.universes + let universes evd = UState.ugraph evd.universes let update_sigma_env evd env = |