| by ' + bytes0 ≠ [], okbytearray(r1, st), is_array(r, putByteArray((by ' + bytes0) .rest, r1, i + 1, st)[r1 -- i ', byteval((by ' + bytes0) .first)]), ∀ r, r1, i, st. is_array(r, putByteArray(bytes0, r1, i, st)) ∧ okbytearray(r1, st) → r = r1 ∨ is_array(r, st) ⊦ r = r1, is_array(r, st) |
⊦ r ≠ r0 → (is_array(r0, st[r -- sk, val]) ↔ is_array(r0, st))
okbytearray(r1, st), is_array(r, putByteArray(bytes0, r1, i + 1, st)), ∀ r, r1, i, st. is_array(r, putByteArray(bytes0, r1, i, st)) ∧ okbytearray(r1, st) → r = r1 ∨ is_array(r, st) ⊦ r = r1, is_array(r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (by ' + bytes) .first = by], [CSIMPSEQ : ⊦ (by ' + bytes) .rest = bytes], [CSIMPSEQ : ⊦ (bytes + bytes0) + bytes1 = bytes + bytes0 + bytes1], [CSIMPSEQ : ⊦ by ' + bytes ≠ []])]]