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 descr : Unmarshal.t
                     val copy : t -> t
                     val name : string
                     val register_comparable :
                       ?compare:(t -> t -> int) ->
                       ?equal:(t -> t -> bool) ->
                       ?hash:(t -> int) -> unit -> unit
                     val is_comparable_set : unit -> bool
                     val hash : t -> int
                     val equal : t -> t -> bool
                     val compare : t -> t -> int
                     val mem_project :
                       ((Project.project -> bool) -> 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 descr : Unmarshal.t
                val copy : t -> t
                val name : string
                val register_comparable :
                  ?compare:(t -> t -> int) ->
                  ?equal:(t -> t -> bool) -> ?hash:(t -> int) -> unit -> unit
                val is_comparable_set : unit -> bool
                val hash : t -> int
                val equal : t -> t -> bool
                val compare : t -> t -> int
                val mem_project :
                  ((Project.project -> bool) -> 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