theorem Th71:
  --(A--B) = (--A) ++ B
proof
  thus --(A--B) = (--A)----B by Lm5
    .= (--A) ++ B;
end;
