| st0[r -- _type] = typeval(mkclasstype(class0)), class+∃(str, class0), r ∈ st0, mkfs(class1, ty, fieldvar) ' ∈ instfields(class), class0 ≤ class, r -- _type ∈ st0, goodfieldsandtypes(r, instfields(class0), 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 |
⊦ goodfieldsandtypes(r, sks, st) ↔ (∀ sk. sk ∈ sks → goodfieldandtype(r, sk, st))
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 : ()], [EXTRATERMS : (st0, instfields(class0), r)]]