| max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = n) = ∞, stutf(nσ), n ≤ n1, (# nσ = ∞ ⊃ nσ[m] = n1 ∧ (∀ m0. m < m0 → nσ[m0] = nσ[m] + 1);nσ[(# nσ).n - 1] = n1) ⊦ ⌜∞.n⌝ < # nσ |
# nσ ≠ ∞, nσ[(# nσ).n - 1] = n1, max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = n) = ∞, stutf(nσ), n ≤ n1 ⊦ ⌜∞.n⌝ < # nσ
Used simplifier rules: less-inf2: ⊦ ⌜m⌝ < ∞; from specification nat-inf