| is_referencevalue(addarray(r0, ty0, vals, st)[r -- mkfs(class, ty3, fieldvar) ']), mkfs(class, ty3, fieldvar) ' ∈ instfields((addarray(r0, ty0, vals, st)[r -- _type]) .type .class), is_obj(str, r, st), (addarray(r0, ty0, vals, st)[r -- _type]) .type ≤ ty, is_obj(str, r, addarray(r0, ty0, vals, st)), st[r -- _type] .type ≤ ty, newref(r0, st), junkrefs(str, (addarray(r0, ty0, vals, st)[r -- mkfs(class, ty3, fieldvar) ']) .refval ' + refs, ty3, addarray(r0, ty0, vals, st)), ∀ str0, ty1, r1, ty2, vals0, st0. junkrefs(str0, (addarray(r0, ty0, vals, st)[r -- mkfs(class, ty3, fieldvar) ']) .refval ' + refs, ty1, addarray(r1, ty2, vals0, st0)) ∧ newref(r1, st0) → r1 = jvmref ∨ junkrefs(str0, (addarray(r0, ty0, vals, st)[r -- mkfs(class, ty3, fieldvar) ']) .refval ' + refs, ty1, st0) ⊦ r0 = jvmref, r = jvmref, junkrefs(str, r ' + (addarray(r0, ty0, vals, st)[r -- mkfs(class, ty3, fieldvar) ']) .refval ' + refs, ty, st) |
(addarray(r0, ty0, vals, st)[r -- mkfs(class, ty3, fieldvar) ']) = refval(r2), is_referencevalue(addarray(r0, ty0, vals, st)[r -- mkfs(class, ty3, fieldvar) ']), mkfs(class, ty3, fieldvar) ' ∈ instfields((addarray(r0, ty0, vals, st)[r -- _type]) .type .class), is_obj(str, r, st), (addarray(r0, ty0, vals, st)[r -- _type]) .type ≤ ty, is_obj(str, r, addarray(r0, ty0, vals, st)), st[r -- _type] .type ≤ ty, 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) ⊦ r0 = jvmref, r = jvmref, junkrefs(str, r ' + r2 ' + refs, ty, st)
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_referencevalue(val) → ( r = val .refval ↔ val = refval(r))])], [EXTRATERMS : (addarray(r0, ty0, vals, st) [r -- mkfs(class, ty3, fieldvar) ' ], r2)]]