| st[r -- sks] = refval(r1), st[st[r -- sks1] .refval -- _type] .type = mkarraytype(ty), (st[st[r -- sks1] .refval -- i ', refval(r2)][r -- (sks1 + i ' ' + sks2)]) = refval(r1), fits(r, sks1 + i ' ' + sks2, st[st[r -- sks1] .refval -- i ', refval(r2)]), fits(r, sks, st), disjoint(str, r ' + r2 ', st), validref(str, r2, ty, st), r2 = jvmref → is_reftype(ty) ⊦ st[r -- sks1] .refval = jvmref, r = r2, r1 = jvmref, sks = [], sks1 + i ' ' + sks2 = sks, junkref(str, r, st), hasSharing(r2, st), hasSharing(r, st), ∃ sks3. ¬ (sks3 + i ' ' ⊑ sks1 → st[r -- sks3] .refval ≠ st[r -- sks1] .refval), ∃ sks0, sks3. sks = sks0 + i ' ' + sks3 ∧ st[r -- sks0] .refval = st[r -- sks1] .refval ∧ (∀ sks2. sks2 + i ' ' ⊑ sks0 → st[r -- sks2] .refval ≠ st[r -- sks0] .refval) |
st[r -- sks1] = refval(r0) ∧ is_referencevalue(st[r -- sks1]), st[r -- sks] = refval(r1), st[r0 -- _type] .type = mkarraytype(ty), (st[r0 -- i ', refval(r2)][r -- (sks1 + i ' ' + sks2)]) = refval(r1), fits(r, sks1 + i ' ' + sks2, st[r0 -- i ', refval(r2)]), fits(r, sks, st), disjoint(str, r ' + r2 ', st), validref(str, r2, ty, st), r2 = jvmref → is_reftype(ty) ⊦ r0 = jvmref, r = r2, r1 = jvmref, sks = [], sks1 + i ' ' + sks2 = sks, junkref(str, r, st), hasSharing(r2, st), hasSharing(r, st), ∃ 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 : valuefuns, , refval-xtra, ⊦ ¬ is_referencevalue(val) → val .refval = jvmref], [CSIMPELIM : is_referencevalue(val) ⊦ r = val .refval ↔ val = refval(r)])], [EXTRATERMS : (st[r -- sks1], r0)]]