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:57
.= {(<%> E)} \/ (A + ) by Th52 ; :: thesis: verum