diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-09-11 18:07:39 +0200 |
|---|---|---|
| committer |  Matthieu Sozeau <mattam@mattam.org> | 2015-10-02 15:54:10 +0200 |
| commit | e759333a8b5c11247c4cc134fdde8c1bd85a6e17 (patch) | |
| tree | 8eb43cf88b6d2367bb856f46b2a471af583e73db /kernel/univ.mli | |
| parent | 88abc50ece70405d71777d5350ca2fa70c1ff437 (diff) | |
Universes: enforce Set <= i for all Type occurrences.
Diffstat (limited to 'kernel/univ.mli')
| -rw-r--r-- | kernel/univ.mli | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/kernel/univ.mli b/kernel/univ.mli index 7aaf2ffe6..76453cbb0 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -20,7 +20,11 @@ sig val is_small : t -> bool (** Is the universe set or prop? *) - + + val is_prop : t -> bool + val is_set : t -> bool + (** Is it specifically Prop or Set *) + val compare : t -> t -> int (** Comparison function *) @@ -159,8 +163,8 @@ val is_initial_universes : universes -> bool val sort_universes : universes -> universes -(** Adds a universe to the graph, ensuring it is >= Prop. *) -val add_universe : universe_level -> universes -> universes +(** Adds a universe to the graph, ensuring it is >= Prop or Set. *) +val add_universe : universe_level -> predicative:bool -> universes -> universes (** {6 Constraints. } *) |