| # nσ = ∞, nσ[n] = nσ[m0], m0 < m1, m1 < n, m0 < n, ∞.n + m + 1 < max∞(λ n0. nσ[n0] = nσ[m0] + 1).n, nσ[m0] < nσ[m1], stutf(nσ), m0 + 1 < n, ∀ m0. m1 < m0 → nσ[m0] = nσ[m1] + 1 ⊦ m1 = 0, m0 = m1, n = 0, max∞(λ n0. nσ[n0] = nσ[m0] + 1).n = 0, nσ[∞.n + m + 1] = nσ[m0] + 1, nσ[m1] = 0 |
⊦ mon≤(nσ) ∧ m ≤ n ∧ ⌜n⌝ < # nσ → nσ[m] ≤ nσ[n]
Used simplifier rules: stutf-monle: ⊦ stutf(nσ) → (¬ mon≤(nσ) ↔ false);%lels-03: ⊦ m < n → m ≤ n; from specification nat%less-inf2: ⊦ ⌜m⌝ < ∞; from specification nat-inf%ls-le-simp: ⊦ m < n → (n ≤ m ↔ false); from specification nat Used terms: nσ, m1, n