module Make:
type
key = H.t
type 'a
t = 'a hashtbl
val create : int -> ('a, 'b) t
val clear : ('a, 'b) t -> unit
val copy : ('a, 'b) t -> ('a, 'b) t
val add : (H.t, 'a) t -> H.t -> 'a -> unit
val remove : (H.t, 'a) t -> H.t -> unit
val find : (H.t, 'a) t -> H.t -> 'a
val find_all : (H.t, 'a) t -> H.t -> 'a list
val replace : (H.t, 'a) t -> H.t -> 'a -> unit
val mem : (H.t, 'a) t -> H.t -> bool
val iter : ('a -> 'b -> 'c) -> ('a, 'b) t -> unit
val fold : ('a -> 'b -> 'c -> 'c) -> ('a, 'b) t -> 'c -> 'c
val length : ('a, 'b) t -> int