| ⊦ fits(r, sks + sks0, st) ↔ fits(r, sks, st) ∧ fits(st[r -- sks] .refval, sks0, st) |
⊦ fits(r, [], st)
∀ r, sks0, st. fits(r, sks1 + sks0, st) ↔ fits(r, sks1, st) ∧ fits(st[r -- sks1] .refval, sks0, st) ⊦ fits(r, (sk + sks1) + sks0, st) ↔ fits(r, sk + sks1, st) ∧ fits(st[r -- (sk + sks1)] .refval, sks0, st)
[[CONCRETESIMPRULES : ([CSIMPGEN : storekeys generated by [], +;], [CSIMPSEQ : ⊦ [] + sks = sks], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPSEQ : ⊦ st[r -- []] = refval(r)], [CSIMPSEQ : ⊦ refval(r) .refval = r])]]