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