let f be ManySortedSet of X; :: thesis: f is finite-support
( support f c= dom f & dom f = X ) by Th41, PARTFUN1:def 4;
hence support f is finite ; :: according to PRE_POLY:def 8 :: thesis: verum