| ⊦ rk ∈ st → ( (∀ rk0. rk0 ∈ st[rk, val] ↔ rk0 ∈ st1) ∧ (∀ r0, sk. r0 ≠ r → (st[rk, val][r0 -- sk]) = st1[r0 -- sk]) ∧ (r -- _type ∈ st[rk, val] → (st[rk, val][r -- _type]) = st1[r -- _type]) ∧ (r -- _length ∈ st[rk, val] → (st[rk, val][r -- _length]) = st1[r -- _length]) ↔ onlyModified(r, st, st1[rk, st[rk]]) ∧ rk ∈ st1 ∧ (r ≠ rk .ref ∨ rk = r -- _length ∨ rk = r -- _type → st1[rk] = val)) |
rk ∈ st ⊦ (∀ rk0. rk0 ∈ st ↔ rk0 ∈ st1) ∧ (∀ r0, sk. r0 ≠ r → ((r0 -- sk = rk ⊃ val; st[r0 -- sk])) = st1[r0 -- sk]) ∧ (r -- _type ∈ st → ((r -- _type = rk ⊃ val; st[r -- _type])) = st1[r -- _type]) ∧ (r -- _length ∈ st → ((r -- _length = rk ⊃ val; st[r -- _length])) = st1[r -- _length]) ↔ onlyModified(r, st, st1[rk, st[rk]]) ∧ rk ∈ st1 ∧ (rk = rk .ref -- _length ∨ r ≠ rk .ref ∨ rk = rk .ref -- _type → st1[rk] = val)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st])]]