theorem Th15: :: SCMFSA_9:25, corrected
  for I being parahalting really-closed MacroInstruction of SCM+FSA
   st WithVariantWhile=0 a, I, s, p
    holds while=0(a,I) is_halting_on s,p
proof
  let I be parahalting really-closed MacroInstruction of SCM+FSA such that
A1: WithVariantWhile=0 a,I,s,p;
  ProperBodyWhile=0 a,I,s,p by SCMFSA7B:19;
  hence thesis by A1,Th14;
end;
