| is2bs(ints) = [], 0 ≤ i, i < n→i(# ints), ∀ st, r, i, ints0. # ints0 < # ints → (0 ≤ i ∧ i < n→i(# ints0) → ints0 = [] ∨ is_bytevalue(addarray(r, byte_type, mkjavavalues(is2bs(ints0)), st)[r -- i '])) ⊦ ints = [], is_bytevalue(addarray(r, byte_type, [], st)[r -- i ']) |
⊦ addarray(r, ty, vals, st) = addarray(r, vals, 0, st[r -- _type, typeval(mkarraytype(ty))][r -- _length, intval(n→i(# vals))])
is2bs(ints) = [], 0 ≤ i, i < n→i(# ints), ∀ st, r, i, ints0. # ints0 < # ints → (0 ≤ i ∧ i < n→i(# ints0) → ints0 = [] ∨ is_bytevalue(addarray(r, byte_type, mkjavavalues(is2bs(ints0)), st)[r -- i '])) ⊦ ints = [], is_bytevalue(addarray(r, [], 0, st[r -- _type, typeval(mkarraytype(byte_type))][r -- _length, intval(n→i(# []))])[r -- i '])
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, [], byte_type, r)]]