| ⌜n⌝ < # nσ, ⌜min(nσ, nσ[n] + 1)⌝ < # nσ, nσ[n] < nσ[min(nσ, nσ[n] + 1)], mon<(nσ), ∀ m. ⌜m⌝ < # nσ ∧ nσ[n] < nσ[m] → min(nσ, nσ[n] + 1) ≤ m, # nσ = ∞ ∨ nσ[n] < nσ[(# nσ).n - 1] ⊦ min(nσ, nσ[n] + 1) = n + 1, nσ = [] |
⌜n⌝ < # nσ, ⌜min(nσ, nσ[n] + 1)⌝ < # nσ, nσ[n] < nσ[min(nσ, nσ[n] + 1)], mon<(nσ), ∀ m. ⌜m⌝ < # nσ ∧ nσ[n] < nσ[m] → min(nσ, nσ[n] + 1) ≤ m, # nσ = ∞ ∨ nσ[n] < nσ[(# nσ).n - 1] ⊦ min(nσ, nσ[n] + 1) = n + 1, nσ = []
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic