diff options
| author | Matthieu Sozeau | 2015-09-23 16:20:42 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-10-02 15:54:10 +0200 |
| commit | 91f5467917266a85496fb718dfc30eff3565d4dc (patch) | |
| tree | a1bc55d95170b0eee7edbf0e7a262af3bbc54d13 /pretyping/evd.mli | |
| parent | 5c8876da5e25512842f2acd7cfa8c62200b9a623 (diff) | |
Univs (evd): deal with global universes and sideff
- Fix union of universe contexts to keep declarations
- Fix side-effect handling to register new global universes
in the graph.
Diffstat (limited to 'pretyping/evd.mli')
| -rw-r--r-- | pretyping/evd.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/evd.mli b/pretyping/evd.mli index c2ccc6d21a..5a59c1776c 100644 --- a/pretyping/evd.mli +++ b/pretyping/evd.mli @@ -508,6 +508,8 @@ val normalize_evar_universe_context : evar_universe_context -> val new_univ_level_variable : ?name:string -> ?predicative:bool -> rigid -> evar_map -> evar_map * Univ.universe_level val new_univ_variable : ?name:string -> ?predicative:bool -> rigid -> evar_map -> evar_map * Univ.universe val new_sort_variable : ?name:string -> ?predicative:bool -> rigid -> evar_map -> evar_map * sorts +val add_global_univ : evar_map -> Univ.Level.t -> evar_map + val make_flexible_variable : evar_map -> bool -> Univ.universe_level -> evar_map val is_sort_variable : evar_map -> sorts -> Univ.universe_level option (** [is_sort_variable evm s] returns [Some u] or [None] if [s] is |