| sks0 ≠ [], (addarray(r, ty, mkjavavalues(refs), st)[r -- (i ' ' + sks1)]) = refval(r0), (addarray(r, ty, mkjavavalues(refs), st)[r -- sks0]) = refval(r0), (addarray(r, ty, mkjavavalues(refs), st)[r -- i ']) = refval(r1), 0 ≤ i, newref(r, st), validreflist(str, mkjavavalues(refs), ty, st), disjoint(str, refs, st), fits(r1, sks1, addarray(r, ty, mkjavavalues(refs), st)), r ≠ jvmref ∧ is_referencevalue(addarray(r, ty, mkjavavalues(refs), st)[r -- sks0 .first]) ∧ ( is_classtype((addarray(r, ty, mkjavavalues(refs), st)[r -- _type]) .type) → sks0 .first ∈ instfields((addarray(r, ty, mkjavavalues(refs), st)[r -- _type]) .type .class)) ∧ ( is_arraytype((addarray(r, ty, mkjavavalues(refs), st)[r -- _type]) .type) → is_indexkey(sks0 .first) ∧ 0 ≤ sks0 .first .index ∧ sks0 .first .index < (addarray(r, ty, mkjavavalues(refs), st)[r -- _length]) .intval) ∧ fits((addarray(r, ty, mkjavavalues(refs), st)[r -- sks0 .first]) .refval, sks0 .rest, addarray(r, ty, mkjavavalues(refs), st)), i < n→i(# refs) ⊦ sks0 = i ' ' + sks1, sks0 = [], r0 = jvmref, r = jvmref, refs = [], hasSharing(refs, st), dups(refs) |
(addarray(r, ty, mkjavavalues(refs), st)[r -- (i ' ' + sks1)]) = refval(r0), (addarray(r, ty, mkjavavalues(refs), st)[r -- sks0]) = refval(r0), (addarray(r, ty, mkjavavalues(refs), st)[r -- i ']) = refval(r1), 0 ≤ i, newref(r, st), validreflist(str, mkjavavalues(refs), ty, st), disjoint(str, refs, st), fits(r1, sks1, addarray(r, ty, mkjavavalues(refs), st)), is_referencevalue(addarray(r, ty, mkjavavalues(refs), st)[r -- sks0 .first]), fits((addarray(r, ty, mkjavavalues(refs), st)[r -- sks0 .first]) .refval, sks0 .rest, addarray(r, ty, mkjavavalues(refs), st)), i < n→i(# refs), is_indexkey(sks0 .first), sks0 .first .index < n→i(# refs), 0 ≤ sks0 .first .index ⊦ sks0 = i ' ' + sks1, r0 = jvmref, refs = [], r = jvmref, sks0 = [], hasSharing(refs, st), dups(refs)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPSEQ : ⊦ intval(i) .intval = i], [CSIMPSEQ : ⊦ # mkjavavalues(refs) = # refs], [CSIMPSEQ : ⊦ (addarray(r, ty, vals, st) [r -- _length ] ) = intval(n→i(# vals))], [CSIMPSEQ : ⊦ is_arraytype(mkarraytype(ty))], [CSIMPSEQ : ⊦ ¬ is_classtype(mkarraytype(ty))], [CSIMPSEQ : ⊦ typeval(ty) .type = ty], [CSIMPSEQ : ⊦ (addarray(r, ty, vals, st) [r -- _type ] ) = typeval(mkarraytype(ty))])]]