reserve L, j, k, l, m, n, p, q for Nat,
  A for Data-Location,
  I for Instruction of SCM;

theorem Th1:
  for k,loc being Nat
  holds IncAddr(goto loc,k) = goto (loc + k) by SCMFSA10:41;
