theorem Th166:
  a -- (A\B) = (a--A) \ (a--B)
proof
  thus a -- (A\B) = a ++ ((--A)\(--B)) by Th17
    .= (a++--A) \ (a++--B) by Th150
    .= (a--A) \ (a--B);
end;
