| ⊦ putArray([] + val ', r, i, st) = (putArray([], r, i, st)[r -- (i + n→i(# [])) ', val]) |
⊦ putArray([], r, i, st) = st
⊦ putArray(val ', r, i, st) = st[r -- i ', val]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + 0 = i], [CSIMPSEQ : ⊦ # [] = 0], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1], [CSIMPSEQ : ⊦ [] + vals = vals])]]