let p be Instruction-Sequence of SCM+FSA; :: thesis: for s being State of SCM+FSA
for I being really-closed Program of st s . (intloc 0) = 1 holds
( I is_halting_on s,p iff I is_halting_on Initialized s,p )
let s be State of SCM+FSA; :: thesis: for I being really-closed Program of st s . (intloc 0) = 1 holds
( I is_halting_on s,p iff I is_halting_on Initialized s,p )
let I be really-closed Program of ; :: thesis: ( s . (intloc 0) = 1 implies ( I is_halting_on s,p iff I is_halting_on Initialized s,p ) )
assume s . (intloc 0) = 1 ; :: thesis: ( I is_halting_on s,p iff I is_halting_on Initialized s,p )
then DataPart (Initialized s) = DataPart s by SCMFSA_M:19;
hence ( I is_halting_on s,p iff I is_halting_on Initialized s,p ) by SCMFSA8B:5; :: thesis: verum