theorem
  (A/\B) -- a = (A--a) /\ (B--a)
proof
  thus (A/\B) -- a = --(a--(A/\B)) by Th71
    .= --((a--A) /\ (a--B)) by Th165
    .= (--(a--A)) /\ (--(a--B)) by Th16
    .= (--(a--A)) /\ (B--a) by Th71
    .= (A--a) /\ (B--a) by Th71;
end;
