theorem
  (A * B) |^ a c= (A |^ a) * (B |^ a) by Th34;
