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