sig
  exception Bitwise_cannot_copy
  module type Location_map_bitwise =
    sig
      type y
      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
      module LOffset :
        sig
          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 find_intervs :
            (Abstract_interp.Int.t ->
             Abstract_interp.Int.t -> Lmap_bitwise.Location_map_bitwise.y) ->
            Abstract_value.Int_Intervals.t ->
            t -> Lmap_bitwise.Location_map_bitwise.y
          val map :
            (bool * Lmap_bitwise.Location_map_bitwise.y ->
             bool * Lmap_bitwise.Location_map_bitwise.y) ->
            t -> t
          val fold :
            (Abstract_value.Int_Intervals.t ->
             bool * Lmap_bitwise.Location_map_bitwise.y -> '-> 'a) ->
            t -> '-> 'a
          val join : t -> t -> t
          val pretty_with_type :
            Cil_types.typ option -> Format.formatter -> t -> unit
          val collapse : t -> Lmap_bitwise.Location_map_bitwise.y
          val empty : t
          val is_empty : t -> bool
          val add_iset :
            exact:bool ->
            Abstract_value.Int_Intervals.t ->
            Lmap_bitwise.Location_map_bitwise.y -> t -> t
          val tag : t -> int
        end
      val empty : t
      val join : t -> t -> t
      val is_included : t -> t -> bool
      val add_binding :
        exact:bool ->
        t -> Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.y -> t
      val map_and_merge :
        (Lmap_bitwise.Location_map_bitwise.y ->
         Lmap_bitwise.Location_map_bitwise.y) ->
        t -> t -> t
      val filter_base : (Base.t -> bool) -> t -> t
      val find : t -> Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.y
      val find_base :
        t -> Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.LOffset.t
      exception Cannot_fold
      val uninitialize_locals : Cil_types.varinfo list -> t -> t
      val fold :
        (Locations.Zone.t ->
         bool * Lmap_bitwise.Location_map_bitwise.y -> '-> 'a) ->
        t -> '-> 'a
      val fold_base :
        (Base.t -> Lmap_bitwise.Location_map_bitwise.LOffset.t -> '-> 'a) ->
        t -> '-> 'a
      val map2 :
        ((bool * Lmap_bitwise.Location_map_bitwise.y) option ->
         (bool * Lmap_bitwise.Location_map_bitwise.y) option ->
         bool * Lmap_bitwise.Location_map_bitwise.y) ->
        t -> t -> t
      val copy_paste :
        f:(bool * Lmap_bitwise.Location_map_bitwise.y ->
           bool * Lmap_bitwise.Location_map_bitwise.y) ->
        Locations.location -> Locations.location -> t -> t
      exception Zone_unchanged
      val find_or_unchanged :
        t -> Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.y
    end
  module type With_default =
    sig
      exception Error_Top
      exception Error_Bottom
      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
      type widen_hint
      val join : t -> t -> t
      val link : t -> t -> t
      val meet : t -> t -> t
      val narrow : t -> t -> t
      val bottom : t
      val top : t
      val is_included : t -> t -> bool
      val is_included_exn : t -> t -> unit
      val intersects : t -> t -> bool
      val widen : widen_hint -> t -> t -> t
      val cardinal_zero_or_one : t -> bool
      val cardinal_less_than : t -> int -> int
      val tag : t -> int
      val default :
        Base.t -> Abstract_interp.Int.t -> Abstract_interp.Int.t -> t
      val defaultall : Base.t -> t
    end
  module Make_bitwise :
    functor (V : With_default->
      sig
        type y = V.t
        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
        module LOffset :
          sig
            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 find_intervs :
              (Abstract_interp.Int.t -> Abstract_interp.Int.t -> y) ->
              Abstract_value.Int_Intervals.t -> t -> y
            val map : (bool * y -> bool * y) -> t -> t
            val fold :
              (Abstract_value.Int_Intervals.t -> bool * y -> '-> 'a) ->
              t -> '-> 'a
            val join : t -> t -> t
            val pretty_with_type :
              Cil_types.typ option -> Format.formatter -> t -> unit
            val collapse : t -> y
            val empty : t
            val is_empty : t -> bool
            val add_iset :
              exact:bool -> Abstract_value.Int_Intervals.t -> y -> t -> t
            val tag : t -> int
          end
        val empty : t
        val join : t -> t -> t
        val is_included : t -> t -> bool
        val add_binding : exact:bool -> t -> Locations.Zone.t -> y -> t
        val map_and_merge : (y -> y) -> t -> t -> t
        val filter_base : (Base.t -> bool) -> t -> t
        val find : t -> Locations.Zone.t -> y
        val find_base : t -> Locations.Zone.t -> LOffset.t
        exception Cannot_fold
        val uninitialize_locals : Cil_types.varinfo list -> t -> t
        val fold :
          (Locations.Zone.t -> bool * y -> '-> 'a) -> t -> '-> 'a
        val fold_base : (Base.t -> LOffset.t -> '-> 'a) -> t -> '-> 'a
        val map2 :
          ((bool * y) option -> (bool * y) option -> bool * y) -> t -> t -> t
        val copy_paste :
          f:(bool * y -> bool * y) ->
          Locations.location -> Locations.location -> t -> t
        exception Zone_unchanged
        val find_or_unchanged : t -> Locations.Zone.t -> y
      end
  module From_Model :
    sig
      type y = Locations.Zone.t
      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
      module LOffset :
        sig
          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 find_intervs :
            (Abstract_interp.Int.t -> Abstract_interp.Int.t -> y) ->
            Abstract_value.Int_Intervals.t -> t -> y
          val map : (bool * y -> bool * y) -> t -> t
          val fold :
            (Abstract_value.Int_Intervals.t -> bool * y -> '-> 'a) ->
            t -> '-> 'a
          val join : t -> t -> t
          val pretty_with_type :
            Cil_types.typ option -> Format.formatter -> t -> unit
          val collapse : t -> y
          val empty : t
          val is_empty : t -> bool
          val add_iset :
            exact:bool -> Abstract_value.Int_Intervals.t -> y -> t -> t
          val tag : t -> int
        end
      val empty : t
      val join : t -> t -> t
      val is_included : t -> t -> bool
      val add_binding : exact:bool -> t -> Locations.Zone.t -> y -> t
      val map_and_merge : (y -> y) -> t -> t -> t
      val filter_base : (Base.t -> bool) -> t -> t
      val find : t -> Locations.Zone.t -> y
      val find_base : t -> Locations.Zone.t -> LOffset.t
      exception Cannot_fold
      val uninitialize_locals : Cil_types.varinfo list -> t -> t
      val fold : (Locations.Zone.t -> bool * y -> '-> 'a) -> t -> '-> 'a
      val fold_base : (Base.t -> LOffset.t -> '-> 'a) -> t -> '-> 'a
      val map2 :
        ((bool * y) option -> (bool * y) option -> bool * y) -> t -> t -> t
      val copy_paste :
        f:(bool * y -> bool * y) ->
        Locations.location -> Locations.location -> t -> t
      exception Zone_unchanged
      val find_or_unchanged : t -> Locations.Zone.t -> y
    end
end