| ¬ a0 ∈ s, a ∈ s ⊦ s = ∅, # s = 0, (a0 ∈ st[a, d] \ s ↔ a0 ∈ st \ s) ∧ st[a, d][a0] = (st \ s)[a0] |
a ∈ s ⊦ s = ∅, # s = 0, a0 ∈ s, (a0 ∈ st → a0 ∈ st[a, d]) ∧ st[a, d][a0] = st[a0]
Used simplifier rules: Diff-ext: ⊦ a ∈ st \ s ↔ a ∈ st ∧ ¬ a ∈ s;%Diff-get: ⊦ ¬ a ∈ s → (st \ s)[a] = st[a];%In-insert: ⊦ a ∈ st[b, d] ↔ a = b ∨ a ∈ st; from specification store