thus
not SCM is empty
by STRUCT_0:def 1; SCM is standard-ins
consider X being non empty set such that
A1:
proj2 SCM-Instr c= X *
by FINSEQ_1:85;
take
X
; COMPOS_1:def 4 the Instructions of SCM c= [:NAT,(NAT *),(X *):]
A2:
SCM-Instr c= [:NAT,(NAT *),(proj2 SCM-Instr):]
by AMI_2:25;
[:NAT,(NAT *),(proj2 SCM-Instr):] c= [:NAT,(NAT *),(X *):]
by A1, MCART_1:73;
then
SCM-Instr c= [:NAT,(NAT *),(X *):]
by A2, XBOOLE_1:1;
hence
the Instructions of SCM c= [:NAT,(NAT *),(X *):]
; verum