sig
  exception Cannot_copy
  module Make_LOffset :
    functor (VALUE : Lattice_With_Isotropy.S->
      functor
        (LOffset : sig
                     type t
                     type y = VALUE.t
                     type widen_hint = VALUE.widen_hint
                     module Datatype :
                       sig
                         type t = t
                         val rehash : t -> t
                         val descr : Unmarshal.t
                         val copy : t -> t
                         val name : string
                         val register_comparable :
                           ?compare:(t -> t -> int) ->
                           ?equal:(t -> t -> bool) ->
                           ?hash:(t -> int) ->
                           ?physical_hash:(t -> int) -> unit -> unit
                         val is_comparable_set : unit -> bool
                         val hash : t -> int
                         val physical_hash : t -> int
                         val equal : t -> t -> bool
                         val compare : t -> t -> int
                         val contain_project :
                           (Project.project -> t -> bool) option ref
                       end
                     val tag : t -> int
                     val empty : t
                     val is_empty : t -> bool
                     val equal : t -> t -> bool
                     val pretty_typ :
                       Cil_types.typ option -> Format.formatter -> t -> unit
                     val pretty : 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 is_included_actual_generic :
                       BaseUtils.BaseSet.t ->
                       BaseUtils.BaseSet.t ref ->
                       Locations.Location_Bytes.t BaseUtils.BaseMap.t ref ->
                       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 :
                       validity:Base.validity ->
                       with_alarms:CilE.warn_mode ->
                       Ival.t -> t -> Abstract_interp.Int.t -> y -> 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_string : string -> 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 :
                       t ->
                       Abstract_interp.Int.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 -> y) -> t -> 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
                   end->
        sig
          type y = VALUE.t
          type widen_hint_offsetmap = VALUE.widen_hint
          module Make :
            functor
              (Default_offsetmap : sig
                                     val default_offsetmap :
                                       Base.t -> LOffset.t
                                   end->
              sig
                type t
                type widen_hint =
                    bool * BaseUtils.BaseSet.t *
                    (Base.t -> Lmap_whole.Make_LOffset.widen_hint_offsetmap)
                type instanciation =
                    Locations.Location_Bytes.t BaseUtils.BaseMap.t
                module Datatype :
                  sig
                    type t = t
                    val rehash : t -> t
                    val descr : Unmarshal.t
                    val copy : t -> t
                    val name : string
                    val register_comparable :
                      ?compare:(t -> t -> int) ->
                      ?equal:(t -> t -> bool) ->
                      ?hash:(t -> int) ->
                      ?physical_hash:(t -> int) -> unit -> unit
                    val is_comparable_set : unit -> bool
                    val hash : t -> int
                    val physical_hash : t -> int
                    val equal : t -> t -> bool
                    val compare : t -> t -> int
                    val contain_project :
                      (Project.project -> t -> bool) option ref
                  end
                val inject :
                  Base.t -> LOffset.t -> Lmap_whole.Make_LOffset.Make.t
                val pretty :
                  Format.formatter -> Lmap_whole.Make_LOffset.Make.t -> unit
                val pretty_without_null :
                  Format.formatter -> Lmap_whole.Make_LOffset.Make.t -> unit
                val pretty_filter :
                  Format.formatter ->
                  Lmap_whole.Make_LOffset.Make.t -> Locations.Zone.t -> unit
                val add_binding :
                  with_alarms:CilE.warn_mode ->
                  exact:bool ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Locations.location ->
                  Lmap_whole.Make_LOffset.y -> Lmap_whole.Make_LOffset.Make.t
                val find :
                  with_alarms:CilE.warn_mode ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Locations.location -> Lmap_whole.Make_LOffset.y
                val concerned_bindings :
                  Lmap_whole.Make_LOffset.Make.t ->
                  Locations.location -> Lmap_whole.Make_LOffset.y list
                val join :
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t
                val is_included :
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t -> bool
                val equal :
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t -> bool
                val is_included_actual_generic :
                  Locations.Zone.t ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.instanciation
                val empty : Lmap_whole.Make_LOffset.Make.t
                val is_empty : Lmap_whole.Make_LOffset.Make.t -> bool
                val bottom : Lmap_whole.Make_LOffset.Make.t
                val is_reachable : Lmap_whole.Make_LOffset.Make.t -> bool
                val widen :
                  Lmap_whole.Make_LOffset.Make.widen_hint ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  bool * Lmap_whole.Make_LOffset.Make.t
                val filter_base :
                  (Base.t -> bool) ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t
                val find_base :
                  Base.t -> Lmap_whole.Make_LOffset.Make.t -> LOffset.t
                val copy_paste :
                  Locations.location ->
                  Locations.location ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t
                val paste_offsetmap :
                  LOffset.t ->
                  Locations.Location_Bits.t ->
                  Abstract_interp.Int.t ->
                  Abstract_interp.Int.t ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t
                val copy_offsetmap :
                  Locations.location ->
                  Lmap_whole.Make_LOffset.Make.t -> LOffset.t option
                val compute_actual_final_from_generic :
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Locations.Zone.t ->
                  Lmap_whole.Make_LOffset.Make.instanciation ->
                  Lmap_whole.Make_LOffset.Make.t
                val is_included_by_location_enum :
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t -> Locations.Zone.t -> bool
                val fold :
                  size:Abstract_interp.Int.t ->
                  (Locations.location ->
                   Lmap_whole.Make_LOffset.y -> '-> 'a) ->
                  Lmap_whole.Make_LOffset.Make.t -> '-> 'a
                val fold_single_bindings :
                  size:Abstract_interp.Int.t ->
                  (Locations.location ->
                   Lmap_whole.Make_LOffset.y -> '-> 'a) ->
                  Lmap_whole.Make_LOffset.Make.t -> '-> 'a
                val fold_base :
                  (Base.t -> '-> 'a) ->
                  Lmap_whole.Make_LOffset.Make.t -> '-> 'a
                val find_offsetmap_for_location :
                  Locations.Location_Bits.t ->
                  Lmap_whole.Make_LOffset.Make.t -> LOffset.t
                val add_whole :
                  Locations.location ->
                  Lmap_whole.Make_LOffset.y ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t
                val remove_whole :
                  Locations.location ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t
                val reciprocal_image :
                  Base.t ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Locations.Zone.t * Locations.Location_Bits.t
                val create_initial :
                  base:Base.t ->
                  v:Lmap_whole.Make_LOffset.y ->
                  modu:Abstract_interp.Int.t ->
                  state:Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t
                exception Error_Bottom
                val cached_fold :
                  f:(Base.t -> LOffset.t -> 'a) ->
                  cache:string * int ->
                  joiner:('-> '-> 'a) ->
                  empty:'-> Lmap_whole.Make_LOffset.Make.t -> 'a
                val cached_map :
                  f:(Base.t -> LOffset.t -> LOffset.t) ->
                  cache:string * int ->
                  Lmap_whole.Make_LOffset.Make.t ->
                  Lmap_whole.Make_LOffset.Make.t
              end
        end
end