| ¬ sks2 ≠ [], st[r0 -- _type] .type = mkarraytype(ty), st[r -- sks] = refval(r1), st[r -- sks1] = refval(r0), (st[r0 -- i ', refval(r2)][r0 -- (i ' ' + sks2)]) = refval(r1), 0 < st[r0 -- _length] .intval, 0 ≤ i, i < st[r0 -- _length] .intval, validref(str, r2, ty, st), disjoint(str, r ' + r2 ', st), fits(r, sks, st), fits(r, sks1, st), fits(r2, sks2, st[r0 -- i ', refval(r2)]), r2 = jvmref → is_reftype(ty) ⊦ sks1 = [], sks1 + i ' ' + sks2 = sks, sks = [], r1 = jvmref, r = r2, r0 = jvmref, hasSharing(r, st), hasSharing(r2, st), junkref(str, r, st), ∃ sks0, sks3. sks = sks0 + i ' ' + sks3 ∧ st[r -- sks0] .refval = r0 ∧ (∀ sks2. sks2 + i ' ' ⊑ sks0 → st[r -- sks2] .refval ≠ st[r -- sks0] .refval), ∃ sks3. ¬ (sks3 + i ' ' ⊑ sks1 → st[r -- sks3] .refval ≠ r0), ∃ sks0, sks3. sks1 = sks0 + i ' ' + sks3 ∧ st[r -- sks0] .refval = r0 ∧ (∀ sks4. sks4 + i ' ' ⊑ sks0 → st[r -- sks4] .refval ≠ st[r -- sks0] .refval) |
⊦ fits(r, [], st)
st[r -- sks1] = refval(r0), st[r -- sks] = refval(r1), st[r0 -- _type] .type = mkarraytype(ty), fits(r, sks1, st), fits(r, sks, st), disjoint(str, r ' + r1 ', st), validref(str, r1, ty, st), i < st[r0 -- _length] .intval, 0 ≤ i, 0 < st[r0 -- _length] .intval ⊦ sks1 + i ' ' = sks, sks1 = [], r0 = jvmref, r = r1, r1 = jvmref, sks = [], junkref(str, r, st), hasSharing(r1, st), hasSharing(r, st), ∃ sks0, sks3. sks1 = sks0 + i ' ' + sks3 ∧ st[r -- sks0] .refval = r0 ∧ (∀ sks4. sks4 + i ' ' ⊑ sks0 → st[r -- sks4] .refval ≠ st[r -- sks0] .refval), ∃ sks3. ¬ (sks3 + i ' ' ⊑ sks1 → st[r -- sks3] .refval ≠ r0), ∃ sks0, sks3. sks = sks0 + i ' ' + sks3 ∧ st[r -- sks0] .refval = r0 ∧ (∀ sks2. sks2 + i ' ' ⊑ sks0 → st[r -- sks2] .refval ≠ st[r -- sks0] .refval)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : javavalue, , inj-03, ⊦ refval(r) = refval(r0) ↔ r = r0], [CSIMPNAMEDSEQ : store, javastore, At-same, ⊦ (st[rk, val][rk]) = val], [CSIMPNAMEDSEQ : storefuns, , lookup-one, ⊦ st[r -- sk '] = st[r -- sk]], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPNAMEDSEQ : list, storekeys, app, ⊦ sks + [] = sks])]]