| nσ[0] = 0, nσ[m0 + 1] = nσ[m0] + 1, ⌜m0⌝ + ⌜1⌝ < # nσ, ⌜m0⌝ < # nσ, m0 ≤ nσ[m0] → m ≤ nσ[m] ∧ nσ[m] = m0 ⊦ nσ = [], ∃ m. m ≤ m0 + 1 ∧ nσ[m] = nσ[m0] + 1 |
Used simplifier rules: lep-02: ⊦ m + n ≤ m + n0 ↔ n ≤ n0; from specification nat%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2 Used terms: m0 + 1