| ⊦ a = st[a, d].min, a0 = a, a0 = st[a, d].min, (a0 ∈ st[a, d] -- st[a, d].min ↔ a0 ∈ st -- st.min) ∧ st[a, d][a0] = (st -- st.min)[a0] |
⊦ a = st[a, d].min, a0 = st[a, d].min, a0 = a, (a0 ∈ st ↔ a0 ∈ st -- st.min) ∧ st[a0] = (st -- st.min)[a0]
Used simplifier rules: ⊦ a ≠ b → st[b, d][a] = st[a]; (s)% ⊦ a ≠ b → (a ∈ st[b, d] ↔ a ∈ st); (s)% ⊦ a ∈ st -- b ↔ a ≠ b ∧ a ∈ st; (ws)