| ii(0) = 0, lf(0) = [], lf(n0) = (σ to ii(n0)).l, lf(n0 + 1) = nextli(lf(n0)), ii(n0 + 1) = ii(n0) + # nextli0(lf(n0)), (σ from ii(n0)) to # nextli0(lf(n0)) = ⌜nextli0(lf(n0))⌝ , nextli(lf(n0)) = lf(n0) + nextli0(lf(n0)), ∀ n. ii(n + 1) = ii(n) + # nextli0(lf(n)) ∧ ¬ # σ < ⌜ii(n + 1)⌝ ∧ (σ from ii(n)) to # nextli0(lf(n)) = ⌜nextli0(lf(n))⌝ , ∀ m, n. m ≤ n → ii(m) ≤ ii(n), ∀ n. lf(n + 1) = nextli(lf(n)), ∀ x. nextli(x) = x + nextli0(x), (finp(σ) ⊃ # σ = ⌜ii(n)⌝ ∧ (∀ m. n ≤ m → nextli0(lf(m)) = [] ∧ ii(m) = ii(n));∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1)) ⊦ # nextli(lf(n0)) = # (σ to ii(n0 + 1)).l ∧ (∀ n. n < # nextli(lf(n0)) → nextli(lf(n0))[n] = (σ to ii(n0 + 1)).l[n]), # σ < ⌜ii(n0 + 1)⌝ |
ii(0) = 0, lf(0) = [], lf(n0) = (σ to ii(n0)).l, lf(n0 + 1) = nextli(lf(n0)), ii(n0 + 1) = ii(n0) + # nextli0(lf(n0)), (σ from ii(n0)) to # nextli0(lf(n0)) = ⌜nextli0(lf(n0))⌝ , nextli(lf(n0)) = lf(n0) + nextli0(lf(n0)), ∀ n. ii(n + 1) = ii(n) + # nextli0(lf(n)) ∧ ¬ # σ < ⌜ii(n + 1)⌝ ∧ (σ from ii(n)) to # nextli0(lf(n)) = ⌜nextli0(lf(n))⌝ , ∀ m, n. m ≤ n → ii(m) ≤ ii(n), ∀ n. lf(n + 1) = nextli(lf(n)), ∀ x. nextli(x) = x + nextli0(x), (finp(σ) ⊃ # σ = ⌜ii(n)⌝ ∧ (∀ m. n ≤ m → nextli0(lf(m)) = [] ∧ ii(m) = ii(n));∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1)) ⊦ # σ < ⌜ii(n0 + 1)⌝ , # nextli(lf(n0)) = ii(n0 + 1) ∧ (n1 < # nextli(lf(n0)) → nextli(lf(n0))[n1] = σ[n1])
Used simplifier rules: get-to-02: m < n, ¬ # σ < ⌜n⌝ ⊦ (σ to n).l[m] = σ[m]; from specification stream%le-ls-simp: ⊦ m ≤ n → (n < m ↔ false); from specification nat%l: ⊦ # x = 0 ↔ x = []; from specification list-data%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic1%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%size-to-02: ¬ # σ < ⌜n⌝ ⊦ # (σ to n).l = n; from specification stream