let E be set ; :: thesis: for A being Subset of (E ^omega)
for n being Nat holds (A *) |^ n c= A *
let A be Subset of (E ^omega); :: thesis: for n being Nat holds (A *) |^ n c= A *
let n be Nat; :: thesis: (A *) |^ n c= A *
(A *) |^ n c= (A *) * by Th42;
hence (A *) |^ n c= A * by Th62; :: thesis: verum