{} in ((union N) \/ the carrier of (Trivial-COM N)) * by FINSEQ_1:66;
then A1: {{} } c= ((union N) \/ the carrier of (Trivial-COM N)) * by ZFMISC_1:37;
take X = (union N) \/ the carrier of (Trivial-COM N); :: according to COMPOS_1:def 17 :: thesis: the Instructions of (Trivial-COM N) c= [:NAT ,(NAT * ),(X * ):]
{} in NAT * by FINSEQ_1:66;
then X: {{} } c= NAT * by ZFMISC_1:37;
the Instructions of (Trivial-COM N) = {[0 ,{} ,{} ]} by Def2
.= [:{0 },{{} },{{} }:] by MCART_1:39 ;
hence the Instructions of (Trivial-COM N) c= [:NAT ,(NAT * ),(X * ):] by A1, MCART_1:77, X; :: thesis: verum