| r0 -- fs ' ≠ r -- i ', ∀ r, i, st, r0, fs, val. putArray(vals0, r, i, st[r0 -- fs ', val]) = (putArray(vals0, r, i, st)[r0 -- fs ', val]) ⊦ (putArray(vals0, r, i + 1, st[r0 -- fs ', val])[r -- i ', val0]) = (putArray(vals0, r, i + 1, st)[r0 -- fs ', val][r -- i ', val0]) |
∀ r, i, st, r0, fs, val. putArray(vals0, r, i, st[r0 -- fs ', val]) = (putArray(vals0, r, i, st)[r0 -- fs ', val]) ⊦ (putArray(vals0, r, i + 1, st[r0 -- fs ', val])[r -- i ', val0]) = (putArray(vals0, r, i + 1, st)[r0 -- fs ', val][r -- i ', val0])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ fs ' ≠ i '], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]