consider w being State of SCM ;
set t = w +* ((dl. 0 ),(dl. 1) --> 0 ,1);
A6: InsCode (AddTo a,b) = 2 by RECDEF_2:def 1
.= InsCode (AddTo (dl. 0 ),(dl. 1)) by RECDEF_2:def 1 ;
A7: dom ((dl. 0 ),(dl. 1) --> 0 ,1) = {(dl. 0 ),(dl. 1)} by FUNCT_4:65;
then dl. 0 in dom ((dl. 0 ),(dl. 1) --> 0 ,1) by TARSKI:def 2;
then A8: (w +* ((dl. 0 ),(dl. 1) --> 0 ,1)) . (dl. 0 ) = ((dl. 0 ),(dl. 1) --> 0 ,1) . (dl. 0 ) by FUNCT_4:14
.= 0 by AMI_3:52, FUNCT_4:66 ;
dl. 1 in dom ((dl. 0 ),(dl. 1) --> 0 ,1) by A7, TARSKI:def 2;
then (w +* ((dl. 0 ),(dl. 1) --> 0 ,1)) . (dl. 1) = ((dl. 0 ),(dl. 1) --> 0 ,1) . (dl. 1) by FUNCT_4:14
.= 1 by FUNCT_4:66 ;
then ( dl. 0 <> IC SCM & (Exec (AddTo (dl. 0 ),(dl. 1)),(w +* ((dl. 0 ),(dl. 1) --> 0 ,1))) . (dl. 0 ) = 0 + 1 ) by A8, AMI_3:9, AMI_3:57;
hence for b₁ being InsType of SCM st b₁ = InsCode (AddTo a,b) holds
not b₁ is jump-only by A6, A8, AMISTD_1:def 3; :: thesis: verum