sig
  type ('a, 'b) t
  val exists : ('a, 'b) ExtHashtbl.Hashtbl.t -> '-> bool
  val keys : ('a, 'b) ExtHashtbl.Hashtbl.t -> 'Enum.t
  val values : ('a, 'b) ExtHashtbl.Hashtbl.t -> 'Enum.t
  val enum : ('a, 'b) ExtHashtbl.Hashtbl.t -> ('a * 'b) Enum.t
  val of_enum : ('a * 'b) Enum.t -> ('a, 'b) ExtHashtbl.Hashtbl.t
  val find_default : ('a, 'b) ExtHashtbl.Hashtbl.t -> '-> '-> 'b
  val remove_all : ('a, 'b) ExtHashtbl.Hashtbl.t -> '-> unit
  val map :
    ('-> 'b) ->
    ('c, 'a) ExtHashtbl.Hashtbl.t -> ('c, 'b) ExtHashtbl.Hashtbl.t
  val create : int -> ('a, 'b) ExtHashtbl.Hashtbl.t
  val clear : ('a, 'b) ExtHashtbl.Hashtbl.t -> unit
  val add : ('a, 'b) ExtHashtbl.Hashtbl.t -> '-> '-> unit
  val copy : ('a, 'b) ExtHashtbl.Hashtbl.t -> ('a, 'b) ExtHashtbl.Hashtbl.t
  val find : ('a, 'b) ExtHashtbl.Hashtbl.t -> '-> 'b
  val find_all : ('a, 'b) ExtHashtbl.Hashtbl.t -> '-> 'b list
  val mem : ('a, 'b) ExtHashtbl.Hashtbl.t -> '-> bool
  val remove : ('a, 'b) ExtHashtbl.Hashtbl.t -> '-> unit
  val replace : ('a, 'b) ExtHashtbl.Hashtbl.t -> '-> '-> unit
  val iter : ('-> '-> unit) -> ('a, 'b) ExtHashtbl.Hashtbl.t -> unit
  val fold :
    ('-> '-> '-> 'c) -> ('a, 'b) ExtHashtbl.Hashtbl.t -> '-> 'c
  val hash : '-> int
  external hash_param : int -> int -> '-> int = "hash_univ_param" "noalloc"
end