| ¬ finp(σ), ∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1), #((σ from ii(n0)) to # nextli0(lf(n0))) = ⌜# nextli0(lf(n0))⌝ , # lf(n0) = ii(n0), lf(0) = [], ii(0) = 0, n3 < # nextli0(lf(n0)), ∀ n2. n2 < ii(n0) → lf(n0)[n2] = σ[n2], ∀ 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))⌝ , ∀ n1. n1 < # nextli0(lf(n0)) → ((σ from ii(n0)) to # nextli0(lf(n0)))[n1] = nextli0(lf(n0))[n1] ⊦ nextli0(lf(n0))[n3] = σ[n3 + ii(n0)], ii(n0) + # nextli0(lf(n0)) = 0, nextli0(lf(n0)) = [], # σ < ⌜ii(n0)⌝ + ⌜# nextli0(lf(n0))⌝ |
# lf(n0) = ii(n0), lf(0) = [], ii(0) = 0, n3 < # nextli0(lf(n0)), ∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1), ∀ x. nextli(x) = x + nextli0(x), ∀ n. lf(n + 1) = nextli(lf(n)), ∀ m, n. m ≤ n → ii(m) ≤ ii(n), ∀ n. n < # nextli0(lf(n0)) → nf(n + ii(n0)) = nextli0(lf(n0))[n], ∀ n. n < ii(n0) → lf(n0)[n] = nf(n), ∀ n. ii(n + 1) = ii(n) + # nextli0(lf(n)) ∧ (nf from ii(n)) to # nextli0(lf(n)) = nextli0(lf(n)) ⊦ ii(n0) + # nextli0(lf(n0)) = 0, nextli0(lf(n0)) = [], nextli0(lf(n0))[n3] = nf(n3 + ii(n0))
Used simplifier rules: inj-02: ⊦ ⌜x⌝ = ⌜x0⌝ ↔ x = x0; from specification stream-basic%to-inf: ⊦ ⌜nf⌝ to n = ⌜nf to n⌝ ; from specification stream%get-from-inf: ⊦ ((nf from n))(m) = nf(m + n); from specification stream%test-01: ⊦ ¬ finp(⌜nf⌝ ); from specification stream-basic%sel-inf: ⊦ ⌜nf⌝ [n] = nf(n); from specification stream%get-to: m < n, ¬ # σ < ⌜n⌝ ⊦ (σ to n)[m] = σ[m]; from specification stream%inj: ⊦ ⌜m⌝ = ⌜m0⌝ ↔ m = m0; from specification nat-inf-basic%size-to: ¬ # σ < ⌜n⌝ ⊦ #(σ to n) = ⌜n⌝ ; from specification stream%size-inf: ⊦ # ⌜nf⌝ = ∞; from specification stream%from-inf: ⊦ ⌜nf⌝ from n = ⌜nf from n⌝ ; from specification stream%stream-inf-forward: ⊦ ¬ finp(σ) → (∃ nf. ⌜nf⌝ = σ); (forward) from specification stream-basic%less-inf1: ⊦ ¬ ∞ < n∞; from specification nat-inf%notfin-sizeinf: ⊦ ¬ finp(σ) → # σ = ∞; from specification stream