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;

theorem Th7:
 for x being Element of SCM+FSA-Instr holds
  x in SCM-Instr &
::    (InsCode x = 0 or
::    InsCode x = 1 or InsCode x = 2 or InsCode x = 3 or
::     InsCode x = 4 or InsCode x = 5 or InsCode x = 6 or InsCode x = 7 or
::       InsCode x = 8)
  (InsCode x = 0 or ... or InsCode x = 8)
 or
  x in { [J,{},<*c,f,b*>] : J in {9,10} }
        & (InsCode x = 9 or InsCode x = 10) or
  x in { [K,{},<*c1,f1*>] : K in {11,12} }
    & (InsCode x = 11 or InsCode x = 12)
proof
 let x be Element of SCM+FSA-Instr;
 x in SCM-Instr \/ { [J,{},<*c,f,b*>] : J in {9,10} } or
    x in { [K,{},<*c1,f1*>] : K in {11,12} } by XBOOLE_0:def 3;
 then per cases by XBOOLE_0:def 3;
 case x in SCM-Instr;
  then InsCode x <= 8 by SCM_INST:10;
  then InsCode x = 0 or ... or InsCode x = 8 by NAT_1:60;
  hence thesis;
 end;
 case x in { [J,{},<*c,f,b*>] : J in {9,10} };
   then consider J,b,c,f such that
A1: x = [J,{},<*c,f,b*>] and
A2: J in { 9,10 };
   InsCode x = J by A1;
  hence thesis by A2,TARSKI:def 2;
 end;
 case x in { [K,{},<*c1,f1*>] : K in {11,12} };
   then consider K,c1,f1 such that
A3: x = [K,{},<*c1,f1*>] and
A4: K in { 11,12};
   InsCode x = K by A3;
  hence thesis by A4,TARSKI:def 2;
 end;
end;
