theorem Th158:
  r -- (F\G) = (r--F) \ (r--G)
proof
  thus r -- (F\G) = r ++ ((--F)\(--G)) by Th7
    .= (r++--F) \ (r++--G) by Th139
    .= (r--F) \ (r--G);
end;
