functor (V : With_default->
  sig
    type v = V.t
    type map
    type lmap = Top | Map of map | Bottom
    type t = lmap
    val ty : t Type.t
    val name : string
    val descr : t Descr.t
    val packed_descr : Structural_descr.pack
    val reprs : t list
    val equal : t -> t -> bool
    val compare : t -> t -> int
    val hash : t -> int
    val pretty_code : Format.formatter -> t -> unit
    val internal_pretty_code :
      Type.precedence -> Format.formatter -> t -> unit
    val pretty : Format.formatter -> t -> unit
    val varname : t -> string
    val mem_project : (Project_skeleton.t -> bool) -> t -> bool
    val copy : t -> t
    val join : t -> t -> t
    val is_included : t -> t -> bool
    val bottom : t
    val top : t
    module LOffset :
      sig
        type v = v
        type t
        val ty : t Type.t
        val name : string
        val descr : t Descr.t
        val packed_descr : Structural_descr.pack
        val reprs : t list
        val equal : t -> t -> bool
        val compare : t -> t -> int
        val hash : t -> int
        val pretty_code : Format.formatter -> t -> unit
        val internal_pretty_code :
          Type.precedence -> Format.formatter -> t -> unit
        val varname : t -> string
        val mem_project : (Project_skeleton.t -> bool) -> t -> bool
        val copy : t -> t
        type intervals = Int_Intervals.t
        val pretty : t Pretty_utils.formatter
        val pretty_generic :
          ?typ:Cil_types.typ ->
          ?pretty_v:(Format.formatter -> v -> unit) ->
          ?skip_v:(v -> bool) ->
          ?sep:string -> unit -> Format.formatter -> t -> unit
        val pretty_debug : t Pretty_utils.formatter
        val join : t -> t -> t
        val is_included : t -> t -> bool
        val find : Int_Intervals_sig.itv -> t -> v
        val find_iset : validity:Base.validity -> intervals -> t -> v
        val add_binding_intervals :
          validity:Base.validity ->
          exact:bool -> intervals -> v -> t -> t Bottom.or_bottom
        val add_binding_ival :
          validity:Base.validity ->
          exact:bool ->
          Ival.t -> size:Int_Base.t -> v -> t -> t Bottom.or_bottom
        val create : size:Integer.t -> v -> t
        val empty : t
        val size_from_validity : Base.validity -> Integer.t Bottom.or_bottom
        val map : (v -> v) -> t -> t
        type map2_decide =
            ReturnLeft
          | ReturnRight
          | ReturnConstant of v
          | Recurse
        val map2 :
          Hptmap_sig.cache_type ->
          (t -> t -> map2_decide) -> (v -> v -> v) -> t -> t -> t
        val fold : (intervals -> v -> '-> 'a) -> t -> '-> 'a
        val fold_fuse_same : (intervals -> v -> '-> 'a) -> t -> '-> 'a
        val fold_itv :
          ?direction:[ `LTR | `RTL ] ->
          entire:bool ->
          (Int_Intervals_sig.itv -> v -> '-> 'a) ->
          Int_Intervals_sig.itv -> t -> '-> 'a
        val fold_join_itvs :
          cache:Hptmap_sig.cache_type ->
          (Integer.t -> Integer.t -> v -> 'a) ->
          ('-> '-> 'a) -> '-> intervals -> t -> 'a
        val is_single_interval : t -> bool
        val single_interval_value : t -> v option
        val is_same_value : t -> v -> bool
        val clear_caches : unit -> unit
        val imprecise_write_msg : string ref
      end
    val is_empty : t -> bool
    val is_bottom : t -> bool
    val empty : t
    val empty_map : map
    val pretty_generic_printer :
      ?pretty_v:v Pretty_utils.formatter ->
      ?skip_v:(v -> bool) -> sep:string -> unit -> t Pretty_utils.formatter
    val pretty_debug : t Pretty_utils.formatter
    val add_binding : exact:bool -> t -> Locations.Zone.t -> v -> t
    val add_binding_loc : exact:bool -> t -> Locations.location -> v -> t
    val add_base : Base.t -> LOffset.t -> t -> t
    val remove_base : Base.t -> t -> t
    val find : t -> Locations.Zone.t -> v
    val filter_base : (Base.t -> bool) -> t -> t
    val map : (v -> v) -> t -> t
    val fold : (Locations.Zone.t -> v -> '-> 'a) -> map -> '-> 'a
    val fold_base : (Base.t -> LOffset.t -> '-> 'a) -> map -> '-> 'a
    val fold_fuse_same :
      (Locations.Zone.t -> v -> '-> 'a) -> map -> '-> 'a
    val fold_join_zone :
      both:(Int_Intervals.t -> LOffset.t -> 'a) ->
      conv:(Base.t -> '-> 'b) ->
      empty_map:(Locations.Zone.t -> 'b) ->
      join:('-> '-> 'b) -> empty:'-> Locations.Zone.t -> map -> 'b
    val map2 :
      cache:Hptmap_sig.cache_type ->
      symmetric:bool ->
      idempotent:bool ->
      empty_neutral:bool ->
      (LOffset.t -> LOffset.t -> LOffset.map2_decide) ->
      (v -> v -> v) -> map -> map -> map
    val shape : map -> LOffset.t Hptmap.Shape(Base.Base).t
    val imprecise_write_msg : string ref
    val clear_caches : unit -> unit
  end