X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fauto%2Fformula.mli;h=78df01c72361527f1e066de0a420f779d31b81d4;hb=f5e7e53901bfc30b6234e6026a2c984bfceff694;hp=3cf240d2899bb5d8cadba296f9eaf08de5f68bf0;hpb=30bc0bb1291426e5e26eb2dee1ffc41e4c246349;p=tatoo.git diff --git a/src/auto/formula.mli b/src/auto/formula.mli index 3cf240d..78df01c 100644 --- a/src/auto/formula.mli +++ b/src/auto/formula.mli @@ -14,7 +14,7 @@ (***********************************************************************) (* - Time-stamp: + Time-stamp: *) module type PREDICATE = @@ -24,7 +24,7 @@ sig val eval : ctx -> t -> bool val neg : t -> t include Utils.Hcons.Abstract with type t := t - include Utils.Sigs.AUX.Printable with type t := t + include Utils.Common_sig.Printable with type t := t end type ('formula,'pred) expr = @@ -53,7 +53,7 @@ sig (** Equality over formulae *) val expr : t -> (t,P.t) expr - (** Equality over formulae *) + (** Return a view of the formulae *) val compare : t -> t -> int (** Comparison of formulae *)