Metamath Proof Explorer


Theorem wl-equsaldv

Description: Deduction version of equsal . (Contributed by Wolf Lammen, 27-Jul-2019)

Ref Expression
Hypotheses wl-equsald.1 ⊢ Ⅎ x φ
wl-equsald.2 ⊢ φ → Ⅎ x χ
wl-equsald.3 ⊢ φ → x = y → ψ ↔ χ
Assertion wl-equsaldv ⊢ φ → ∀ x x = y → ψ ↔ χ

Proof

Step Hyp Ref Expression
1 wl-equsald.1 ⊢ Ⅎ x φ
2 wl-equsald.2 ⊢ φ → Ⅎ x χ
3 wl-equsald.3 ⊢ φ → x = y → ψ ↔ χ
4 19.23t ⊢ Ⅎ x χ → ∀ x x = y → χ ↔ ∃ x x = y → χ
5 2 4 syl ⊢ φ → ∀ x x = y → χ ↔ ∃ x x = y → χ
6 3 pm5.74d ⊢ φ → x = y → ψ ↔ x = y → χ
7 1 6 albid ⊢ φ → ∀ x x = y → ψ ↔ ∀ x x = y → χ
8 ax6ev ⊢ ∃ x x = y
9 8 a1bi ⊢ χ ↔ ∃ x x = y → χ
10 9 a1i ⊢ φ → χ ↔ ∃ x x = y → χ
11 5 7 10 3bitr4d ⊢ φ → ∀ x x = y → ψ ↔ χ