theorem
  for f being Function of X,D holds (.:f)"B c= bool X
proof
  let f be Function of X,D;
  dom f = X by FUNCT_2:def 1;
  hence thesis by Th11;
end;
