| 1 > 0 ⊦ getbytearray (r, addarray(r, initial_value(byte_type), 1 - 1, st[r -- _type, typeval(mkarraytype(byte_type))][r -- _length, intval(2)]) [r -- (1 - 1) ', initial_value(byte_type) ] [r -- 0 ', byteval(by) ] [r -- 1 ', byteval(by0) ]) = by ' + by0 ' |
⊦ addarray(r, val, 0, st) = st
⊦ getbytearray(r, st[r -- _type, typeval(mkarraytype(byte_type))][r -- _length, intval(2)][r -- 0 ', byteval(by)][r -- 1 ', byteval(by0)]) = by ' + by0 '
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (st[rk, val][rk, val0]) = st[rk, val0]])]]