let P be Instruction-Sequence of SCM+FSA; :: 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),(),(LifeSpan ((P +* I),())))) . 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),(),(LifeSpan ((P +* I),())))) . 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),(),(LifeSpan ((P +* I),())))) . a )
set s0 = Initialized s;
set s1 = Initialize ();
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),(),(LifeSpan ((P +* I),())))) . a
then A1: P +* I halts_on Initialize () by SCMFSA7B:def 7;
hereby :: thesis: verum
let a be Int-Location; :: thesis: (IExec (I,P,s)) . a = (Comput ((P +* I),(),(LifeSpan ((P +* I),())))) . a
Initialized s = Initialize () by MEMSTR_0:44;
hence (IExec (I,P,s)) . a = (Result ((P +* I),())) . a by SCMFSA6B:def 1
.= (Comput ((P +* I),(),(LifeSpan ((P +* I),())))) . a by ;
:: thesis: verum
end;