X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fata.mli;h=54ed1b4a075e3651c9bf05fecac74c26e288e279;hp=e1fdc4a2fd1a95e72e101e6bc17285e97ecb0ba6;hb=fed343e8df1900043dc993ac5458c757d3ac2ee0;hpb=35abea737ead2d4fd121d0cb8bdbda38cfcaa8d3

diff --git a/src/ata.mli b/src/ata.mli
index e1fdc4a..54ed1b4 100644
--- a/src/ata.mli
+++ b/src/ata.mli
@@ -102,7 +102,7 @@ end
 
 module TransList : sig
   include Hlist.S with type elt = Transition.t
-  val print : Format.formatter -> ?sep:string -> t -> unit
+  val print : ?sep:string -> Format.formatter  -> t -> unit
 end
 (** Hashconsed lists of transitions, with a printing facility *)
 
@@ -141,6 +141,10 @@ val get_form : t -> QNameSet.elt -> State.t -> Formula.t
 (** [get_form auto l q] returns a single formula for label [l] in state [q].
     Takes time proportional to the number of transitions in the automaton.
  *)
+val state_prerequisites : move -> t -> State.t -> StateSet.t
+(** [state_prerequisites m auto q] returns the set of all states q' such
+    that [q', _ -> phi] and [m(q)] is in phi
+*)
 
 val print : Format.formatter -> t -> unit
 (** Pretty printing of the automaton *)