exception CircularDependency of string Lazy.t;;
exception ObjectNotFound of string Lazy.t;;
-exception BadDependency of string Lazy.t;;
+exception BadDependency of string Lazy.t * exn;;
+exception BadConstraint of string Lazy.t;;
val get_checked_obj: NUri.uri -> NCic.obj
+val get_relevance: NReference.reference -> bool list
+
+val type0: NCic.universe
+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
+val universe_leq: NCic.universe -> NCic.universe -> bool
+(* add_constraint raise BadConstraint in case of universe inconsistency
+ or if the second argument is an inferred universe
+ 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 ->
NCic.relevance * string * NCic.term * NCic.term * NCic.c_attr * int
NReference.reference ->
NCic.inductiveFun list * NCic.f_attr * int
-val get_indty_leftno: NReference.reference -> int
-
val invalidate: unit -> unit
val set_typecheck_obj: (NCic.obj -> unit) -> unit