| (r -- _type) .ref ≠ r0, (addarray(r0, ty0, vals, st)[r -- mkfs(class, ty3, fieldvar) ']) = refval(r2), junkrefs(str, r2 ' + refs, ty3, addarray(r0, ty0, vals, st)), newref(r0, st), st[r -- _type] .type ≤ ty, is_obj(str, r, addarray(r0, ty0, vals, st)), st[r -- _type] .type ≤ ty, is_obj(str, r, st), mkfs(class, ty3, fieldvar) ' ∈ instfields(st[r -- _type] .type .class), ∀ 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) ⊦ r = jvmref, r0 = jvmref, mkfs(class, ty3, fieldvar) ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- mkfs(class, ty3, fieldvar) ']) ∧ r2 = st[r -- mkfs(class, ty3, fieldvar) '] .refval ∧ junkrefs(str, st[r -- mkfs(class, ty3, fieldvar) '] .refval ' + refs, ty3, st) |
st[r -- mkfs(class, ty3, fieldvar) '] = refval(r2), mkfs(class, ty3, fieldvar) ' ∈ instfields(st[r -- _type] .type .class), is_obj(str, r, st), st[r -- _type] .type ≤ ty, is_obj(str, r, addarray(r0, ty0, vals, st)), newref(r0, st), junkrefs(str, r2 ' + refs, ty3, addarray(r0, ty0, vals, 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) ⊦ r = r0, r0 = jvmref, r = jvmref, junkrefs(str, r2 ' + refs, ty3, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ is_referencevalue(refval(r))], [CSIMPSEQ : ⊦ r ≠ r0 → (addarray(r, ty, vals, st) [r0 -- sk ] ) = st[r0 -- sk]], [CSIMPSEQ : ⊦ (r -- sk) .ref = r])]]