| a ∈ st[a, d] → a ∈ st0 ∧ d = st0[a], ∀ a0. a0 ∈ st[a, d] → a0 ∈ st0 ∧ st[a, d][a0] = st0[a0] ⊦ a0 = a, (a0 ∈ st -- a → a0 ∈ st0 -- a ∧ (st -- a)[a0] = (st0 -- a)[a0]) ∧ a ∈ st0 ∧ st0[a] = d |
a0 ∈ st, a ∈ st0, a ∈ st[a, st0[a]], ∀ a0. a0 ∈ st[a, st0[a]] → a0 ∈ st0 ∧ st[a, st0[a]][a0] = st0[a0] ⊦ a0 = a, a0 ∈ st0 ∧ st[a0] = st0[a0]
Used simplifier rules: Del-in: ⊦ a ∈ st -- b ↔ a ≠ b ∧ a ∈ st;%Del-at-strong: a ≠ b ⊦ (st -- b)[a] = st[a];%In-insert: ⊦ a ∈ st[b, d] ↔ a = b ∨ a ∈ st;