| # lf(n0) = ii(n0), lf(0) = [], ii(0) = 0, #((σ from ii(n0)) to # nextnli0(lf(n0), n0)) = # ⌜nextnli0(lf(n0), n0)⌝ ∧ (∀ n. ⌜n⌝ < #((σ from ii(n0)) to # nextnli0(lf(n0), n0)) → ((σ from ii(n0)) to # nextnli0(lf(n0), n0))[n] = ⌜nextnli0(lf(n0), n0)⌝ [n]), n1 < ii(n0) + # nextnli0(lf(n0), n0), ∀ n2. n2 < ii(n0) → lf(n0)[n2] = σ[n2], (finp(σ) ⊃ # σ = ⌜ii(n)⌝ ∧ (∀ m. n ≤ m → nextnli0(lf(m), m) = [] ∧ ii(m) = ii(n));∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1)), ∀ m, n. m ≤ n → ii(m) ≤ ii(n) ⊦ ii(n0) + # nextnli0(lf(n0), n0) = 0, (lf(n0) + nextnli0(lf(n0), n0))[n1] = σ[n1], # σ < ⌜ii(n0)⌝ + ⌜# nextnli0(lf(n0), n0)⌝ |
#((σ from ii(n0)) to # nextnli0(lf(n0), n0)) = ⌜# nextnli0(lf(n0), n0)⌝ , ii(0) = 0, lf(0) = [], # lf(n0) = ii(n0), n1 < ii(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)), ∀ n2. n2 < ii(n0) → lf(n0)[n2] = σ[n2], ∀ n2. n2 < # nextnli0(lf(n0), n0) → ((σ from ii(n0)) to # nextnli0(lf(n0), n0))[n2] = nextnli0(lf(n0), n0)[n2] ⊦ (lf(n0) + nextnli0(lf(n0), n0))[n1] = σ[n1], ii(n0) + # nextnli0(lf(n0), n0) = 0, # σ < ⌜ii(n0)⌝ + ⌜# nextnli0(lf(n0), n0)⌝
Used simplifier rules: less-fin: ⊦ ⌜m⌝ < ⌜n⌝ ↔ m < n; from specification nat-inf%sel-fin: ⊦ ⌜x⌝ [n] = x[n]; from specification stream%size-fin: ⊦ # ⌜x⌝ = ⌜# x⌝ ; from specification stream