| st[r -- _type] = typeval(mkclasstype(class0)), r ∈ st, r -- _type ∈ st, okval(val, ty), mkfs(class1, ty0, fieldvar0) ' ∈ instfields(class0), r -- mkfs(class1, ty0, fieldvar0) ' ∈ st, okval(st[r -- mkfs(class1, ty0, fieldvar0) '], ty0) ⊦ r = jvmref, ty = void_type, okval(st[r1 -- mkfs(class, ty, fieldvar) ', val][r -- mkfs(class1, ty0, fieldvar0) '], ty0) |
⊦ rk ≠ rk0 → (st[rk0, val][rk]) = st[rk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0], [CSIMPSEQ : ⊦ fs ' = fs0 ' ↔ fs = fs0], [CSIMPSEQ : ⊦ mkfs(class, ty, fieldvar) = mkfs(class0, ty0, fieldvar0) ↔ class = class0 ∧ ty = ty0 ∧ fieldvar = fieldvar0], [CSIMPSEQ : ⊦ (st[rk, val][rk]) = val], [CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st])], [EXTRATERMS : (r -- mkfs(class1, ty0, fieldvar0) ', val, r1 -- mkfs(class, ty, fieldvar) ', st)]]