val is_singleton : t -> bool
val mem_union : t -> t -> t
val hash : t -> int
-val uid : t -> int
+val uid : t -> Uid.t
val uncons : t -> elt * t
val from_list : elt list -> t
val make : data -> t
val node : t -> data
+
+val with_id : Uid.t -> t
end
include S with type elt = int
val print : Format.formatter -> t -> unit
end
+
module Make ( H : Hcons.S ) : S with type elt = H.t