functor (H : Hashtbl.HashedType) ->
  sig
    type 'a t
    type key = H.t
    val create : int -> 'a t
    val resize : ?size:int -> 'a t -> unit
    val add : 'a t -> key -> 'a -> unit
    val remove : 'a t -> key -> unit
    val find' : 'a t -> key -> 'a option
    val find : 'a t -> key -> 'a
    val mem : 'a t -> key -> bool
    val count : 'a t -> int
    val iter : (key -> 'a -> unit) -> 'a t -> unit
  end