-val complete_transitions : t -> unit
-val cleanup_states : t -> unit
-val normalize_negations : t -> unit
+(** Pretty printing of the automaton *)
+
+
+module Builder :
+sig
+ type auto = t
+ (** Alias type for the automata type *)
+
+ type t
+ (** Abstract type for a builder *)
+
+ val make : unit -> t
+ (** Create a fresh builder *)
+
+ val add_state : t -> ?selecting:bool -> State.t -> unit
+ (** Add a state to the set of states of the automaton. The optional argument
+ [?selecting] (defaulting to [false]) allows to specify whether the state is
+ selecting. *)
+
+ val add_trans : t -> State.t -> QNameSet.t -> Formula.t -> unit
+ (** Add a transition to the automaton *)
+
+ val finalize : t -> auto
+ (** Finalize the automaton and return it. Clean-up unused states (states that
+ do not occur in any transitions and remove instantes of negative [move] atoms
+ by creating fresh states that accept the complement of the negated state.
+ *)
+end
+ (** Builder facility for the automaton *)