| st[r4 -- sks] = refval(r0), st[r -- sks1] = refval(r0), (st[r0 -- i ', refval(r4)][r4 -- (sks + i ' ' + sks4)]) = refval(r1), st[r0 -- _type] .type = mkarraytype(ty), st[r -- sks0] = refval(r1), 0 ≤ i, i < st[r0 -- _length] .intval, fits((st[r0 -- i ', refval(r4)][r4 -- sks]) .refval, i ' ' + sks4, st[r0 -- i ', refval(r4)]), fits(r4, sks, st[r0 -- i ', refval(r4)]), fits(r, sks1, st), disjoint(str, r ' + r4 ', st), validref(str, r4, ty, st), fits(r, sks0, st), is_referencevalue(st[r0 -- i ', refval(r4)][r0 -- (i ' ' + sks + i ' ' + sks4)]), 0 < st[r0 -- _length] .intval ⊦ r0 = jvmref, r = r4, r1 = jvmref, sks0 = [], sks0 = sks1 + i ' ' + sks + i ' ' + sks4, sks1 = [], r4 = jvmref, junkref(str, r, st), hasSharing(r4, st), hasSharing(r, st), ∃ sks2. ¬ (sks2 + i ' ' ⊑ sks → st[r4 -- sks2] .refval ≠ r0), ∃ sks1, sks2. sks0 = sks1 + i ' ' + sks2 ∧ st[r -- sks1] .refval = r0 ∧ (∀ sks4. sks4 + i ' ' ⊑ sks1 → st[r -- sks4] .refval ≠ st[r -- sks1] .refval), ∃ sks0, sks2. sks1 = sks0 + i ' ' + sks2 ∧ st[r -- sks0] .refval = r0 ∧ (∀ sks4. sks4 + i ' ' ⊑ sks0 → st[r -- sks4] .refval ≠ st[r -- sks0] .refval), ∃ sks2. ¬ (sks2 + i ' ' ⊑ sks1 → st[r -- sks2] .refval ≠ r0) |
⊦ fits(jvmref, sks, st) ↔ sks = []
(st[r0 -- i ', refval(r4)][r4 -- sks]) = refval(r2) ∧ is_referencevalue(st[r0 -- i ', refval(r4)][r4 -- sks]), st[r4 -- sks] = refval(r0), st[r -- sks1] = refval(r0), (st[r0 -- i ', refval(r4)][r4 -- (sks + i ' ' + sks4)]) = refval(r1), st[r0 -- _type] .type = mkarraytype(ty), st[r -- sks0] = refval(r1), 0 ≤ i, i < st[r0 -- _length] .intval, fits(r2, i ' ' + sks4, st[r0 -- i ', refval(r4)]), fits(r4, sks, st[r0 -- i ', refval(r4)]), fits(r, sks1, st), disjoint(str, r ' + r4 ', st), validref(str, r4, ty, st), fits(r, sks0, st), is_referencevalue(st[r0 -- i ', refval(r4)][r0 -- (i ' ' + sks + i ' ' + sks4)]), 0 < st[r0 -- _length] .intval ⊦ r0 = jvmref, r = r4, r1 = jvmref, sks0 = [], sks0 = sks1 + i ' ' + sks + i ' ' + sks4, sks1 = [], r4 = jvmref, junkref(str, r, st), hasSharing(r4, st), hasSharing(r, st), ∃ sks2. ¬ (sks2 + i ' ' ⊑ sks → st[r4 -- sks2] .refval ≠ r0), ∃ sks1, sks2. sks0 = sks1 + i ' ' + sks2 ∧ st[r -- sks1] .refval = r0 ∧ (∀ sks4. sks4 + i ' ' ⊑ sks1 → st[r -- sks4] .refval ≠ st[r -- sks1] .refval), ∃ sks0, sks2. sks1 = sks0 + i ' ' + sks2 ∧ st[r -- sks0] .refval = r0 ∧ (∀ sks4. sks4 + i ' ' ⊑ sks0 → st[r -- sks4] .refval ≠ st[r -- sks0] .refval), ∃ sks2. ¬ (sks2 + i ' ' ⊑ sks1 → st[r -- sks2] .refval ≠ r0)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : valuefuns, , refval-xtra, ⊦ ¬ is_referencevalue(val) → val .refval = jvmref], [CSIMPNAMEDSEQ : list, storekeys, app-02-ant, ⊦ ¬ sks + sks0 ≠ [] ↔ sks = [] ∧ sks0 = []], [CSIMPNAMEDSEQ : list, storekeys, e, ⊦ sk ' ≠ []], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPELIM : is_referencevalue(val) ⊦ r = val .refval ↔ val = refval(r)])], [EXTRATERMS : (st[r0 -- i ', refval(r4)][r4 -- sks], r2)]]