theorem ltle (a b: nat): $ a < b -> a <= b $;
a <= suc a
a < b -> a <= suc a
a < b -> a < b
a < b -> suc a <= b
a < b -> a <= b