| mkjavavalues(is2bs(ints)) ≠ [], i < n→i(# ints), 0 ≤ i, ∀ 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, mkjavavalues(is2bs(ints)) .butlast, st)[r -- n→i((# mkjavavalues(is2bs(ints))) -1) ', mkjavavalues(is2bs(ints)) .last] [r -- _length, intval(n→i(# mkjavavalues(is2bs(ints)))) ] [r -- i ' ]) |
i < n→i(# ints), 0 ≤ i, ∀ 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 = [], is2bs(ints) = [], is_bytevalue((i = n→i(# ints - 1) ⊃ mkjavavalues(is2bs(ints)) .last; addarray(r, byte_type, mkjavavalues(is2bs(ints)) .butlast, st)[r -- i ']))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i ' = i0 ' ↔ i = i0], [CSIMPSEQ : ⊦ _length ≠ i '], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))], [CSIMPSEQ : ⊦ n -1 = n - 1], [CSIMPSEQ : ⊦ # is2bs(ints) = # ints], [CSIMPSEQ : ⊦ # mkjavavalues(bytes) = # bytes], [CSIMPSEQ : ⊦ mkjavavalues(bytes) = [] ↔ bytes = []])]]