Theorem eu1 2598

Description: An alternate way to express uniqueness used by some authors. Exercise 2(b) of [Margaris] p. 110. (Contributed by NM, 20-Aug-1993.) (Revised by Mario Carneiro, 7-Oct-2016.) (Proof shortened by Wolf Lammen, 29-Oct-2018.) Avoid ax-13 2365. (Revised by Wolf Lammen, 7-Feb-2023.)

Hypothesis

Ref	Expression
eu1.nf	⊢ Ⅎ𝑦𝜑

Assertion

Ref	Expression
eu1	⊢ (∃!𝑥𝜑 ↔ ∃𝑥(𝜑 ∧ ∀𝑦([𝑦 / 𝑥]𝜑 → 𝑥 = 𝑦)))

Distinct variable group:   𝑥,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦)

Proof of Theorem eu1

Step	Hyp	Ref	Expression
1		nfs1v 2145	. . 3 ⊢ Ⅎ𝑥[𝑦 / 𝑥]𝜑
2	1	euf 2564	. 2 ⊢ (∃!𝑦[𝑦 / 𝑥]𝜑 ↔ ∃𝑥∀𝑦([𝑦 / 𝑥]𝜑 ↔ 𝑦 = 𝑥))
3		eu1.nf	. . 3 ⊢ Ⅎ𝑦𝜑
4	3	sb8euv 2587	. 2 ⊢ (∃!𝑥𝜑 ↔ ∃!𝑦[𝑦 / 𝑥]𝜑)
5	3	sb6rfv 2347	. . . . 5 ⊢ (𝜑 ↔ ∀𝑦(𝑦 = 𝑥 → [𝑦 / 𝑥]𝜑))
6		equcom 2013	. . . . . . 7 ⊢ (𝑥 = 𝑦 ↔ 𝑦 = 𝑥)
7	6	imbi2i 335	. . . . . 6 ⊢ (([𝑦 / 𝑥]𝜑 → 𝑥 = 𝑦) ↔ ([𝑦 / 𝑥]𝜑 → 𝑦 = 𝑥))
8	7	albii 1813	. . . . 5 ⊢ (∀𝑦([𝑦 / 𝑥]𝜑 → 𝑥 = 𝑦) ↔ ∀𝑦([𝑦 / 𝑥]𝜑 → 𝑦 = 𝑥))
9	5, 8	anbi12ci 627	. . . 4 ⊢ ((𝜑 ∧ ∀𝑦([𝑦 / 𝑥]𝜑 → 𝑥 = 𝑦)) ↔ (∀𝑦([𝑦 / 𝑥]𝜑 → 𝑦 = 𝑥) ∧ ∀𝑦(𝑦 = 𝑥 → [𝑦 / 𝑥]𝜑)))
10		albiim 1884	. . . 4 ⊢ (∀𝑦([𝑦 / 𝑥]𝜑 ↔ 𝑦 = 𝑥) ↔ (∀𝑦([𝑦 / 𝑥]𝜑 → 𝑦 = 𝑥) ∧ ∀𝑦(𝑦 = 𝑥 → [𝑦 / 𝑥]𝜑)))
11	9, 10	bitr4i 277	. . 3 ⊢ ((𝜑 ∧ ∀𝑦([𝑦 / 𝑥]𝜑 → 𝑥 = 𝑦)) ↔ ∀𝑦([𝑦 / 𝑥]𝜑 ↔ 𝑦 = 𝑥))
12	11	exbii 1842	. 2 ⊢ (∃𝑥(𝜑 ∧ ∀𝑦([𝑦 / 𝑥]𝜑 → 𝑥 = 𝑦)) ↔ ∃𝑥∀𝑦([𝑦 / 𝑥]𝜑 ↔ 𝑦 = 𝑥))
13	2, 4, 12	3bitr4i 302	1 ⊢ (∃!𝑥𝜑 ↔ ∃𝑥(𝜑 ∧ ∀𝑦([𝑦 / 𝑥]𝜑 → 𝑥 = 𝑦)))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 394  ∀wal 1531  ∃wex 1773  Ⅎwnf 1777  [wsb 2059  ∃!weu 2556

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-10 2129  ax-11 2146  ax-12 2166

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-tru 1536  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557

This theorem is referenced by:  kmlem15  10194