consider ZS being non empty set , O being Element of ZS, F being BinOp of ZS, G being Function of [:COMPLEX,ZS:],ZS;
take CLSStruct(# ZS,O,F,G #) ; :: thesis: not CLSStruct(# ZS,O,F,G #) is empty
thus not the carrier of CLSStruct(# ZS,O,F,G #) is empty ; :: according to STRUCT_0:def 1 :: thesis: verum