| is_obj(str, r0, st), st ⊆ st0, st[r0 -- _type] .type ≤ ty, ∀ str0, ty0, st1, st2. validrefs(str0, acc, ty0, st1) ∧ st1 ⊆ st2 ∧ ¬ junkref(str0, acc .first, st1) ∧ acc ≠ [] → validrefs(str0, acc, ty0, st2), acc = [] ∨ mkfs(class, ty1, fieldvar) ' ∈ instfields(st[r0 -- _type] .type .class) ∧ is_referencevalue(st[r0 -- mkfs(class, ty1, fieldvar) ']) ∧ acc .first = st[r0 -- mkfs(class, ty1, fieldvar) '] .refval ∧ validrefs(str, acc, ty1, st) ⊦ r0 = jvmref, junkref(str, r0, st), validrefs(str, r0 ' + acc, ty, st0), st0[r0 -- _type] .type ≤ ty |
⊦ rk ∈ st ∧ st ⊆ st1 → st1[rk] = st[rk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ r -- _type ∈ st → ¬ is_obj(str, r, st)])], [EXTRATERMS : (r0 -- _type, st, st0)]]