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