| ii(0) = 0, # σσ = ∞, ii(n0 + 1) = ii(n0) + # lf(n0), mon(σσ), ∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1), ∀ m, n. m ≤ n → ii(m) ≤ ii(n) ⊦ σσ = [], #((nf to ii(n0)) + ((nf from ii(n0)) to # lf(n0))) = #(nf to ii(n0 + 1)) ∧ (∀ n. n < #((nf to ii(n0)) + ((nf from ii(n0)) to # lf(n0))) → ((nf to ii(n0)) + ((nf from ii(n0)) to # lf(n0)))[n] = (nf to ii(n0 + 1))[n]), # σσ[0] = ∞, ∃ n. # σσ[n] = ∞ |
ii(n0 + 1) = ii(n0) + # lf(n0), # σσ = ∞, ii(0) = 0, n < ii(n0 + 1), mon(σσ), ∀ m, n. m ≤ n → ii(m) ≤ ii(n), ∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1) ⊦ ii(n0 + 1) = 0, ((nf to ii(n0)) + ((nf from ii(n0)) to # lf(n0)))[n] = nf(n), # σσ[0] = ∞, σσ = [], ∃ n. # σσ[n] = ∞
Used simplifier rules: get-infto: m < n ⊦ (nf to n)[m] = nf(m); from specification stream%le-ls-simp: ⊦ m ≤ n → (n < m ↔ false); from specification nat%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic1%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%a: ⊦ (x + y) + z = x + y + z; from specification list%size-inf-to: ⊦ #(nf to n) = n; from specification stream%len: ⊦ #(x + y) = # x + # y; from specification list