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