let E be set ; :: thesis: for A being Subset of (E ^omega) holds A * = {(<%> E)} \/ (A +)
let A be Subset of (E ^omega); :: thesis: A * = {(<%> E)} \/ (A +)
thus A * = {(<%> E)} \/ ((A *) ^^ A) by FLANG_1:56
.= {(<%> E)} \/ (A +) by Th52 ; :: thesis: verum