Fix predicates + following_sibling/self + add self in Formula.st + use it in Run

[tatoo.git] / src / formula.mli

diff --git a/src/formula.mli b/src/formula.mli
index 9ecf30a..7ec7320 100644 (file)
--- a/src/formula.mli
+++ b/src/formula.mli
@@ -43,8 +43,8 @@ val equal : t -> t -> bool
 val expr : t -> t expr
 (** Equality over formulae *)
 
-val st : t -> StateSet.t * StateSet.t
-(** states occuring left and right, positively or negatively *)
+val st : t -> StateSet.t * StateSet.t * StateSet.t
+(** states occuring self, left and right, positively or negatively *)
 
 val compare : t -> t -> int
 (** Comparison of formulae *)