sig
  type 'a key
  type ('key, 'a) t
  val create : 'a -> ('key, 'a) Stmap.S.t
  val compare_key : 'a Stmap.S.key -> 'a Stmap.S.key -> int
  val get : ('key, 'a) Stmap.S.t -> 'key Stmap.S.key -> 'a
  val add :
    ('key, 'a) Stmap.S.t -> 'a -> 'key Stmap.S.key * ('key, 'a) Stmap.S.t
  val fold :
    ('key Stmap.S.key -> 'a -> 'b -> 'b) -> ('key, 'a) Stmap.S.t -> 'b -> 'b
  val find : ('key, 'a) Stmap.S.t -> ('a -> bool) -> 'key Stmap.S.key
  val int : 'key Stmap.S.key -> int
  val iter : ('key Stmap.S.key -> 'a -> unit) -> ('key, 'a) Stmap.S.t -> unit
  val remove :
    ('key, 'a) Stmap.S.t -> 'key Stmap.S.key -> ('key, 'a) Stmap.S.t
  val modify :
    ('key, 'a) Stmap.S.t -> 'key Stmap.S.key -> 'a -> ('key, 'a) Stmap.S.t
  val card : ('key, 'a) Stmap.S.t -> int
end