| is_obj(str, r, addobj(r, class, fis, st)) ∧ (addobj(r, class, fis, st)[r -- _type]) .type ≤ mkclasstype(class), fis .keys = instfields(class), newref(r, st), class+∃(str, class), validfieldinits(fis, st), refs0 ≠ [] ∧ (∃ fs. fs ' ∈ instfields((addobj(r, class, fis, st)[r -- _type]) .type .class) ∧ is_referencevalue(addobj(r, class, fis, st)[r -- fs ']) ∧ refs0 .first = (addobj(r, class, fis, st)[r -- fs ']) .refval ∧ junkrefs(str, refs0, fs .type, addobj(r, class, fis, st))), ∀ sk, r1. sk × refval(r1) ∈ fis → ¬ junkref(str, r1, st) ⊦ r = jvmref, is_abstract(class) |
fis .keys = instfields(class), refs0 .first = (addobj(r, class, fis, st)[r -- fs ']) .refval, is_referencevalue(addobj(r, class, fis, st)[r -- fs ']), junkrefs(str, refs0, fs .type, addobj(r, class, fis, st)), newref(r, st), class+∃(str, class), validfieldinits(fis, st), fs ' ∈ instfields(class), ∀ sk, r1. sk × refval(r1) ∈ fis → ¬ junkref(str, r1, st) ⊦ r = jvmref, refs0 = [], is_abstract(class)
[[CONCRETESIMPRULES : ([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 : ⊦ fis .keys = instfields(class) ∧ class+∃(str, class) ∧ validfieldinits(fis, st) ∧ ¬ is_abstract(class) ∧ r ≠ jvmref → is_obj (str, r, addobj(r, class, fis, st))])]]