| nσ[m1] = n + 1, stutf(nσ), ⌜m⌝ < # nσ, ∞.n ≤ max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = n).n, m < m0, m1 ≤ m, m1 < m0, n < nσ[m], ∀ m2. (∃ m0. ⌜m0⌝ < # nσ ∧ nσ[m0] = m2 - 1 ∧ (# nσ ≠ ∞ ∨ ¬(∀ m1. m0 < m1 → nσ[m1] = m2 - 1))) → ¬ nσ[m] + 1 < m2, ∀ n0. ¬ ⌜n0⌝ < # nσ ∨ nσ[n0] ≠ n + 1 ⊦ nσ[m0] = nσ[m] |
Used simplifier rules: lsle-trans: ⊦ n∞ < n∞1 ∧ ¬ n∞2 < n∞1 → n∞ < n∞2; (forward) from specification nat-inf%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; from specification nat-inf%le-ls-simp: ⊦ m ≤ n → (n < m ↔ false); from specification nat Used terms: m1