reserve x for set,
  k for Element of NAT;
reserve s for State of SCMPDS;

theorem Th1:
  IC SCMPDS = NAT by AMI_2:22,SUBSET_1:def 8;

begin :: The Memory Structure

registration
 cluster Int-like for Object of SCMPDS;
  existence
  proof
    reconsider x = the Element of SCM-Data-Loc as Object of SCMPDS;
    take x;
    thus thesis;
  end;
end;

definition
  mode Int_position is Int-like Object of SCMPDS;
::$CD
