| leninv(nσ) ≠ ∞, ⌜⌜(λ m. max∞(λ n. ⌜n⌝ < # nσ ∧ nσ[n] = m).n) to leninv(nσ).n⌝ [n]⌝ + ⌜1⌝ < # nσ, stutf(nσ), ⌜n⌝ < leninv(nσ) ⊦ nσ[(leninv(nσ) = ∞ ⊃ ⌜λ m. max∞(λ n. ⌜n⌝ < # nσ ∧ nσ[n] = m).n⌝ ;⌜(λ m. max∞(λ n. ⌜n⌝ < # nσ ∧ nσ[n] = m).n) to leninv(nσ).n⌝ )[n] + 1] = n + 1 |
stutf(nσ), ⌜n⌝ < leninv(nσ), ⌜((λ m. max∞(λ n. ⌜n⌝ < # nσ ∧ nσ[n] = m).n) to leninv(nσ).n)[n]⌝ + ⌜1⌝ < # nσ ⊦ leninv(nσ) = ∞, nσ[((λ m. max∞(λ n. ⌜n⌝ < # nσ ∧ nσ[n] = m).n) to leninv(nσ).n)[n] + 1] = n + 1
Used simplifier rules: sel-fin: ⊦ ⌜nl⌝ [n] = nl[n]; from specification stream[natstream]