| ¬ sks0 ≠ [], fits(r, sk ' + sks0, st), ∀ str, r, st. sks0 ≠ [] ∧ ¬ junkref(str, r, st) ∧ fits(r, sks0, st) → r -- sks0 ∈ st ⊦ junkref(str, r, st), r -- (sk ' + sks0) ∈ st |
fits(r, sk ', st) ⊦ junkref(str, r, st), r -- sk ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk ' ∈ st ↔ r -- sk ∈ st], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPSEQ : ⊦ sks + [] = sks])]]