theorem
  x in dom f & f.x in Y iff [x,f.x] in Y|`f
proof
  x in dom f iff [x,f.x] in f by FUNCT_1:def 2,XTUPLE_0:def 12;
  hence thesis by RELAT_1:def 12;
end;
