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