sig
  type ('a, 'b) t = ('a, 'b) Fast_hashtbl.t
  val sexp_of_t :
    ('-> Sexplib.Sexp.t) ->
    ('-> Sexplib.Sexp.t) -> ('a, 'b) t -> Sexplib.Sexp.t
  val create : int -> ('a, 'b) t
  val clear : ('a, 'b) t -> unit
  val add : ('a, 'b) t -> key:'-> data:'-> unit
  val find_exn : ('a, 'b) t -> '-> 'b
  val find : ('a, 'b) t -> '-> 'b option
  val mem : ('a, 'b) t -> '-> bool
  val remove : ('a, 'b) t -> '-> unit
  val replace : ('a, 'b) t -> key:'-> data:'-> unit
  val iter : f:(key:'-> data:'-> unit) -> ('a, 'b) t -> unit
  val fold : f:(key:'-> data:'-> '-> 'c) -> ('a, 'b) t -> init:'-> 'c
  val length : ('a, 'b) t -> int
end