| okval(val, st[r1 -- _type] .type .type), mkfs(class, ty, fieldvar) ' ∈ statfields(class), tdname∃(str, class), initdone(class, st), goodfieldandtype(jvmref, mkfs(class, ty, fieldvar) ', st) ∧ type∃(str, mkfs(class, ty, fieldvar) ' .fs .type) ∧ mkfs(class, ty, fieldvar) ' .fs .type ≠ void_type ∧ ( is_reftype(mkfs(class, ty, fieldvar) ' .fs .type) → validrefval(str, st[jvmref -- mkfs(class, ty, fieldvar) '], mkfs(class, ty, fieldvar) ' .fs .type, st)) ⊦ ty = void_type, is_referencevalue(val), (is_reftype(ty) → validrefval(str, st[jvmref -- mkfs(class, ty, fieldvar) '], ty, st[r1 -- i ', val])) ∧ type∃(str, ty) ∧ goodfieldandtype(jvmref, mkfs(class, ty, fieldvar) ', st) |
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), validrefval(str, st[jvmref -- mkfs(class, ty, fieldvar) '], ty, st[r1 -- i ', val])
[[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])]]