let i be Instruction of SCM+FSA; :: thesis: for a being Int-Location st not i destroys a holds
not Macro i destroys a
let a be Int-Location ; :: thesis: ( not i destroys a implies not Macro i destroys a )
A1: rng (Macro i) = {i,(halt SCM+FSA)} by FUNCT_4:67;
assume A2: not i destroys a ; :: thesis: not Macro i destroys a

now

let ii be Instruction of SCM+FSA; :: thesis: ( ii in rng (Macro i) implies not ii destroys a )
assume ii in rng (Macro i) ; :: thesis: not ii destroys a
then ( ii = i or ii = halt SCM+FSA ) by A1, TARSKI:def 2;
hence not ii destroys a by A2, SCMFSA7B:11; :: thesis: verum

end;

hence not Macro i destroys a by SCMFSA7B:def 4; :: thesis: verum