Theorem reu6 2915

Description: A way to express restricted uniqueness. (Contributed by NM, 20-Oct-2006.)

Assertion

Ref	Expression
reu6	⊢ (∃!𝑥 ∈ 𝐴 𝜑 ↔ ∃𝑦 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦))

Distinct variable groups:   𝑥,𝑦,𝐴   𝜑,𝑦

Allowed substitution hint:   𝜑(𝑥)

Proof of Theorem reu6

Step	Hyp	Ref	Expression
1		df-reu 2451	. 2 ⊢ (∃!𝑥 ∈ 𝐴 𝜑 ↔ ∃!𝑥(𝑥 ∈ 𝐴 ∧ 𝜑))
2		19.28v 1888	. . . . 5 ⊢ (∀𝑥(𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) ↔ (𝑦 ∈ 𝐴 ∧ ∀𝑥(𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))))
3		eleq1 2229	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 ↔ 𝑦 ∈ 𝐴))
4		sbequ12 1759	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → (𝜑 ↔ [𝑦 / 𝑥]𝜑))
5	3, 4	anbi12d 465	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → ((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ (𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑)))
6		equequ1 1700	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝑥 = 𝑦 ↔ 𝑦 = 𝑦))
7	5, 6	bibi12d 234	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ↔ ((𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑) ↔ 𝑦 = 𝑦)))
8		equid 1689	. . . . . . . . . . . 12 ⊢ 𝑦 = 𝑦
9	8	tbt 246	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑) ↔ ((𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑) ↔ 𝑦 = 𝑦))
10		simpl 108	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑) → 𝑦 ∈ 𝐴)
11	9, 10	sylbir 134	. . . . . . . . . 10 ⊢ (((𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑) ↔ 𝑦 = 𝑦) → 𝑦 ∈ 𝐴)
12	7, 11	syl6bi 162	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → 𝑦 ∈ 𝐴))
13	12	spimv 1799	. . . . . . . 8 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → 𝑦 ∈ 𝐴)
14		biimp 117	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → ((𝑥 ∈ 𝐴 ∧ 𝜑) → 𝑥 = 𝑦))
15	14	expdimp 257	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ∧ 𝑥 ∈ 𝐴) → (𝜑 → 𝑥 = 𝑦))
16		biimpr 129	. . . . . . . . . . . . 13 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 ∧ 𝜑)))
17		simpr 109	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝜑) → 𝜑)
18	16, 17	syl6 33	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → (𝑥 = 𝑦 → 𝜑))
19	18	adantr 274	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ∧ 𝑥 ∈ 𝐴) → (𝑥 = 𝑦 → 𝜑))
20	15, 19	impbid 128	. . . . . . . . . 10 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ∧ 𝑥 ∈ 𝐴) → (𝜑 ↔ 𝑥 = 𝑦))
21	20	ex 114	. . . . . . . . 9 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)))
22	21	sps 1525	. . . . . . . 8 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)))
23	13, 22	jca 304	. . . . . . 7 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → (𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))))
24	23	a5i 1531	. . . . . 6 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → ∀𝑥(𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))))
25		biimp 117	. . . . . . . . . . 11 ⊢ ((𝜑 ↔ 𝑥 = 𝑦) → (𝜑 → 𝑥 = 𝑦))
26	25	imim2i 12	. . . . . . . . . 10 ⊢ ((𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)) → (𝑥 ∈ 𝐴 → (𝜑 → 𝑥 = 𝑦)))
27	26	impd 252	. . . . . . . . 9 ⊢ ((𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)) → ((𝑥 ∈ 𝐴 ∧ 𝜑) → 𝑥 = 𝑦))
28	27	adantl 275	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) → ((𝑥 ∈ 𝐴 ∧ 𝜑) → 𝑥 = 𝑦))
29		eleq1a 2238	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ 𝐴 → (𝑥 = 𝑦 → 𝑥 ∈ 𝐴))
30	29	adantr 274	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) → (𝑥 = 𝑦 → 𝑥 ∈ 𝐴))
31	30	imp 123	. . . . . . . . . 10 ⊢ (((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) ∧ 𝑥 = 𝑦) → 𝑥 ∈ 𝐴)
32		biimpr 129	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ↔ 𝑥 = 𝑦) → (𝑥 = 𝑦 → 𝜑))
33	32	imim2i 12	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)) → (𝑥 ∈ 𝐴 → (𝑥 = 𝑦 → 𝜑)))
34	33	com23 78	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)) → (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 → 𝜑)))
35	34	imp 123	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)) ∧ 𝑥 = 𝑦) → (𝑥 ∈ 𝐴 → 𝜑))
36	35	adantll 468	. . . . . . . . . 10 ⊢ (((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) ∧ 𝑥 = 𝑦) → (𝑥 ∈ 𝐴 → 𝜑))
37	31, 36	jcai 309	. . . . . . . . 9 ⊢ (((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) ∧ 𝑥 = 𝑦) → (𝑥 ∈ 𝐴 ∧ 𝜑))
38	37	ex 114	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) → (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 ∧ 𝜑)))
39	28, 38	impbid 128	. . . . . . 7 ⊢ ((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) → ((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦))
40	39	alimi 1443	. . . . . 6 ⊢ (∀𝑥(𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) → ∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦))
41	24, 40	impbii 125	. . . . 5 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ↔ ∀𝑥(𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))))
42		df-ral 2449	. . . . . 6 ⊢ (∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦) ↔ ∀𝑥(𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)))
43	42	anbi2i 453	. . . . 5 ⊢ ((𝑦 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦)) ↔ (𝑦 ∈ 𝐴 ∧ ∀𝑥(𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))))
44	2, 41, 43	3bitr4i 211	. . . 4 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ↔ (𝑦 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦)))
45	44	exbii 1593	. . 3 ⊢ (∃𝑦∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ↔ ∃𝑦(𝑦 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦)))
46		df-eu 2017	. . 3 ⊢ (∃!𝑥(𝑥 ∈ 𝐴 ∧ 𝜑) ↔ ∃𝑦∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦))
47		df-rex 2450	. . 3 ⊢ (∃𝑦 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦) ↔ ∃𝑦(𝑦 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦)))
48	45, 46, 47	3bitr4i 211	. 2 ⊢ (∃!𝑥(𝑥 ∈ 𝐴 ∧ 𝜑) ↔ ∃𝑦 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦))
49	1, 48	bitri 183	1 ⊢ (∃!𝑥 ∈ 𝐴 𝜑 ↔ ∃𝑦 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦))

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104  ∀wal 1341  ∃wex 1480  [wsb 1750  ∃!weu 2014   ∈ wcel 2136  ∀wral 2444  ∃wrex 2445  ∃!wreu 2446

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-5 1435  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-ext 2147

This theorem depends on definitions:  df-bi 116  df-nf 1449  df-sb 1751  df-eu 2017  df-cleq 2158  df-clel 2161  df-ral 2449  df-rex 2450  df-reu 2451

This theorem is referenced by:  reu3  2916  reu6i  2917  reu8  2922  xpf1o  6810