theorem
  (A |^ k)? c= A*
proof
  (A |^ k)? = (A |^ k) |^ (0, 1) by Th79;
  hence thesis by Th69;
end;
