| ¬ ¬ r ∈ st1 .refs, st1[r -- sk, val] ⊆ st0, # st0 .refs < # (st1 .refs ++ r), ∀ st. # st1 .refs ≤ # st .refs ∨ ¬ st1 ⊆ st ⊦ |
⊦ st .refs = ∅ ↔ st = ∅
# st0 .refs < # st1 .refs, st1[r -- sk, val] ⊆ st0, r ∈ st1 .refs, ∀ st. # st1 .refs ≤ # st .refs ∨ ¬ st1 ⊆ st ⊦ st1 = ∅
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m < n → n ≠ 0], [CSIMPFORWARD : ⊦ r ∈ rset → rset ≠ ∅], [CSIMPFORWARD : ⊦ m < n → n ≠ 0], [CSIMPSEQ : ⊦ r ∈ rset → rset ++ r = rset])]]