| ⊦ fs ' = _length, getbytearray(r, 0, (st[r0 -- fs ', val][r -- _length]) .intval, st[r0 -- fs ', val]) = getbytearray(r, st) |
⊦ getbytearray(r, i, j, st[r0 -- fs ', val]) = getbytearray(r, i, j, st)
⊦ getbytearray(r, i, j, st) = bytevalues(getarray(r, i, j, st))
⊦ fs ' = _length, bytevalues(getarray(r, 0, st[r -- _length] .intval, st)) = getbytearray(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))])]]