| st[jvmref -- mkfs(class, ty, fieldvar) '] = refval(r), initdone(class, st), tdname∃(str, class), mkfs(class, ty, fieldvar) ' ∈ statfields(class), validfield(str, jvmref, mkfs(class, ty, fieldvar) ', st) ⊦ validref(str, r, ty, st) |
⊦ validfield(str, r, sk, st) ↔ is_fskey(sk) ∧ r -- sk ∈ st ∧ type∃(str, sk .fs .type) ∧ sk .fs .type ≠ void_type ∧ validval(str, st[r -- sk], sk .fs .type, st)
st[jvmref -- mkfs(class, ty, fieldvar) '] = refval(r), initdone(class, st), tdname∃(str, class), mkfs(class, ty, fieldvar) ' ∈ statfields(class), is_fskey(mkfs(class, ty, fieldvar) ') ∧ jvmref -- mkfs(class, ty, fieldvar) ' ∈ st ∧ type∃(str, mkfs(class, ty, fieldvar) ' .fs .type) ∧ mkfs(class, ty, fieldvar) ' .fs .type ≠ void_type ∧ validval(str, st[jvmref -- mkfs(class, ty, fieldvar) '], mkfs(class, ty, fieldvar) ' .fs .type, st) ⊦ validref(str, r, ty, st)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, mkfs(class, ty, fieldvar) ', jvmref, str)]]