| instore(r, class, fv ' + fis, st), unique_al(fv ' + fis) ⊦ _type ∈ fv ', _type ∈ fis, instore(r, class, fis, st[r -- fv .1, refval(r1)]) ∧ instore(r, class, (fv .1 × refval(r1)) ', st[r -- fv .1, refval(r1)]) |
fv = sk × val, instore(r, class, fv ' + fis, st), unique_al(fv ' + fis) ⊦ _type ∈ fv ', _type ∈ fis, instore(r, class, fis, st[r -- sk, refval(r1)]) ∧ instore(r, class, (sk × refval(r1)) ', st[r -- sk, refval(r1)])
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ sk = fv .1 ∧ val = fv .2 ↔ fv = sk × val])], [EXTRATERMS : (fv, sk, val)]]