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