| ii(0) = 0, ii(m + 1) = ii(m) + # lf(m), (nf from ii(m)) to # lf(m) = lf(m), m < n0, ∀ m. m < n0 → ii(m + 1) = ii(m) + # lf(m) ∧ (nf from ii(m)) to # lf(m) = lf(m) ∧ (∀ m0. m0 ≤ m → ii(m0) ≤ ii(m)), ∀ m0. m0 ≤ m → ii(m0) ≤ ii(m) ⊦ #((λ m0. (ii(m) + m0 < ii(n0) + # lf(n0) ∧ ¬ ii(m) + m0 < ii(n0) ⊃ lf(n0)[ii(m) + m0 - ii(n0)];nf(ii(m) + m0))) to # lf(m)) = # lf(m) ∧ (∀ n. n < #((λ m0. (ii(m) + m0 < ii(n0) + # lf(n0) ∧ ¬ ii(m) + m0 < ii(n0) ⊃ lf(n0)[ii(m) + m0 - ii(n0)];nf(ii(m) + m0))) to # lf(m)) → ((λ m0. (ii(m) + m0 < ii(n0) + # lf(n0) ∧ ¬ ii(m) + m0 < ii(n0) ⊃ lf(n0)[ii(m) + m0 - ii(n0)];nf(ii(m) + m0))) to # lf(m))[n] = lf(m)[n]), m = n0 + 1, n0 = m, n0 = 0 |
(nf from ii(m)) to # lf(m) = lf(m), ii(m + 1) = ii(m) + # lf(m), ii(0) = 0, n < # lf(m), m < n0, ∀ m0. m0 ≤ m → ii(m0) ≤ ii(m), ∀ m. m < n0 → ii(m + 1) = ii(m) + # lf(m) ∧ (nf from ii(m)) to # lf(m) = lf(m) ∧ (∀ m0. m0 ≤ m → ii(m0) ≤ ii(m)) ⊦ (ii(m) + n < ii(n0) + # lf(n0) ∧ ¬ ii(m) + n < ii(n0) ⊃ lf(n0)[ii(m) + n - ii(n0)];nf(ii(m) + n)) = lf(m)[n], n0 = 0, n0 = m, m = n0 + 1, lf(m) = []
Used simplifier rules: l: ⊦ # x = 0 ↔ x = []; from specification list-data%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%get-infto: m < n ⊦ (nf to n)[m] = nf(m); from specification stream%ls-le-simp: ⊦ m < n → (n ≤ m ↔ false); from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%size-inf-to: ⊦ #(nf to n) = n; from specification stream