| ⊦ putByteArray([] + by ', r, i, st) = (putByteArray([], r, i, st)[r -- (i + n→i(# [])) ', byteval(by)]) |
⊦ putByteArray(by ', r, i, st) = st[r -- i ', byteval(by)]
⊦ putByteArray([], r, i, st) = st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + 0 = i], [CSIMPSEQ : ⊦ # [] = 0], [CSIMPSEQ : ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1], [CSIMPSEQ : ⊦ [] + bytes = bytes])]]