⊦ okbytearray(r, st) → okbytearray(r, putByteArray(bytes, r, i, st))
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, 0, bytes, r1)]]