| sks = sk + sks1, (addarray(r, ty, mkjavavalues(refs), st)[r -- sks]) = refval(r0), (addarray(r, ty, mkjavavalues(refs), st)[r -- sks0]) = refval(r0), 0 ≤ sk .index, sk .index < n→i(# refs), is_indexkey(sk), fits(r, sks0, addarray(r, ty, mkjavavalues(refs), st)), fits((addarray(r, ty, mkjavavalues(refs), st)[r -- sk]) .refval, sks1, addarray(r, ty, mkjavavalues(refs), st)), is_referencevalue(addarray(r, ty, mkjavavalues(refs), st)[r -- sk]), 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) |
(addarray(r, ty, mkjavavalues(refs), st)[r -- sks0]) = refval(r0), (addarray(r, ty, mkjavavalues(refs), st)[r -- (sk ' + sks1)]) = refval(r0), sk .index < n→i(# refs), is_indexkey(sk), fits(r, sks0, addarray(r, ty, mkjavavalues(refs), st)), fits((addarray(r, ty, mkjavavalues(refs), st)[r -- sk]) .refval, sks1, addarray(r, ty, mkjavavalues(refs), st)), is_referencevalue(addarray(r, ty, mkjavavalues(refs), st)[r -- sk]), disjoint(str, refs, st), validreflist(str, mkjavavalues(refs), ty, st), newref(r, st), 0 ≤ sk .index ⊦ refs = [], r = jvmref, r0 = jvmref, sks0 = [], sks0 = sk ' + sks1, dups(refs), hasSharing(refs, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPSEQ : ⊦ sk ' + sks ≠ []], [CSIMPSEQ : ⊦ sk + sks = sk ' + sks])]]