reserve l, m, n for Nat,
  i,j,k for Instruction of SCMPDS,
  I,J,K for Program of SCMPDS,
  p,q,r for PartState of SCMPDS;
reserve a,b,c for Int_position,
  s,s1,s2 for State of SCMPDS,
  k1,k2 for Integer;

theorem Th4:
  for dl being Int_position ex i being Nat st dl =
  DataLoc(i,0)
proof
  let dl be Int_position;
  consider i being Nat such that
A1: dl = [1,i] by AMI_2:23,def 16;
  take i;
  thus thesis by A1,ABSVALUE:def 1;
end;
