⊦ okbytearray(r, st) ↔ okarray(r, byte_type, st)
⊦ okarray(r, ty, st) → ¬ st[r -- _length] .intval < 0
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, r)]]