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