X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fata.mli;h=aa28abff5cd55bae2d5b4071db7474a80c9ad478;hp=eada8d02a2a0fecad49284b6ec1aeb05953cf1c5;hb=021fdd8af4067ec57cdbf5c2dbc903252cbd4707;hpb=7361bb0501a656c2af8417dc1acfeb5613524684

diff --git a/src/ata.mli b/src/ata.mli
index eada8d0..aa28abf 100644
--- a/src/ata.mli
+++ b/src/ata.mli
@@ -98,11 +98,16 @@ val get_selecting_states : t -> StateSet.t
 (** return the set of selecting states of the automaton *)
 
 val get_trans : t -> QNameSet.elt -> StateSet.t -> TransList.t
-(** [get_trans auto l q] return the list of transitions taken by [auto]
+(** [get_trans auto l q] returns the list of transitions taken by [auto]
     for label [l] in state [q]. Takes time proportional to the number of
     transitions in the automaton.
  *)
 
+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 print : Format.formatter -> t -> unit
 (** Pretty printing of the automaton *)