sig
  type 'k t = [ `Always | `Between of 'k * '| `From of '| `Until of 'k ]
  val is_empty : 'Interval_map_intf.??.-> cmp:('-> '-> int) -> bool
  val contains :
    'Interval_map_intf.??.-> cmp:('-> '-> int) -> '-> bool
  val t_of_sexp :
    (Sexplib.Sexp.t -> 'k) -> Sexplib.Sexp.t -> 'Interval_map_intf.??.t
  val __t_of_sexp__ :
    (Sexplib.Sexp.t -> 'k) -> Sexplib.Sexp.t -> 'Interval_map_intf.??.t
  val sexp_of_t :
    ('-> Sexplib.Sexp.t) -> 'Interval_map_intf.??.-> Sexplib.Sexp.t
end