theorem
  for f being Function holds ("f).:B c= bool dom f
proof
  let f be Function;
  rng("f) c= bool dom f & ("f).:B c= rng("f) by Th22,RELAT_1:111;
  hence thesis;
end;
