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

theorem
  for I being MacroInstruction of SCM+FSA
  for a,b being Int-Location st
  I does not destroy b & a<>b holds Times(a,I) does not destroy b
proof let I be MacroInstruction of SCM+FSA;
  let a,b be Int-Location;
  assume that
A1: I does not destroy b;
  assume a <> b;
   then SubFrom(a, intloc 0) does not destroy b by SCMFSA7B:8;
   then I ";" SubFrom(a, intloc 0) does not destroy b by A1,Th45;
   then while>0(a, I ";" SubFrom(a, intloc 0)) does not destroy b by Th67;
  hence thesis;
end;
