| (r -- (sk × val) .1) × (sk × val) .2 ∈ st ∧ instore(r, class, 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 |
r ∈ st, r -- sk ∈ st, unique_al(fv ' + fis0), instore(r, class, fv ' + fis0, st), ∀ 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, sk ∈ fis0, sk ∈ fv ', _type ∈ fis0, _type ∈ fv ', instore(r, class, (sk × refval(r1)) ', st[r -- sk, refval(r1)])
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ rk × val ∈ st ↔ rk ∈ st ∧ st[rk] = val], [CSIMPSEQ : ⊦ (sk × val) .2 = val], [CSIMPSEQ : ⊦ (sk × val) .1 = sk])]]