[0] I c= bool M by PBOOLE:49;
then [0] I is ManySortedSubset of bool M by PBOOLE:def 23;
hence ex b1 being MSSubsetFamily of M st
( b1 is empty-yielding & b1 is finite-yielding ) ; :: thesis: verum