reserve x,y,z for set;
reserve I,J,K for Element of Segm 9,
  i,a,a1,a2 for Nat,
  b,b1,b2,c,c1 for Element of SCM-Data-Loc;

theorem
  for x being Element of SCM-Instr, mk being Nat, ml being
Element of SCM-Data-Loc, I
 st x = [ I, <*mk*>, <*ml*>] holds x cjump_address = mk &
  x cond_address = ml
proof
  let x be Element of SCM-Instr, mk be Nat, ml be Element of
  SCM-Data-Loc, I;
   reconsider mkk = mk as Element of NAT by ORDINAL1:def 12;
  assume
A1: x = [ I, <*mk*>, <*ml*>];
  then consider mk9 being Element of NAT such
  that
A2: <*mk9*> = x`2_3 and
A3: x cjump_address = <*mk9*>/.1 by Def6;
  <*mk9*> = <*mkk*> by A1,A2;
  hence x cjump_address = mk by A3,FINSEQ_4:16;
  consider ml9 being Element of SCM-Data-Loc such
  that
A4: <*ml9*> = x`3_3 and
A5: x cond_address = <*ml9*>/.1 by A1,Def7;
  <*ml9*> = <*ml*> by A1,A4;
  hence thesis by A5,FINSEQ_4:16;
end;
