sig
  exception Use_Main_Memory
  type tt
  module type Model_S =
    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
      type widen_hint = Cvalue_type.Model.widen_hint
      type cluster
      val is_reachable : t -> bool
      val pretty_c_assert : Format.formatter -> t -> unit
      val pretty_without_null : Format.formatter -> t -> unit
      val pretty_filter :
        Format.formatter -> t -> Locations.Zone.t -> (Base.t -> bool) -> unit
      val join : t -> t -> t
      val find :
        conflate_bottom:bool ->
        with_alarms:CilE.warn_mode ->
        t -> Locations.location -> Locations.Location_Bytes.t
      val find_unspecified :
        with_alarms:CilE.warn_mode ->
        t -> Locations.location -> Cvalue_type.V_Or_Uninitialized.t
      val add_binding :
        with_alarms:CilE.warn_mode ->
        exact:bool ->
        t -> Locations.location -> Locations.Location_Bytes.t -> t
      val add_binding_unspecified : t -> Locations.location -> t
      val reduce_binding :
        t -> Locations.location -> Locations.Location_Bytes.t -> t
      val is_included : t -> t -> bool
      val is_included_actual_generic :
        Locations.Zone.t -> t -> t -> Locations.Location_Bytes.t Base.Map.t
      val widen : Relations_type.Model_S.widen_hint -> t -> t -> bool * t
      val bottom : t
      val inject : Cvalue_type.Model.t -> t
      val empty_map : t
      val top : t
      val is_top : t -> bool
      val value_state : t -> Cvalue_type.Model.t
      val drop_relations : t -> t
      val filter_base : (Base.t -> bool) -> t -> t
      val remove_base : Base.t -> t -> t
      val clear_state_from_locals : Cil_types.fundec -> t -> t
      val uninitialize_locals : Cil_types.block list -> t -> t
      val compute_actual_final_from_generic :
        t ->
        t ->
        Locations.Zone.t ->
        Cvalue_type.Model.instanciation ->
        t * Locations.Location_Bits.Top_Param.t
      val is_included_by_location_enum : t -> t -> Locations.Zone.t -> bool
      val find_mem :
        Locations.location -> Int_Base.t -> Ival.t -> t -> Cvalue_type.V.t
      val add_mem :
        Locations.location ->
        Int_Base.t ->
        Ival.t ->
        t -> Cvalue_type.V.t -> Relations_type.Model_S.cluster list * t
      val propagate_change_from_real_to_virt :
        protected_clusters:Relations_type.Model_S.cluster list ->
        Locations.location -> t -> Cvalue_type.V.t -> t
      val add_equality :
        ?offset:Ival.t -> t -> Locations.location -> Locations.location -> t
      val reduce_equality :
        t -> Locations.location -> Locations.location -> t
      val compute_diff :
        t -> Locations.location -> Locations.location -> Cvalue_type.V.t
      val shift_location :
        t -> Locations.location -> Ival.t -> Cvalue_type.V.t -> t
      val find_base : Base.t -> t -> Cvalue_type.V_Offsetmap.t
      val create_initial :
        base:Base.t ->
        v:Cvalue_type.V.t -> modu:Abstract_interp.Int.t -> state:t -> t
      val paste_offsetmap :
        Cvalue_type.V_Offsetmap.t ->
        Locations.Location_Bits.t ->
        Abstract_interp.Int.t -> Abstract_interp.Int.t -> t -> t
      val copy_paste : Locations.location -> Locations.location -> t -> t
      val copy_from_virtual :
        Locations.location ->
        Ival.t -> Abstract_interp.Int.t -> t -> Cvalue_type.V_Offsetmap.t
      val copy_offsetmap :
        with_alarms:CilE.warn_mode ->
        Locations.location -> t -> Cvalue_type.V_Offsetmap.t option
      val comp_prefixes : t -> t -> unit
      val find_prefix :
        t -> Hptmap.prefix -> Cvalue_type.Model.subtree option
    end
  module Model :
    sig
      type t = Cvalue_type.Model.t * tt
      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 = Cvalue_type.Model.widen_hint
      type cluster
      val is_reachable : t -> bool
      val pretty_c_assert : Format.formatter -> t -> unit
      val pretty_without_null : Format.formatter -> t -> unit
      val pretty_filter :
        Format.formatter -> t -> Locations.Zone.t -> (Base.t -> bool) -> unit
      val join : t -> t -> t
      val find :
        conflate_bottom:bool ->
        with_alarms:CilE.warn_mode ->
        t -> Locations.location -> Locations.Location_Bytes.t
      val find_unspecified :
        with_alarms:CilE.warn_mode ->
        t -> Locations.location -> Cvalue_type.V_Or_Uninitialized.t
      val add_binding :
        with_alarms:CilE.warn_mode ->
        exact:bool ->
        t -> Locations.location -> Locations.Location_Bytes.t -> t
      val add_binding_unspecified : t -> Locations.location -> t
      val reduce_binding :
        t -> Locations.location -> Locations.Location_Bytes.t -> t
      val is_included : t -> t -> bool
      val is_included_actual_generic :
        Locations.Zone.t -> t -> t -> Locations.Location_Bytes.t Base.Map.t
      val widen : widen_hint -> t -> t -> bool * t
      val bottom : t
      val inject : Cvalue_type.Model.t -> t
      val empty_map : t
      val top : t
      val is_top : t -> bool
      val value_state : t -> Cvalue_type.Model.t
      val drop_relations : t -> t
      val filter_base : (Base.t -> bool) -> t -> t
      val remove_base : Base.t -> t -> t
      val clear_state_from_locals : Cil_types.fundec -> t -> t
      val uninitialize_locals : Cil_types.block list -> t -> t
      val compute_actual_final_from_generic :
        t ->
        t ->
        Locations.Zone.t ->
        Cvalue_type.Model.instanciation ->
        t * Locations.Location_Bits.Top_Param.t
      val is_included_by_location_enum : t -> t -> Locations.Zone.t -> bool
      val find_mem :
        Locations.location -> Int_Base.t -> Ival.t -> t -> Cvalue_type.V.t
      val add_mem :
        Locations.location ->
        Int_Base.t -> Ival.t -> t -> Cvalue_type.V.t -> cluster list * t
      val propagate_change_from_real_to_virt :
        protected_clusters:cluster list ->
        Locations.location -> t -> Cvalue_type.V.t -> t
      val add_equality :
        ?offset:Ival.t -> t -> Locations.location -> Locations.location -> t
      val reduce_equality :
        t -> Locations.location -> Locations.location -> t
      val compute_diff :
        t -> Locations.location -> Locations.location -> Cvalue_type.V.t
      val shift_location :
        t -> Locations.location -> Ival.t -> Cvalue_type.V.t -> t
      val find_base : Base.t -> t -> Cvalue_type.V_Offsetmap.t
      val create_initial :
        base:Base.t ->
        v:Cvalue_type.V.t -> modu:Abstract_interp.Int.t -> state:t -> t
      val paste_offsetmap :
        Cvalue_type.V_Offsetmap.t ->
        Locations.Location_Bits.t ->
        Abstract_interp.Int.t -> Abstract_interp.Int.t -> t -> t
      val copy_paste : Locations.location -> Locations.location -> t -> t
      val copy_from_virtual :
        Locations.location ->
        Ival.t -> Abstract_interp.Int.t -> t -> Cvalue_type.V_Offsetmap.t
      val copy_offsetmap :
        with_alarms:CilE.warn_mode ->
        Locations.location -> t -> Cvalue_type.V_Offsetmap.t option
      val comp_prefixes : t -> t -> unit
      val find_prefix :
        t -> Hptmap.prefix -> Cvalue_type.Model.subtree option
    end
end