exception CircularDependency of string Lazy.t;;
exception ObjectNotFound of string Lazy.t;;
exception BadDependency of string Lazy.t;;
+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
+(* 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
-val add_lt_constraint: NCic.universe -> NCic.universe -> unit
-val add_leq_constraint: NCic.universe -> NCic.universe -> unit
+(* add_le_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_le_constraint: bool -> NCic.universe -> NCic.universe -> unit
val get_checked_def:
NReference.reference ->