| is_fskey(sk), ∀ class1, class2, ty, fieldvar, val, fis1, st. class1 = class2 ∨ addclass(class1, fis0 + (mkfs(class2, ty, fieldvar) ' × val) ' + fis1, st) = addclass(class1, fis0 + fis1, st) ⊦ class1 = class2, addclass(class1, fis0 + (mkfs(class2, ty, fieldvar) ' × val) ' + fis1, st) = addclass(class1, fis0 + fis1, st), sk .fs .class = class1 |
sk = fs ', is_fskey(sk), ∀ class1, class2, ty, fieldvar, val, fis1, st. class1 = class2 ∨ addclass(class1, fis0 + (mkfs(class2, ty, fieldvar) ' × val) ' + fis1, st) = addclass(class1, fis0 + fis1, st) ⊦ class1 = class2, addclass(class1, fis0 + (mkfs(class2, ty, fieldvar) ' × val) ' + fis1, st) = addclass(class1, fis0 + fis1, st), fs .class = class1
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_fskey(sk) → (fs = sk .fs ↔ sk = fs ')])], [EXTRATERMS : (sk, fs)]]