let P be the Instructions of SCM+FSA -valued ManySortedSet of NAT ; :: thesis: for s being State of SCM+FSA
for I being Program of SCM+FSA st I is_halting_on Initialized s,P holds
for a being Int-Location holds (IExec (I,P,s)) . a = (Comput ((P +* I),(Initialize (Initialized s)),(LifeSpan ((P +* I),(Initialize (Initialized s)))))) . a
let s be State of SCM+FSA; :: thesis: for I being Program of SCM+FSA st I is_halting_on Initialized s,P holds
for a being Int-Location holds (IExec (I,P,s)) . a = (Comput ((P +* I),(Initialize (Initialized s)),(LifeSpan ((P +* I),(Initialize (Initialized s)))))) . a
let I be Program of SCM+FSA; :: thesis: ( I is_halting_on Initialized s,P implies for a being Int-Location holds (IExec (I,P,s)) . a = (Comput ((P +* I),(Initialize (Initialized s)),(LifeSpan ((P +* I),(Initialize (Initialized s)))))) . a )
set s0 = Initialized s;
set s1 = Initialize (Initialized s);
set A = NAT ;
set P1 = P +* I;
assume I is_halting_on Initialized s,P ; :: thesis: for a being Int-Location holds (IExec (I,P,s)) . a = (Comput ((P +* I),(Initialize (Initialized s)),(LifeSpan ((P +* I),(Initialize (Initialized s)))))) . a
then A2: P +* I halts_on Initialize (Initialized s) by SCMFSA7B:def 8;

hereby :: thesis: verum

let a be Int-Location ; :: thesis: (IExec (I,P,s)) . a = (Comput ((P +* I),(Initialize (Initialized s)),(LifeSpan ((P +* I),(Initialize (Initialized s)))))) . a
not a in NAT by SCMFSA_2:84;
then not a in (dom s) /\ NAT by XBOOLE_0:def 4;
then A3: not a in dom (s | NAT) by RELAT_1:90;
s +* (Initialize ((intloc 0) .--> 1)) = Initialize (Initialized s) by SCMFSA8A:13;
hence (IExec (I,P,s)) . a = ((Result ((P +* I),(Initialize (Initialized s)))) +* (s | NAT)) . a by SCMFSA6B:def 1
.= (Result ((P +* I),(Initialize (Initialized s)))) . a by A3, FUNCT_4:12
.= (Comput ((P +* I),(Initialize (Initialized s)),(LifeSpan ((P +* I),(Initialize (Initialized s)))))) . a by A2, EXTPRO_1:23 ;
:: thesis: verum

end;