theorem
  a**(A**B) = (a**A)**B by Th90;
