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