| ∀ st, ty, r, vals0. # vals0 < # (vals1 + val ') → (true → putArray(vals0, r, 0, addarray(r, initial_value(ty), n→i(# vals0), st)) = addarray(r, vals0, 0, st)) ⊦ putArray(vals1, r, 0, addarray(r, initial_value(ty), n→i(# vals1), st)[r -- n→i(# vals1) ', initial_value(ty)][r -- (0 + n→i(# vals1)) ', val]) = (addarray(r, vals1, 0, st)[r -- n→i(# vals1) ', val]) |
∀ st, ty, r, vals0. # vals0 < # (vals1 + val ') → (true → putArray(vals0, r, 0, addarray(r, initial_value(ty), n→i(# vals0), st)) = addarray(r, vals0, 0, st)) ⊦ putArray(vals1, r, 0, addarray(r, initial_value(ty), n→i(# vals1), st)[r -- n→i(# vals1) ', val]) = (addarray(r, vals1, 0, st)[r -- n→i(# vals1) ', val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (st[rk, val][rk, val0]) = st[rk, val0]], [CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + 0 = i])]]