sig
  type 'a t
  exception Empty_tree
  val is_empty : 'Biocaml_intervalTree.t -> bool
  val cardinal : 'Biocaml_intervalTree.t -> int
  val intersects : int -> int -> 'Biocaml_intervalTree.t -> bool
  val find_closest :
    int -> int -> 'Biocaml_intervalTree.t -> int * int * 'a * int
  val empty : 'Biocaml_intervalTree.t
  val add :
    int ->
    int -> '-> 'Biocaml_intervalTree.t -> 'Biocaml_intervalTree.t
  val elements : 'Biocaml_intervalTree.t -> (int * int * 'a) list
  val enum : 'Biocaml_intervalTree.t -> (int * int * 'a) BatEnum.t
  val backwards : 'Biocaml_intervalTree.t -> (int * int * 'a) BatEnum.t
  val print : 'Biocaml_intervalTree.t -> unit
  val check_integrity : 'Biocaml_intervalTree.t -> unit
end