theorem Th13: :: eParaProper:
  for I being parahalting MacroInstruction of SCM+FSA holds
  ProperBodyWhile=0 a,I,s,p by SCMFSA7B:19;
