| ¬ (r ≠ r ∨ r = r ∧ is_fskey(sk) ∧ sk ≠ _length ∧ sk ≠ _type ∨ r = r ∧ is_indexkey(sk) ∧ (sk .index < 0 ∨ n→i(# getarray(r, st)) ≤ sk .index)), st[r -- _type] .type = mkarraytype(ty), is_array(r, st) ⊦ (r -- sk ∈ addarray(r, ty, getarray(r, st), st) → r -- sk ∈ st) ∧ (addarray(r, ty, getarray(r, st), st)[r -- sk]) = st[r -- sk] |
st[r -- _type] .type = mkarraytype(ty), is_array(r, st) ⊦ (r -- sk ∈ addarray(r, ty, getarray(r, st), st) → r -- sk ∈ st) ∧ (addarray(r, ty, getarray(r, st), st)[r -- sk]) = st[r -- sk], ¬ is_indexkey(sk) ∧ sk ≠ _length ∧ sk ≠ _type, ¬ is_fskey(sk) ∧ (¬ 0 ≤ sk .index ∨ ¬ sk .index < n→i(# getarray(r, st)))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i], [CSIMPSEQ : ⊦ ¬ is_indexkey(sk) ↔ is_fskey(sk)], [CSIMPSEQ : ⊦ ¬ is_fskey(sk) ↔ is_indexkey(sk)])]]