| ¬ n1 < # lf(n0), (σ from ii(n0)) to # nextli0(lf(n0)) = ⌜nextli0(lf(n0))⌝ , ii(0) = 0, lf(0) = [], # lf(n0) = ii(n0), n1 < ii(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)), ∀ n2. n2 < ii(n0) → lf(n0)[n2] = σ[n2] ⊦ (lf(n0) + nextli0(lf(n0)))[n1] = σ[n1], ii(n0) + # nextli0(lf(n0)) = 0, # σ < ⌜ii(n0)⌝ + ⌜# nextli0(lf(n0))⌝ |
# lf(n0) = ii(n0), lf(0) = [], ii(0) = 0, (σ from ii(n0)) to # nextli0(lf(n0)) = ⌜nextli0(lf(n0))⌝ , ii(n0) ≤ n1, n1 < ii(n0) + # nextli0(lf(n0)), ∀ n2. n2 < ii(n0) → lf(n0)[n2] = σ[n2], (finp(σ) ⊃ # σ = ⌜ii(n)⌝ ∧ (∀ m. n ≤ m → nextli0(lf(m)) = [] ∧ ii(m) = ii(n));∀ n. ∃ m. ii(m) ≤ n ∧ n < ii(m + 1)), ∀ x. nextli(x) = x + nextli0(x), ∀ n. lf(n + 1) = nextli(lf(n)), ∀ m, n. m ≤ n → ii(m) ≤ ii(n), ∀ n. ii(n + 1) = ii(n) + # nextli0(lf(n)) ∧ ¬ # σ < ⌜ii(n + 1)⌝ ∧ (σ from ii(n)) to # nextli0(lf(n)) = ⌜nextli0(lf(n))⌝ ⊦ nextli0(lf(n0))[n1 - ii(n0)] = σ[n1], ii(n0) + # nextli0(lf(n0)) = 0, nextli0(lf(n0)) = [], # σ < ⌜ii(n0)⌝ + ⌜# nextli0(lf(n0))⌝
Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%l: ⊦ # x = 0 ↔ x = []; from specification list-data%l-01: ⊦ m < m + n ↔ n ≠ 0; from specification nat-basic2%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%lels: ⊦ ¬ m < n ↔ n ≤ m; from specification nat%a: ⊦ (x + y) + z = x + y + z; from specification list%get-append-grt: ⊦ ¬ n < # x → (x + y)[n] = y[n - # x]; from specification list-del