| st[r0 -- _type] = typeval(mkclasstype(class0)), st[r0 -- mkfs(class, ty0, fieldvar) '] = refval(r1), mkfs(class, ty0, fieldvar) ' ∈ instfields(class0), ∀ sk. sk ∈ instfields(class0) → goodfieldandtype(r0, sk, st), r0 -- _type ∈ st, r0 ∈ st, validrefs(str, r1 ', ty0, st), is_obj(str, r0, st), class0 ≤ class1 ⊦ r0 = jvmref, is_reftype(ty0) |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ goodfieldandtype (r, mkfs(class1, ty, fieldvar) ', st) ↔ r -- mkfs(class1, ty, fieldvar) ' ∈ st ∧ okval (st[ r -- mkfs (class1, ty, fieldvar) '], ty)], [CSIMPSEQ : ⊦ okval(refval(r), ty) ↔ ty = void_type ∨ is_reftype(ty)], [CSIMPSEQ : ⊦ ¬ mkfs (class0, void_type, fieldvar) ' ∈ instfields(class)])], [EXTRATERMS : (mkfs(class, ty0, fieldvar) ')]]