6 external hash : t -> int = "%identity"
7 external uid : t -> Uid.t = "%identity"
8 external equal : t -> t -> bool = "%eq"
9 external make : t -> int = "%identity"
10 external node : t -> int = "%identity"
11 external stats : unit -> unit = "%identity"
16 let first = ref true in
17 pp_print_string ppf "{";
21 then let () = State.print ppf i in first := false
22 else fprintf ppf " %a" State.print i)
24 pp_print_string ppf "}"