let R be good Ring; :: thesis: for T being InsType of (SCM R) st T = 0 holds
AddressParts T = {0 }
let T be InsType of (SCM R); :: thesis: ( T = 0 implies AddressParts T = {0 } )
assume A1: T = 0 ; :: thesis: AddressParts T = {0 }

hereby :: according to TARSKI:def 3,XBOOLE_0:def 10 :: thesis: {0 } c= AddressParts T

let a be set ; :: thesis: ( a in AddressParts T implies a in {0 } )
assume a in AddressParts T ; :: thesis: a in {0 }
then consider I being Instruction of (SCM R) such that
A2: a = AddressPart I and
A3: InsCode I = T ;
I = halt (SCM R) by A1, A3, Th16;
then a = {} by A2, Th24;
hence a in {0 } by TARSKI:def 1; :: thesis: verum

end;

let a be set ; :: according to TARSKI:def 3 :: thesis: ( not a in {0 } or a in AddressParts T )
assume a in {0 } ; :: thesis: a in AddressParts T
then A4: a = 0 by TARSKI:def 1;
( InsCode (halt (SCM R)) = 0 & AddressPart (halt (SCM R)) = 0 ) by Th8, Th24;
hence a in AddressParts T by A1, A4; :: thesis: verum