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