theorem Th34:
for
P being
Instruction-Sequence of
SCM+FSA for
s being
State of
SCM+FSA for
I,
J being
MacroInstruction of
SCM+FSA for
a being
read-write Int-Location st
s . a <= 0 &
Directed J is_pseudo-closed_on s,
P holds
(
if>0 (
a,
I,
J)
is_halting_on s,
P &
LifeSpan (
(P +* (if>0 (a,I,J))),
(s +* (Start-At (0,SCM+FSA))))
= (LifeSpan ((P +* (J ";" (Stop SCM+FSA))),(Initialize s))) + 3 )