| stutf(nσ), (# nσ = ∞ ⊃ ∃ m. nσ[m] = m0 ∧ (∀ m1. m < m1 → nσ[m1] = m0 + 1);nσ[(# nσ).n - 1] = m0), # nσ = ∞, nσ[n + 1] = nσ[n] + 1, m0 < nσ[n], stutf(nσ) ⊦ |
nσ[n + 1] = nσ[n] + 1, # nσ = ∞, stutf(nσ), nσ[m] < nσ[n], ∀ m1. m < m1 → nσ[m1] = nσ[m] + 1 ⊦
Used simplifier rules: lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic1