| ⊦ # addobj(newref(st), class, fis, st) .refs = # st .refs + 1 |
⊦ addobj(r, class, fis, st) .refs = st .refs ++ r
newref(st) ∈ st .refs ⊦ st = ∅
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ st .refs = ∅ ↔ st = ∅], [CSIMPFORWARD : ⊦ r ∈ rset → rset ≠ ∅], [CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ # rset + 1 = # (rset ++ r) ↔ ¬ r ∈ rset])]]