theorem
  A ^^ (A+) = (A+) ^^ A
proof
  thus A ^^ (A+) = A ^^ (A |^.. 1) by Th50
    .= (A |^.. 1) ^^ A by Th23
    .= A+ ^^ A by Th50;
end;
