⊦ #(st -- a) = # (st -- a)[a, st[a]] - 1
Used simplifier rules: insert: ⊦ st[a, d] -- a = st -- a;%deldel: ⊦ st -- a -- a = st -- a;