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