| sks0 ⊑ sks1, fits(r, sks1 + sk ', st) ⊦ is_referencevalue(st[r -- sks0]), junkref(str, r, st) |
∀ sks0, r, sk, st, str. sks0 ⊑ sks ∧ fits(r, sks + sk ', st) → is_referencevalue(st[r -- sks0]) ∨ junkref(str, r, st), sks0 ⊑ sk0 + sks, fits(r, (sk0 + sks) + sk ', st) ⊦ is_referencevalue(st[r -- sks0]), junkref(str, r, st)
[[CONCRETESIMPRULES : ([CSIMPGEN : storekeys generated by [], +;], [CSIMPNAMEDSEQ : list-last, storekeys, eq-01-01, ⊦ sks ⊑ [] ↔ sks = []], [CSIMPNAMEDSEQ : list, storekeys, Nil, ⊦ [] + sks = sks], [CSIMPNAMEDSEQ : list, storekeys, a, ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPNAMEDSEQ : storefuns, , lookup-empty, ⊦ st[r -- []] = refval(r)], [CSIMPNAMEDSEQ : javavalue, , test-19, ⊦ is_referencevalue(refval(r))])]]