theorem Th16bis:
  x < y implies a => x < a => y
  proof
    assume x < y; then
    a "/\" (a => x) < y by Th16;
    hence thesis by Def4;
  end;
