| st[r -- _length] = intval(i), st[r -- _type] = typeval(mkarraytype(byte_type)), r ∈ putByteArray(bytes, r1, 0, st), r -- _type ∈ st, r -- _length ∈ st, is_arrayref(r, i, putByteArray(bytes, r1, 0, st)), r ∈ st, 0 ≤ i, ∀ j. ¬ j < 0 ∧ ¬ i ≤ j → is_bytevalue(st[r -- j ']) ⊦ r = r1, r = jvmref, okreftype(refval(r), mkarraytype(byte_type), st) ∧ r ≠ jvmref ∧ r -- _length ∈ st ∧ is_integervalue(st[r -- _length]) ∧ 0 ≤ st[r -- _length] .intval ∧ is_arrayref(r, st[r -- _length] .intval, st) ∧ (∀ j. 0 ≤ j ∧ j < st[r -- _length] .intval → oktype(st[r -- j '], byte_type, st)) |
⊦ oktype(val, byte_type, st) ↔ is_bytevalue(val)
st[r -- _type] = typeval(mkarraytype(byte_type)), st[r -- _length] = intval(i), 0 ≤ i, r ∈ st, is_arrayref(r, i, putByteArray(bytes, r1, 0, st)), r -- _length ∈ st, r -- _type ∈ st, r ∈ putByteArray(bytes, r1, 0, st), ∀ j. ¬ j < 0 ∧ ¬ i ≤ j → is_bytevalue(st[r -- j ']) ⊦ r = jvmref, r = r1, okreftype(refval(r), mkarraytype(byte_type), st) ∧ is_arrayref(r, i, st) ∧ (0 ≤ j ∧ j < i → is_bytevalue(st[r -- j ']))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i ≤ j → (¬ ¬ j < i ↔ false)], [CSIMPSEQ : ⊦ intval(i) .intval = i], [CSIMPSEQ : ⊦ is_integervalue(intval(i))], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i])]]