| # lf(n0) = # (σ to ii(n0)).l, ii(0) = 0, lf(n0 + 1) = lf(n0) + nextli0(lf(n0)), lf(0) = [], (σ from ii(n0)) to # nextli0(lf(n0)) = ⌜nextli0(lf(n0))⌝ , (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))⌝ , ∀ n. n < # lf(n0) → lf(n0)[n] = (σ to ii(n0)).l[n] ⊦ # σ < ⌜ii(n0)⌝ + ⌜# nextli0(lf(n0))⌝ , # lf(n0) = ii(n0) ∧ (n1 < # lf(n0) + # nextli0(lf(n0)) → lf(n0 + 1)[n1] = σ[n1]) |
# lf(n0) = ii(n0), ii(0) = 0, lf(n0 + 1) = lf(n0) + nextli0(lf(n0)), lf(0) = [], (σ from ii(n0)) to # nextli0(lf(n0)) = ⌜nextli0(lf(n0))⌝ , n1 < ii(n0) + # nextli0(lf(n0)), (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], ∀ 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))⌝ ⊦ lf(n0 + 1)[n1] = σ[n1], # σ < ⌜ii(n0)⌝ + ⌜# nextli0(lf(n0))⌝
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%m < n, ¬ # σ < ⌜n⌝ ⊦ (σ to n).l[m] = σ[m]; (s)% ⊦ m ≤ n → (n < m ↔ false); (s)% ⊦ # x = 0 ↔ x = []; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat% ⊦ m < n ↔ ¬ n ≤ m; (ss)%¬ # σ < ⌜n⌝ ⊦ # (σ to n).l = n; (s)%add-comm: ⊦ n∞1 + n∞2 = n∞2 + n∞1; from specification nat-inf%add-assoc: ⊦ (n∞ + n∞1) + n∞2 = n∞ + n∞1 + n∞2; from specification nat-inf%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ ¬ m + n < m; (s)% ⊦ ⌜n⌝ + ⌜m⌝ < ⌜n0⌝ ↔ n + m < n0; (s)%lels-trans: ⊦ ¬ n∞1 < n∞ ∧ n∞1 < n∞2 → n∞ < n∞2; (forward) from specification nat-inf