| j < i ∨ i + n→i(# bytes) ≤ j ⊦ r0 -- sk = r -- j ', (putByteArray(bytes, r, i, st)[r0 -- sk]) = (putByteArray(bytes, r, i, st[r -- j ', val])[r0 -- sk]) |
⊦ r ≠ r0 → (putByteArray(bytes, r, j, st)[r0 -- sk]) = st[r0 -- sk]
j < i ∨ i + n→i(# bytes) ≤ j ⊦ sk = j ', (putByteArray(bytes, r, i, st)[r -- sk]) = (putByteArray(bytes, r, i, st[r -- j ', val])[r -- sk])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r0 → (st[r0 -- sk0, val][r -- sk]) = st[r -- sk]], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]