| okarray(refval(r), byte_type, st[r -- _length] .intval, st), ∀ r, st, i. okarray(refval(r), byte_type, st[r -- _length] .intval, st) → r = jvmref ∨ okarray(refval(r), byte_type, st[r -- _length] .intval, putByteArray(bytes0, r, i, st)) ⊦ r = jvmref, okarray(refval(r) .refval, byte_type, putByteArray(bytes0, r, i + 1, st)[r -- i ', byteval(by)]) ∧ (putByteArray(bytes0, r, i + 1, st)[r -- i ', byteval(by)][refval(r) .refval -- _length]) .intval = st[r -- _length] .intval |
okarray(refval(r), byte_type, st[r -- _length] .intval, st), ∀ r, st, i. okarray(refval(r), byte_type, st[r -- _length] .intval, st) → r = jvmref ∨ okarray(refval(r), byte_type, st[r -- _length] .intval, putByteArray(bytes0, r, i, st)) ⊦ r = jvmref, okarray(r, byte_type, putByteArray(bytes0, r, i + 1, st)[r -- i ', byteval(by)])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (putByteArray(bytes, r, i, st) [r0 -- _length ] ) = st[r0 -- _length]], [CSIMPSEQ : ⊦ (st[r -- i ', val][r0 -- _length] ) = st[r0 -- _length]], [CSIMPSEQ : ⊦ refval(r) .refval = r])]]