set O = the non empty non trivial 1-sorted ;
reconsider tau = {} as Subset-Family of the non empty non trivial 1-sorted by XBOOLE_1:2;
take TopStruct(# the carrier of the non empty non trivial 1-sorted ,tau #) ; :: thesis: ( not TopStruct(# the carrier of the non empty non trivial 1-sorted ,tau #) is trivial & TopStruct(# the carrier of the non empty non trivial 1-sorted ,tau #) is strict & not TopStruct(# the carrier of the non empty non trivial 1-sorted ,tau #) is empty )
thus ( not TopStruct(# the carrier of the non empty non trivial 1-sorted ,tau #) is trivial & TopStruct(# the carrier of the non empty non trivial 1-sorted ,tau #) is strict & not TopStruct(# the carrier of the non empty non trivial 1-sorted ,tau #) is empty ) ; :: thesis: verum