theorem
  for s being State of SCM+FSA, I being MacroInstruction of SCM+FSA,
      a being read-write Int-Location st s.intloc 0 = 1 & s.a <= 0 holds
  DataPart IExec(Times(a,I),P,s) = DataPart s by Th35;
