| ∀ by, r, i, st. putByteArray(bytes0 + by ', r, i, st) = (putByteArray(bytes0, r, i, st)[r -- (i + n→i(# bytes0)) ', byteval(by)]) ⊦ putByteArray((by0 + bytes0) + by ', r, i, st) = (putByteArray(by0 + bytes0, r, i, st)[r -- (i + n→i(# (by0 + bytes0))) ', byteval(by)]) |
∀ by, r, i, st. putByteArray(bytes0 + by ', r, i, st) = (putByteArray(bytes0, r, i, st)[r -- (i + n→i(# bytes0)) ', byteval(by)]) ⊦ putByteArray((by0 ' + bytes0) + by ', r, i, st) = (putByteArray(by0 ' + bytes0, r, i, st)[r -- ((1 + n→i(# bytes0)) + i) ', byteval(by)])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ n→i(m + n) = n→i(m) + n→i(n)], [CSIMPSEQ : ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1], [CSIMPSEQ : ⊦ # by ' = 0 +1], [CSIMPSEQ : ⊦ # (bytes + bytes0) = # bytes + # bytes0], [CSIMPSEQ : ⊦ by + bytes = by ' + bytes])]]