theorem
  (a*b)**A = a**(b**A)
proof
  thus (a*b)**A = {a}**{b}**A by Th98
    .= a**(b**A) by Th90;
end;
