reserve p,p1,p2,h for Instruction-Sequence of SCM+FSA;
reserve k, l, n for Nat,
  j for Integer,
  i,i1 for Instruction of SCM+FSA;

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;
