theorem
  a |^ b |^ A = a |^ (b * A)
proof
  thus a |^ b |^ A = {a} |^ {b} |^ A by Th37
    .= a |^ (b * A) by Th35;
end;
