theorem Th7:
  for T being set, F being Subset-Family of T holds F <> {}
  implies union COMPLEMENT(F) = (meet F)`
proof
  let T be set, F be Subset-Family of T;
  assume F <> {};
  then union COMPLEMENT(F) = [#]T \ meet F by SETFAM_1:34
    .= T \ meet F;
  hence thesis;
end;
