reserve
  i, j, k for Element of NAT,
  I,I2,I3,I4 for Element of Segm 15,
  i1 for Element of NAT,
  d1,d2,d3,d4,d5 for Element of SCM-Data-Loc,
  k1,k2 for Integer;

theorem
  for x being Element of SCMPDS-Instr, mk being Element of SCM-Data-Loc,
r being Integer st x = [I,{},<*mk,r*>] holds x P21address = mk & x P22const = r
proof
  let x be Element of SCMPDS-Instr, mk be Element of SCM-Data-Loc, r be
  Integer;
  r in INT by INT_1:def 2;
  then
A1: mk is Element of SCM-Data-Loc \/ INT & r is Element of SCM-Data-Loc \/
  INT by XBOOLE_0:def 3;
  assume
A2: x = [I,{},<*mk,r*>];
  then consider f being FinSequence of SCM-Data-Loc \/ INT such that
A3: f = x`3_3 and
A4: x P21address = f/.1 by Def4;
  f = <*mk,r*> by A2,A3;
  hence x P21address = mk by A4,A1,FINSEQ_4:17;
  consider f being FinSequence of SCM-Data-Loc \/ INT such that
A5: f = x`3_3 and
A6: x P22const = f/.2 by A2,Def5;
  f = <*mk,r*> by A2,A5;
  hence thesis by A1,A6,FINSEQ_4:17;
end;
