X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fata.mli;fp=src%2Fata.mli;h=443bb0bd170c78ad3e855cb2426aabc6101c6323;hp=e1fdc4a2fd1a95e72e101e6bc17285e97ecb0ba6;hb=6844beef9142975d1bf4a2b3fb72b93dfa3402dc;hpb=836d6ea0aebf1f947faa74db1d78168afb882930

diff --git a/src/ata.mli b/src/ata.mli
index e1fdc4a..443bb0b 100644
--- a/src/ata.mli
+++ b/src/ata.mli
@@ -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 *)