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