sig
  type key = t
  type 'a t
  val empty : unit -> 'a t
  val create : int -> 'a t
  val is_empty : 'a t -> bool
  val find : 'a t -> key -> 'a
  val get_exn : key -> 'a t -> 'a
  val get : key -> 'a t -> 'a option
  val mem : 'a t -> key -> bool
  val length : 'a t -> int
  val add : 'a t -> key -> 'a -> 'a t
  val replace : 'a t -> key -> 'a -> 'a t
  val update : 'a t -> key -> ('a option -> 'a option) -> 'a t
  val remove : 'a t -> key -> 'a t
  val copy : 'a t -> 'a t
  val merge :
    f:(key -> [ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) ->
    'a t -> 'b t -> 'c t
  val iter : 'a t -> (key -> 'a -> unit) -> unit
  val fold : ('b -> key -> 'a -> 'b) -> 'b -> 'a t -> 'b
  val map : (key -> 'a -> 'b) -> 'a t -> 'b t
  val filter : (key -> 'a -> bool) -> 'a t -> 'a t
  val filter_map : (key -> 'a -> 'b option) -> 'a t -> 'b t
  val for_all : (key -> 'a -> bool) -> 'a t -> bool
  val exists : (key -> 'a -> bool) -> 'a t -> bool
  val of_seq : (key * 'a) CCPersistentHashtbl.sequence -> 'a t
  val of_list : (key * 'a) list -> 'a t
  val add_seq : 'a t -> (key * 'a) CCPersistentHashtbl.sequence -> 'a t
  val add_list : 'a t -> (key * 'a) list -> 'a t
  val to_seq : 'a t -> (key * 'a) CCPersistentHashtbl.sequence
  val to_list : 'a t -> (key * 'a) list
  val equal : 'a CCPersistentHashtbl.equal -> 'a t CCPersistentHashtbl.equal
  val pp :
    key CCPersistentHashtbl.printer ->
    'a CCPersistentHashtbl.printer -> 'a t CCPersistentHashtbl.printer
  val print :
    key CCPersistentHashtbl.formatter ->
    'a CCPersistentHashtbl.formatter -> 'a t CCPersistentHashtbl.formatter
  val stats : 'a t -> Hashtbl.statistics
end