theorem Th7: :: MSSUBFAM:38
  A c= M implies {A} is SubsetFamily of M
proof
  assume A c= M;
  then A is ManySortedSubset of M by PBOOLE:def 18;
  then A in Bool M by Def1;
  hence thesis by ZFMISC_1:31;
end;
