| ⊦ r1 = r0, okreftype(refval(r1), mkarraytype(ty), arraycopy(r, i, r0, i0, j, st)) ∧ r1 ≠ jvmref ∧ r1 -- _length ∈ arraycopy(r, i, r0, i0, j, st) ∧ is_integervalue(arraycopy(r, i, r0, i0, j, st)[r1 -- _length]) ∧ 0 ≤ (arraycopy(r, i, r0, i0, j, st)[r1 -- _length]) .intval ∧ is_arrayref(r1, (arraycopy(r, i, r0, i0, j, st)[r1 -- _length]) .intval, arraycopy(r, i, r0, i0, j, st)) ∧ (∀ j0. 0 ≤ j0 ∧ j0 < (arraycopy(r, i, r0, i0, j, st)[r1 -- _length]) .intval → oktype(arraycopy(r, i, r0, i0, j, st)[r1 -- j0 '], ty, arraycopy(r, i, r0, i0, j, st))) ↔ okarray(r1, ty, 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, ty, arraycopy(r, i, r0, i0, j, st)) ↔ oktype(val, ty, st)
⊦ oktype(val, ty, st) ↔ okval(val, ty)
⊦ r1 = r0, r1 -- _type ∈ st ∧ is_typevalue(st[r1 -- _type]) ∧ is_arraytype(st[r1 -- _type] .type) ∧ st[r1 -- _type] .type .type ≤ ty ∧ r1 ≠ jvmref ∧ r1 -- _length ∈ st ∧ is_integervalue(st[r1 -- _length]) ∧ 0 ≤ st[r1 -- _length] .intval ∧ is_arrayref(r1, st[r1 -- _length] .intval, st) ∧ (∀ j0. ¬ j0 < 0 ∧ ¬ st[r1 -- _length] .intval ≤ j0 → okval(st[r1 -- j0 '], ty)) ↔ okarray(r1, ty, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r1 ≠ r0 → (arraycopy(r, i, r0, i0, j, st) [r1 -- sk ] ) = st[r1 -- sk]], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ r1 ≠ r0 → ( is_arrayref (r1, i1, arraycopy (r, i, r0, i0, j, st)) ↔ is_arrayref(r1, i1, st))], [CSIMPSEQ : ⊦ (arraycopy(r1, i1, r2, i2, j, st) [r -- _length ] ) = st[r -- _length]], [CSIMPSEQ : ⊦ r -- _length ∈ arraycopy (r1, i1, r2, i2, j, st) ↔ r -- _length ∈ st], [CSIMPSEQ : ⊦ ty0 ≤ mkarraytype(ty) ↔ is_arraytype(ty0) ∧ ty0 .type ≤ ty], [CSIMPSEQ : ⊦ (arraycopy(r1, i1, r2, i2, j, st) [r -- _type ] ) = st[r -- _type]], [CSIMPSEQ : ⊦ r -- _type ∈ arraycopy (r1, i1, r2, i2, j, st) ↔ r -- _type ∈ st], [CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ is_referencevalue(refval(r))])]]