true -> strict check (<); false -> loose check (<=)
*)
val add_constraint: bool -> NCic.universe -> NCic.universe -> unit
+val sup : NCic.universe -> NCic.universe option
+val pp_constraints: unit -> string
val get_checked_def:
NReference.reference ->