Theorem reu7 3704

Description: Restricted uniqueness using implicit substitution. (Contributed by NM, 24-Oct-2006.)

Hypothesis

Ref	Expression
rmo4.1	⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜓))

Assertion

Ref	Expression
reu7	⊢ (∃!𝑥 ∈ 𝐴 𝜑 ↔ (∃𝑥 ∈ 𝐴 𝜑 ∧ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝜓 → 𝑥 = 𝑦)))

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

Allowed substitution hints:   𝜑(𝑥)   𝜓(𝑦)

Proof of Theorem reu7

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		reu3 3699	. 2 ⊢ (∃!𝑥 ∈ 𝐴 𝜑 ↔ (∃𝑥 ∈ 𝐴 𝜑 ∧ ∃𝑧 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 → 𝑥 = 𝑧)))
2		rmo4.1	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝜑 ↔ 𝜓))
3		equequ1 2052	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → (𝑥 = 𝑧 ↔ 𝑦 = 𝑧))
4		equcom 2045	. . . . . . . 8 ⊢ (𝑦 = 𝑧 ↔ 𝑧 = 𝑦)
5	3, 4	bitrdi 290	. . . . . . 7 ⊢ (𝑥 = 𝑦 → (𝑥 = 𝑧 ↔ 𝑧 = 𝑦))
6	2, 5	imbi12d 347	. . . . . 6 ⊢ (𝑥 = 𝑦 → ((𝜑 → 𝑥 = 𝑧) ↔ (𝜓 → 𝑧 = 𝑦)))
7	6	cbvralvw 3249	. . . . 5 ⊢ (∀𝑥 ∈ 𝐴 (𝜑 → 𝑥 = 𝑧) ↔ ∀𝑦 ∈ 𝐴 (𝜓 → 𝑧 = 𝑦))
8	7	rexbii 3118	. . . 4 ⊢ (∃𝑧 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 → 𝑥 = 𝑧) ↔ ∃𝑧 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝜓 → 𝑧 = 𝑦))
9		equequ1 2052	. . . . . . 7 ⊢ (𝑧 = 𝑥 → (𝑧 = 𝑦 ↔ 𝑥 = 𝑦))
10	9	imbi2d 343	. . . . . 6 ⊢ (𝑧 = 𝑥 → ((𝜓 → 𝑧 = 𝑦) ↔ (𝜓 → 𝑥 = 𝑦)))
11	10	ralbidv 3194	. . . . 5 ⊢ (𝑧 = 𝑥 → (∀𝑦 ∈ 𝐴 (𝜓 → 𝑧 = 𝑦) ↔ ∀𝑦 ∈ 𝐴 (𝜓 → 𝑥 = 𝑦)))
12	11	cbvrexvw 3250	. . . 4 ⊢ (∃𝑧 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝜓 → 𝑧 = 𝑦) ↔ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝜓 → 𝑥 = 𝑦))
13	8, 12	bitri 278	. . 3 ⊢ (∃𝑧 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 → 𝑥 = 𝑧) ↔ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝜓 → 𝑥 = 𝑦))
14	13	anbi2i 634	. 2 ⊢ ((∃𝑥 ∈ 𝐴 𝜑 ∧ ∃𝑧 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝜑 → 𝑥 = 𝑧)) ↔ (∃𝑥 ∈ 𝐴 𝜑 ∧ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝜓 → 𝑥 = 𝑦)))
15	1, 14	bitri 278	1 ⊢ (∃!𝑥 ∈ 𝐴 𝜑 ↔ (∃𝑥 ∈ 𝐴 𝜑 ∧ ∃𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝜓 → 𝑥 = 𝑦)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400  ∀wral 3085  ∃wrex 3095  ∃!wreu 3374

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-10 2182  ax-12 2219

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clel 2844  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377

This theorem is referenced by:  cshwrepswhash1  17162