theorem Th30: :: (2.31)
  (a "/\" b) => b = Top L
  proof
    a "/\" b < b by Th6;
    hence thesis;
  end;
