| 0 ≤ i, i→n(i) ≤ # vals1, ∀ val, st, ty, r, i, vals0. # vals0 < # vals1 + 1 → (true → (0 ≤ i ∧ i→n(i) < # vals0 → (addarray(r, ty, vals0, st)[r -- i ', val]) = addarray(r, ty, vals0[i→n(i), val], st))) ⊦ (addarray(r, ty, vals1, st)[r -- i ', val][r -- n→i(# vals1) ', val0][r -- _length, intval(n→i(# vals1) + 1)]) = addarray(r, ty, (vals1 + val0 ')[i→n(i), val], st), i = n→i(# vals1) |
⊦ n < # vals → (vals + val ')[n, val0] = vals[n, val0] + val '
¬ i→n(i) < # vals1, 0 ≤ i, i→n(i) ≤ # vals1, ∀ val, st, ty, r, i, vals0. # vals0 < # vals1 + 1 → (true → (0 ≤ i ∧ i→n(i) < # vals0 → (addarray(r, ty, vals0, st)[r -- i ', val]) = addarray(r, ty, vals0[i→n(i), val], st))) ⊦ (addarray(r, ty, vals1, st)[r -- i ', val][r -- n→i(# vals1) ', val0][r -- _length, intval(n→i(# vals1) + 1)]) = addarray(r, ty, (vals1 + val0 ')[i→n(i), val], st), i = n→i(# vals1)
i→n(i) < # vals1, 0 ≤ i, i→n(i) ≤ # vals1, ∀ val, st, ty, r, i, vals0. # vals0 < # vals1 + 1 → (true → (0 ≤ i ∧ i→n(i) < # vals0 → (addarray(r, ty, vals0, st)[r -- i ', val]) = addarray(r, ty, vals0[i→n(i), val], st))) ⊦ (addarray(r, ty, vals1, st)[r -- i ', val][r -- n→i(# vals1) ', val0][r -- _length, intval(n→i(# vals1) + 1)]) = addarray(r, ty, vals1[i→n(i), val] + val0 ', st), i = n→i(# vals1)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (val, i→n(i), val0, vals1)]]