theorem Th21: :: (2.21)
  (a => Top L) = Top L
  proof
    a <= Top L by LATTICES:4,19; then
    a < Top L by Th5;
    hence thesis;
  end;
