| oktype(val, fs .type, st), goodfieldandtype(r, sk, st) ⊦ fs ' = _type, goodfieldandtype(r, sk, st[r0 -- fs ', val]) |
⊦ ¬ goodfieldandtype(r, sk, st[r0 -- mkfs(class0, ty, fieldvar) ', val]) ∧ mkfs(class0, ty, fieldvar) ' ≠ _type ∧ oktype(val, ty, st) → ¬ goodfieldandtype(r, sk, st)
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ class = fs .class ∧ ty = fs .type ∧ fieldvar = fs .field ↔ fs = mkfs(class, ty, fieldvar)])], [EXTRATERMS : (fs, class, ty, fieldvar)]]