| fis[sk] = refval(r0), st[r0 -- sks] = refval(r2), st[r3 -- sks0] = refval(r2), fis[sk0] = refval(r3), is_referencevalue(addobj(r, class, fis, st)[r -- (sk ' + sks)]), sk0 ∈ fis .keys, sk ∈ fis .keys, sk0 ∈ fis, sk ∈ fis, fits(r3, sks0, st), fits(r0, sks, st), newref(r, st), validfieldinits(str, fis, st) ⊦ r0 = jvmref, r = jvmref, r2 = jvmref, r3 = r0, r3 = jvmref, sk = sk0, refval(r2) = (addobj(r, class, fis, st)[r -- (sk0 ' + sks0)]), hasSharing(fis .vals .nonnullrefs, st), dups(fis .vals .nonnullrefs), junkref(str, r, addobj(r, class, fis, st)), junkref(str, r0, st), junkref(str, r3, st) |
⊦ sks ≠ [] → st[r -- (sk ' + sks)] = st[st[r -- sk] .refval -- sks]
⊦ fits(r, [], st)
sks0 ≠ [], fis[sk] = refval(r0), st[r0 -- sks] = refval(r2), st[r3 -- sks0] = refval(r2), fis[sk0] = refval(r3), is_referencevalue(addobj(r, class, fis, st)[r -- (sk ' + sks)]), sk0 ∈ fis .keys, sk ∈ fis .keys, sk0 ∈ fis, sk ∈ fis, fits(r3, sks0, st), fits(r0, sks, st), newref(r, st), validfieldinits(str, fis, st) ⊦ r0 = jvmref, r = jvmref, r2 = jvmref, r3 = r0, r3 = jvmref, sk = sk0, refval(r2) = (addobj(r, class, fis, st)[(addobj(r, class, fis, st)[r -- sk0]) .refval -- sks0]), hasSharing(fis .vals .nonnullrefs, st), dups(fis .vals .nonnullrefs), junkref(str, r, addobj(r, class, fis, st)), junkref(str, r0, st), junkref(str, r3, st)
[[CONCRETESIMPRULES : ([CSIMPNAMEDSEQ : storefuns, , lookup-empty, ⊦ st[r -- []] = refval(r)], [CSIMPNAMEDSEQ : javavalue, , inj-03, ⊦ refval(r) = refval(r0) ↔ r = r0], [CSIMPNAMEDSEQ : list, storekeys, app, ⊦ sks + [] = sks], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPNAMEDSEQ : storefuns, , lookup-one, ⊦ st[r -- sk '] = st[r -- sk]], [CSIMPNAMEDSEQ : addfuns, , add-in-09, ⊦ sk ∈ fis → (addobj(r, class, fis, st) [r -- sk ] ) = fis[sk]])], [EXTRATERMS : (sks0, sk0, r, addobj(r, class, fis, st))]]