| is_fskey((sk × val0) .1) ∧ (sk × val0) .1 .fs .class ≠ class, is_fskey(sk), ∀ 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, (sk × val0) ' + fis0, st)[r -- i ', val]) |
⊦ is_fskey(fv .1) ∧ fv .1 .fs .class ≠ class → addclass(class, fv ' + fis, st) = addclass(class, fis, st)
is_fskey(sk), ∀ 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]), sk .fs .class = class
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (sk × val) .1 = sk], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1])]]