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