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