reserve X for set;

theorem
  Top BoolePoset X = X
proof
A1: Top InclPoset bool X = union bool X by Th14;
  BoolePoset X = InclPoset bool X by Th4;
  hence thesis by A1,ZFMISC_1:81;
end;
