theorem Th1:
  s.intloc 0 = 1 implies DataPart IExec(Stop SCM+FSA,p,s) = DataPart s
proof
  assume
A1: s.intloc 0 = 1;
  thus DataPart IExec(Stop SCM+FSA,p,s)
     = DataPart(Initialized s) by SCMFSA8C:14
    .= DataPart s by A1,SCMFSA_M:19;
end;
