| (st0 ∪ st)[r -- mkfs(class, ty1, fieldvar) '] = refval(r0), is_obj(r, st), class+∃(str, st[r -- _type] .type .class), (st0 ∪ st)[r -- _type] .type ≤ ty, st[r -- _type] .type ≤ ty, mkfs(class, ty1, fieldvar) ' ∈ instfields((st0 ∪ st)[r -- _type] .type .class), junkrefs(str, r0 ' + refs, ty1, st0 ∪ st), ∀ str0, ty0, st1, st2. junkrefs(str0, r0 ' + refs, ty0, st1 ∪ st2) → junkrefs(str0, r0 ' + refs, ty0, st2) ⊦ r = jvmref, is_abstract(st[r -- _type] .type .class), mkfs(class, ty1, fieldvar) ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- mkfs(class, ty1, fieldvar) ']) ∧ r0 = st[r -- mkfs(class, ty1, fieldvar) '] .refval ∧ junkrefs(str, st[r -- mkfs(class, ty1, fieldvar) '] .refval ' + refs, ty1, st) |
⊦ is_obj(r, st) ↔ r ≠ jvmref ∧ r -- _type ∈ st ∧ is_typevalue(st[r -- _type]) ∧ is_classtype(st[r -- _type] .type) ∧ is_obj(r, st[r -- _type] .type .class, st)
(st0 ∪ st)[r -- mkfs(class, ty1, fieldvar) '] = refval(r0), r ≠ jvmref ∧ r -- _type ∈ st ∧ is_typevalue(st[r -- _type]) ∧ is_classtype(st[r -- _type] .type) ∧ is_obj(r, st[r -- _type] .type .class, st), class+∃(str, st[r -- _type] .type .class), (st0 ∪ st)[r -- _type] .type ≤ ty, st[r -- _type] .type ≤ ty, mkfs(class, ty1, fieldvar) ' ∈ instfields((st0 ∪ st)[r -- _type] .type .class), junkrefs(str, r0 ' + refs, ty1, st0 ∪ st), ∀ str0, ty0, st1, st2. junkrefs(str0, r0 ' + refs, ty0, st1 ∪ st2) → junkrefs(str0, r0 ' + refs, ty0, st2) ⊦ r = jvmref, is_abstract(st[r -- _type] .type .class), mkfs(class, ty1, fieldvar) ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- mkfs(class, ty1, fieldvar) ']) ∧ r0 = st[r -- mkfs(class, ty1, fieldvar) '] .refval ∧ junkrefs(str, st[r -- mkfs(class, ty1, fieldvar) '] .refval ' + refs, ty1, st)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, r)]]