]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/ng_kernel/nCicEnvironment.mli
As required by M. Maietti,
[helm.git] / matita / components / ng_kernel / nCicEnvironment.mli
index a557ef563b0b922b6bb6424adf8d26382b61992a..650d126207d9704f2e47c18b60d95d747f217a93 100644 (file)
@@ -62,7 +62,7 @@ val max: NCic.universe -> NCic.universe -> NCic.universe
 (* raise BadConstraints if the second arg. is an inferred universe or
  * if the added constraint gives circularity *)
 exception BadConstraint of string Lazy.t;;
-val add_lt_constraint: NCic.universe -> NCic.universe -> unit
+val add_lt_constraint: acyclic:bool -> NCic.universe -> NCic.universe -> unit
 val universe_eq: NCic.universe -> NCic.universe -> bool
 val universe_leq: NCic.universe -> NCic.universe -> bool
 val universe_lt: NCic.universe -> NCic.universe -> bool