| acc + refs0 = st[r -- mkfs(class, ty0, fieldvar) '] .refval ' + refs, is_obj(str, r, st), mkfs(class, ty0, fieldvar) ' ∈ instfields(st[r -- _type] .type .class), is_referencevalue(st[r -- mkfs(class, ty0, fieldvar) ']), junkrefs(str, acc + refs0, ty0, st), st[r -- _type] .type ≤ ty, ∀ str, refs0, ty, st. junkrefs(str, acc + refs0, ty, st) → junkrefs(str, acc, ty, st) ∨ validrefs(str, acc, ty, st) ⊦ r = jvmref, acc + refs0 = [], junkrefs(str, r ' + acc, ty, st), validrefs(str, r ' + acc, ty, st), ¬ st[r -- mkfs(class, ty0, fieldvar) '] .refval ∈ acc ∧ ¬ st[r -- mkfs(class, ty0, fieldvar) '] .refval ∈ refs0 |
st[r -- mkfs(class, ty0, fieldvar) '] = refval(r0), acc + refs0 = r0 ' + refs, is_obj(str, r, st), mkfs(class, ty0, fieldvar) ' ∈ instfields(st[r -- _type] .type .class), is_referencevalue(st[r -- mkfs(class, ty0, fieldvar) ']), junkrefs(str, acc + refs0, ty0, st), st[r -- _type] .type ≤ ty, ∀ str, refs0, ty, st. junkrefs(str, acc + refs0, ty, st) → junkrefs(str, acc, ty, st) ∨ validrefs(str, acc, ty, st) ⊦ r = jvmref, acc + refs0 = [], junkrefs(str, r ' + acc, ty, st), validrefs(str, r ' + acc, ty, st), ¬ r0 ∈ acc ∧ ¬ r0 ∈ refs0
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_referencevalue(val) → ( r = val .refval ↔ val = refval(r))])], [EXTRATERMS : (st[r -- mkfs(class, ty0, fieldvar) '], r0)]]