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 d be Element of SCM-Data-Loc holds d in SCM-Data-Loc \/ INT
by XBOOLE_1:7,TARSKI:def 3;
