| fs ' ≠ _type, fs ' ≠ _length ⊦ (addarray(r0, ty, i, st)[r -- fs ']) = st[r -- fs '] |
⊦ addarray(r, ty, i, st) = addarray(r, initial_value(ty), i, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)])
⊦ (addarray(r0, val, i, st)[r -- fs ']) = st[r -- fs ']
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))])]]