Used simplifier rules: del-putsame: ⊦ a ∈ st → (st -- a)[a, st[a]] = st;%Del-in: ⊦ a ∈ st -- b ↔ a ≠ b ∧ a ∈ st;