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