sig
  module Make :
    functor
      (V : 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 narrow : t -> t -> t
             type widen_hint
             val widen : widen_hint -> t -> t -> t
             val cardinal_zero_or_one : t -> bool
             val pretty_typ :
               Cil_types.typ option -> t Pretty_utils.formatter
             val is_isotropic : t -> bool
             val extract_bits :
               topify:Origin.kind ->
               start:Integer.t ->
               stop:Integer.t -> size:Integer.t -> t -> bool * t
             val little_endian_merge_bits :
               topify:Origin.kind ->
               conflate_bottom:bool -> value:t -> offset:Integer.t -> t -> t
             val big_endian_merge_bits :
               topify:Origin.kind ->
               conflate_bottom:bool ->
               total_length:int ->
               length:Integer.t -> value:t -> offset:Integer.t -> t -> t
             val merge_neutral_element : t
             val topify_with_origin : Origin.t -> t -> t
             val anisotropic_cast : size:Integer.t -> t -> t
           end->
      sig
        type v = V.t
        type widen_hint = V.widen_hint
        type alarm = bool
        type t
        type t_bottom = [ `Bottom | `Map of t ]
        type t_top_bottom = [ `Bottom | `Map of t | `Top ]
        val pretty_generic :
          ?typ:Cil_types.typ ->
          ?pretty_v:(Cil_types.typ option -> Format.formatter -> v -> unit) ->
          ?skip_v:(v -> bool) ->
          ?sep:string -> unit -> Format.formatter -> t -> unit
        val create :
          size:Abstract_interp.Int.t ->
          v -> size_v:Abstract_interp.Int.t -> t
        val create_isotropic : size:Abstract_interp.Int.t -> v -> t
        val of_list :
          ((t -> v -> t) -> t -> '-> t) -> '-> Abstract_interp.Int.t -> t
        val iter :
          (Abstract_interp.Int.t * Abstract_interp.Int.t ->
           v * Abstract_interp.Int.t * Abstract_interp.Rel.t -> unit) ->
          t -> unit
        val fold :
          (Abstract_interp.Int.t * Abstract_interp.Int.t ->
           v * Abstract_interp.Int.t * Abstract_interp.Rel.t -> '-> 'a) ->
          t -> '-> 'a
        val fold_between :
          entire:bool ->
          Abstract_interp.Int.t * Abstract_interp.Int.t ->
          (Abstract_interp.Int.t * Abstract_interp.Int.t ->
           v * Abstract_interp.Int.t * Abstract_interp.Rel.t -> '-> 'a) ->
          t -> '-> 'a
        val iter_on_values : (v -> unit) -> t -> unit
        val fold_on_values : (v -> '-> 'a) -> t -> '-> 'a
        val map_on_values : (v -> v) -> t -> t
        type map2_decide =
            ReturnLeft
          | ReturnRight
          | ReturnConstant of v
          | Recurse
        val map2_on_values :
          Hptmap.cache_type ->
          (t -> t -> map2_decide) -> (v -> v -> v) -> t -> t -> 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 narrow : t -> t -> t
        val join_top_bottom :
          [< t_top_bottom ] -> [< t_top_bottom ] -> [> t_top_bottom ]
        val widen : widen_hint -> t -> t -> t
        val find :
          validity:Base.validity ->
          ?conflate_bottom:bool ->
          offsets:Ival.t -> size:Integer.t -> t -> bool * v
        val find_imprecise : validity:Base.validity -> t -> v
        val find_imprecise_everywhere : t -> v
        val copy_slice :
          validity:Base.validity ->
          offsets:Ival.t ->
          size:Integer.t -> t -> alarm * [ `Bottom | `Map of t ]
        val add :
          ?exact:bool ->
          Abstract_interp.Int.t * Abstract_interp.Int.t ->
          v * Abstract_interp.Int.t * Abstract_interp.Rel.t -> t -> t
        val update :
          ?origin:Origin.t ->
          validity:Base.validity ->
          exact:bool ->
          offsets:Ival.t ->
          size:Abstract_interp.Int.t -> v -> t -> alarm * t_bottom
        val update_under :
          validity:Base.validity ->
          exact:bool ->
          offsets:Ival.t ->
          size:Abstract_interp.Int.t -> v -> t -> alarm * t_bottom
        val update_imprecise_everywhere :
          validity:Base.validity -> Origin.t -> v -> t -> t_bottom
        val paste_slice :
          validity:Base.validity ->
          exact:bool ->
          from:t ->
          size:Abstract_interp.Int.t ->
          offsets:Ival.t -> t -> alarm * t_bottom
        val cardinal_zero_or_one : t -> bool
        val is_single_interval : ?f:(v -> bool) -> t -> bool
        val single_interval_value : t -> v option
        val imprecise_write_msg : string ref
        val clear_caches : unit -> unit
        val pretty_debug : t Pretty_utils.formatter
      end
  module Int_Intervals :
    sig
      type itv = Abstract_interp.Int.t * Abstract_interp.Int.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
      val narrow : t -> t -> t
      val link : t -> t -> t
      val meet : t -> t -> t
      val intersects : t -> t -> bool
      val diff : t -> t -> t
      exception Error_Top
      val is_top : t -> bool
      val inject_bounds : Abstract_interp.Int.t -> Abstract_interp.Int.t -> t
      val inject_itv : itv -> t
      val inject : itv list -> t
      val from_ival_size : Ival.t -> Int_Base.t -> t
      val from_ival_size_under : Ival.t -> Int_Base.t -> t
      val project_set : t -> itv list
      val project_singleton : t -> itv option
      val fold : (itv -> '-> 'a) -> t -> '-> 'a
      val iter : (itv -> unit) -> t -> unit
      val pretty_typ : Cil_types.typ option -> t Pretty_utils.formatter
      val range_covers_whole_type : Cil_types.typ -> t -> bool
      val pretty_debug : t Pretty_utils.formatter
    end
  module Make_bitwise :
    functor
      (V : 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 narrow : t -> t -> t
             val top : t
           end->
      sig
        type v = 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 varname : t -> string
        val mem_project : (Project_skeleton.t -> bool) -> t -> bool
        val copy : t -> t
        type intervals = Int_Intervals.t
        val pretty : t Pretty_utils.formatter
        val pretty_generic :
          ?typ:Cil_types.typ ->
          ?pretty_v:(Format.formatter -> v -> unit) ->
          ?skip_v:(v -> bool) ->
          ?sep:string -> unit -> Format.formatter -> t -> unit
        val pretty_debug : t Pretty_utils.formatter
        val join : t -> t -> t
        val is_included : t -> t -> bool
        val find : Int_Intervals_sig.itv -> t -> v
        val find_iset : validity:Base.validity -> intervals -> t -> v
        val add_binding_intervals :
          validity:Base.validity ->
          exact:bool -> intervals -> v -> t -> [ `Bottom | `Map of t ]
        val add_binding_ival :
          validity:Base.validity ->
          exact:bool ->
          Ival.t -> size:Int_Base.t -> v -> t -> [ `Bottom | `Map of t ]
        val create : size:Integer.t -> v -> t
        val map : (v -> v) -> t -> t
        type map2_decide =
            ReturnLeft
          | ReturnRight
          | ReturnConstant of v
          | Recurse
        val map2 :
          Hptmap.cache_type ->
          (t -> t -> map2_decide) -> (v -> v -> v) -> t -> t -> t
        val fold : (intervals -> v -> '-> 'a) -> t -> '-> 'a
        val fold_fuse_same : (intervals -> v -> '-> 'a) -> t -> '-> 'a
        val fold_itv :
          (Int_Intervals_sig.itv -> v -> '-> 'a) ->
          Int_Intervals_sig.itv -> t -> '-> 'a
        val fold_join_itvs :
          cache:Hptmap.cache_type ->
          (Integer.t -> Integer.t -> v -> 'a) ->
          ('-> '-> 'a) -> '-> intervals -> t -> 'a
        val is_single_interval : ?f:(v -> bool) -> t -> bool
        val single_interval_value : t -> v option
        val clear_caches : unit -> unit
        val imprecise_write_msg : string ref
      end
  val set_plevel : int -> unit
  val get_plevel : unit -> int
end