| stutf(nσ), nσ[n] = 0, ⌜n⌝ < # nσ, stutf(nσ) ⊦ nσ = ⌜λ n. 0⌝ ↔ # nσ = ∞ ∧ (∀ m. n < m ∧ ⌜m⌝ < # nσ → nσ[m] = 0) |
# nσ = ∞ ∧ (∀ m. n < m ∧ ⌜m⌝ < # nσ → nσ[m] = 0), stutf(nσ), nσ[n] = 0, ⌜n⌝ < # nσ, stutf(nσ) ⊦ nσ = ⌜λ n. 0⌝
Used simplifier rules: sel-inf: ⊦ ⌜nnf⌝ [n] = nnf(n); from specification stream[natstream]%size-inf: ⊦ # ⌜nnf⌝ = ∞; from specification stream[natstream]%less-inf2: ⊦ ⌜m⌝ < ∞; from specification nat-inf