| # nσ = ⌜n1⌝ , max∞(λ n0. n0 < n1 ∧ nσ[n0] = n).n + m + 1 < max∞(λ n0. n0 < n1 ∧ nσ[n0] = n + 1).n, n < nσ[n1 - 1], stutf(nσ) ⊦ nσ[max∞(λ n0. n0 < n1 ∧ nσ[n0] = n).n + m + 1] = n + 1 |
# nσ = ⌜n1⌝ , n1 = m0 + 1, n < nσ[m0], max∞(λ n0. n0 < n1 ∧ nσ[n0] = n).n + m + 1 < max∞(λ n0. n0 < n1 ∧ nσ[n0] = n + 1).n, stutf(nσ) ⊦ nσ[max∞(λ n0. n0 < n1 ∧ nσ[n0] = n).n + m + 1] = n + 1, n1 = 0
Used simplifier rules: stutf-nonempty: ⊦ stutf(nσ) → (nσ = [] ↔ false);% ⊦ # nσ = ⌜0⌝ ↔ nσ = []; (s)%n ≠ 0 ⊦ m = n - 1 ↔ n = m + 1; (elim) Used terms: n1, m0