| by ' + bytes0 ≠ [], okbytearray(r2, st), ∀ r2, st, str, r, r1, i. okbytearray(r2, st) → (path∃(str, r, r1, putByteArray(bytes0, r2, i, st)) ↔ path∃(str, r, r1, st)) ⊦ path∃(str, r, r1, putByteArray((by ' + bytes0) .rest, r2, i + 1, st)[r2 -- i ', byteval((by ' + bytes0) .first)]) ↔ path∃(str, r, r1, st) |
okbytearray(r2, st), ∀ r2, st, str, r, r1, i. okbytearray(r2, st) → (path∃(str, r, r1, putByteArray(bytes0, r2, i, st)) ↔ path∃(str, r, r1, st)) ⊦ path∃(str, r, r1, putByteArray(bytes0, r2, i + 1, st)[r2 -- i ', byteval(by)]) ↔ path∃(str, r, r1, st)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : list, bytelist, e-01, ⊦ by ' + bytes ≠ []], [CSIMPNAMEDSEQ : list, bytelist, c-08, ⊦ (by ' + bytes) .first = by], [CSIMPNAMEDSEQ : list, bytelist, a, ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1], [CSIMPNAMEDSEQ : list, bytelist, c-07, ⊦ (by ' + bytes) .rest = bytes])]]