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