| ints0 ≠ [], 1 + # ints1 = # ints0, ints0.first + Σ ints0.rest < i + Σ ints1, ∀ ints. (∀ n. n < # ints1 → ints1[n] ≤ ints[n]) ∧ # ints1 = # ints → Σ ints1 ≤ Σ ints, ∀ n. ¬ # ints1 < n → (i ' + ints1)[n] ≤ ints0[n] ⊦ |
1 + # ints1 = # ints0, ints0.first + Σ ints0.rest < i + Σ ints1, ∀ n. ¬ # ints1 < n → (i ' + ints1)[n] ≤ ints0[n], ∀ ints. (∀ n. n < # ints1 → ints1[n] ≤ ints[n]) ∧ # ints1 = # ints → Σ ints1 ≤ Σ ints ⊦ ints0 = []