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