| oktype(val, ty, st), goodfieldandtype(r, fs ', st) ⊦ mkfs(class0, ty, fieldvar) ' = _type, (r -- fs ' ∈ st ∨ r = r0 ∧ fs = mkfs(class0, ty, fieldvar)) ∧ oktype(((r = r0 ∧ fs = mkfs(class0, ty, fieldvar)) ⊃ val; st[r -- fs ']), fs .type, st) |
fs = mkfs(class, ty0, fieldvar0), oktype(val, ty, st), goodfieldandtype(r, fs ', st) ⊦ mkfs(class0, ty, fieldvar) ' = _type, (r -- fs ' ∈ st ∨ r = r0 ∧ fs = mkfs(class0, ty, fieldvar)) ∧ oktype(((r = r0 ∧ fs = mkfs(class0, ty, fieldvar)) ⊃ val; st[r -- fs ']), ty0, st)
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ class = fs .class ∧ ty = fs .type ∧ fieldvar = fs .field ↔ fs = mkfs(class, ty, fieldvar)])], [EXTRATERMS : (fs, class, ty0, fieldvar0)]]