theorem Th20: :: (2.20)
  a => !b = b => !a
  proof
    (a => !b) = a => (b => (-Top L)) by Def14
      .= b => (a => (-Top L)) by Th18
      .= b => !a by Def14;
    hence thesis;
  end;
