theorem Th13: :: SCMFSA8B:19

for P being Instruction-Sequence of SCM+FSA
for s being State of SCM+FSA
for I, J being really-closed MacroInstruction of SCM+FSA
for a being read-write Int-Location st s . a > 0 & I is_halting_on s,P holds
if>0 (a,I,J) is_halting_on s,P