| refs0 .first = st[r -- fs0 '] .refval, is_obj(str, r, st[r -- fs ', refval(jvmref)]), (st[r -- fs ', refval(jvmref)][r -- _type]) .type ≤ ty, fs ' ∈ instfields(st[r -- _type] .type .class), is_obj(str, r, st), is_reftype(fs .type), st[r -- _type] .type ≤ ty, fs0 ' ∈ instfields(st[r -- _type] .type .class), is_referencevalue(st[r -- fs0 ']), validrefs(str, refs0, fs0 .type, st) ⊦ r -- _type = r -- fs ', r = jvmref, refs0 = [], ∃ fs1. fs1 ' ∈ instfields((st[r -- fs ', refval(jvmref)][r -- _type]) .type .class) ∧ is_referencevalue(st[r -- fs ', refval(jvmref)][r -- fs1 ']) ∧ jvmref = (st[r -- fs ', refval(jvmref)][r -- fs1 ']) .refval |
refs0 .first = st[r -- fs0 '] .refval, fs ' ∈ instfields(st[r -- _type] .type .class), is_obj(str, r, st), is_reftype(fs .type), fs0 ' ∈ instfields(st[r -- _type] .type .class), is_referencevalue(st[r -- fs0 ']), validrefs(str, refs0, fs0 .type, st), is_obj(str, r, st[r -- fs ', refval(jvmref)]), st[r -- _type] .type ≤ ty ⊦ r = jvmref, refs0 = [], _type = fs ', ∃ fs1. fs1 ' ∈ instfields(st[r -- _type] .type .class) ∧ is_referencevalue(st[r -- fs ', refval(jvmref)][r -- fs1 ']) ∧ jvmref = (st[r -- fs ', refval(jvmref)][r -- fs1 ']) .refval
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk ≠ sk0 → (st[r -- sk, val][r0 -- sk0]) = st[r0 -- sk0]], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)])]]