| ∀ st0. ¬ (# st0 .refs < # st1 .refs ∧ st1 ⊆ st0), # st0 .refs < # st1[rk, val] .refs, st1[rk, val] ⊆ st0 ⊦ |
⊦ st[rk, val] .refs = st .refs ++ rk .ref
# st0 .refs < # (st1 .refs ++ rk .ref), st1[rk, val] ⊆ st0, ∀ st. # st1 .refs ≤ # st .refs ∨ ¬ st1 ⊆ st ⊦
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m < n → n ≠ 0], [CSIMPFORWARD : ⊦ m < n → n ≠ 0], [CSIMPSEQ : ⊦ ¬ m < n ↔ n ≤ m])]]