sig
  type 'a t
  val create : ?size:int -> '-> 'Timemap.t
  val add : 'Timemap.t -> float -> '-> unit
  val find : 'Timemap.t -> float -> float * 'a
  val remove_before : 'Timemap.t -> float -> unit
  val get_min : unit -> float
end