| n ≤ # getbytearray(r, 0, n→i(n), st), st[r -- _length] .intval = i + n→i(n), 0 ≤ i ⊦ restn(n, getbytearray(r, 0, n→i(n), st)) + getbytearray(r, n→i(n), i, st) = getbytearray(r, n→i(n), i, st) |
⊦ # getbytearray(r, i, n→i(m), st) = m
st[r -- _length] .intval = i + n→i(n), 0 ≤ i ⊦ restn(n, getbytearray(r, 0, n→i(n), st)) = []
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m ≤ m], [CSIMPSEQ : ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1], [CSIMPSEQ : ⊦ bytes = bytes0 + bytes ↔ bytes0 = []])]]