| 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)]) |
instore(r, class, (sk × val) ' + fis, st), unique_al(fis) ⊦ _type = sk, _type ∈ fis, sk ∈ fis, instore(r, class, fis, st[r -- sk, refval(r1)]) ∧ instore(r, class, (sk × refval(r1)) ', st[r -- sk, refval(r1)])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk ∈ (sk0 × val) ' ↔ sk = sk0], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ unique_al((sk × val) ' + fis) ↔ ¬ sk ∈ fis ∧ unique_al(fis)])]]