| ⌜m0⌝ < # nσ ∧ n1 < nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n1 ≤ nσ[m] → m0 ≤ m), mon<(nσ), ∀ n0, nσ. n0 < n1 +1 → mon<(nσ) → nσ = [] ∨ # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < n0 ∨ (∃ m0. ⌜m0⌝ < # nσ ∧ n0 ≤ nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n0 ≤ nσ[m] → m0 ≤ m)) ⊦ nσ = [], n1 = nσ[m0], # nσ ≠ ∞ ∧ ¬ n1 < nσ[(# nσ).n - 1], ∃ m0. ⌜m0⌝ < # nσ ∧ n1 < nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n1 < nσ[m] → m0 ≤ m), ⌜m0⌝ < # nσ ∧ n1 < nσ[m0] ∧ (⌜m⌝ < # nσ ∧ n1 < nσ[m] → m0 ≤ m) |
⌜m0⌝ < # nσ, n1 < nσ[m0], mon<(nσ), ⌜m⌝ < # nσ, n1 < nσ[m], m < m0, ∀ m. ⌜m⌝ < # nσ ∧ n1 ≤ nσ[m] → m0 ≤ m, ∀ n0, nσ. n0 < n1 +1 → mon<(nσ) → nσ = [] ∨ # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < n0 ∨ (∃ m0. ⌜m0⌝ < # nσ ∧ n0 ≤ nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n0 ≤ nσ[m] → m0 ≤ m)) ⊦ nσ = [], n1 = nσ[m0], nσ[m0] = 0, nσ[m] = 0, m0 = 0, # nσ ≠ ∞ ∧ ¬ n1 < nσ[(# nσ).n - 1], ∃ m0. ⌜m0⌝ < # nσ ∧ n1 < nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n1 < nσ[m] → m0 ≤ m)
Used simplifier rules: f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%lels-01: ⊦ ¬ m ≤ n ↔ n < m; from specification nat