| stutf(nσ), ∀ m. (∃ m0. ⌜m0⌝ < # nσ ∧ nσ[m0] = m - 1 ∧ (# nσ ≠ ∞ ∨ ¬(∀ m1. m0 < m1 → nσ[m1] = m - 1))) → m = 0 ⊦ # nσ = # ⌜λ n. 0⌝ ∧ (∀ n. ⌜n⌝ < # nσ → nσ[n] = ⌜λ n. 0⌝ [n]) |
stutf(nσ), ∀ m. (∃ m0. ⌜m0⌝ < # nσ ∧ nσ[m0] = m - 1 ∧ (# nσ ≠ ∞ ∨ ¬(∀ m1. m0 < m1 → nσ[m1] = m - 1))) → m = 0 ⊦ # nσ = ∞ ∧ (⌜n⌝ < # nσ → nσ[n] = 0)
Used simplifier rules: sel-inf: ⊦ ⌜nnf⌝ [n] = nnf(n); from specification stream[natstream]%size-inf: ⊦ # ⌜nnf⌝ = ∞; from specification stream[natstream]