| ∀ a0. a0 ∈ st[a, st0[a]] → (∃ st1. ¬ a0 ∈ st1 ∧ st[a, st0[a]] = st1[a0, st[a, st0[a]][a0]]) ⊦ a1 = a0, a = a0, a ∈ st, (a1 ∈ st[a, st0[a]][a0, d] ↔ a1 ∈ st[a0, d][a, st0[a]]) ∧ st[a, st0[a]][a0, d][a1] = st[a0, d][a, st0[a]][a1], ∃ st1. ¬ a ∈ st1 ∧ st[a, st0[a]][a0, d] = st1[a, st0[a]] |
∀ a0. a0 ∈ st[a, st0[a]] → (∃ st1. ¬ a0 ∈ st1 ∧ st[a, st0[a]] = st1[a0, st[a, st0[a]][a0]]) ⊦ a1 = a0, a = a0, a ∈ st, ∃ st1. ¬ a ∈ st1 ∧ st[a, st0[a]][a0, d] = st1[a, st0[a]], (a1 ∈ st[a, st0[a]] ↔ a1 ∈ st[a0, d][a, st0[a]]) ∧ st[a, st0[a]][a1] = st[a0, d][a, st0[a]][a1]
Used simplifier rules: in-neq: ⊦ a ≠ b → (a ∈ st[b, d] ↔ a ∈ st);%At-other: ⊦ a ≠ b → st[b, d][a] = st[a];