| ⌜m⌝ < # nσ, n < nσ[m], mon<(nσ), nσ[0] ≤ n ⊦ ∃ m0. nσ[m0] ≤ n ∧ n < nσ[m0 + 1] ∧ m0 ≤ m |
n < nσ[m0 +1], ⌜m0 +1⌝ < # nσ, mon<(nσ), nσ[0] ≤ n, ∀ nσ, n. ⌜m0⌝ < # nσ ∧ n < nσ[m0] ∧ mon<(nσ) ∧ nσ[0] ≤ n → (∃ m1. nσ[m1] ≤ n ∧ n < nσ[m1 + 1] ∧ m1 ≤ m0) ⊦ ∃ m1. nσ[m1] ≤ n ∧ n < nσ[m1 + 1] ∧ m1 ≤ m0 +1
Used simplifier rules: nat freely generated by 0, +1;;% ⊦ m < n → (n ≤ m ↔ false); (s)