theorem Th69:
  <*A1*>(+)<*A2*> = <* A1+A2 *>
proof
  thus <*A1*>(+)<*A2*> = <* A1 + (<*A2*>.1)*> by Th68
    .= <*A1+A2*>;
end;
