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