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 Th5: :: GotoUsed:
  UsedILoc Goto l = {}
proof
  Goto l =  Load goto l by SCMFSA8A:def 1;
  hence UsedILoc Goto l = UsedIntLoc goto l by Th1
    .= {} by SF_MASTR:15;
end;
