| # nσ = ⌜m1⌝ + ⌜1⌝ , nσ[m0] = m - 1, nσ[m1] + 1 < m, stutf(nσ) ⊦ m1 < m0 |
# nσ = ⌜m1⌝ + ⌜1⌝ , nσ[m0] = m - 1, nσ[m1] + 1 < m, stutf(nσ), m0 ≤ m1 ⊦
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m < n ↔ ¬ n ≤ m; (ss)