| stutf(nσ), (# nσ = ∞ ⊃ ∃ m0. nσ[m0] = m ∧ (∀ m1. m0 < m1 → nσ[m1] = m + 1);nσ[(# nσ).n - 1] = m), m + 1 = nσ[n], ⌜n⌝ < # nσ, stutf(nσ) ⊦ # nσ = ∞ ∧ (n < m0 ∧ ⌜m0⌝ < # nσ → nσ[m0] = nσ[n]) |
m + 1 = nσ[n], ⌜n⌝ < # nσ, stutf(nσ), (# nσ = ∞ ⊃ nσ[m2] = m ∧ (∀ m1. m2 < m1 → nσ[m1] = nσ[m2] + 1);nσ[(# nσ).n - 1] = m) ⊦ # nσ = ∞ ∧ (n < m0 ∧ ⌜m0⌝ < # nσ → nσ[m0] = nσ[n])