Proof step 4 from proof okbytearray-put-byteval (previous step)
⊦
i < 0 ∨ ¬ i < st[r -- _length] .intval ∨ 0 ≤ i ∧ i < st[r -- _length] .intval ∧ r -- i ' ∈ st ∧ is_bytevalue(st[r -- i '])
→ (okbytearray(r, st[r -- i ', byteval(by)]) ↔ okbytearray(r, st))