theorem Th22: :: (2.22)
  ((Bottom L) => a) = Top L
  proof
    Bottom L <= a; then
    Bottom L < a by Th5;
    hence thesis;
  end;
