| is_obj(str, r, addobj(r, class, fis, st)) ∧ (addobj(r, class, fis, st)[r -- _type]) .type ≤ mkclasstype(class), fis .keys = instfields(class), validFields(r, fis, addobj(r, class, fis, st)), newref(r, st), class+∃(str, class), validref(str, r, mkclasstype(class), addobj(r, class, fis, st)), fs ' × refval(r0) ∈ fis, fs ' ∈ instfields(class), validrefs(str, r0 ' + refs0, ty, st) ⊦ r = jvmref, is_abstract(class), r0 ' + refs0 = [] ∨ (∃ fs. fs ' ∈ instfields((addobj(r, class, fis, st)[r -- _type]) .type .class) ∧ is_referencevalue(addobj(r, class, fis, st)[r -- fs ']) ∧ (r0 ' + refs0) .first = (addobj(r, class, fis, st)[r -- fs ']) .refval ∧ validrefs(str, r0 ' + refs0, fs .type, addobj(r, class, fis, st))) |
fis .keys = instfields(class), is_obj(str, r, addobj(r, class, fis, st)), validFields(r, fis, addobj(r, class, fis, st)), newref(r, st), class+∃(str, class), validref(str, r, mkclasstype(class), addobj(r, class, fis, st)), fs ' × refval(r0) ∈ fis, fs ' ∈ instfields(class), validrefs(str, r0 ' + refs0, ty, st) ⊦ r = jvmref, is_abstract(class), ∃ fs0. fs0 ' ∈ instfields(class) ∧ is_referencevalue(addobj(r, class, fis, st)[r -- fs0 ']) ∧ r0 = (addobj(r, class, fis, st)[r -- fs0 ']) .refval ∧ validrefs(str, (addobj(r, class, fis, st)[r -- fs0 ']) .refval ' + refs0, fs0 .type, addobj(r, class, fis, st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (r ' + refs) .first = r], [CSIMPSEQ : ⊦ mkclasstype(class) .class = class], [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 : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ r ' + refs ≠ []])]]