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

now

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

end;

hence not Macro i refersrefer a by SCMFSA7B:def 2; :: thesis: verum