Module UnionFind.Item.Map

module Map: sig .. end

type key = UnionFind.Item.t 

type 'a t 

val empty : 'a t

val find : key -> 'a t -> 'a

val add : key ->
       'a -> 'a t -> 'a t

val fold : (key -> 'a -> 'b -> 'b) ->
       'a t -> 'b -> 'b