Commentaries

[tatoo.git] / src / formula.mli

diff --git a/src/formula.mli b/src/formula.mli
index 46cbe65..69bdb78 100644 (file)
--- a/src/formula.mli
+++ b/src/formula.mli
@@ -52,6 +52,12 @@ val compare : t -> t -> int
 val size : t -> int
 (** Syntactic size of the formula *)
 
+val eval_form : (StateSet.t * StateSet.t) -> t -> bool
+(** [eval_form (sf,sn) F] evaluates the formula [F] on [(sf,sn)] *)
+
+val infer_form : (StateSet.t * StateSet.t) -> (StateSet.t * StateSet.t) -> t -> bool
+(** [eval_form S1 S2 F] infers S1; S2 |- F *)
+
 val print : Format.formatter -> t -> unit
 (** Pretty printer *)