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