| ⊦ okreftype(refval(r), mkarraytype(ty), addarray(r, ty, vals, st)) ∧ r ≠ jvmref ∧ r -- _length ∈ addarray(r, ty, vals, st) ∧ is_integervalue(addarray(r, ty, vals, st)[r -- _length]) ∧ 0 ≤ (addarray(r, ty, vals, st)[r -- _length]) .intval ∧ is_arrayref(r, (addarray(r, ty, vals, st)[r -- _length]) .intval, addarray(r, ty, vals, st)) ∧ (∀ j. 0 ≤ j ∧ j < (addarray(r, ty, vals, st)[r -- _length]) .intval → oktype(addarray(r, ty, vals, st)[r -- j '], ty, addarray(r, ty, vals, st))) ↔ r ≠ jvmref ∧ (∀ val. val ∈ vals → okval(val, ty)) |
⊦ okreftype(refval(r), mkarraytype(ty), addarray(r, ty, vals, st))
⊦ r -- _length ∈ addarray(r, ty, vals, st)
⊦ (addarray(r, ty, vals, st)[r -- _length]) = intval(n→i(# vals))
⊦ is_arrayref(r, n→i(# vals), addarray(r, ty, vals, st)) ∧ (∀ j. ¬ j < 0 ∧ ¬ n→i(# vals) ≤ j → okval(addarray(r, ty, vals, st)[r -- j '], ty)) ↔ (∀ val. val ∈ vals → okval(val, ty)), r = jvmref
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ oktype(val, ty, st) ↔ okval(val, ty)], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ 0 ≤ n→i(n)], [CSIMPSEQ : ⊦ intval(i) .intval = i], [CSIMPSEQ : ⊦ is_integervalue(intval(i))])]]