| ¬ (r ≠ jvmref ∧ (¬ is_valid_ref(str, r, addobj(r, class, fis, st)) ∨ ¬ (addobj(r, class, fis, st)[r -- _type]) .type ≤ mkclasstype(class))), fis .keys = instfields(class), validrefs(str, r0 ' + refs0, ty, st), mkfs(class0, ty0, fieldvar) ' ∈ instfields(class), mkfs(class0, ty0, fieldvar) ' × refval(r0) ∈ fis, validref(str, r, mkclasstype(class), addobj(r, class, fis, st)), class+∃(str, class), newref(r, st), validFields(r, fis, addobj(r, class, fis, st)), is_obj(str, r, addobj(r, class, fis, st)), unique_al(fis) ⊦ r = jvmref, r0 ' + refs0 = jvmref ', is_abstract(class), is_reftype(ty0) |
fis .keys = instfields(class), validrefs(str, r0 ' + refs0, ty, st), mkfs(class0, ty0, fieldvar) ' ∈ instfields(class), mkfs(class0, ty0, fieldvar) ' × refval(r0) ∈ fis, validref(str, r, mkclasstype(class), addobj(r, class, fis, st)), class+∃(str, class), newref(r, st), validFields(r, fis, addobj(r, class, fis, st)), is_obj(str, r, addobj(r, class, fis, st)), unique_al(fis) ⊦ r = jvmref, r0 ' + refs0 = jvmref ', is_abstract(class), is_reftype(ty0)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ class ≤ class], [CSIMPSEQ : ⊦ mkclasstype(class1) ≤ mkclasstype(class2) ↔ class1 ≤ class2], [CSIMPSEQ : ⊦ typeval(ty) .type = ty], [CSIMPSEQ : ¬ _type ∈ fis ⊦ (addobj(r, class1, fis, st) [r -- _type ] ) = typeval(mkclasstype(class1))], [CSIMPSEQ : ⊦ fis .keys = instfields(class) → ¬ _type ∈ fis], [CSIMPSEQ : ⊦ is_obj(str, r, st) → is_valid_ref(str, r, st)])]]