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