Theorem reu6 2730

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 2313	. 2 ⊢ (∃!𝑥 ∈ 𝐴 𝜑 ↔ ∃!𝑥(𝑥 ∈ 𝐴 ∧ 𝜑))
2		19.28v 1780	. . . . 5 ⊢ (∀𝑥(𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) ↔ (𝑦 ∈ 𝐴 ∧ ∀𝑥(𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))))
3		eleq1 2100	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 ↔ 𝑦 ∈ 𝐴))
4		sbequ12 1654	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑦 → (𝜑 ↔ [𝑦 / 𝑥]𝜑))
5	3, 4	anbi12d 442	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → ((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ (𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑)))
6		equequ1 1598	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝑥 = 𝑦 ↔ 𝑦 = 𝑦))
7	5, 6	bibi12d 224	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ↔ ((𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑) ↔ 𝑦 = 𝑦)))
8		equid 1589	. . . . . . . . . . . 12 ⊢ 𝑦 = 𝑦
9	8	tbt 236	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑) ↔ ((𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑) ↔ 𝑦 = 𝑦))
10		simpl 102	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑) → 𝑦 ∈ 𝐴)
11	9, 10	sylbir 125	. . . . . . . . . 10 ⊢ (((𝑦 ∈ 𝐴 ∧ [𝑦 / 𝑥]𝜑) ↔ 𝑦 = 𝑦) → 𝑦 ∈ 𝐴)
12	7, 11	syl6bi 152	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → 𝑦 ∈ 𝐴))
13	12	spimv 1692	. . . . . . . 8 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → 𝑦 ∈ 𝐴)
14		bi1 111	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → ((𝑥 ∈ 𝐴 ∧ 𝜑) → 𝑥 = 𝑦))
15	14	expdimp 246	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ∧ 𝑥 ∈ 𝐴) → (𝜑 → 𝑥 = 𝑦))
16		bi2 121	. . . . . . . . . . . . 13 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 ∧ 𝜑)))
17		simpr 103	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝜑) → 𝜑)
18	16, 17	syl6 29	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → (𝑥 = 𝑦 → 𝜑))
19	18	adantr 261	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ∧ 𝑥 ∈ 𝐴) → (𝑥 = 𝑦 → 𝜑))
20	15, 19	impbid 120	. . . . . . . . . 10 ⊢ ((((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ∧ 𝑥 ∈ 𝐴) → (𝜑 ↔ 𝑥 = 𝑦))
21	20	ex 108	. . . . . . . . 9 ⊢ (((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)))
22	21	sps 1430	. . . . . . . 8 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)))
23	13, 22	jca 290	. . . . . . 7 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → (𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))))
24	23	a5i 1435	. . . . . 6 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) → ∀𝑥(𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))))
25		bi1 111	. . . . . . . . . . 11 ⊢ ((𝜑 ↔ 𝑥 = 𝑦) → (𝜑 → 𝑥 = 𝑦))
26	25	imim2i 12	. . . . . . . . . 10 ⊢ ((𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)) → (𝑥 ∈ 𝐴 → (𝜑 → 𝑥 = 𝑦)))
27	26	impd 242	. . . . . . . . 9 ⊢ ((𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)) → ((𝑥 ∈ 𝐴 ∧ 𝜑) → 𝑥 = 𝑦))
28	27	adantl 262	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) → ((𝑥 ∈ 𝐴 ∧ 𝜑) → 𝑥 = 𝑦))
29		eleq1a 2109	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ 𝐴 → (𝑥 = 𝑦 → 𝑥 ∈ 𝐴))
30	29	adantr 261	. . . . . . . . . . 11 ⊢ ((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) → (𝑥 = 𝑦 → 𝑥 ∈ 𝐴))
31	30	imp 115	. . . . . . . . . 10 ⊢ (((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) ∧ 𝑥 = 𝑦) → 𝑥 ∈ 𝐴)
32		bi2 121	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ↔ 𝑥 = 𝑦) → (𝑥 = 𝑦 → 𝜑))
33	32	imim2i 12	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)) → (𝑥 ∈ 𝐴 → (𝑥 = 𝑦 → 𝜑)))
34	33	com23 72	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)) → (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 → 𝜑)))
35	34	imp 115	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)) ∧ 𝑥 = 𝑦) → (𝑥 ∈ 𝐴 → 𝜑))
36	35	adantll 445	. . . . . . . . . 10 ⊢ (((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) ∧ 𝑥 = 𝑦) → (𝑥 ∈ 𝐴 → 𝜑))
37	31, 36	jcai 294	. . . . . . . . 9 ⊢ (((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) ∧ 𝑥 = 𝑦) → (𝑥 ∈ 𝐴 ∧ 𝜑))
38	37	ex 108	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) → (𝑥 = 𝑦 → (𝑥 ∈ 𝐴 ∧ 𝜑)))
39	28, 38	impbid 120	. . . . . . 7 ⊢ ((𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) → ((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦))
40	39	alimi 1344	. . . . . 6 ⊢ (∀𝑥(𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))) → ∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦))
41	24, 40	impbii 117	. . . . 5 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ↔ ∀𝑥(𝑦 ∈ 𝐴 ∧ (𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))))
42		df-ral 2311	. . . . . 6 ⊢ (∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦) ↔ ∀𝑥(𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦)))
43	42	anbi2i 430	. . . . 5 ⊢ ((𝑦 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦)) ↔ (𝑦 ∈ 𝐴 ∧ ∀𝑥(𝑥 ∈ 𝐴 → (𝜑 ↔ 𝑥 = 𝑦))))
44	2, 41, 43	3bitr4i 201	. . . 4 ⊢ (∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ↔ (𝑦 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦)))
45	44	exbii 1496	. . 3 ⊢ (∃𝑦∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦) ↔ ∃𝑦(𝑦 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦)))
46		df-eu 1903	. . 3 ⊢ (∃!𝑥(𝑥 ∈ 𝐴 ∧ 𝜑) ↔ ∃𝑦∀𝑥((𝑥 ∈ 𝐴 ∧ 𝜑) ↔ 𝑥 = 𝑦))
47		df-rex 2312	. . 3 ⊢ (∃𝑦 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦) ↔ ∃𝑦(𝑦 ∈ 𝐴 ∧ ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦)))
48	45, 46, 47	3bitr4i 201	. 2 ⊢ (∃!𝑥(𝑥 ∈ 𝐴 ∧ 𝜑) ↔ ∃𝑦 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦))
49	1, 48	bitri 173	1 ⊢ (∃!𝑥 ∈ 𝐴 𝜑 ↔ ∃𝑦 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 ↔ 𝑥 = 𝑦))

Syntax hints:   → wi 4   ∧ wa 97   ↔ wb 98  ∀wal 1241  ∃wex 1381   ∈ wcel 1393  [wsb 1645  ∃!weu 1900  ∀wral 2306  ∃wrex 2307  ∃!wreu 2308

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-5 1336  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-4 1400  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-ext 2022

This theorem depends on definitions:  df-bi 110  df-nf 1350  df-sb 1646  df-eu 1903  df-cleq 2033  df-clel 2036  df-ral 2311  df-rex 2312  df-reu 2313

This theorem is referenced by:  reu3  2731  reu6i  2732  reu8  2737