theorem Th90:
  A+ ^^ (A |^.. k) = A |^.. (k + 1)
proof
  thus A+ ^^ (A |^.. k) = (A |^.. 1) ^^ (A |^.. k) by Th50
    .= A |^.. (k + 1) by Th18;
end;
