| ii(0) = 0, ii(n0 + 1) = ii(n0), lf(0) = [], nextli0(lf(n0)) = [], ∀ m. n0 < m → ii(m) = ii(n0) ∧ lf(m) = lf(n0), ∀ x. nextli(x) = x + nextli0(x), ∀ n. lf(n + 1) = nextli(lf(n)), ∀ m, n. m ≤ n → ii(m) ≤ ii(n), ∀ n. ii(n + 1) = ii(n) + # nextli0(lf(n)) ∧ ¬ # σ < ⌜ii(n + 1)⌝ ∧ (σ from ii(n)) to # nextli0(lf(n)) = ⌜nextli0(lf(n))⌝ , ∀ n0. lf(n0) = (σ to ii(n0)).l, ∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1) ⊦ # σ = ⌜ii(n0)⌝ , # σ < ⌜ii(n0)⌝ , finp(σ) |
ii(n0 + 1) = ii(n0), ii(0) = 0, lf(0) = [], nextli0(lf(n0)) = [], ∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1), ∀ m, n. m ≤ n → ii(m) ≤ ii(n), ∀ n. lf(n + 1) = nextli(lf(n)), ∀ x. nextli(x) = x + nextli0(x), ∀ m. n0 < m → ii(m) = ii(n0) ∧ lf(m) = lf(n0), ∀ n. lf(n) = nf to ii(n), ∀ n. ii(n + 1) = ii(n) + # nextli0(lf(n)) ∧ (nf from ii(n)) to # nextli0(lf(n)) = nextli0(lf(n)) ⊦
Used simplifier rules: ⊦ ⌜x⌝ = ⌜x0⌝ ↔ x = x0; (s)% ⊦ ⌜nf⌝ from n = ⌜nf from n⌝ ; (s)% ⊦ ⌜x⌝ .l = x; (s)% ⊦ ⌜nf⌝ to n = ⌜nf to n⌝ ; (s)% ⊦ ¬ finp(⌜nf⌝ ); (s)%stream-inf-forward: ⊦ ¬ finp(σ) → (∃ nf. ⌜nf⌝ = σ); (forward) from specification stream-basic% ⊦ ¬ ∞ < n∞; (s)% ⊦ ⌜m⌝ ≠ ∞; (s)% ⊦ ¬ finp(σ) → # σ = ∞; (s)