thus
( not SCM is empty & SCM is stored-program )
by COMPOS_1:def 2, STRUCT_0:def 1; SCM is standard-ins
consider X being non empty set such that
WW:
proj2 SCM-Instr c= X *
by FINSEQ_1:106;
take
X
; COMPOS_1:def 17 the Instructions of SCM c= [:K97(),(K97() * ),(X * ):]
S:
SCM-Instr c= [:NAT ,(NAT * ),(proj2 SCM-Instr ):]
by AMI_2:34;
[:NAT ,(NAT * ),(proj2 SCM-Instr ):] c= [:NAT ,(NAT * ),(X * ):]
by WW, MCART_1:77;
then
SCM-Instr c= [:NAT ,(NAT * ),(X * ):]
by S, XBOOLE_1:1;
hence
the Instructions of SCM c= [:NAT ,(NAT * ),(X * ):]
; verum