| st ⊆ st0, r -- (sk ' + sks0) ∈ st, ∀ r, st, st0. r -- sks0 ∈ st ∧ st ⊆ st0 → sks0 = [] ∨ r -- sks0 ∈ st0 ⊦ r -- (sk ' + sks0) ∈ st0 |
⊦ r -- sk ' ∈ st ↔ r -- sk ∈ st
st ⊆ st0, r -- (sk ' + sks0) ∈ st, ∀ r, st, st0. r -- sks0 ∈ st ∧ st ⊆ st0 → sks0 = [] ∨ r -- sks0 ∈ st0 ⊦ sks0 = [], r -- (sk ' + sks0) ∈ st0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sks + [] = sks], [CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPSEQ : ⊦ rk ∈ st ∧ ¬ rk ∈ st0 → ¬ st ⊆ st0])], [EXTRAFMAS : (sks0 = [])]]