type 'a bucket =
| Empty
| Cons of {
mutable key : 'a;
mutable next : 'a bucket;
}
type 'a t = {
mutable size : int;
mutable data : 'a bucket array;
initial_size : int;
}
val resize : ('a t -> 'b -> int) -> 'a t -> unit
val iter : 'a t -> ('b -> 'c) -> unit
val fold : 'a t -> 'b -> ('c -> 'd -> 'e) -> 'f
val to_list : 'a t -> 'b list
val small_bucket_mem : ('a -> 'b -> bool) -> 'c -> 'd bucket -> bool
val remove_bucket :
'a t ->
int ->
'b ->
prec:'c bucket ->
'd bucket ->
('e -> 'f -> bool) ->
unit
module type S = sig ... end