theorem Th4: :: StopUsedF:
  UsedI*Loc Stop SCM+FSA = {}
proof
  thus UsedI*Loc Stop SCM+FSA
    = UsedInt*Loc halt SCM+FSA by Th2
    .= {} by SF_MASTR:32;
end;
