⊦ putByteArray(bytes, r, st) = putByteArray(bytes, r, 0, st)
⊦ (putByteArray(bytes, r, 0, st)[r0 -- fs ']) = st[r0 -- fs ']
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, r, bytes)]]