| ⊦ r ≠ r0 ∨ r = r0 ∧ is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type ∨ r = r0 ∧ is_indexkey(sk) ∧ (sk .index < 0 ∨ n→i(# vals) ≤ sk .index) → (r0 -- sk ∈ addarray(r, ty, vals, st) ↔ r0 -- sk ∈ st) |
⊦ rk ∈ st → rk ∈ addarray(r, ty, vals, st)
⊦ r ≠ r0 → (r -- sk ∈ addarray(r0, ty, vals, st) ↔ r -- sk ∈ st)
⊦ r ∈ addarray(r, ty0, vals, st)
r0 -- sk ∈ addarray(r0, ty, vals, st), is_indexkey(sk) ∧ (sk .index < 0 ∨ n→i(# vals) ≤ sk .index) ∨ is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type ⊦ r0 -- sk ∈ st
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st])]]