val get_selecting_states : t -> StateSet.t
(** return the set of selecting states of the automaton *)
-val get_states_by_rank : t -> (StateSet.t*StateSet.t) array
+type rank = { td : StateSet.t;
+ bu : StateSet.t;
+ exit : StateSet.t }
+
+val get_states_by_rank : t -> rank array
(** return an array of states (sources, states) ordered by ranks.
*)