| ⊦ fs ' = _type, fs ' = _length, getarray(r0, 0, (st[r0 -- fs ', val][r0 -- _length]) .intval, st[r0 -- fs ', val]) = getarray(r0, st) |
⊦ getarray(r, i, j, st[r0 -- fs ', val]) = getarray(r, i, j, st)
⊦ fs ' = _type, fs ' = _length, getarray(r0, 0, st[r0 -- _length] .intval, st) = getarray(r0, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk ≠ sk0 → (st[r -- sk, val][r0 -- sk0]) = st[r0 -- sk0]])]]