| nσ[0] = 0, nσ[m0] < nσ[m0 + 1], nσ[m0] < n, ⌜m0⌝ < # nσ, ⌜m0⌝ + ⌜1⌝ < # nσ, n ≤ nσ[m0 + 1], ⌜m0⌝ + ⌜1⌝ < # nσ → nσ[m0 + 1] = nσ[m0] ∨ nσ[m0 + 1] = nσ[m0] + 1, m0 ≤ nσ[m0] → m ≤ nσ[m] ∧ nσ[m] = m0 ⊦ n = 0, nσ[m0 + 1] = 0, nσ = [], ∃ m. m ≤ m0 + 1 ∧ nσ[m] = n |
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%ler: ⊦ m ≤ m; from specification nat%les: ⊦ m < n → (n ≤ m + 1 ↔ n = m + 1); from specification nat%ref-1: ⊦ ¬ n < n; from specification nat-basic1%s: ⊦ m < n + 1 ↔ ¬ n < m; from specification nat-basic2%oz: ⊦ m + 1 ≠ 0; from specification nat-basic2%eq: ⊦ m = m + n ↔ n = 0; from specification nat-basic2%le-one: ⊦ m ≤ n + 1 ∧ n < n0 → m ≤ n0; (forward) from specification nat%fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%c: ⊦ m + n = n + m; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%eqle-one: ⊦ m = n + 1 ∧ n < n0 → m ≤ n0; (forward) from specification nat%le-ls-simp: ⊦ m ≤ n → (n < m ↔ false); from specification nat%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic1%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic1