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