theorem
  (A--B)///a = A///a -- B///a
proof
  thus (A--B)///a = A///a ++ (--B)///a by Th234
    .= A///a -- B///a by Th94;
end;
