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