reserve i, j, k for Nat,
  I for Element of Segm 8,
  i1, i2 for Nat,
  d1, d2, d3, d4 for Element of SCM-Data-Loc,
  S for non empty 1-sorted;
reserve G for non empty 1-sorted;

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;
