| ∀ class, st, r, i, val. addclass(class, fis0, st[r -- i ', val]) = (addclass(class, fis0, st)[r -- i ', val]) ⊦ addclass(class, fis0, st[r -- i ', val]) = (addclass(class, fis0, st)[r -- i ', val]), fs .class = class |
fs = mkfs(class0, ty, fieldvar), ∀ class, st, r, i, val. addclass(class, fis0, st[r -- i ', val]) = (addclass(class, fis0, st)[r -- i ', val]) ⊦ addclass(class, fis0, st[r -- i ', val]) = (addclass(class, fis0, st)[r -- i ', val]), class0 = class
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ class = fs .class ∧ ty = fs .type ∧ fieldvar = fs .field ↔ fs = mkfs(class, ty, fieldvar)])], [EXTRATERMS : (fs, class0, ty, fieldvar)]]