| type∃(str, ty), is_reftype(ty), okval(val, st[r1 -- _type] .type .type), mkfs(class, ty, fieldvar) ' ∈ statfields(class), tdname∃(str, class), initdone(class, st), jvmref -- mkfs(class, ty, fieldvar) ' ∈ st, is_referencevalue(st[jvmref -- mkfs(class, ty, fieldvar) ']), validrefval(str, st[jvmref -- mkfs(class, ty, fieldvar) '], ty, st), jvmref ∈ st ⊦ ty = void_type, is_referencevalue(val), validref(str, st[jvmref -- mkfs(class, ty, fieldvar) '] .refval, ty, st[r1 -- i ', val]) |
st[jvmref -- mkfs(class, ty, fieldvar) '] = refval(r), type∃(str, ty), is_reftype(ty), okval(val, st[r1 -- _type] .type .type), mkfs(class, ty, fieldvar) ' ∈ statfields(class), tdname∃(str, class), initdone(class, st), jvmref -- mkfs(class, ty, fieldvar) ' ∈ st, is_referencevalue(st[jvmref -- mkfs(class, ty, fieldvar) ']), validrefval(str, st[jvmref -- mkfs(class, ty, fieldvar) '], ty, st), jvmref ∈ st ⊦ ty = void_type, is_referencevalue(val), validref(str, r, ty, st[r1 -- i ', val])
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_referencevalue(val) → ( r = val .refval ↔ val = refval(r))])], [EXTRATERMS : (st[jvmref -- mkfs(class, ty, fieldvar) '], r)]]