theorem
  E (\) A in Bool M
proof
  E c= M by PBOOLE:def 18;
  then E (\) A c= M by MBOOLEAN:15;
  then E (\) A is ManySortedSubset of M by PBOOLE:def 18;
  hence thesis by Def1;
end;
