| (putByteArray(bytes, r, i, st)[r -- i0 ']) = refval(r1), validrefs(str, r1 ' + refs1, st[r -- _type] .type .type, putByteArray(bytes, r, i, st)), i0 < st[r -- _length] .intval, st[r -- _type] .type ≤ ty, is_array(str, r, putByteArray(bytes, r, i, st)), okarray(r, byte_type, st), is_array(str, r, st), 0 < st[r -- _length] .intval, 0 ≤ i0, ∀ i1, bytes0, ty, r0, str, st0, r2, refs. # refs < # (r1 + refs1) → ( okbytearray(r2, st0) ∧ validrefs(str, r0 ' + refs, ty, putByteArray(bytes0, r2, i1, st0)) → junkref(str, r0, st0) ∨ validrefs(str, r0 ' + refs, ty, st0)) ⊦ r = jvmref, junkref(str, r, st), is_referencevalue(st[r -- i0 ']) ∧ r1 = st[r -- i0 '] .refval ∧ validrefs(str, st[r -- i0 '] .refval ' + refs1, st[r -- _type] .type .type, st) |
⊦ validrefs(str, refs, byte_type, st) ↔ refs = [] ∨ refs = jvmref '
(putByteArray(bytes, r, i, st)[r -- i0 ']) = refval(r1), is_array(str, r, putByteArray(bytes, r, i, st)), okarray(r, byte_type, st), 0 < st[r -- _length] .intval, 0 ≤ i0, validrefs(str, r1 ' + refs1, byte_type, putByteArray(bytes, r, i, st)), i0 < st[r -- _length] .intval, mkarraytype(byte_type) ≤ ty, r ∈ st, ∀ i1, bytes0, ty, r0, str, st0, r2, refs. # refs < # (r1 + refs1) → ( okbytearray(r2, st0) ∧ validrefs(str, r0 ' + refs, ty, putByteArray(bytes0, r2, i1, st0)) → junkref(str, r0, st0) ∨ validrefs(str, r0 ' + refs, ty, st0)) ⊦ r = jvmref, junkref(str, r, st), is_referencevalue(st[r -- i0 ']) ∧ r1 = st[r -- i0 '] .refval ∧ st[r -- i0 '] .refval ' + refs1 = jvmref '
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ okarray(r, ty, st) → r ≠ jvmref ∧ r ∈ st], [CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ r ' + refs ≠ []], [CSIMPSEQ : ⊦ okarray(r, byte_type, st) → is_array(str, r, st)], [CSIMPSEQ : ⊦ mkarraytype(ty) .type = ty], [CSIMPSEQ : ⊦ okarray(r, byte_type, st) → st[r -- _type] .type = mkarraytype(byte_type)])]]