functor (El : S) ->
  sig
    type key = El.t
    type 'a t
    val empty : 'a t
    val is_empty : 'a t -> bool
    val add : key -> 'a -> 'a t -> 'a t
    val cardinal : 'a t -> int
    val modify : key -> ('a option -> 'a) -> 'a t -> 'a t
    val find : key -> 'a t -> 'a
    val remove : key -> 'a t -> 'a t
    val mem : key -> 'a t -> bool
    val iter : (key -> 'a -> unit) -> 'a t -> unit
    val map : ('a -> 'b) -> 'a t -> 'b t
    val mapi : (key -> 'a -> 'b) -> 'a t -> 'b t
    val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
    val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
    val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
    val merge : ('a -> 'a -> 'a) -> 'a t -> 'a t -> 'a t
    val choose_and_remove : 'a t -> key * 'a * 'a t
    val filter : ('a -> bool) -> 'a t -> 'a t
    val filteri : (key -> 'a -> bool) -> 'a t -> 'a t
    val key_elements : 'a t -> key list
    val value_elements : 'a t -> 'a list
    val elements : 'a t -> (key * 'a) list
    val subset : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
  end