theorem
  rng [:X,Y:] c= Y
proof
  let x be object;
  assume x in rng [:X,Y:];
  then ex y being object st [y,x] in [:X,Y:] by XTUPLE_0:def 13;
  hence thesis by ZFMISC_1:87;
end;
