| is_reftype(ty), is_obj(r0, st), mkfs(class, ty, fieldvar) ' ∈ instfields(st[r0 -- _type] .type .class) ⊦ r0 = r, has_reffield(r0, st) |
⊦ is_obj(r, st) → (has_reffield(r, st) ↔ (∃ fs. fs ' ∈ instfields(st[r -- _type] .type .class) ∧ is_reftype(fs .type)))
is_obj(r0, st), is_reftype(ty), is_obj(r0, st), mkfs(class, ty, fieldvar) ' ∈ instfields(st[r0 -- _type] .type .class) ⊦ r0 = r, ∃ fs. fs ' ∈ instfields(st[r0 -- _type] .type .class) ∧ is_reftype(fs .type)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, r0)]]