| (r -- _type) .ref ≠ r0, (addarray(r0, ty0, vals, st)[r -- i ']) = refval(r2), junkrefs(str, r2 ' + refs, st[r -- _type] .type .type, addarray(r0, ty0, vals, st)), i < (addarray(r0, ty0, vals, st)[r -- _length]) .intval, is_array(str, r, st), st[r -- _type] .type ≤ ty, is_array(str, r, addarray(r0, ty0, vals, st)), 0 < (addarray(r0, ty0, vals, st)[r -- _length]) .intval, 0 ≤ i, st[r -- _type] .type ≤ ty, newref(r0, st), ∀ str0, ty1, r1, ty2, vals0, st0. junkrefs(str0, r2 ' + refs, ty1, addarray(r1, ty2, vals0, st0)) ∧ newref(r1, st0) → r1 = jvmref ∨ junkrefs(str0, r2 ' + refs, ty1, st0) ⊦ r0 = jvmref, r = jvmref, junkrefs(str, r ' + r2 ' + refs, ty, st) |
st[r -- i '] = refval(r2), 0 ≤ i, st[r -- _type] .type ≤ ty, newref(r0, st), junkrefs(str, r2 ' + refs, st[r -- _type] .type .type, addarray(r0, ty0, vals, st)), i < st[r -- _length] .intval, is_array(str, r, st), is_array(str, r, addarray(r0, ty0, vals, st)), 0 < st[r -- _length] .intval, ∀ str0, ty1, r1, ty2, vals0, st0. junkrefs(str0, r2 ' + refs, ty1, addarray(r1, ty2, vals0, st0)) ∧ newref(r1, st0) → r1 = jvmref ∨ junkrefs(str0, r2 ' + refs, ty1, st0) ⊦ r0 = jvmref, r = jvmref, r = r0, junkrefs(str, r ' + r2 ' + refs, ty, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j], [CSIMPSEQ : ⊦ r ≠ r0 → (addarray(r, ty, vals, st) [r0 -- sk ] ) = st[r0 -- sk]], [CSIMPSEQ : ⊦ (r -- sk) .ref = r])]]