reserve m for Nat;
reserve P,PP,P1,P2 for Instruction-Sequence of SCM+FSA;

theorem Th39:
  for i being Instruction of SCM+FSA, a being Int-Location holds i
  does not destroy a implies Macro i does not destroy a
proof
  let i be Instruction of SCM+FSA;
  let a be Int-Location;
A1: rng Macro i = {i,halt SCM+FSA} by COMPOS_1:67;
  assume i does not destroy a;
  then for ii be Instruction of SCM+FSA st ii in rng Macro i holds
  ii does not destroy a by A1,TARSKI:def 2;
  hence thesis;
end;
