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;
