| same-subclasses-contains(ty .jtelemtype .class, str, str0), type∃(str, ty), tdname∃(str, class), mkfs(class, ty, fieldvar) ' ∈ statfields(class), tdname∃(str0, class), initdone(class, st), goodfieldandtype(jvmref, mkfs(class, ty, fieldvar) ', st) ∧ type∃(str0, mkfs(class, ty, fieldvar) ' .fs .type) ∧ mkfs(class, ty, fieldvar) ' .fs .type ≠ void_type ∧ ( is_reftype(mkfs(class, ty, fieldvar) ' .fs .type) → validrefval(str0, st[jvmref -- mkfs(class, ty, fieldvar) '], mkfs(class, ty, fieldvar) ' .fs .type, st)) ⊦ ty = void_type, (is_reftype(ty) → validrefval(str, st[jvmref -- mkfs(class, ty, fieldvar) '], ty, st)) ∧ goodfieldandtype(jvmref, mkfs(class, ty, fieldvar) ', st) |
type∃(str0, ty), is_reftype(ty), same-subclasses-contains(ty .jtelemtype .class, str, str0), type∃(str, ty), tdname∃(str, class), mkfs(class, ty, fieldvar) ' ∈ statfields(class), tdname∃(str0, class), initdone(class, st), jvmref -- mkfs(class, ty, fieldvar) ' ∈ st, is_referencevalue(st[jvmref -- mkfs(class, ty, fieldvar) ']), validrefval(str0, st[jvmref -- mkfs(class, ty, fieldvar) '], ty, st), jvmref ∈ st ⊦ ty = void_type, validrefval(str, st[jvmref -- mkfs(class, ty, fieldvar) '], ty, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ is_reftype(ty) → ( okval(val, ty) ↔ is_referencevalue(val))], [CSIMPSEQ : ⊦ goodfieldandtype (r, mkfs(class1, ty, fieldvar) ', st) ↔ r -- mkfs(class1, ty, fieldvar) ' ∈ st ∧ okval (st[ r -- mkfs (class1, ty, fieldvar) '], ty)], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) .type = ty], [CSIMPSEQ : ⊦ fs ' .fs = fs])]]