sig
  type range = Biocaml_range.t
  type 'a location = 'a * range
  module Selection :
    sig
      type 'a t = 'a Biocaml_genomeMap.Selection.t
      val inter : 'a t -> 'a t -> 'a t
      val union : 'a t -> 'a t -> 'a t
      val diff : 'a t -> 'a t -> 'a t
      val size : 'a t -> int
      val intersects : 'a location -> 'a t -> bool
      val intersection_size : 'a location -> 'a t -> int
      val to_stream : 'a t -> 'a location Stream.t
      val of_stream : 'a location Stream.t -> 'a t
    end
  module type Signal =
    sig
      type ('a, 'b) t
      val make : ('b list -> 'c) -> ('a location * 'c) Stream.t -> ('a, 'c) t
      val eval : 'a -> int -> ('a, 'b) t -> 'b
      val fold : ('a -> range -> 'b -> 'c -> 'c) -> ('a, 'b) t -> 'c -> 'c
      val to_stream : ('a, 'b) t -> ('a location * 'b) Stream.t
    end
  module LSet :
    sig
      type 'a t = 'a Biocaml_genomeMap.LSet.t
      val to_stream : 'a t -> 'a location Stream.t
      val of_stream : 'a location Stream.t -> 'a t
      val intersects : 'a location -> 'a t -> bool
      val closest : 'a location -> 'a t -> ('a location * int) option
      val intersecting_elems : 'a location -> 'a t -> 'a location Stream.t
    end
  module LMap :
    sig
      type ('a, 'b) t = ('a, 'b) Biocaml_genomeMap.LMap.t
      val to_stream : ('a, 'b) t -> ('a location * 'b) Stream.t
      val of_stream : ('a location * 'b) Stream.t -> ('a, 'b) t
      val intersects : 'a location -> ('a, 'b) t -> bool
      val closest :
        'a location -> ('a, 'b) t -> ('a location * 'b * int) option
      val intersecting_elems :
        'a location -> ('a, 'b) t -> ('a location * 'b) Stream.t
    end
  module type LMap_spec =
    sig
      type ('a, 'b) t
      val make : ('a location * 'b) Stream.t -> ('a, 'b) t
      val fold : ('a -> range -> 'b -> 'c -> 'c) -> ('a, 'b) t -> 'c -> 'c
      val pwfold :
        ('a -> range -> 'b list -> 'c -> 'c) -> ('a, 'b) t -> 'c -> 'c
      val intersects : 'a location -> ('a, 'b) t -> bool
      val to_stream : ('a, 'b) t -> ('a location * 'b) Stream.t
      val union : ('a, 'b) t -> ('a, 'b) t -> ('a, 'b) t
      val add : 'a location -> 'b -> ('a, 'b) t -> ('a, 'b) t
    end
end