| mon<(nσ), ∀ n0, nσ. n0 < n → mon<(nσ) → nσ = [] ∨ # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < n0 ∨ (∃ m0. ⌜m0⌝ < # nσ ∧ n0 ≤ nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n0 ≤ nσ[m] → m0 ≤ m)) ⊦ nσ = [], # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < n, ∃ m0. ⌜m0⌝ < # nσ ∧ n ≤ nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n ≤ nσ[m] → m0 ≤ m) |
n = 0, mon<(nσ), ∀ n0, nσ. n0 < n → mon<(nσ) → nσ = [] ∨ # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < n0 ∨ (∃ m0. ⌜m0⌝ < # nσ ∧ n0 ≤ nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n0 ≤ nσ[m] → m0 ≤ m)) ⊦ nσ = [], # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < n, ∃ m0. ⌜m0⌝ < # nσ ∧ n ≤ nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n ≤ nσ[m] → m0 ≤ m)
n = n1 +1, mon<(nσ), ∀ n0, nσ. n0 < n → mon<(nσ) → nσ = [] ∨ # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < n0 ∨ (∃ m0. ⌜m0⌝ < # nσ ∧ n0 ≤ nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n0 ≤ nσ[m] → m0 ≤ m)) ⊦ nσ = [], # nσ ≠ ∞ ∧ nσ[(# nσ).n - 1] < n, ∃ m0. ⌜m0⌝ < # nσ ∧ n ≤ nσ[m0] ∧ (∀ m. ⌜m⌝ < # nσ ∧ n ≤ nσ[m] → m0 ≤ m)
Used simplifier rules: nat freely generated by 0, +1;;