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