Theorem riotaeqimp 7340

Description: If two restricted iota descriptors for an equality are equal, then the terms of the equality are equal. (Contributed by AV, 6-Dec-2020.)

Hypotheses

Ref	Expression
riotaeqimp.i	⊢ 𝐼 = (℩𝑎 ∈ 𝑉 𝑋 = 𝐴)
riotaeqimp.j	⊢ 𝐽 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴)
riotaeqimp.x	⊢ (𝜑 → ∃!𝑎 ∈ 𝑉 𝑋 = 𝐴)
riotaeqimp.y	⊢ (𝜑 → ∃!𝑎 ∈ 𝑉 𝑌 = 𝐴)

Assertion

Ref	Expression
riotaeqimp	⊢ ((𝜑 ∧ 𝐼 = 𝐽) → 𝑋 = 𝑌)

Distinct variable groups:   𝐼,𝑎   𝐽,𝑎   𝑉,𝑎   𝑋,𝑎   𝑌,𝑎

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

Proof of Theorem riotaeqimp

Step	Hyp	Ref	Expression
1		riotaeqimp.j	. . . . . . 7 ⊢ 𝐽 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴)
2	1	eqcomi 2745	. . . . . 6 ⊢ (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) = 𝐽
3	2	eqeq2i 2749	. . . . 5 ⊢ (𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) ↔ 𝐼 = 𝐽)
4	3	a1i 11	. . . 4 ⊢ (𝜑 → (𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) ↔ 𝐼 = 𝐽))
5	4	bicomd 222	. . 3 ⊢ (𝜑 → (𝐼 = 𝐽 ↔ 𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴)))
6	5	biimpa 477	. 2 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → 𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴))
7		riotaeqimp.i	. . . . 5 ⊢ 𝐼 = (℩𝑎 ∈ 𝑉 𝑋 = 𝐴)
8	7	eqeq1i 2741	. . . 4 ⊢ (𝐼 = 𝐽 ↔ (℩𝑎 ∈ 𝑉 𝑋 = 𝐴) = 𝐽)
9		riotaeqimp.y	. . . . . . 7 ⊢ (𝜑 → ∃!𝑎 ∈ 𝑉 𝑌 = 𝐴)
10		riotacl 7331	. . . . . . 7 ⊢ (∃!𝑎 ∈ 𝑉 𝑌 = 𝐴 → (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) ∈ 𝑉)
11	9, 10	syl 17	. . . . . 6 ⊢ (𝜑 → (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) ∈ 𝑉)
12	1, 11	eqeltrid 2842	. . . . 5 ⊢ (𝜑 → 𝐽 ∈ 𝑉)
13		riotaeqimp.x	. . . . 5 ⊢ (𝜑 → ∃!𝑎 ∈ 𝑉 𝑋 = 𝐴)
14		nfv 1917	. . . . . . 7 ⊢ Ⅎ𝑎 𝐽 ∈ 𝑉
15		nfcvd 2908	. . . . . . 7 ⊢ (𝐽 ∈ 𝑉 → Ⅎ𝑎𝐽)
16		nfcvd 2908	. . . . . . . 8 ⊢ (𝐽 ∈ 𝑉 → Ⅎ𝑎𝑋)
17	15	nfcsb1d 3878	. . . . . . . 8 ⊢ (𝐽 ∈ 𝑉 → Ⅎ𝑎⦋𝐽 / 𝑎⦌𝐴)
18	16, 17	nfeqd 2917	. . . . . . 7 ⊢ (𝐽 ∈ 𝑉 → Ⅎ𝑎 𝑋 = ⦋𝐽 / 𝑎⦌𝐴)
19		id 22	. . . . . . 7 ⊢ (𝐽 ∈ 𝑉 → 𝐽 ∈ 𝑉)
20		csbeq1a 3869	. . . . . . . . 9 ⊢ (𝑎 = 𝐽 → 𝐴 = ⦋𝐽 / 𝑎⦌𝐴)
21	20	eqeq2d 2747	. . . . . . . 8 ⊢ (𝑎 = 𝐽 → (𝑋 = 𝐴 ↔ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴))
22	21	adantl 482	. . . . . . 7 ⊢ ((𝐽 ∈ 𝑉 ∧ 𝑎 = 𝐽) → (𝑋 = 𝐴 ↔ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴))
23	14, 15, 18, 19, 22	riota2df 7337	. . . . . 6 ⊢ ((𝐽 ∈ 𝑉 ∧ ∃!𝑎 ∈ 𝑉 𝑋 = 𝐴) → (𝑋 = ⦋𝐽 / 𝑎⦌𝐴 ↔ (℩𝑎 ∈ 𝑉 𝑋 = 𝐴) = 𝐽))
24	23	bicomd 222	. . . . 5 ⊢ ((𝐽 ∈ 𝑉 ∧ ∃!𝑎 ∈ 𝑉 𝑋 = 𝐴) → ((℩𝑎 ∈ 𝑉 𝑋 = 𝐴) = 𝐽 ↔ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴))
25	12, 13, 24	syl2anc 584	. . . 4 ⊢ (𝜑 → ((℩𝑎 ∈ 𝑉 𝑋 = 𝐴) = 𝐽 ↔ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴))
26	8, 25	bitrid 282	. . 3 ⊢ (𝜑 → (𝐼 = 𝐽 ↔ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴))
27	26	biimpa 477	. 2 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → 𝑋 = ⦋𝐽 / 𝑎⦌𝐴)
28		riotacl 7331	. . . . . . . 8 ⊢ (∃!𝑎 ∈ 𝑉 𝑋 = 𝐴 → (℩𝑎 ∈ 𝑉 𝑋 = 𝐴) ∈ 𝑉)
29	13, 28	syl 17	. . . . . . 7 ⊢ (𝜑 → (℩𝑎 ∈ 𝑉 𝑋 = 𝐴) ∈ 𝑉)
30	7, 29	eqeltrid 2842	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
31		nfv 1917	. . . . . . 7 ⊢ Ⅎ𝑎 𝐼 ∈ 𝑉
32		nfcvd 2908	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → Ⅎ𝑎𝐼)
33		nfcvd 2908	. . . . . . . 8 ⊢ (𝐼 ∈ 𝑉 → Ⅎ𝑎𝑌)
34	32	nfcsb1d 3878	. . . . . . . 8 ⊢ (𝐼 ∈ 𝑉 → Ⅎ𝑎⦋𝐼 / 𝑎⦌𝐴)
35	33, 34	nfeqd 2917	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → Ⅎ𝑎 𝑌 = ⦋𝐼 / 𝑎⦌𝐴)
36		id 22	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → 𝐼 ∈ 𝑉)
37		csbeq1a 3869	. . . . . . . . 9 ⊢ (𝑎 = 𝐼 → 𝐴 = ⦋𝐼 / 𝑎⦌𝐴)
38	37	eqeq2d 2747	. . . . . . . 8 ⊢ (𝑎 = 𝐼 → (𝑌 = 𝐴 ↔ 𝑌 = ⦋𝐼 / 𝑎⦌𝐴))
39	38	adantl 482	. . . . . . 7 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑎 = 𝐼) → (𝑌 = 𝐴 ↔ 𝑌 = ⦋𝐼 / 𝑎⦌𝐴))
40	31, 32, 35, 36, 39	riota2df 7337	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ ∃!𝑎 ∈ 𝑉 𝑌 = 𝐴) → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ↔ (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) = 𝐼))
41	30, 9, 40	syl2anc 584	. . . . 5 ⊢ (𝜑 → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ↔ (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) = 𝐼))
42		eqcom 2743	. . . . 5 ⊢ ((℩𝑎 ∈ 𝑉 𝑌 = 𝐴) = 𝐼 ↔ 𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴))
43	41, 42	bitrdi 286	. . . 4 ⊢ (𝜑 → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ↔ 𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴)))
44	43	adantr 481	. . 3 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ↔ 𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴)))
45		csbeq1 3858	. . . . . . 7 ⊢ (𝐽 = 𝐼 → ⦋𝐽 / 𝑎⦌𝐴 = ⦋𝐼 / 𝑎⦌𝐴)
46	45	eqcoms 2744	. . . . . 6 ⊢ (𝐼 = 𝐽 → ⦋𝐽 / 𝑎⦌𝐴 = ⦋𝐼 / 𝑎⦌𝐴)
47		eqeq12 2753	. . . . . . 7 ⊢ ((𝑋 = ⦋𝐽 / 𝑎⦌𝐴 ∧ 𝑌 = ⦋𝐼 / 𝑎⦌𝐴) → (𝑋 = 𝑌 ↔ ⦋𝐽 / 𝑎⦌𝐴 = ⦋𝐼 / 𝑎⦌𝐴))
48	47	ancoms 459	. . . . . 6 ⊢ ((𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ∧ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴) → (𝑋 = 𝑌 ↔ ⦋𝐽 / 𝑎⦌𝐴 = ⦋𝐼 / 𝑎⦌𝐴))
49	46, 48	syl5ibrcom 246	. . . . 5 ⊢ (𝐼 = 𝐽 → ((𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ∧ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴) → 𝑋 = 𝑌))
50	49	expd 416	. . . 4 ⊢ (𝐼 = 𝐽 → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 → (𝑋 = ⦋𝐽 / 𝑎⦌𝐴 → 𝑋 = 𝑌)))
51	50	adantl 482	. . 3 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 → (𝑋 = ⦋𝐽 / 𝑎⦌𝐴 → 𝑋 = 𝑌)))
52	44, 51	sylbird 259	. 2 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → (𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) → (𝑋 = ⦋𝐽 / 𝑎⦌𝐴 → 𝑋 = 𝑌)))
53	6, 27, 52	mp2d 49	1 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → 𝑋 = 𝑌)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541   ∈ wcel 2106  ∃!wreu 3351  ⦋csb 3855  ℩crio 7312

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ral 3065  df-rex 3074  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-un 3915  df-in 3917  df-ss 3927  df-sn 4587  df-pr 4589  df-uni 4866  df-iota 6448  df-riota 7313

This theorem is referenced by:  uspgredg2v  28172