type struct_t = [ | `State_fa45ae2a809f2466
]type unnamed_union_t = | NotStarted| Passed| Failed of string| Active| Aborted| Undefined of int
val not_started_set : t -> unitval passed_set : t -> unitval failed_set : t -> string -> unitval active_set : t -> unitval aborted_set : t -> unitval init_root : ?message_size:int -> unit -> t