| val .intval ' + intvalues(vals0) ≠ [] ∧ m ≠ 0, m ≤ # vals0, ∀ m0. ¬ # vals0 ≤ m0 → (intvalues(vals0)[m0]) = vals0[m0] .intval ⊦ ((val .intval ' + intvalues(vals0)) .rest)[m - 1] = (val ' + vals0)[m] .intval |
m ≤ # vals0, ∀ m0. ¬ # vals0 ≤ m0 → (intvalues(vals0)[m0]) = vals0[m0] .intval ⊦ m = 0, (intvalues(vals0)[m - 1]) = (val ' + vals0)[m] .intval
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i ' + ints ≠ []], [CSIMPSEQ : ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1], [CSIMPSEQ : ⊦ (i ' + ints) .rest = ints])]]