reserve m for Nat;
reserve P for Instruction-Sequence of SCM+FSA;

theorem Th3:
  for P being good preProgram of SCM+FSA, n being Element of NAT
  holds Reloc(P,n) is good
proof
  let I be good preProgram of SCM+FSA;
  let n be Element of NAT;
  I does not destroy intloc 0 by SCMFSA7B:def 5;
  then Reloc(I,n) does not destroy intloc 0 by Th2;
  hence thesis by SCMFSA7B:def 5;
end;
