src/html.mli

   1 val trace : ?msg:string -> int -> int -> StateSet.t -> StateSet.t  -> unit
   2 (** [trace nid round d t msg] records the message [msg] together
   3     with the a node preorder [nid], the [round], the [d]one set and
   4     the [t]odo set *)
   5 val finalize_node : int -> int -> bool -> unit
   6 val gen_trace : Ata.t -> (module Tree.S with type t = 'a) -> 'a -> unit