reserve E, x, y, X for set;
reserve A, B, C, D for Subset of E^omega;
reserve a, a1, a2, b, c, c1, c2, d, ab, bc for Element of E^omega;
reserve e for Element of E;
reserve i, j, k, l, n, n1, n2, m for Nat;

theorem
  n > 0 implies (A*) |^ n = A*
proof
  <%>E in A* by Th48;
  then
A1: n > 0 implies A* c= (A*) |^ n by Th35;
  (A*) |^ n c= A* by Th65;
  hence thesis by A1,XBOOLE_0:def 10;
end;
