| ¬ sks1 ≠ [], ∀ 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) |
⊦ fits(r, [], st)
⊦ fits(r, sk ' + sks0, st) ↔ fits(r, sk ', st) ∧ fits(st[r -- sk] .refval, sks0, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ refval(r) .refval = r], [CSIMPSEQ : ⊦ st[r -- []] = refval(r)], [CSIMPSEQ : ⊦ st[r -- sk '] = st[r -- sk]], [CSIMPSEQ : ⊦ sks + [] = sks], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPSEQ : ⊦ [] + sks = sks])]]