Module Sorts.Quality

type constant =
| QProp
| QSProp
| QType
type t =
| QVar of QVar.t
| QConstant of constant
| QGlobal of QGlobal.t
module Constants : sig ... end
val qprop : t
val qsprop : t
val qtype : t
val is_qprop : t -> bool
val is_qsprop : t -> bool
val is_qtype : t -> bool
val is_qvar : t -> bool
val is_qconst : t -> bool
val is_qglobal : t -> bool
val is_impredicative : t -> bool
val var : int -> t

var i is QVar (QVar.make_var i)

val global : QGlobal.t -> t

global i is QVar (QVar.make_global i)

val var_index : t -> int option
val equal : t -> t -> bool
val compare : t -> t -> int
type printer = {
prvar : QVar.t -> Pp.t;
prglobal : QGlobal.t -> Pp.t;
}
val pr : printer -> t -> Pp.t
val raw_printer : printer
val raw_pr : t -> Pp.t
val all_constants : t list
val hash : t -> int
val hcons : t Hashcons.f
val subst : (QVar.t -> t) -> t -> t
val subst_fn : t QVar.Map.t -> QVar.t -> t
module Set : sig ... end
module Map : CMap.ExtS with type key = t and module Set := Set
type 'q pattern =
| PQVar of 'q
| PQConstant of constant
| PQGlobal of QGlobal.t
val pattern_match : int option pattern -> t -> ('t, t, 'u) Partial_subst.t -> ('t, t, 'u) Partial_subst.t option