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;
reserve I for Element of Segm 8,
  S for non empty 1-sorted,
  t for Element of S,
  x for set,
  k for Nat;
 reserve R for Ring, T for InsType of SCM-Instr R;
reserve R for Ring,
  r for Element of R,
  a, b, c, d1, d2 for Element of SCM-Data-Loc;
reserve i1 for Nat;

theorem
  [5,{},<*d1,t*>] in SCM-Instr S
proof
  reconsider D1 = d1 as Element of SCM-Data-Loc;
  [5,{},<*D1,t*>] in the set of all  [5,{},<*i,a*>]
    where i is Element of SCM-Data-Loc, a is
  Element of S ;
  hence thesis by XBOOLE_0:def 3;
end;
