Merlin_index_format.Union_find
type 'a content =
| Root of {
mutable value : 'a;
mutable rank : int;
}
| Link of {
mutable parent : 'a element;
and 'a element = 'a content ref
val make : 'a -> 'a content ref
val find : 'a element -> 'a element
val union : f:('a -> 'a -> 'a) -> 'a element -> 'a element -> 'a element
val get : 'a element -> 'a