Module Unionfind.Make
Parameters
Signature
type elt= S.eltThe type of elements in the partition
type set= S.tA set structure over elements
val create : unit -> tInitialise an empty partition
val add : elt -> t -> unitAdd (in place) an element in the partition, or do nothing if the element is already in the partition.
val find : elt -> t -> eltFind the canonical representative of an element. Raise
not_foundif the element isn't known yet.