theorem Th9:
  FixedUltraFilters X c= Filt BoolePoset X
proof
  let F be object;
  assume F in FixedUltraFilters X;
  then
  ex x being Element of BoolePoset X st F = uparrow x & ex y being Element
  of X st x = {y};
  hence thesis;
end;
