sig
  type interval = Bet of int * int | Bef of int | Aft of int | Nev | Alw
  val in_interval : int -> Mlpost.Tree_adv.Overlays.interval -> bool
  val min_interval : int -> Mlpost.Tree_adv.Overlays.interval -> int
  val max_interval : int -> Mlpost.Tree_adv.Overlays.interval -> int
  val min_tree :
    ('-> Mlpost.Tree_adv.Overlays.interval) -> 'Mlpost.Tree_adv.t -> int
  val max_tree :
    ('-> Mlpost.Tree_adv.Overlays.interval) -> 'Mlpost.Tree_adv.t -> int
  type 'a spec = (Mlpost.Tree_adv.Overlays.interval * 'a) list
  val assoq : int -> 'Mlpost.Tree_adv.Overlays.spec -> 'a
  val max : ('-> Mlpost.Num.t) -> ('b * 'a) list -> Mlpost.Num.t
  val set_pos :
    (Mlpost.Point.t -> '-> 'b) ->
    Mlpost.Point.t ->
    'Mlpost.Tree_adv.Overlays.spec -> 'Mlpost.Tree_adv.Overlays.spec
end