| okbytearray(r1, st), is_array(r1, putByteArray(bytes0, r1, i + 1, st)[r1 -- i ', byteval(by)]), ∀ r1, i, st. is_array(r1, putByteArray(bytes0, r1, i, st)) ∧ okbytearray(r1, st) → is_array(r1, st) ⊦ r1 = jvmref, okarray(r1, st[r1 -- _type] .type .type, st) ∧ is_arraytype(st[r1 -- _type] .type) ∧ is_typevalue(st[r1 -- _type]) ∧ r1 -- _type ∈ st |
⊦ okbytearray(r, st) ↔ okarray(r, byte_type, st)
okarray(r1, byte_type, st), is_array(r1, putByteArray(bytes0, r1, i + 1, st)[r1 -- i ', byteval(by)]), ∀ r1, i, st. is_array(r1, putByteArray(bytes0, r1, i, st)) ∧ okbytearray(r1, st) → is_array(r1, st) ⊦ r1 = jvmref, okarray(r1, st[r1 -- _type] .type .type, st) ∧ is_arraytype(st[r1 -- _type] .type) ∧ is_typevalue(st[r1 -- _type]) ∧ r1 -- _type ∈ st
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, r1)]]