theorem ltb0tr (a b: nat): $ a < b $ > $ a < b0 b $;
a < b -> b <= b0 b -> a < b0 b
a < b
b <= b0 b -> a < b0 b
b <= b0 b
a < b0 b