| sks0 ≠ [], sks0 ≠ [], st ⊆ st0, r -- sk ∈ st ∧ st[r -- sk] .refval -- sks0 ∈ st, ∀ r0, st1, st2. r0 -- sks0 ∈ st1 ∧ st1 ⊆ st2 → r0 -- sks0 ∈ st2 ⊦ sks0 = [], r -- sk ∈ st0 ∧ st0[r -- sk] .refval -- sks0 ∈ st0 |
⊦ r -- sk ∈ st → r ∈ st
st ⊆ st0, r -- sk ∈ st, st[r -- sk] .refval -- sks0 ∈ st, r -- sk ∈ st0, r ∈ st, r ∈ st0, ∀ r0, st1, st2. r0 -- sks0 ∈ st1 ∧ st1 ⊆ st2 → r0 -- sks0 ∈ st2 ⊦ sks0 = [], st0[r -- sk] .refval -- sks0 ∈ st0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ rk ∈ st ∧ ¬ rk ∈ st0 → ¬ st ⊆ st0])]]