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