Used simplifier rules: Del-rec-same: ⊦ st[a, d] -- a = st -- a;%notin-del-notin: ⊦ ¬ a ∈ st → st -- a = st;%k-Extension: ⊦ st1 = st2 ↔ (∀ a. (a ∈ st1 ↔ a ∈ st2) ∧ (a ∈ st1 → st1[a] = st2[a]));