diff options
Diffstat (limited to 'kernel/sorts.mli')
-rw-r--r-- | kernel/sorts.mli | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/kernel/sorts.mli b/kernel/sorts.mli new file mode 100644 index 00000000..cd65b231 --- /dev/null +++ b/kernel/sorts.mli @@ -0,0 +1,42 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2015 *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) + +(** {6 The sorts of CCI. } *) + +type contents = Pos | Null + +type family = InProp | InSet | InType + +type t = +| Prop of contents (** Prop and Set *) +| Type of Univ.universe (** Type *) + +val set : t +val prop : t +val type1 : t + +val equal : t -> t -> bool +val compare : t -> t -> int +val hash : t -> int + +val is_set : t -> bool +val is_prop : t -> bool +val is_small : t -> bool +val family : t -> family + +val hcons : t -> t + +val family_equal : family -> family -> bool + +module List : sig + val mem : family -> family list -> bool + val intersect : family list -> family list -> family list +end + +val univ_of_sort : t -> Univ.universe +val sort_of_univ : Univ.universe -> t |