let T be InsType of SCM ; :: 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 such that
A2: a = AddressPart I and
A3: InsCode I = T ;
I = halt SCM by A1, A3, AMI_5:46;
hence a in {0 } by A2, Th7, 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 a = 0 by TARSKI:def 1;
hence a in AddressParts T by A1, Th7, AMI_5:37; :: thesis: verum