| # ints1 = # ints2, # ints2 = # ints2 ∧ (∀ n. n < # ints2 → ints1[n] = ints2[n]) → Σ ints1 = Σ ints2, ∀ n. ¬ # ints2 < n → (i0 ' + ints1)[n] = (i0 ' + ints2)[n] ⊦ Σ ints1 = Σ ints2 |
# ints1 = # ints2, n < # ints2, ∀ n. ¬ # ints2 < n → (i0 ' + ints1)[n] = (i0 ' + ints2)[n] ⊦ ints1[n] = ints2[n], Σ ints1 = Σ ints2, ints2 = []
Used simplifier rules: l: ⊦ # ints = 0 ↔ ints = []; from specification list-data[intlista]%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic1