Module Locations.Location_Bytes.M


module M: sig .. end

type key = Base.t 
type leaf_annot 
type branch_annot 

type tt = private
| Empty
| Leaf of key * Ival.t
* leaf_annot
| Branch of int * int * tt * tt
* branch_annot
type t = tt 
val iter : (Base.t -> Ival.t -> unit) -> t -> unit
val find : key -> t -> Ival.t
val fold : (Base.t -> Ival.t -> 'a -> 'a) -> t -> 'a -> 'a