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