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;
