| ⊦ str = str0, (addobj(r, class, fis, st)[r -- mkfs(class0, ty0, str .field) ', val][r -- mkfs(class1, ty1, str0 .field) ']) = (addobj(r, class, fis, st)[r -- mkfs(class1, ty1, str0 .field) ']) |
⊦ 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 : ⊦ stringvar .field = stringvar0 .field ↔ stringvar = stringvar0])], [EXTRATERMS : (r -- mkfs(class1, ty1, str0 .field) ', val, r -- mkfs(class0, ty0, str .field) ', addobj(r, class, fis, st))]]