diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-03-01 15:19:52 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-03-09 16:30:11 +0100 |
| commit | d640b676282285d52ac19038d693080e64eb5ea7 (patch) | |
| tree | 6c09e0963369997ff5e9c55490ff98a04331d1cd /engine/universes.mli | |
| parent | ee7f5486fff86c453767997f97eda381983c4bbc (diff) | |
Statically enforce that ULub is only between levels.
Diffstat (limited to 'engine/universes.mli')
| -rw-r--r-- | engine/universes.mli | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/engine/universes.mli b/engine/universes.mli index a86b9779b..4af944347 100644 --- a/engine/universes.mli +++ b/engine/universes.mli @@ -71,12 +71,16 @@ val new_sort_in_family : Sorts.family -> Sorts.t not be necessary if unfolding is performed. *) -type universe_constraint_type = ULe | UEq | ULub +type universe_constraint = + | ULe of Universe.t * Universe.t + | UEq of Universe.t * Universe.t + | ULub of Level.t * Level.t -type universe_constraint = Universe.t * universe_constraint_type * Universe.t module Constraints : sig include Set.S with type elt = universe_constraint + val is_trivial : universe_constraint -> bool + val pr : t -> Pp.t end |