sig
  exception Cannot_copy
  module type Location_map =
    sig
      type y
      type loffset
      type widen_hint_offsetmap
      module Make :
        functor
          (Default_offsetmap : sig
                                 val default_offsetmap :
                                   Base.t -> Lmap.Location_map.loffset
                               end->
          sig
            module LBase :
              sig
                type t
                val iter :
                  (Base.base -> Lmap.Location_map.loffset -> unit) ->
                  Lmap.Location_map.Make.LBase.t -> unit
              end
            type tt = private
                Bottom
              | Top
              | Map of Lmap.Location_map.Make.LBase.t
            type t = tt
            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
            type widen_hint =
                bool * Base.Set.t *
                (Base.t -> Lmap.Location_map.widen_hint_offsetmap)
            val inject : Base.t -> Lmap.Location_map.loffset -> t
            val add_offsetmap : Base.t -> Lmap.Location_map.loffset -> t -> t
            val pretty_without_null : Format.formatter -> t -> unit
            val pretty_filter :
              Format.formatter ->
              t -> Locations.Zone.t -> (Base.t -> bool) -> unit
            val add_binding :
              with_alarms:CilE.warn_mode ->
              exact:bool ->
              t -> Locations.location -> Lmap.Location_map.y -> t
            val find :
              conflate_bottom:bool ->
              with_alarms:CilE.warn_mode ->
              t -> Locations.location -> Lmap.Location_map.y
            val join : t -> t -> Locations.location list * t
            val is_included : t -> t -> bool
            val top : t
            val is_top : t -> bool
            val empty_map : t
            val is_empty_map : t -> bool
            val bottom : t
            val is_reachable : t -> bool
            val widen :
              Lmap.Location_map.Make.widen_hint -> t -> t -> bool * t
            val filter_base : (Base.t -> bool) -> t -> t
            val find_base : Base.t -> t -> Lmap.Location_map.loffset
            val remove_base : Base.t -> t -> t
            val reduce_binding :
              with_alarms:CilE.warn_mode ->
              t -> Locations.location -> Lmap.Location_map.y -> t
            val copy_paste :
              with_alarms:CilE.warn_mode ->
              Locations.location -> Locations.location -> t -> t
            val paste_offsetmap :
              with_alarms:CilE.warn_mode ->
              from:Lmap.Location_map.loffset ->
              dst_loc:Locations.Location_Bits.t ->
              start:Abstract_interp.Int.t ->
              size:Abstract_interp.Int.t -> exact:bool -> t -> t
            val copy_offsetmap :
              with_alarms:CilE.warn_mode ->
              Locations.location -> t -> Lmap.Location_map.loffset option
            val is_included_by_location_enum :
              t -> t -> Locations.Zone.t -> bool
            val fold :
              size:Abstract_interp.Int.t ->
              (Locations.location -> Lmap.Location_map.y -> '-> 'a) ->
              t -> '-> 'a
            val fold_single_bindings :
              size:Abstract_interp.Int.t ->
              (Locations.location -> Lmap.Location_map.y -> '-> 'a) ->
              t -> '-> 'a
            val fold_base : (Base.t -> '-> 'a) -> t -> '-> 'a
            val fold_base_offsetmap :
              (Base.t -> Lmap.Location_map.loffset -> '-> 'a) ->
              t -> '-> 'a
            val find_offsetmap_for_location :
              Locations.Location_Bits.t -> t -> Lmap.Location_map.loffset
            val add_whole :
              Locations.location -> Lmap.Location_map.y -> t -> t
            val remove_whole : Locations.location -> t -> t
            val comp_prefixes : t -> t -> unit
            type subtree
            val find_prefix :
              t -> Hptmap.prefix -> Lmap.Location_map.Make.subtree option
            val hash_subtree : Lmap.Location_map.Make.subtree -> int
            val equal_subtree :
              Lmap.Location_map.Make.subtree ->
              Lmap.Location_map.Make.subtree -> bool
            val reciprocal_image :
              Base.t -> t -> Locations.Zone.t * Locations.Location_Bits.t
            val create_initial :
              base:Base.t ->
              v:Lmap.Location_map.y ->
              modu:Abstract_interp.Int.t -> state:t -> t
            exception Error_Bottom
            val cached_fold :
              f:(Base.t -> Lmap.Location_map.loffset -> 'a) ->
              cache:string * int ->
              temporary:bool ->
              joiner:('-> '-> 'a) -> empty:'-> t -> 'a
            val cached_map :
              f:(Base.t ->
                 Lmap.Location_map.loffset -> Lmap.Location_map.loffset) ->
              cache:string * int -> temporary:bool -> t -> t
            exception Found_prefix of Hptmap.prefix *
                        Lmap.Location_map.Make.subtree *
                        Lmap.Location_map.Make.subtree
          end
    end
  module Make_LOffset :
    functor (VALUE : Lattice_With_Isotropy.S->
      functor
        (LOffset : sig
                     type y = VALUE.t
                     type widen_hint = VALUE.widen_hint
                     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 pretty : Format.formatter -> t -> unit
                     val varname : t -> string
                     val mem_project :
                       (Project_skeleton.t -> bool) -> t -> bool
                     val copy : t -> t
                     val tag : t -> int
                     val empty : t
                     val is_empty : t -> bool
                     val pretty_c_assert_typ :
                       string ->
                       Cil_types.typ ->
                       (unit -> unit) -> Format.formatter -> t -> unit
                     val pretty_typ :
                       Cil_types.typ option -> Format.formatter -> t -> unit
                     val pretty_debug : Format.formatter -> t -> unit
                     val reduce :
                       Ival.t -> size:Abstract_interp.Int.t -> y -> t -> t
                     val is_included : t -> t -> bool
                     val is_included_exn : t -> t -> unit
                     val is_included_exn_generic :
                       (y -> y -> unit) -> t -> t -> unit
                     val join :
                       t ->
                       t ->
                       (Abstract_interp.Int.t * Abstract_interp.Int.t) list *
                       t
                     val widen : widen_hint -> t -> t -> t
                     val find_ival :
                       conflate_bottom:bool ->
                       validity:Base.validity ->
                       with_alarms:CilE.warn_mode ->
                       Ival.t -> t -> Abstract_interp.Int.t -> y
                     val cardinal_zero_or_one : Base.validity -> t -> bool
                     val find_imprecise_entire_offsetmap :
                       validity:Base.validity -> t -> y
                     val concerned_bindings_ival :
                       offsets:Ival.t ->
                       offsetmap:t ->
                       size:Abstract_interp.Int.t -> y list -> y list
                     val update_ival :
                       with_alarms:CilE.warn_mode ->
                       validity:Base.validity ->
                       exact:bool ->
                       offsets:Ival.t ->
                       size:Abstract_interp.Int.t -> t -> y -> t
                     val overwrite : t -> y -> Origin.t -> t
                     val over_intersection : t -> t -> t
                     val from_cstring : Base.cstring -> t
                     val add_internal :
                       Offsetmap.itv ->
                       Abstract_interp.Int.t * Abstract_interp.Int.t * y ->
                       t -> t
                     val add_whole : Offsetmap.itv -> y -> t -> t
                     val remove_whole : Offsetmap.itv -> t -> t
                     val fold_whole :
                       size:Abstract_interp.Int.t ->
                       (Ival.t -> Abstract_interp.Int.t -> y -> '-> 'a) ->
                       t -> '-> 'a
                     val fold_single_bindings :
                       size:Abstract_interp.Int.t ->
                       (Ival.t -> Abstract_interp.Int.t -> y -> '-> 'a) ->
                       t -> '-> 'a
                     val fold_internal :
                       (Offsetmap.itv ->
                        Abstract_interp.Int.t * Abstract_interp.Int.t * y ->
                        '-> 'a) ->
                       t -> '-> 'a
                     val shift_ival : Ival.t -> t -> t option -> t option
                     val copy_paste :
                       t ->
                       Abstract_interp.Int.t ->
                       Abstract_interp.Int.t ->
                       Abstract_interp.Int.t -> t -> t
                     val copy_merge :
                       t ->
                       Abstract_interp.Int.t ->
                       Abstract_interp.Int.t ->
                       Abstract_interp.Int.t -> t -> t
                     val copy_offsmap :
                       t ->
                       Abstract_interp.Int.t -> Abstract_interp.Int.t -> t
                     val copy_ival :
                       validity:Base.validity ->
                       with_alarms:CilE.warn_mode ->
                       Ival.t -> t -> Abstract_interp.Int.t -> t
                     val merge_by_itv :
                       t -> t -> Abstract_value.Int_Intervals.t -> t
                     val shift : Abstract_interp.Int.t -> t -> t
                     val sized_zero : size_in_bits:Abstract_interp.Int.t -> t
                     val reciprocal_image :
                       t -> Base.t -> Abstract_value.Int_Intervals.t * Ival.t
                     val create_initial :
                       v:y -> modu:Abstract_interp.Int.t -> t
                     val reduce_by_int_intervals :
                       t -> Abstract_value.Int_Intervals.t -> t
                     val top_stuff :
                       (y -> bool) ->
                       (y -> 'a * y) -> ('-> '-> 'a) -> '-> t -> 'a * t
                     val iter_contents :
                       (y -> unit) -> t -> Abstract_interp.Int.t -> unit
                     val fold :
                       (Abstract_interp.Int.t * Abstract_interp.Int.t ->
                        Abstract_interp.Int.t * Abstract_interp.Int.t * y ->
                        '-> 'a) ->
                       t -> '-> 'a
                     val is : t -> y -> bool
                   end->
        sig
          type y = VALUE.t
          type loffset = LOffset.t
          type widen_hint_offsetmap = VALUE.widen_hint
          module Make :
            functor
              (Default_offsetmap : sig
                                     val default_offsetmap :
                                       Base.t -> loffset
                                   end->
              sig
                module LBase :
                  sig
                    type t
                    val iter : (Base.base -> loffset -> unit) -> t -> unit
                  end
                type tt = private Bottom | Top | Map of LBase.t
                type t = tt
                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
                type widen_hint =
                    bool * Base.Set.t * (Base.t -> widen_hint_offsetmap)
                val inject : Base.t -> loffset -> t
                val add_offsetmap : Base.t -> loffset -> t -> t
                val pretty_without_null : Format.formatter -> t -> unit
                val pretty_filter :
                  Format.formatter ->
                  t -> Locations.Zone.t -> (Base.t -> bool) -> unit
                val add_binding :
                  with_alarms:CilE.warn_mode ->
                  exact:bool -> t -> Locations.location -> y -> t
                val find :
                  conflate_bottom:bool ->
                  with_alarms:CilE.warn_mode -> t -> Locations.location -> y
                val join : t -> t -> Locations.location list * t
                val is_included : t -> t -> bool
                val top : t
                val is_top : t -> bool
                val empty_map : t
                val is_empty_map : t -> bool
                val bottom : t
                val is_reachable : t -> bool
                val widen : widen_hint -> t -> t -> bool * t
                val filter_base : (Base.t -> bool) -> t -> t
                val find_base : Base.t -> t -> loffset
                val remove_base : Base.t -> t -> t
                val reduce_binding :
                  with_alarms:CilE.warn_mode ->
                  t -> Locations.location -> y -> t
                val copy_paste :
                  with_alarms:CilE.warn_mode ->
                  Locations.location -> Locations.location -> t -> t
                val paste_offsetmap :
                  with_alarms:CilE.warn_mode ->
                  from:loffset ->
                  dst_loc:Locations.Location_Bits.t ->
                  start:Abstract_interp.Int.t ->
                  size:Abstract_interp.Int.t -> exact:bool -> t -> t
                val copy_offsetmap :
                  with_alarms:CilE.warn_mode ->
                  Locations.location -> t -> loffset option
                val is_included_by_location_enum :
                  t -> t -> Locations.Zone.t -> bool
                val fold :
                  size:Abstract_interp.Int.t ->
                  (Locations.location -> y -> '-> 'a) -> t -> '-> 'a
                val fold_single_bindings :
                  size:Abstract_interp.Int.t ->
                  (Locations.location -> y -> '-> 'a) -> t -> '-> 'a
                val fold_base : (Base.t -> '-> 'a) -> t -> '-> 'a
                val fold_base_offsetmap :
                  (Base.t -> loffset -> '-> 'a) -> t -> '-> 'a
                val find_offsetmap_for_location :
                  Locations.Location_Bits.t -> t -> loffset
                val add_whole : Locations.location -> y -> t -> t
                val remove_whole : Locations.location -> t -> t
                val comp_prefixes : t -> t -> unit
                type subtree
                val find_prefix : t -> Hptmap.prefix -> subtree option
                val hash_subtree : subtree -> int
                val equal_subtree : subtree -> subtree -> bool
                val reciprocal_image :
                  Base.t -> t -> Locations.Zone.t * Locations.Location_Bits.t
                val create_initial :
                  base:Base.t ->
                  v:y -> modu:Abstract_interp.Int.t -> state:t -> t
                exception Error_Bottom
                val cached_fold :
                  f:(Base.t -> loffset -> 'a) ->
                  cache:string * int ->
                  temporary:bool ->
                  joiner:('-> '-> 'a) -> empty:'-> t -> 'a
                val cached_map :
                  f:(Base.t -> loffset -> loffset) ->
                  cache:string * int -> temporary:bool -> t -> t
                exception Found_prefix of Hptmap.prefix * subtree * subtree
              end
        end
end