theorem Th9:
  for I being Instruction of SCM+FSA holds InsCode I <= 12
proof
  let I be Instruction of SCM+FSA;
A1: I in SCM-Instr \/ { [L,{},<*dB,fA,dA*>] where L is Element of Segm 13,
    dA,dB is Element of SCM+FSA-Data-Loc,fA is Element of SCM+FSA-Data*-Loc
    : L in {9,10} }
    or I in { [K,{},<*dC,fB*>] : K in {11,12} }
     by XBOOLE_0:def 3;
  per cases by A1,XBOOLE_0:def 3;
  suppose
    I in SCM-Instr;
    then reconsider i = I as Instruction of SCM;
    InsCode i <= 8 by AMI_5:5;
    hence thesis by XXREAL_0:2;
  end;
  suppose
    I in { [L,{},<*dB,fA,dA*>] where L is Element of Segm 13,
    dA,dB is Element of SCM+FSA-Data-Loc,fA is Element of SCM+FSA-Data*-Loc:
    L in {9,10} };
    then consider L be Element of Segm 13,
    dA,dB be Element of SCM+FSA-Data-Loc,fA be Element of SCM+FSA-Data*-Loc
    such that
A2: I = [L,{},<*dB,fA,dA*>] and
A3: L in {9,10};
A4: I`1_3 = L by A2;
    L = 9 or L = 10 by A3,TARSKI:def 2;
    hence thesis by A4;
  end;
  suppose
    I in { [K,{},<*dC,fB*>] : K in {11,12} };
    then consider K,dC,fB such that
A5: I = [K,{},<*dC,fB*>] and
A6: K in {11,12};
A7: I`1_3 = K by A5;
    K=11 or K=12 by A6,TARSKI:def 2;
    hence thesis by A7;
  end;
end;
