theorem
  UFilter BL.Top BL = ultraset BL
proof
  thus UFilter BL.Top BL = UFilter BL.(Bottom BL)` by LATTICE4:30
    .= ultraset BL \ UFilter BL.Bottom BL by Th25
    .= ultraset BL \ {} by Th30
    .= ultraset BL;
end;
