| ∀ r, class, sk, val, st, r1. instore(r, class, (sk × val) ' + fis0, st) ∧ unique_al(fis0) → instore(r, class, (sk × refval(r1)) ', st[r -- sk, refval(r1)]) ∨ _type = sk ∨ _type ∈ fis0 ∨ sk ∈ fis0, instore(r, class, (sk × val) ' + (fv + fis0), st), unique_al(fv + fis0) ⊦ instore(r, class, (sk × refval(r1)) ', st[r -- sk, refval(r1)]), _type = sk, _type ∈ fv + fis0, sk ∈ fv + fis0 |
instore(r, class, (sk × val) ' + fv ' + fis0, st), unique_al(fv ' + fis0), ∀ r0, class0, sk0, val0, st0, r2. instore(r0, class0, (sk0 × val0) ' + fis0, st0) ∧ unique_al(fis0) → instore(r0, class0, (sk0 × refval(r2)) ', st0[r0 -- sk0, refval(r2)]) ∨ _type = sk0 ∨ sk0 ∈ fis0 ⊦ _type = sk, instore(r, class, (sk × refval(r1)) ', st[r -- sk, refval(r1)]), _type ∈ fv ', _type ∈ fis0, sk ∈ fv ', sk ∈ fis0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ sk ∈ fis + fis0 ↔ sk ∈ fis ∨ sk ∈ fis0], [CSIMPSEQ : ⊦ fv + fis = fv ' + fis])]]