sig
  type itv = Abstract_interp.Int.t * Abstract_interp.Int.t
  exception Result_is_bottom
  exception Result_is_same
  exception Found_Top
  module type S =
    sig
      type y
      type widen_hint
      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 tag : t -> int
      val empty : t
      val is_empty : t -> bool
      val pretty_c_assert_typ :
        string ->
        Cil_types.typ -> (unit -> unit) -> Format.formatter -> t -> unit
      val pretty_typ : Cil_types.typ option -> Format.formatter -> t -> unit
      val pretty_debug : Format.formatter -> t -> unit
      val reduce :
        Ival.t -> size:Abstract_interp.Int.t -> Offsetmap.S.y -> t -> t
      val is_included : t -> t -> bool
      val is_included_exn : t -> t -> unit
      val is_included_exn_generic :
        (Offsetmap.S.y -> Offsetmap.S.y -> unit) -> t -> t -> unit
      val join :
        t -> t -> (Abstract_interp.Int.t * Abstract_interp.Int.t) list * t
      val widen : Offsetmap.S.widen_hint -> t -> t -> t
      val find_ival :
        conflate_bottom:bool ->
        validity:Base.validity ->
        with_alarms:CilE.warn_mode ->
        Ival.t -> t -> Abstract_interp.Int.t -> Offsetmap.S.y
      val cardinal_zero_or_one : Base.validity -> t -> bool
      val find_imprecise_entire_offsetmap :
        validity:Base.validity -> t -> Offsetmap.S.y
      val concerned_bindings_ival :
        offsets:Ival.t ->
        offsetmap:t ->
        size:Abstract_interp.Int.t ->
        Offsetmap.S.y list -> Offsetmap.S.y list
      val update_ival :
        with_alarms:CilE.warn_mode ->
        validity:Base.validity ->
        exact:bool ->
        offsets:Ival.t ->
        size:Abstract_interp.Int.t -> t -> Offsetmap.S.y -> t
      val overwrite : t -> Offsetmap.S.y -> Origin.t -> t
      val over_intersection : t -> t -> t
      val from_cstring : Base.cstring -> t
      val add_internal :
        Offsetmap.itv ->
        Abstract_interp.Int.t * Abstract_interp.Int.t * Offsetmap.S.y ->
        t -> t
      val add_whole : Offsetmap.itv -> Offsetmap.S.y -> t -> t
      val remove_whole : Offsetmap.itv -> t -> t
      val fold_whole :
        size:Abstract_interp.Int.t ->
        (Ival.t -> Abstract_interp.Int.t -> Offsetmap.S.y -> '-> 'a) ->
        t -> '-> 'a
      val fold_single_bindings :
        size:Abstract_interp.Int.t ->
        (Ival.t -> Abstract_interp.Int.t -> Offsetmap.S.y -> '-> 'a) ->
        t -> '-> 'a
      val fold_internal :
        (Offsetmap.itv ->
         Abstract_interp.Int.t * Abstract_interp.Int.t * Offsetmap.S.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_offsmap :
        t -> Abstract_interp.Int.t -> Abstract_interp.Int.t -> t
      val copy_ival :
        validity:Base.validity ->
        with_alarms:CilE.warn_mode ->
        Ival.t -> 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:Offsetmap.S.y -> modu:Abstract_interp.Int.t -> t
      val reduce_by_int_intervals : t -> Abstract_value.Int_Intervals.t -> t
      val top_stuff :
        (Offsetmap.S.y -> bool) ->
        (Offsetmap.S.y -> 'a * Offsetmap.S.y) ->
        ('-> '-> 'a) -> '-> t -> 'a * t
      val iter_contents :
        (Offsetmap.S.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 * Offsetmap.S.y ->
         '-> 'a) ->
        t -> '-> 'a
      val is : t -> Offsetmap.S.y -> bool
    end
  module Make :
    functor (V : Lattice_With_Isotropy.S->
      sig
        type y = V.t
        type widen_hint = V.widen_hint
        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 tag : t -> int
        val empty : t
        val is_empty : t -> bool
        val pretty_c_assert_typ :
          string ->
          Cil_types.typ -> (unit -> unit) -> Format.formatter -> t -> unit
        val pretty_typ :
          Cil_types.typ option -> 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 join :
          t -> t -> (Abstract_interp.Int.t * Abstract_interp.Int.t) list * t
        val widen : widen_hint -> t -> t -> t
        val find_ival :
          conflate_bottom:bool ->
          validity:Base.validity ->
          with_alarms:CilE.warn_mode ->
          Ival.t -> t -> Abstract_interp.Int.t -> y
        val cardinal_zero_or_one : Base.validity -> t -> bool
        val find_imprecise_entire_offsetmap :
          validity:Base.validity -> t -> 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_cstring : Base.cstring -> t
        val add_internal :
          itv -> Abstract_interp.Int.t * Abstract_interp.Int.t * y -> t -> t
        val add_whole : itv -> y -> t -> t
        val remove_whole : 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 :
          (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_offsmap :
          t -> Abstract_interp.Int.t -> Abstract_interp.Int.t -> t
        val copy_ival :
          validity:Base.validity ->
          with_alarms:CilE.warn_mode ->
          Ival.t -> 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 -> 'a * y) -> ('-> '-> 'a) -> '-> t -> 'a * 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
        val is : t -> y -> bool
      end
end