| r -- sk ∈ addclass(class, fis0, st), is_indexkey(sk), is_fskey(sk1), r ∈ addclass(class, fis0, st), ∀ sk0, r0, class0, st0. ¬ is_fskey(sk0) → (r0 -- sk0 ∈ addclass(class0, fis0, st0) → r0 -- sk0 ∈ st0) ⊦ sk1 .fs .class = class, r -- sk ∈ st |
sk1 = fs ', r -- sk ∈ addclass(class, fis0, st), is_indexkey(sk), is_fskey(sk1), r ∈ addclass(class, fis0, st), ∀ sk0, r0, class0, st0. ¬ is_fskey(sk0) → (r0 -- sk0 ∈ addclass(class0, fis0, st0) → r0 -- sk0 ∈ st0) ⊦ fs .class = class, r -- sk ∈ st
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_fskey(sk) → (fs = sk .fs ↔ sk = fs ')])], [EXTRATERMS : (sk1, fs)]]