Theorem euxfr2 3391

Description: Transfer existential uniqueness from a variable 𝑥 to another variable 𝑦 contained in expression 𝐴. (Contributed by NM, 14-Nov-2004.)

Hypotheses

Ref	Expression
euxfr2.1	⊢ 𝐴 ∈ V
euxfr2.2	⊢ ∃*𝑦 𝑥 = 𝐴

Assertion

Ref	Expression
euxfr2	⊢ (∃!𝑥∃𝑦(𝑥 = 𝐴 ∧ 𝜑) ↔ ∃!𝑦𝜑)

Distinct variable groups:   𝜑,𝑥   𝑥,𝐴

Allowed substitution hints:   𝜑(𝑦)   𝐴(𝑦)

Proof of Theorem euxfr2

Step	Hyp	Ref	Expression
1		2euswap 2548	. . . 4 ⊢ (∀𝑥∃*𝑦(𝑥 = 𝐴 ∧ 𝜑) → (∃!𝑥∃𝑦(𝑥 = 𝐴 ∧ 𝜑) → ∃!𝑦∃𝑥(𝑥 = 𝐴 ∧ 𝜑)))
2		euxfr2.2	. . . . . 6 ⊢ ∃*𝑦 𝑥 = 𝐴
3	2	moani 2525	. . . . 5 ⊢ ∃*𝑦(𝜑 ∧ 𝑥 = 𝐴)
4		ancom 466	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 = 𝐴) ↔ (𝑥 = 𝐴 ∧ 𝜑))
5	4	mobii 2493	. . . . 5 ⊢ (∃*𝑦(𝜑 ∧ 𝑥 = 𝐴) ↔ ∃*𝑦(𝑥 = 𝐴 ∧ 𝜑))
6	3, 5	mpbi 220	. . . 4 ⊢ ∃*𝑦(𝑥 = 𝐴 ∧ 𝜑)
7	1, 6	mpg 1724	. . 3 ⊢ (∃!𝑥∃𝑦(𝑥 = 𝐴 ∧ 𝜑) → ∃!𝑦∃𝑥(𝑥 = 𝐴 ∧ 𝜑))
8		2euswap 2548	. . . 4 ⊢ (∀𝑦∃*𝑥(𝑥 = 𝐴 ∧ 𝜑) → (∃!𝑦∃𝑥(𝑥 = 𝐴 ∧ 𝜑) → ∃!𝑥∃𝑦(𝑥 = 𝐴 ∧ 𝜑)))
9		moeq 3382	. . . . . 6 ⊢ ∃*𝑥 𝑥 = 𝐴
10	9	moani 2525	. . . . 5 ⊢ ∃*𝑥(𝜑 ∧ 𝑥 = 𝐴)
11	4	mobii 2493	. . . . 5 ⊢ (∃*𝑥(𝜑 ∧ 𝑥 = 𝐴) ↔ ∃*𝑥(𝑥 = 𝐴 ∧ 𝜑))
12	10, 11	mpbi 220	. . . 4 ⊢ ∃*𝑥(𝑥 = 𝐴 ∧ 𝜑)
13	8, 12	mpg 1724	. . 3 ⊢ (∃!𝑦∃𝑥(𝑥 = 𝐴 ∧ 𝜑) → ∃!𝑥∃𝑦(𝑥 = 𝐴 ∧ 𝜑))
14	7, 13	impbii 199	. 2 ⊢ (∃!𝑥∃𝑦(𝑥 = 𝐴 ∧ 𝜑) ↔ ∃!𝑦∃𝑥(𝑥 = 𝐴 ∧ 𝜑))
15		euxfr2.1	. . . 4 ⊢ 𝐴 ∈ V
16		biidd 252	. . . 4 ⊢ (𝑥 = 𝐴 → (𝜑 ↔ 𝜑))
17	15, 16	ceqsexv 3242	. . 3 ⊢ (∃𝑥(𝑥 = 𝐴 ∧ 𝜑) ↔ 𝜑)
18	17	eubii 2492	. 2 ⊢ (∃!𝑦∃𝑥(𝑥 = 𝐴 ∧ 𝜑) ↔ ∃!𝑦𝜑)
19	14, 18	bitri 264	1 ⊢ (∃!𝑥∃𝑦(𝑥 = 𝐴 ∧ 𝜑) ↔ ∃!𝑦𝜑)

Syntax hints:   → wi 4   ↔ wb 196   ∧ wa 384   = wceq 1483  ∃wex 1704   ∈ wcel 1990  ∃!weu 2470  ∃*wmo 2471  Vcvv 3200

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-v 3202

This theorem is referenced by:  euxfr  3392  euop2  4974