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