set x = the set ;
( not <* the set *> is empty & <* the set *> is one-to-one ) ;
hence ex b1 being FinSequence st
( b1 is one-to-one & not b1 is empty ) ; :: thesis: verum