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