| ⌜n1⌝ < #(σσ[0] + ⌜nf⌝ to n0 + n), # σσ = ∞, ii(0) = 0, # σσ[0] = ⌜n⌝ , σσ[m0] = σσ[0] + ⌜nf to ii(m0)⌝ , n1 < ii(m0 + 1) + n, mon(σσ), n0 < ii(m0 + 1), ii(m0) ≤ n0, ii(m0) < ii(m0 + 1), n1 < n, ∀ n. ii(n + 1) = ii(n) + # lf(n) ∧ (nf from ii(n)) to # lf(n) = lf(n), ∀ n. σσ[n + 1] = σσ[n] + ⌜lf(n)⌝ , ∀ m, n. m ≤ n → ii(m) ≤ ii(n) ⊦ (σσ[0] + ⌜nf⌝ to n0 + n)[n1] = σσ[0][n1], ii(m0 + 1) + n = 0, σσ = [], ii(m0 + 1) = 0, n = 0, ∃ n. # σσ[n] = ∞ |
# σσ = ∞, ii(0) = 0, # σσ[0] = ⌜n⌝ , σσ[m0] = σσ[0] + ⌜nf to ii(m0)⌝ , n1 < ii(m0 + 1) + n, mon(σσ), n0 < ii(m0 + 1), ii(m0) ≤ n0, ii(m0) < ii(m0 + 1), n1 < n, ∀ n. ii(n + 1) = ii(n) + # lf(n) ∧ (nf from ii(n)) to # lf(n) = lf(n), ∀ n. σσ[n + 1] = σσ[n] + ⌜lf(n)⌝ , ∀ m, n. m ≤ n → ii(m) ≤ ii(n) ⊦ ii(m0 + 1) + n = 0, σσ = [], ii(m0 + 1) = 0, n = 0, (σσ[0] + ⌜nf⌝ )[n1] = σσ[0][n1], ∃ n. # σσ[n] = ∞
Used simplifier rules: ls-lsadd: ⊦ m < n → ⌜m⌝ < ⌜n⌝ + n∞0; from specification nat-inf%size-to: ¬ # σ < ⌜n⌝ ⊦ #(σ to n) = ⌜n⌝ ; from specification stream%get-to: m < n, ¬ # σ < ⌜n⌝ ⊦ (σ to n)[m] = σ[m]; from specification stream%l-02: ⊦ ¬ m + n < m; from specification nat-basic2%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%less-inf1: ⊦ ¬ ∞ < n∞; from specification nat-inf%c: ⊦ m + n = n + m; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%add-fin: ⊦ ⌜m + n⌝ = ⌜m⌝ + ⌜n⌝ ; from specification nat-inf%append-assoc: ⊦ (σ + σ1) + σ2 = σ + σ1 + σ2; from specification stream%add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf%add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf%add-all-inf: ⊦ n∞ + ∞ = ∞; from specification nat-inf%size-inf: ⊦ # ⌜nf⌝ = ∞; from specification stream%size-append: ⊦ #(σ + σ1) = # σ + # σ1; from specification stream