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

now

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

end;

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