set Ma = Macro (b := (f,a));
let s be State of SCM+FSA; :: according to SCMFSA6B:def 4,SCMFSA6C:def 2 :: thesis: ( not (Macro (b := (f,a))) +* (Start-At (0,SCM+FSA)) c= s or for b₁ being Element of NAT holds (Comput ((ProgramPart s),s,b₁)) . (intloc 0) = s . (intloc 0) )
assume A1: (Macro (b := (f,a))) +* (Start-At (0,SCM+FSA)) c= s ; :: thesis: for b₁ being Element of NAT holds (Comput ((ProgramPart s),s,b₁)) . (intloc 0) = s . (intloc 0)
then A2: Macro (b := (f,a)) c= s by SCMFSA6B:5;
let k be Element of NAT ; :: thesis: (Comput ((ProgramPart s),s,k)) . (intloc 0) = s . (intloc 0)
dom (Start-At (0,SCM+FSA)) = {(IC SCM+FSA)} by FUNCOP_1:19;
then A3: IC SCM+FSA in dom (Start-At (0,SCM+FSA)) by TARSKI:def 1;
Start-At (0,SCM+FSA) c= (Macro (b := (f,a))) +* (Start-At (0,SCM+FSA)) by FUNCT_4:26;
then Start-At (0,SCM+FSA) c= s by A1, XBOOLE_1:1;
then A4: IC s = (Start-At (0,SCM+FSA)) . (IC SCM+FSA) by A3, GRFUNC_1:8
.= 0 by FUNCOP_1:87 ;
0 in dom (Macro (b := (f,a))) by SCMFSA6B:32;
then A5: (Macro (b := (f,a))) . 0 = s . 0 by A2, GRFUNC_1:8;
Y: (ProgramPart s) /. (IC s) = s . (IC s) by COMPOS_1:38;
Z: (ProgramPart (Comput ((ProgramPart s),s,1))) /. (IC (Comput ((ProgramPart s),s,1))) = (Comput ((ProgramPart s),s,1)) . (IC (Comput ((ProgramPart s),s,1))) by COMPOS_1:38;
A6: Comput ((ProgramPart s),s,(0 + 1)) = Following ((ProgramPart s),(Comput ((ProgramPart s),s,0))) by EXTPRO_1:4
.= Following ((ProgramPart s),s) by EXTPRO_1:3
.= Exec ((b := (f,a)),s) by A4, A5, Y, COMPOS_1:148, SCMFSA6B:33 ;
1 in dom (Macro (b := (f,a))) by SCMFSA6B:32;
then (Macro (b := (f,a))) . 1 = s . 1 by A2, GRFUNC_1:8;
then A7: s . 1 = halt SCM+FSA by COMPOS_1:148, SCMFSA6B:33;
IC (Exec ((b := (f,a)),s)) = succ 0 by A4, SCMFSA_2:98
.= 0 + 1 ;
then A8: CurInstr ((ProgramPart (Comput ((ProgramPart s),s,1))),(Comput ((ProgramPart s),s,1))) = halt SCM+FSA by A7, A6, Z, AMI_1:def 13;
T: ProgramPart s = ProgramPart (Comput ((ProgramPart s),s,1)) by AMI_1:123;

per cases ( k = 0 or 1 <= k ) by NAT_1:14;

suppose k = 0 ; :: thesis: (Comput ((ProgramPart s),s,k)) . (intloc 0) = s . (intloc 0)

hence (Comput ((ProgramPart s),s,k)) . (intloc 0) = s . (intloc 0) by EXTPRO_1:3; :: thesis: verum

end;

suppose A9: 1 <= k ; :: thesis: (Comput ((ProgramPart s),s,k)) . (intloc 0) = s . (intloc 0)

(Comput ((ProgramPart s),s,1)) . (intloc 0) = s . (intloc 0) by A6, SCMFSA_2:98;
hence (Comput ((ProgramPart s),s,k)) . (intloc 0) = s . (intloc 0) by A8, A9, T, EXTPRO_1:6; :: thesis: verum

end;

end;