| ⊦ j ≤ i ∧ i < j + n→i(# vals) → (addarray(r, vals, j, st)[r -- i ']) = vals[i→n(i - j)] |
⊦ addarray(r, [], i, st) = st
∀ j, i, r, st. j ≤ i ∧ i < j + n→i(# vals0) → (addarray(r, vals0, j, st)[r -- i ']) = vals0[i→n(i - j)] ⊦ j ≤ i ∧ i < j + n→i(# (val + vals0)) → (addarray(r, val + vals0, j, st)[r -- i ']) = (val + vals0)[i→n(i - j)]
[[CONCRETESIMPRULES : ([CSIMPGEN : javavalues generated by [], +;], [CSIMPSEQ : ⊦ # [] = 0], [CSIMPSEQ : ⊦ i + 0 = i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i ≤ j → (¬ ¬ j < i ↔ false)])]]