| ¬ (is_fskey((sk0 × val) .1) ∧ (sk0 × val) .1 .fs .class ≠ class), is_indexkey(sk), is_fskey(sk0), ∀ sk0, class0, st0, r0. ¬ is_fskey(sk0) → (addclass(class0, fis0, st0)[r0 -- sk0]) = st0[r0 -- sk0] ⊦ (addclass(class, (sk0 × val) ' + fis0, st)[r -- sk]) = st[r -- sk] |
is_fskey(sk0), is_indexkey(sk), ∀ sk0, class0, st0, r0. ¬ is_fskey(sk0) → (addclass(class0, fis0, st0)[r0 -- sk0]) = st0[r0 -- sk0] ⊦ (addclass(sk0 .fs .class, (sk0 × val) ' + fis0, st)[r -- sk]) = st[r -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ is_indexkey(sk) ↔ is_fskey(sk)], [CSIMPSEQ : ⊦ is_indexkey(sk) → ¬ is_fskey(sk)], [CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)], [CSIMPSEQ : ⊦ (sk × val) .1 = sk])]]