| max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = nσ[n]) = ⌜n1⌝ , nσ[n1] = nσ[n], leninv(nσ) = ∞, max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = nσ[n]) < # nσ, n1 < n, stutf(nσ), ⌜n⌝ < # nσ, ∀ m. ⌜m⌝ < # nσ ∧ nσ[m] = nσ[n] → ¬ max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = nσ[n]) < ⌜m⌝ ⊦ max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = nσ[n]) = ∞ |
leninv(nσ) = ∞, nσ[n1] = nσ[n], max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = nσ[n]) = ⌜n1⌝ , ⌜n⌝ < # nσ, stutf(nσ), n1 < n, ⌜n1⌝ < # nσ, ∀ m. ⌜m⌝ < # nσ ∧ nσ[m] = nσ[n] → ¬ n1 < m ⊦
Used simplifier rules: less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; from specification nat-inf%disj: ⊦ ⌜m⌝ ≠ ∞; from specification nat-inf-basic