| okbytearray(r1, st), ∀ r1, st, str, r, i. okbytearray(r1, st) → (cyclic(str, r, putByteArray(bytes0, r1, i, st)) ↔ cyclic(str, r, st)) ⊦ cyclic(str, r, putByteArray(bytes0, r1, i + 1, st)[r1 -- i ', byteval(by)]) ↔ cyclic(str, r, st), okbytearray(r1, putByteArray(bytes0, r1, i + 1, st)) |
⊦ okbytearray(r, st) → okbytearray(r, putByteArray(bytes, r, i, st))
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, i + 1, bytes0, r1)]]