| nσ[0] < nσ[m], ⌜m⌝ < # nσ, nσ[0] < n, mon<(nσ), n ≤ nσ[m] ⊦ n = nσ[m], ∃ m0. nσ[m0] < n ∧ n ≤ nσ[m0 + 1] ∧ m0 ≤ m |
n < nσ[m], nσ[0] < nσ[m], ⌜m⌝ < # nσ, nσ[0] < n, nσ[0] + 1 < nσ[m], mon<(nσ) ⊦ n = nσ[m], ∃ m0. nσ[m0] < n ∧ n ≤ nσ[m0 + 1] ∧ m0 ≤ m
Used simplifier rules: ⊦ m +1 = m + 1; (s)%lf: ⊦ m < n ∧ n < n0 → m +1 < n0; (forward) from specification nat-basic% ⊦ m ≠ n → (m ≤ n ↔ m < n); (s)