theorem Th30:
  (Bottom BL)` = Top BL
proof
  set a = Top BL;
  thus (Bottom BL)` = (a "/\" a`)` by LATTICES:20
    .= a` "\/"a``
    .= Top BL;
end;
