theorem :: RasiowaNonClassical: p 69 (18)
  a <= b =-> (a "/\" b)
  proof
A1: a < b => (b "/\" a) & a < (-(b "/\" a)) => -b by Lm5,Th19bis;
    -( b =-> (b "/\" a)) < -a by Lm6;
    hence thesis by A1,Th5,Def8;
  end;
