| nσ[m2 + 1] = nσ[m2] + 1, nσ[m] = nσ[m2], # nσ = ∞, nσ[(m1 + 1) + m] = nσ[m2] + 1, nσ[m2] = nσ[m + 1], m2 ≤ m1 + m, m < m2, stutf(nσ), nσ[m1 + m] = nσ[m2] + 1 → m ≤ m0 ∧ m0 < m1 + m ∧ nσ[m2] = nσ[m0] ∧ nσ[m0 + 1] = nσ[m0] + 1 ⊦ m2 = 0, m1 = 0, ∃ m0. m ≤ m0 ∧ ¬ m1 + m < m0 ∧ nσ[m2] = nσ[m0] ∧ nσ[m0 + 1] = nσ[m0] + 1 |
Used simplifier rules: lels-03: ⊦ m < n → m ≤ n; from specification nat%le-ls-simp: ⊦ m ≤ n → (n < m ↔ false); from specification nat Used terms: m2