theorem Th19: :: (2.18)
  a < ((a => b) => b)
  proof
    a "/\" (a => b) < b by Th17;
    hence thesis by Def4;
  end;
