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