theorem Th26: :: (2.27)
  (a => (a "\/" b)) = Top L
  proof
    a < a "\/" b by Th7;
    hence thesis;
  end;
