set A = NAT ;
set D = Int-Locations \/ FinSeq-Locations ;
let s be State of SCM+FSA ; :: thesis: for I being keeping_0 Program of SCM+FSA st I is_halting_on Initialize s holds
( (IExec I,s) . (intloc 0 ) = 1 & ( for k being Element of NAT holds (Computation ((Initialize s) +* (I +* (Start-At (insloc 0 )))),k) . (intloc 0 ) = 1 ) )
let I be keeping_0 Program of SCM+FSA ; :: thesis: ( I is_halting_on Initialize s implies ( (IExec I,s) . (intloc 0 ) = 1 & ( for k being Element of NAT holds (Computation ((Initialize s) +* (I +* (Start-At (insloc 0 )))),k) . (intloc 0 ) = 1 ) ) )
set s0 = Initialize s;
set s1 = (Initialize s) +* (I +* (Start-At (insloc 0 )));
set a = intloc 0 ;
assume I is_halting_on Initialize s ; :: thesis: ( (IExec I,s) . (intloc 0 ) = 1 & ( for k being Element of NAT holds (Computation ((Initialize s) +* (I +* (Start-At (insloc 0 )))),k) . (intloc 0 ) = 1 ) )
then A1: (Initialize s) +* (I +* (Start-At (insloc 0 ))) is halting by SCMFSA7B:def 8;

now

assume A2: intloc 0 in NAT ; :: thesis: contradiction
then reconsider a = intloc 0 as Instruction-Location of SCM+FSA by AMI_1:def 4;
a in NAT by A2;
hence contradiction by SCMFSA_2:84; :: thesis: verum

end;

then not intloc 0 in (dom s) /\ NAT by XBOOLE_0:def 4;
then A3: ( intloc 0 in dom (Result ((Initialize s) +* (I +* (Start-At (insloc 0 ))))) & not intloc 0 in dom (s | NAT ) ) by RELAT_1:90, SCMFSA_2:66;
A4: DataPart (Initialize s) = DataPart ((Initialize s) +* (I +* (Start-At (insloc 0 )))) by SCMFSA8A:11;
A5: I +* (Start-At (insloc 0 )) c= (Initialize s) +* (I +* (Start-At (insloc 0 ))) by FUNCT_4:26;

A6: now

let k be Element of NAT ; :: thesis: (Computation ((Initialize s) +* (I +* (Start-At (insloc 0 )))),k) . (intloc 0 ) = 1
thus (Computation ((Initialize s) +* (I +* (Start-At (insloc 0 )))),k) . (intloc 0 ) = ((Initialize s) +* (I +* (Start-At (insloc 0 )))) . (intloc 0 ) by A5, SCMFSA6B:def 4
.= (Initialize s) . (intloc 0 ) by A4, SCMFSA6A:38
.= 1 by SCMFSA6C:3 ; :: thesis: verum

end;

s +* (Initialized I) = (Initialize s) +* (I +* (Start-At (insloc 0 ))) by SCMFSA8A:13;
hence (IExec I,s) . (intloc 0 ) = ((Result ((Initialize s) +* (I +* (Start-At (insloc 0 ))))) +* (s | NAT )) . (intloc 0 ) by SCMFSA6B:def 1
.= (Result ((Initialize s) +* (I +* (Start-At (insloc 0 ))))) . (intloc 0 ) by A3, FUNCT_4:12
.= (Computation ((Initialize s) +* (I +* (Start-At (insloc 0 )))),(LifeSpan ((Initialize s) +* (I +* (Start-At (insloc 0 )))))) . (intloc 0 ) by A1, AMI_1:122
.= 1 by A6 ;
:: thesis: for k being Element of NAT holds (Computation ((Initialize s) +* (I +* (Start-At (insloc 0 )))),k) . (intloc 0 ) = 1
let k be Element of NAT ; :: thesis: (Computation ((Initialize s) +* (I +* (Start-At (insloc 0 )))),k) . (intloc 0 ) = 1
thus (Computation ((Initialize s) +* (I +* (Start-At (insloc 0 )))),k) . (intloc 0 ) = 1 by A6; :: thesis: verum