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;
