theorem
  rng R <> {} implies ex x being Element of D st x in dom R
proof
  assume rng R <> {};
  then dom R <> {} by RELAT_1:42;
  then ex x being object st x in dom R by XBOOLE_0:def 1;
  hence thesis;
end;
