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 Element of SCM-Data-Loc,
  r being Element of S st x = [I,{},<*mk,r*>] holds x const_address = mk & x
  const_value = r
proof
  let x be Element of SCM-Instr S, mk be Element of SCM-Data-Loc, r be Element
  of S;
A1: mk is Element of SCM-Data-Loc \/ the carrier of S & r is Element of
  SCM-Data-Loc \/ the carrier of S by XBOOLE_0:def 3;
  assume
A2: x = [ I,{}, <*mk,r*>];
  then consider
  f being FinSequence of SCM-Data-Loc \/ the carrier of S such that
A3: f = x`3_3 and
A4: x const_address = f/.1 by Def7;
  f = <*mk,r*> by A2,A3;
  hence x const_address = mk by A4,A1,FINSEQ_4:17;
  consider f being FinSequence of SCM-Data-Loc \/ the carrier of S such that
A5: f = x`3_3 and
A6: x const_value = f/.2 by A2,Def8;
  f = <*mk,r*> by A2,A5;
  hence thesis by A1,A6,FINSEQ_4:17;
end;
