| st1[r -- sk, val] ⊆ st0, # st0 .refs < # (st1 .refs ++ r), ∀ st. # st1 .refs ≤ # st .refs ∨ ¬ st1 ⊆ st ⊦ |
⊦ ¬ r ∈ rset → # (rset ++ r) = # rset + 1
¬ ¬ r ∈ st1 .refs, st1[r -- sk, val] ⊆ st0, # st0 .refs < # (st1 .refs ++ r), ∀ st. # st1 .refs ≤ # st .refs ∨ ¬ st1 ⊆ st ⊦
¬ r ∈ st1 .refs, st1[r -- sk, val] ⊆ st0, # st0 .refs < # st1 .refs + 1, ∀ st. # st1 .refs ≤ # st .refs ∨ ¬ st1 ⊆ st ⊦
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (r, st1 .refs)]]