| nσ[n + 1] = nσ[n] + 1, max∞(λ n0. ⌜n0⌝ < # nσ ∧ nσ[n0] = nσ[n]) = ⌜n⌝ , leninv(nσ) = ⌜0⌝ , ⌜n⌝ + ⌜1⌝ < # nσ, stutf(nσ) ⊦ ([])[nσ[n]] = n |
⊦ stutf(nσ) → (leninv(nσ) = ⌜0⌝ ↔ nσ = ⌜λ n. 0⌝ )
Used simplifier rules: sel-inf: ⊦ ⌜nnf⌝ [n] = nnf(n); from specification stream[natstream]%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2 Used terms: nσ