theorem
  (for y st y in Y holds R"{y} <> {}) implies Y c= rng R
proof
  assume
A1: for y st y in Y holds R"{y} <> {};
  let y be object;
  assume y in Y;
  then R"{y} <> {} by A1;
  hence thesis by Th71;
end;
