| ii(0) = 0, lf(0) = [], lf(n0) = (σ to ii(n0)).l, (σ from ii(n0)) to # nextnli0(lf(n0), n0) = ⌜nextnli0(lf(n0), n0)⌝ , ∀ m, n. m ≤ n → ii(m) ≤ ii(n), (finp(σ) ⊃ # σ = ⌜ii(n)⌝ ∧ (∀ m. n ≤ m → nextnli0(lf(m), m) = [] ∧ ii(m) = ii(n));∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1)) ⊦ #(lf(n0) + nextnli0(lf(n0), n0)) = # (σ to ii(n0) + # nextnli0(lf(n0), n0)).l ∧ (∀ n. n < #(lf(n0) + nextnli0(lf(n0), n0)) → (lf(n0) + nextnli0(lf(n0), n0))[n] = (σ to ii(n0) + # nextnli0(lf(n0), n0)).l[n]), # σ < ⌜ii(n0)⌝ + ⌜# nextnli0(lf(n0), n0)⌝ |
ii(0) = 0, lf(0) = [], lf(n0) = (σ to ii(n0)).l, (σ from ii(n0)) to # nextnli0(lf(n0), n0) = ⌜nextnli0(lf(n0), n0)⌝ , ∀ m, n. m ≤ n → ii(m) ≤ ii(n), (finp(σ) ⊃ # σ = ⌜ii(n)⌝ ∧ (∀ m. n ≤ m → nextnli0(lf(m), m) = [] ∧ ii(m) = ii(n));∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1)) ⊦ # σ < ⌜ii(n0)⌝ + ⌜# nextnli0(lf(n0), n0)⌝ , # lf(n0) = ii(n0) ∧ (n1 < # lf(n0) + # nextnli0(lf(n0), n0) → (lf(n0) + nextnli0(lf(n0), n0))[n1] = (σ to ii(n0) + # nextnli0(lf(n0), n0)).l[n1])
Used simplifier rules: eq-01: ⊦ m + n = m + n0 ↔ n = n0; from specification nat-basic2%size-to-02: ¬ # σ < ⌜n⌝ ⊦ # (σ to n).l = n; from specification stream%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%a: ⊦ (x + y) + z = x + y + z; from specification list%len: ⊦ #(x + y) = # x + # y; from specification list