sig type 'a t = 'a Union_find.t val create : 'a -> 'a t val get : 'a t -> 'a val set : 'a t -> 'a -> unit val same_class : 'a t -> 'a t -> bool val union : 'a t -> 'a t -> unit val ounit_tests : unit -> OUnit.test end