| finp(σ), # σ = ⌜ii(n)⌝ ∧ (∀ m. n ≤ m → lf(m) = [] ∧ ii(m) = ii(n)), ii(0) = 0, # σσ = ∞, mon(σσ), ∀ n. ii(n + 1) = ii(n) + # lf(n) ∧ ¬ # σ < ⌜ii(n + 1)⌝ ∧ (σ from ii(n)) to # lf(n) = ⌜lf(n)⌝ , ∀ m, n. m ≤ n → ii(m) ≤ ii(n), ∀ n. σσ[n + 1] = σσ[n] + ⌜lf(n)⌝ ⊦ σσ = [], ∃ n. # σσ[n] = ∞, ∃ σ. (∀ n. ∃ σ1. σσ[n] + σ1 = σ) ∧ (∀ m. ¬ # σ < ⌜m⌝ → (∃ n, σ1. (σ to m) + σ1 = σσ[n])) |
ii(0) = 0, # σσ = ∞, # x = ii(n), mon(σσ), ∀ m. n ≤ m → lf(m) = [] ∧ ii(m) = ii(n), ∀ m, n. m ≤ n → ii(m) ≤ ii(n), ∀ n. σσ[n + 1] = σσ[n] + ⌜lf(n)⌝ , ∀ n0. ii(n0 + 1) = ii(n0) + # lf(n0) ∧ ¬ ii(n) < ii(n0 + 1) ∧ (x from ii(n0)) to # lf(n0) = lf(n0) ⊦ σσ = [], ∃ n. # σσ[n] = ∞, ∃ σ. (∀ n. ∃ σ1. σσ[n] + σ1 = σ) ∧ (∀ m. ¬ # σ < ⌜m⌝ → (∃ n, σ1. (σ to m) + σ1 = σσ[n]))
Used simplifier rules: inj-02: ⊦ ⌜x⌝ = ⌜x0⌝ ↔ x = x0; from specification stream-basic%to-fin: ⊦ ⌜x⌝ to n = ⌜x to n⌝ ; from specification stream%from-fin: ⊦ ⌜x⌝ from n = ⌜x from n⌝ ; from specification stream%less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; from specification nat-inf%test-02: ⊦ finp(⌜x⌝ ); from specification stream-basic%inj: ⊦ ⌜m⌝ = ⌜m0⌝ ↔ m = m0; from specification nat-inf-basic%size-fin: ⊦ # ⌜x⌝ = ⌜# x⌝ ; from specification stream%stream-fin-forward: ⊦ finp(σ) → (∃ x. ⌜x⌝ = σ); (forward) from specification stream-basic