| st0[r -- _type] = typeval(mkclasstype(class0)), class+∃(str, class0), r ∈ st0, mkfs(class1, ty, fieldvar) ' ∈ instfields(class), class0 ≤ class, r -- _type ∈ st0, ∀ sk. sk ∈ instfields(class0) → goodfieldandtype(r, sk, st0) ⊦ r = jvmref, st[r -- mkfs(class1, ty, fieldvar) '] = noval, r -- mkfs(class1, ty, fieldvar) ' ∈ st0, is_abstract(class0), (is_reftype(ty) ∨ ty = abstract_type) ∧ noval .refval ≠ jvmref |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ fs ' ∈ instfields(class) ∧ class0 ≤ class → fs ' ∈ instfields(class0)], [CSIMPSEQ : ⊦ goodfieldandtype (r, mkfs(class1, ty, fieldvar) ', st) ↔ r -- mkfs(class1, ty, fieldvar) ' ∈ st ∧ okval (st[ r -- mkfs (class1, ty, fieldvar) '], ty)])], [EXTRATERMS : (mkfs(class1, ty, fieldvar) ')]]