| n→i(# bytes) = st[r -- _length] .intval ⊦ getbytearray(r, 0, (putByteArray(bytes, r, st)[r -- _length]) .intval, putByteArray(bytes, r, st)) = bytes |
⊦ putByteArray(bytes, r, st) = putByteArray(bytes, r, 0, st)
⊦ (putByteArray(bytes, r, i, st)[r0 -- _length]) = st[r0 -- _length]
⊦ j = n→i(# bytes) → getbytearray(r, i, j, putByteArray(bytes, r, i, st)) = bytes
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, r, bytes)]]