| r -- sk ∈ addclass(class, (sk1 × val) ' + fis0, st), is_indexkey(sk), is_fskey(sk1), r ∈ addclass(class, (sk1 × val) ' + fis0, st), ∀ sk0, r0, class0, st0. ¬ is_fskey(sk0) → (r0 -- sk0 ∈ addclass(class0, fis0, st0) → r0 -- sk0 ∈ st0) ⊦ r -- sk ∈ st |
⊦ is_fskey(fv .1) ∧ fv .1 .fs .class ≠ class → addclass(class, fv ' + fis, st) = addclass(class, fis, st)
¬ (is_fskey((sk1 × val) .1) ∧ (sk1 × val) .1 .fs .class ≠ class), r -- sk ∈ addclass(class, (sk1 × val) ' + fis0, st), is_indexkey(sk), is_fskey(sk1), r ∈ addclass(class, (sk1 × val) ' + fis0, st), ∀ sk0, r0, class0, st0. ¬ is_fskey(sk0) → (r0 -- sk0 ∈ addclass(class0, fis0, st0) → r0 -- sk0 ∈ st0) ⊦ r -- sk ∈ st
is_fskey((sk1 × val) .1) ∧ (sk1 × val) .1 .fs .class ≠ class, 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) ⊦ r -- sk ∈ st
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, fis0, sk1 × val, class)]]