| is_shortvalue(st[r1 -- fs ']), fits(r, sks, st) ⊦ (st[r1 -- fs ', val][r -- sks]) = st[r -- sks], junkref(str, r, st) |
∀ st, r1, fs, r, val, str. is_shortvalue(st[r1 -- fs ']) ∧ fits(r, sks0, st) → (st[r1 -- fs ', val][r -- sks0]) = st[r -- sks0] ∨ junkref(str, r, st), is_shortvalue(st[r1 -- fs ']), fits(r, sk + sks0, st) ⊦ (st[r1 -- fs ', val][r -- (sk + sks0)]) = st[r -- (sk + sks0)], junkref(str, r, st)
[[CONCRETESIMPRULES : ([CSIMPGEN : storekeys generated by [], +;], [CSIMPSEQ : ⊦ st[r -- []] = refval(r)], [CSIMPSEQ : ⊦ refval(r) = refval(r0) ↔ r = r0])]]