reserve x,y,z for set,
  k for Element of NAT;
reserve J,J1,K for Element of Segm 13,
  a for Element of NAT,
  b,b1,b2,c,c1,c2 for Element of SCM-Data-Loc,
  f,f1,f2 for Element of SCM+FSA-Data*-Loc;
reserve T for InsType of SCM+FSA-Instr;

theorem Th8:
  T = 9 or T =10 implies JumpParts T = {{}}
proof
  assume
A1: T = 9 or T =10;
   then
A2: not(T = 0 or ... or T = 8);
  hereby
    let x be object;
    assume x in JumpParts T;
     then consider I being Element of SCM+FSA-Instr such that
A3:   x = JumpPart I and
A4:   InsCode I = T;
     I in { [J,{},<*c,f,b*>]
        where J is Element of  Segm 13, b,c is Element of SCM-Data-Loc,
        f is Element of SCM+FSA-Data*-Loc : J in {9,10} } by A1,A4,Th7,A2;
     then consider
     J being Element of  Segm 13, b,c being Element of SCM-Data-Loc,
     f being Element of SCM+FSA-Data*-Loc such that
A5:   I = [J,{},<*c,f,b*>] & J in {9,10};
     x = {} by A3,A5;
    hence x in {{}} by TARSKI:def 1;
  end;
  set a = the Element of SCM-Data-Loc,
      f = the Element of SCM+FSA-Data*-Loc;
  let x be object;
   T in {9,10} by A1,TARSKI:def 2;
   then
A6: [T,{},<*a,f,a*>] in SCM+FSA-Instr by Th4;
  assume x in {{}};
   then x = {} by TARSKI:def 1;
   then
A7:  x = JumpPart[T,{},<*a,f,a*>];
    InsCode[T,{},<*a,f,a*>] = T;
  hence thesis by A7,A6;
end;
