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