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