theorem Th23:
  for f being Function holds dom <:f,X,Y:> c= dom f & rng <:f,X,Y :> c= rng f
proof
  let f be Function;
  <:f,X,Y:> c= f by Th22;
  hence thesis by RELAT_1:11;
end;
