| 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]) |
⊦ validrefval(str, refval(r), ty, st) ↔ validref(str, r, ty, st)
st[jvmref -- mkfs(class, ty, fieldvar) '] = refval(r), jvmref -- mkfs(class, ty, fieldvar) ' ∈ st, initdone(class, st), tdname∃(str, class), mkfs(class, ty, fieldvar) ' ∈ statfields(class), okval(val, st[r1 -- _type] .type .type), is_reftype(ty), type∃(str, ty), jvmref ∈ st, validref(str, r, ty, st) ⊦ ty = void_type, validref(str, r, ty, st[r1 -- i ', val]), is_referencevalue(val)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_referencevalue(refval(r))])]]