sig

  type equal = ETrue | EFalse | EDead
  module MakeSeeded :
    functor
      (H : sig
             type t
             type 'a container
             val hash : int -> Ephemeron.GenHashTable.MakeSeeded.t -> int
             val equal :
               'a Ephemeron.GenHashTable.MakeSeeded.container ->
               Ephemeron.GenHashTable.MakeSeeded.t ->
               Ephemeron.GenHashTable.equal
             val create :
               Ephemeron.GenHashTable.MakeSeeded.t ->
               'a -> 'a Ephemeron.GenHashTable.MakeSeeded.container
             val get_key :
               'a Ephemeron.GenHashTable.MakeSeeded.container ->
               Ephemeron.GenHashTable.MakeSeeded.t option
             val get_data :
               'a Ephemeron.GenHashTable.MakeSeeded.container -> 'a option
             val set_key_data :
               'a Ephemeron.GenHashTable.MakeSeeded.container ->
               Ephemeron.GenHashTable.MakeSeeded.t -> 'a -> unit
             val check_key :
               'a Ephemeron.GenHashTable.MakeSeeded.container -> bool
           end)
      ->
      sig
        type key = H.t
        type !'a t
        val create : ?random:bool -> int -> 'a t
        val clear : 'a t -> unit
        val reset : 'a t -> unit
        val copy : 'a t -> 'a t
        val add : 'a t -> key -> 'a -> unit
        val remove : 'a t -> key -> unit
        val find : 'a t -> key -> 'a
        val find_opt : 'a t -> key -> 'a option
        val find_all : 'a t -> key -> 'a list
        val replace : 'a t -> key -> 'a -> unit
        val mem : 'a t -> key -> bool
        val iter : (key -> 'a -> unit) -> 'a t -> unit
        val filter_map_inplace : (key -> 'a -> 'a option) -> 'a t -> unit
        val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
        val length : 'a t -> int
        val stats : 'a t -> Hashtbl.statistics
        val to_seq : 'a t -> (key * 'a) Seq.t
        val to_seq_keys : 'a t -> key Seq.t
        val to_seq_values : 'a t -> 'a Seq.t
        val add_seq : 'a t -> (key * 'a) Seq.t -> unit
        val replace_seq : 'a t -> (key * 'a) Seq.t -> unit
        val of_seq : (key * 'a) Seq.t -> 'a t
        val clean : 'a t -> unit
        val stats_alive : 'a t -> Hashtbl.statistics
      end
end