theorem  :: (2.1) (2.3 <=> 2.4)
  a <= b iff a =-> b = Top L by Def6;
