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
      val join : t -> t -> t
      val is_included : t -> t -> bool
      val join_and_is_included : t -> t -> t * bool
      val bottom : t
      val top : 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 map :
            (bool * Lmap_bitwise.Location_map_bitwise.y ->
             bool * Lmap_bitwise.Location_map_bitwise.y) ->
            t -> t
          val fold :
            (Lattice_Interval_Set.Int_Intervals.t ->
             bool * Lmap_bitwise.Location_map_bitwise.y -> '-> 'a) ->
            t -> '-> 'a
          val fold_fuse_same :
            (Lattice_Interval_Set.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 degenerate : Lmap_bitwise.Location_map_bitwise.y -> t
          val is_empty : t -> bool
          val add_iset :
            exact:bool ->
            Lattice_Interval_Set.Int_Intervals.t ->
            Lmap_bitwise.Location_map_bitwise.y -> t -> t
        end
      val empty : t
      val is_empty : t -> bool
      val is_bottom : t -> bool
      val pretty_generic_printer :
        Lmap_bitwise.Location_map_bitwise.y Pretty_utils.formatter ->
        string -> t Pretty_utils.formatter
      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 : 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 fold_fuse_same :
        (Locations.Zone.t ->
         bool * Lmap_bitwise.Location_map_bitwise.y -> '-> '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
      val clear_caches : unit -> unit
    end
  module type With_default =
    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 join : t -> t -> t
      val is_included : t -> t -> bool
      val join_and_is_included : t -> t -> t * bool
      val bottom : t
      val top : t
      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
        val join : t -> t -> t
        val is_included : t -> t -> bool
        val join_and_is_included : t -> t -> t * bool
        val bottom : t
        val top : 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 map : (bool * y -> bool * y) -> t -> t
            val fold :
              (Lattice_Interval_Set.Int_Intervals.t -> bool * y -> '-> 'a) ->
              t -> '-> 'a
            val fold_fuse_same :
              (Lattice_Interval_Set.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 degenerate : y -> t
            val is_empty : t -> bool
            val add_iset :
              exact:bool ->
              Lattice_Interval_Set.Int_Intervals.t -> y -> t -> t
          end
        val empty : t
        val is_empty : t -> bool
        val is_bottom : t -> bool
        val pretty_generic_printer :
          y Pretty_utils.formatter -> string -> t Pretty_utils.formatter
        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 : 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 fold_fuse_same :
          (Locations.Zone.t -> bool * y -> '-> '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
        val clear_caches : unit -> unit
      end
end