projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Commentaries
[tatoo.git]
/
src
/
formula.mli
diff --git
a/src/formula.mli
b/src/formula.mli
index
e108758
..
69bdb78
100644
(file)
--- a/
src/formula.mli
+++ b/
src/formula.mli
@@
-53,7
+53,10
@@
val size : t -> int
(** Syntactic size of the formula *)
val eval_form : (StateSet.t * StateSet.t) -> t -> bool
(** Syntactic size of the formula *)
val eval_form : (StateSet.t * StateSet.t) -> t -> bool
-(** [eval_form s_1,s_2 F] evaluates the formula [F] on [(s_1,s_2)] *)
+(** [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 *)
val print : Format.formatter -> t -> unit
(** Pretty printer *)