sig
  module type WEAKPLUS =
    sig
      type 'a t
      type key
      val create : int -> 'a WeakPlus.WEAKPLUS.t
      val resize : ?size:int -> 'a WeakPlus.WEAKPLUS.t -> unit
      val add : 'a WeakPlus.WEAKPLUS.t -> WeakPlus.WEAKPLUS.key -> 'a -> unit
      val remove : 'a WeakPlus.WEAKPLUS.t -> WeakPlus.WEAKPLUS.key -> unit
      val find' :
        'a WeakPlus.WEAKPLUS.t -> WeakPlus.WEAKPLUS.key -> 'a option
      val find : 'a WeakPlus.WEAKPLUS.t -> WeakPlus.WEAKPLUS.key -> 'a
      val mem : 'a WeakPlus.WEAKPLUS.t -> WeakPlus.WEAKPLUS.key -> bool
      val count : 'a WeakPlus.WEAKPLUS.t -> int
      val iter :
        (WeakPlus.WEAKPLUS.key -> 'a -> unit) ->
        'a WeakPlus.WEAKPLUS.t -> unit
    end
  module Make :
    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
end