| n1 = nσ[m0], mon<(nσ), ⌜m0⌝ < # nσ ∧ n1 ≤ nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n1 ≤ nσ[m] → m0 ≤ m) ∨ # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < n1, ∀ n0, nσ. n0 < n1 +1 → mon<(nσ) → nσ = [] ∨ (∃ m0. ⌜m0⌝ < # nσ ∧ n0 ≤ nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n0 ≤ nσ[m] → m0 ≤ m)) ∨ # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < n0 ⊦ nσ = [], ∃ 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), # nσ ≠ ∞ ∧ ¬ n1 < nσ[(# nσ).n - 1] |
mon<(nσ), ⌜m0⌝ < # nσ ∧ (∀ m. ⌜m⌝ < # nσ ∧ nσ[m0] ≤ nσ[m] → m0 ≤ m) ∨ # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < nσ[m0], ∀ n0, nσ0. n0 < nσ[m0] +1 → mon<(nσ0) → nσ0 = [] ∨ (∃ m0. ⌜m0⌝ < # nσ0 ∧ n0 ≤ nσ0[m0] ∧ (∀ m. ⌜m⌝ < # nσ0 ∧ n0 ≤ nσ0[m] → m0 ≤ m)) ∨ # nσ0 ≠ ∞ ∧ nσ0[(# nσ0).n - 1] < n0 ⊦ nσ = [], ∃ m. ⌜m⌝ < # nσ ∧ nσ[m0] < nσ[m] ∧ (∀ m1. ⌜m1⌝ < # nσ ∧ nσ[m0] < nσ[m1] → m ≤ m1), # nσ ≠ ∞ ∧ ¬ nσ[m0] < nσ[(# nσ).n - 1]
Used simplifier rules: ⊦ ¬ n < n; (s)% ⊦ m ≤ m; (s)