theorem
  A? ^^ (A*) = A* ^^ (A?)
proof
  thus A? ^^ (A*) = A |^ (0, 1) ^^ (A*) by Th79
    .= A* ^^ (A |^ (0, 1)) by Th66
    .= A* ^^ (A?) by Th79;
end;
