| ⊦ r = r1, okreftype(refval(r1), mkarraytype(byte_type), putArray(vals, r, i, st)) ∧ refval(r1) .refval ≠ jvmref ∧ (refval(r1) .refval -- _length) × intval(j) ∈ putArray(vals, r, i, st) ∧ 0 ≤ j ∧ is_arrayref(refval(r1) .refval, j, putArray(vals, r, i, st)) ∧ (∀ j0. 0 ≤ j0 ∧ j0 < j → oktype(putArray(vals, r, i, st)[refval(r1) .refval -- j0 '], byte_type, putArray(vals, r, i, st))) ↔ okarray(refval(r1), byte_type, j, st) |
⊦ okreftype(val, ty, st) ↔ is_referencevalue(val) ∧ (val .refval ≠ jvmref → val .refval -- _type ∈ st ∧ is_typevalue(st[val .refval -- _type]) ∧ st[val .refval -- _type] .type ≤ ty)
⊦ oktype(val, byte_type, st) ↔ is_bytevalue(val)
⊦ r = r1, r1 -- _type ∈ st ∧ is_typevalue(st[r1 -- _type]) ∧ st[r1 -- _type] .type = mkarraytype(byte_type) ∧ r1 ≠ jvmref ∧ r1 -- _length ∈ st ∧ st[r1 -- _length] = intval(j) ∧ 0 ≤ j ∧ is_arrayref(r1, j, putArray(vals, r, i, st)) ∧ (∀ j0. ¬ j0 < 0 ∧ ¬ j ≤ j0 → is_bytevalue(st[r1 -- j0 '])) ↔ okarray(refval(r1), byte_type, j, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r0 → (putArray(vals, r, j, st) [r0 -- sk ] ) = st[r0 -- sk]], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ (putArray(vals, r, i, st) [r0 -- _length ] ) = st[r0 -- _length]], [CSIMPSEQ : ⊦ rk × val ∈ st ↔ rk ∈ st ∧ st[rk] = val], [CSIMPSEQ : ⊦ ty ≤ mkarraytype(byte_type) ↔ ty = mkarraytype(byte_type)], [CSIMPSEQ : ⊦ (putArray(vals, r, i, st) [r0 -- _type ] ) = st[r0 -- _type]], [CSIMPSEQ : ⊦ r ≠ r0 → ( r0 -- sk ∈ putArray(vals, r, j, st) ↔ r0 -- sk ∈ st)], [CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ is_referencevalue(refval(r))])]]