| sks ≠ [], (addarray(r, ty, mkjavavalues(refs), st)[r -- sks0]) = refval(r0), (addarray(r, ty, mkjavavalues(refs), st)[r -- sks]) = refval(r0), newref(r, st), validreflist(str, mkjavavalues(refs), ty, st), disjoint(str, refs, st), r ≠ jvmref ∧ is_referencevalue(addarray(r, ty, mkjavavalues(refs), st)[r -- sks .first]) ∧ ( is_classtype((addarray(r, ty, mkjavavalues(refs), st)[r -- _type]) .type) → sks .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(sks .first) ∧ 0 ≤ sks .first .index ∧ sks .first .index < (addarray(r, ty, mkjavavalues(refs), st)[r -- _length]) .intval) ∧ fits((addarray(r, ty, mkjavavalues(refs), st)[r -- sks .first]) .refval, sks .rest, addarray(r, ty, mkjavavalues(refs), st)), fits(r, sks0, addarray(r, ty, mkjavavalues(refs), st)) ⊦ sks0 = sks, sks0 = [], sks = [], r0 = jvmref, r = jvmref, hasSharing(refs, st), dups(refs) |
(addarray(r, ty, mkjavavalues(refs), st)[r -- sks]) = refval(r0), (addarray(r, ty, mkjavavalues(refs), st)[r -- sks0]) = refval(r0), 0 ≤ sks .first .index, sks .first .index < n→i(# refs), is_indexkey(sks .first), fits(r, sks0, addarray(r, ty, mkjavavalues(refs), st)), fits((addarray(r, ty, mkjavavalues(refs), st)[r -- sks .first]) .refval, sks .rest, addarray(r, ty, mkjavavalues(refs), st)), is_referencevalue(addarray(r, ty, mkjavavalues(refs), st)[r -- sks .first]), disjoint(str, refs, st), validreflist(str, mkjavavalues(refs), ty, st), newref(r, st) ⊦ sks = [], r = jvmref, r0 = jvmref, sks0 = [], sks0 = sks, refs = [], dups(refs), hasSharing(refs, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ # refs = 0 ↔ refs = []], [CSIMPSEQ : ⊦ 0 < n ↔ n ≠ 0], [CSIMPSEQ : 0 ≤ i ⊦ ((* i)) < n→i(n) ↔ i→n(i) < n], [CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [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))])]]