val type0: NCic.universe
val get_universes: unit -> NCic.universe list
+val is_declared: NCic.universe -> bool
val max: NCic.universe -> NCic.universe -> NCic.universe
(* universe_* raise BadConstraints if the second arg. is an inferred universe *)
val universe_eq: NCic.universe -> NCic.universe -> bool