| okbytearray(r, st), is_array(str, r0, putByteArray(bytes, r, i, st)), st[r0 -- _type] .type ≤ ty, refs0 = [] ∨ 0 ≤ i0 ∧ i0 < st[r0 -- _length] .intval ∧ is_referencevalue(putByteArray(bytes, r, i, st)[r0 -- i0 ']) ∧ refs0 .first = (putByteArray(bytes, r, i, st)[r0 -- i0 ']) .refval ∧ validrefs(str, refs0, st[r0 -- _type] .type .type, putByteArray(bytes, r, i, st)), ∀ i, bytes, ty, r0, str, st, r, refs. # refs < # refs0 → (okbytearray(r, st) ∧ validrefs(str, r0 ' + refs, ty, putByteArray(bytes, r, i, st)) → junkref(str, r0, st) ∨ validrefs(str, r0 ' + refs, ty, st)) ⊦ r0 = r, r0 = jvmref, validrefs(str, r0 ' + refs0, ty, st), junkref(str, r0, st) |
okbytearray(r, st), is_array(str, r0, putByteArray(bytes, r, i, st)), st[r0 -- _type] .type ≤ ty, refs0 = [] ∨ 0 ≤ i0 ∧ i0 < st[r0 -- _length] .intval ∧ is_referencevalue(st[r0 -- i0 ']) ∧ refs0 .first = st[r0 -- i0 '] .refval ∧ validrefs(str, refs0, st[r0 -- _type] .type .type, putByteArray(bytes, r, i, st)), ∀ i, bytes, ty, r0, str, st, r, refs. # refs < # refs0 → (okbytearray(r, st) ∧ validrefs(str, r0 ' + refs, ty, putByteArray(bytes, r, i, st)) → junkref(str, r0, st) ∨ validrefs(str, r0 ' + refs, ty, st)) ⊦ r0 = r, r0 = jvmref, validrefs(str, r0 ' + refs0, ty, st), junkref(str, r0, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r0 → (putByteArray(bytes, r, j, st) [r0 -- sk ] ) = st[r0 -- sk]])]]