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, I st x = [
  I, <*mk*>, {}] holds x jump_address = mk
proof
  let x be Element of SCM-Instr, mk be Nat, I;
  assume
A1: x = [ I, <*mk*>, {}];
  then consider f being FinSequence of NAT such that
A2: f = x`2_3 and
A3: x jump_address = f/.1 by Def5;
     reconsider mk as Element of NAT by ORDINAL1:def 12;
  f = <*mk*> by A1,A2;
  hence thesis by A3,FINSEQ_4:16;
end;
