theorem Th18:
  -- (A \+\ B) = (--A) \+\ (--B)
proof
  thus -- (A \+\ B) = --(A\B) \/ --(B\A) by Th15
    .= --A \ --B \/ --(B\A) by Th17
    .= (--A) \+\ --B by Th17;
end;
