let E be set ; :: thesis: for A being Subset of (E ^omega ) holds A |^ 0 ,1 = {(<%> E)} \/ A
let A be Subset of (E ^omega ); :: thesis: A |^ 0 ,1 = {(<%> E)} \/ A
thus A |^ 0 ,1 = (A |^ 0 ) \/ (A |^ (0 + 1)) by Th28
.= {(<%> E)} \/ (A |^ 1) by FLANG_1:25
.= {(<%> E)} \/ A by FLANG_1:26 ; :: thesis: verum