sig
  exception Bitwise_cannot_copy
  module type Location_map_bitwise =
    sig
      type y
      type 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
      module LOffset :
        sig
          type t
          val find_intervs :
            (Abstract_interp.Int.t ->
             Abstract_interp.Int.t -> Lmap_bitwise.Location_map_bitwise.y) ->
            Abstract_value.Int_Intervals.t ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t ->
            Lmap_bitwise.Location_map_bitwise.y
          val map :
            (bool * Lmap_bitwise.Location_map_bitwise.y ->
             bool * Lmap_bitwise.Location_map_bitwise.y) ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t
          val fold :
            (Abstract_value.Int_Intervals.t ->
             bool * Lmap_bitwise.Location_map_bitwise.y -> '-> 'a) ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t -> '-> 'a
          val join :
            Lmap_bitwise.Location_map_bitwise.LOffset.t ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t
          val pretty :
            Format.formatter ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t -> unit
          val pretty_with_type :
            Cil_types.typ option ->
            Format.formatter ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t -> unit
          val collapse :
            Lmap_bitwise.Location_map_bitwise.LOffset.t ->
            Lmap_bitwise.Location_map_bitwise.y
          val empty : Lmap_bitwise.Location_map_bitwise.LOffset.t
          val is_empty : Lmap_bitwise.Location_map_bitwise.LOffset.t -> bool
          val add_iset :
            exact:bool ->
            Abstract_value.Int_Intervals.t ->
            Lmap_bitwise.Location_map_bitwise.y ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t
          val equal :
            Lmap_bitwise.Location_map_bitwise.LOffset.t ->
            Lmap_bitwise.Location_map_bitwise.LOffset.t -> bool
          val tag : Lmap_bitwise.Location_map_bitwise.LOffset.t -> int
          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
        end
      val pretty :
        Format.formatter -> Lmap_bitwise.Location_map_bitwise.t -> unit
      val empty : Lmap_bitwise.Location_map_bitwise.t
      val join :
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t
      val equal :
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t -> bool
      val hash : Lmap_bitwise.Location_map_bitwise.t -> int
      val is_included :
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t -> bool
      val add_binding :
        exact:bool ->
        Lmap_bitwise.Location_map_bitwise.t ->
        Locations.Zone.t ->
        Lmap_bitwise.Location_map_bitwise.y ->
        Lmap_bitwise.Location_map_bitwise.t
      val map_and_merge :
        (Lmap_bitwise.Location_map_bitwise.y ->
         Lmap_bitwise.Location_map_bitwise.y) ->
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t
      val filter_base :
        (Base.t -> bool) ->
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t
      val find :
        Lmap_bitwise.Location_map_bitwise.t ->
        Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.y
      val find_base :
        Lmap_bitwise.Location_map_bitwise.t ->
        Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.LOffset.t
      exception Cannot_fold
      val uninitialize_locals :
        Cil_types.varinfo list ->
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t
      val fold :
        (Locations.Zone.t ->
         bool * Lmap_bitwise.Location_map_bitwise.y -> '-> 'a) ->
        Lmap_bitwise.Location_map_bitwise.t -> '-> 'a
      val fold_base :
        (Base.t -> Lmap_bitwise.Location_map_bitwise.LOffset.t -> '-> 'a) ->
        Lmap_bitwise.Location_map_bitwise.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) ->
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t
      val copy_paste :
        f:(bool * Lmap_bitwise.Location_map_bitwise.y ->
           bool * Lmap_bitwise.Location_map_bitwise.y) ->
        Locations.location ->
        Locations.location ->
        Lmap_bitwise.Location_map_bitwise.t ->
        Lmap_bitwise.Location_map_bitwise.t
      exception Zone_unchanged
      val find_or_unchanged :
        Lmap_bitwise.Location_map_bitwise.t ->
        Locations.Zone.t -> Lmap_bitwise.Location_map_bitwise.y
    end
  module type With_default =
    sig
      exception Error_Top
      exception Error_Bottom
      type t
      type widen_hint
      val equal : t -> t -> bool
      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 pretty : Format.formatter -> t -> unit
      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
      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 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
        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
        module LOffset :
          sig
            type 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 : Format.formatter -> t -> unit
            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 equal : t -> t -> bool
            val tag : t -> int
            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
          end
        val pretty : Format.formatter -> t -> unit
        val empty : t
        val join : t -> t -> t
        val equal : t -> t -> bool
        val hash : t -> int
        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
      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
      module LOffset :
        sig
          type 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 : Format.formatter -> t -> unit
          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 equal : t -> t -> bool
          val tag : t -> int
          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
        end
      val pretty : Format.formatter -> t -> unit
      val empty : t
      val join : t -> t -> t
      val equal : t -> t -> bool
      val hash : t -> int
      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