reserve x,y for object,X for set,
  f for Function,
  R,S for Relation;

theorem Th4:
  for S being rational-valued Relation st R c= S holds R is rational-valued
proof
  let S be rational-valued Relation;
  assume R c= S;
  then
A1: rng R c= rng S by RELAT_1:11;
  rng S c= RAT by Def3r;
  hence rng R c= RAT by A1;
end;
