| initdone(class0, st), mkfs(class0, ty, fieldvar) ' ∈ statfields(class0), tdname∃(str, class0), validfield(str, jvmref, mkfs(class0, ty, fieldvar) ', st) ⊦ ty = void_type, jvmref -- mkfs(class0, ty, fieldvar) ' ∈ st ∧ type∃(str, ty) ∧ validval(str, st[jvmref -- mkfs(class0, ty, fieldvar) '], 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)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ fs ' .fs = fs], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ is_fskey(fs ')])], [EXTRATERMS : (st, mkfs(class0, ty, fieldvar) ', jvmref, str)]]