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