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