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