Used simplifier rules: less-inf1: ⊦ ¬ ∞ < n∞;%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n;%natinf freely generated by ∞, ⌜ ⌝;;%ls-02: ⊦ m < n → ¬ n < m; from specification nat-basic1