theorem ltb1tr (a b: nat): $ a <= b $ > $ a < b1 b $;
a <= b -> b < b1 b -> a < b1 b
a <= b
b < b1 b -> a < b1 b
b < b1 b
a < b1 b