| refs = r + refs0, validrefs(str, refs, ty, st) ⊦ refs = [], ∃ sks. fits(r, sks, st) ∧ st[r -- sks] .refval = refs .last |
validrefs(str, r ' + refs0, ty, st) ⊦ ∃ sks. fits(r, sks, st) ∧ st[r -- sks] .refval = (r ' + refs0) .last
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (refs + refs0) + refs1 = refs + refs0 + refs1], [CSIMPSEQ : ⊦ r ' + refs ≠ []], [CSIMPSEQ : ⊦ r + refs = r ' + refs])]]