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 *)
(** [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 *)