Used simplifier rules: Diff-rec: ⊦ st \ (s ++ a) = (st \ s) -- a;%Diff-get: ⊦ ¬ a ∈ s → (st \ s)[a] = st[a];% ⊦ a ≠ b → (st -- b)[a] = st[a]; (s)