| # nσ = ∞, max∞(λ n. nσ[n] = nσ[m1]) = ∞, stutf(nσ), m1 < n0 → nσ[n0] = nσ[m1] + 1, ∀ m0. m1 < m0 → nσ[m0] = nσ[m1] + 1, ∀ n1. ¬ n1 < n0 → nσ[n1] = nσ[m1] ⊦ m1 < n0, nσ[∞.n + m + 1] = nσ[m1] + 1 |
# nσ = ∞, max∞(λ n. nσ[n] = nσ[m1]) = ∞, stutf(nσ), n0 ≤ m1, ∀ m0. m1 < m0 → nσ[m0] = nσ[m1] + 1, ∀ n1. ¬ n1 < n0 → nσ[n1] = nσ[m1] ⊦ nσ[∞.n + m + 1] = nσ[m1] + 1
Used simplifier rules: le-ls-simp: ⊦ m ≤ n → (n < m ↔ false); from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat