| ⊦ r ≠ r0 → (is_arrayref(r, i, addarray(r0, ty0, i0, st)) ↔ is_arrayref(r, i, st)) |
⊦ addarray(r, ty, i, st) = addarray(r, initial_value(ty), i, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(i)])
⊦ r ≠ r0 → (is_arrayref(r, i, addarray(r0, val0, i0, st)) ↔ is_arrayref(r, i, st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r0 → ( is_arrayref (r, i, st[r0 -- sk, val0]) ↔ is_arrayref(r, i, st))], [CSIMPSEQ : ⊦ is_arrayref (r, i, st[r0 -- _length, val]) ↔ is_arrayref(r, i, st)])]]