theorem
  p ## q implies (r ## p iff r ## q) by Th21;
