| bytes = by + bytes0 ⊦ bytes = [], putByteArray(bytes, r, i, st) = (putByteArray(bytes0, r, i + 1, st)[r -- i ', byteval(by)]) |
⊦ putByteArray(by ' + bytes0, r, i, st) = (putByteArray(bytes0, r, i + 1, st)[r -- i ', byteval(by)])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1], [CSIMPSEQ : ⊦ by ' + bytes ≠ []], [CSIMPSEQ : ⊦ by + bytes = by ' + bytes])]]