Theorem riotaeqimp 7394

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	. . . . 5 ⊢ 𝐽 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴)
2	1	eqcomi 2778	. . . 4 ⊢ (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) = 𝐽
3	2	eqeq2i 2782	. . 3 ⊢ (𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) ↔ 𝐼 = 𝐽)
4	3	bilanri 511	. 2 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → 𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴))
5		riotaeqimp.i	. . . . 5 ⊢ 𝐼 = (℩𝑎 ∈ 𝑉 𝑋 = 𝐴)
6	5	eqeq1i 2774	. . . 4 ⊢ (𝐼 = 𝐽 ↔ (℩𝑎 ∈ 𝑉 𝑋 = 𝐴) = 𝐽)
7		riotaeqimp.y	. . . . . . 7 ⊢ (𝜑 → ∃!𝑎 ∈ 𝑉 𝑌 = 𝐴)
8		riotacl 7385	. . . . . . 7 ⊢ (∃!𝑎 ∈ 𝑉 𝑌 = 𝐴 → (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) ∈ 𝑉)
9	7, 8	syl 18	. . . . . 6 ⊢ (𝜑 → (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) ∈ 𝑉)
10	1, 9	eqeltrid 2873	. . . . 5 ⊢ (𝜑 → 𝐽 ∈ 𝑉)
11		riotaeqimp.x	. . . . 5 ⊢ (𝜑 → ∃!𝑎 ∈ 𝑉 𝑋 = 𝐴)
12		nfv 1941	. . . . . . 7 ⊢ Ⅎ𝑎 𝐽 ∈ 𝑉
13		nfcvd 2932	. . . . . . 7 ⊢ (𝐽 ∈ 𝑉 → Ⅎ𝑎𝐽)
14		nfcvd 2932	. . . . . . . 8 ⊢ (𝐽 ∈ 𝑉 → Ⅎ𝑎𝑋)
15	13	nfcsb1d 3883	. . . . . . . 8 ⊢ (𝐽 ∈ 𝑉 → Ⅎ𝑎⦋𝐽 / 𝑎⦌𝐴)
16	14, 15	nfeqd 2941	. . . . . . 7 ⊢ (𝐽 ∈ 𝑉 → Ⅎ𝑎 𝑋 = ⦋𝐽 / 𝑎⦌𝐴)
17		id 23	. . . . . . 7 ⊢ (𝐽 ∈ 𝑉 → 𝐽 ∈ 𝑉)
18		csbeq1a 3875	. . . . . . . . 9 ⊢ (𝑎 = 𝐽 → 𝐴 = ⦋𝐽 / 𝑎⦌𝐴)
19	18	eqeq2d 2780	. . . . . . . 8 ⊢ (𝑎 = 𝐽 → (𝑋 = 𝐴 ↔ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴))
20	19	adantl 486	. . . . . . 7 ⊢ ((𝐽 ∈ 𝑉 ∧ 𝑎 = 𝐽) → (𝑋 = 𝐴 ↔ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴))
21	12, 13, 16, 17, 20	riota2df 7391	. . . . . 6 ⊢ ((𝐽 ∈ 𝑉 ∧ ∃!𝑎 ∈ 𝑉 𝑋 = 𝐴) → (𝑋 = ⦋𝐽 / 𝑎⦌𝐴 ↔ (℩𝑎 ∈ 𝑉 𝑋 = 𝐴) = 𝐽))
22	21	bicomd 226	. . . . 5 ⊢ ((𝐽 ∈ 𝑉 ∧ ∃!𝑎 ∈ 𝑉 𝑋 = 𝐴) → ((℩𝑎 ∈ 𝑉 𝑋 = 𝐴) = 𝐽 ↔ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴))
23	10, 11, 22	syl2anc 595	. . . 4 ⊢ (𝜑 → ((℩𝑎 ∈ 𝑉 𝑋 = 𝐴) = 𝐽 ↔ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴))
24	6, 23	bitrid 286	. . 3 ⊢ (𝜑 → (𝐼 = 𝐽 ↔ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴))
25	24	biimpa 481	. 2 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → 𝑋 = ⦋𝐽 / 𝑎⦌𝐴)
26		riotacl 7385	. . . . . . . 8 ⊢ (∃!𝑎 ∈ 𝑉 𝑋 = 𝐴 → (℩𝑎 ∈ 𝑉 𝑋 = 𝐴) ∈ 𝑉)
27	11, 26	syl 18	. . . . . . 7 ⊢ (𝜑 → (℩𝑎 ∈ 𝑉 𝑋 = 𝐴) ∈ 𝑉)
28	5, 27	eqeltrid 2873	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
29		nfv 1941	. . . . . . 7 ⊢ Ⅎ𝑎 𝐼 ∈ 𝑉
30		nfcvd 2932	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → Ⅎ𝑎𝐼)
31		nfcvd 2932	. . . . . . . 8 ⊢ (𝐼 ∈ 𝑉 → Ⅎ𝑎𝑌)
32	30	nfcsb1d 3883	. . . . . . . 8 ⊢ (𝐼 ∈ 𝑉 → Ⅎ𝑎⦋𝐼 / 𝑎⦌𝐴)
33	31, 32	nfeqd 2941	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → Ⅎ𝑎 𝑌 = ⦋𝐼 / 𝑎⦌𝐴)
34		id 23	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → 𝐼 ∈ 𝑉)
35		csbeq1a 3875	. . . . . . . . 9 ⊢ (𝑎 = 𝐼 → 𝐴 = ⦋𝐼 / 𝑎⦌𝐴)
36	35	eqeq2d 2780	. . . . . . . 8 ⊢ (𝑎 = 𝐼 → (𝑌 = 𝐴 ↔ 𝑌 = ⦋𝐼 / 𝑎⦌𝐴))
37	36	adantl 486	. . . . . . 7 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑎 = 𝐼) → (𝑌 = 𝐴 ↔ 𝑌 = ⦋𝐼 / 𝑎⦌𝐴))
38	29, 30, 33, 34, 37	riota2df 7391	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ ∃!𝑎 ∈ 𝑉 𝑌 = 𝐴) → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ↔ (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) = 𝐼))
39	28, 7, 38	syl2anc 595	. . . . 5 ⊢ (𝜑 → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ↔ (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) = 𝐼))
40		eqcom 2776	. . . . 5 ⊢ ((℩𝑎 ∈ 𝑉 𝑌 = 𝐴) = 𝐼 ↔ 𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴))
41	39, 40	bitrdi 290	. . . 4 ⊢ (𝜑 → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ↔ 𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴)))
42	41	adantr 485	. . 3 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ↔ 𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴)))
43		csbeq1 3864	. . . . . . 7 ⊢ (𝐽 = 𝐼 → ⦋𝐽 / 𝑎⦌𝐴 = ⦋𝐼 / 𝑎⦌𝐴)
44	43	eqcoms 2777	. . . . . 6 ⊢ (𝐼 = 𝐽 → ⦋𝐽 / 𝑎⦌𝐴 = ⦋𝐼 / 𝑎⦌𝐴)
45		eqeq12 2786	. . . . . . 7 ⊢ ((𝑋 = ⦋𝐽 / 𝑎⦌𝐴 ∧ 𝑌 = ⦋𝐼 / 𝑎⦌𝐴) → (𝑋 = 𝑌 ↔ ⦋𝐽 / 𝑎⦌𝐴 = ⦋𝐼 / 𝑎⦌𝐴))
46	45	ancoms 463	. . . . . 6 ⊢ ((𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ∧ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴) → (𝑋 = 𝑌 ↔ ⦋𝐽 / 𝑎⦌𝐴 = ⦋𝐼 / 𝑎⦌𝐴))
47	44, 46	syl5ibrcom 250	. . . . 5 ⊢ (𝐼 = 𝐽 → ((𝑌 = ⦋𝐼 / 𝑎⦌𝐴 ∧ 𝑋 = ⦋𝐽 / 𝑎⦌𝐴) → 𝑋 = 𝑌))
48	47	expd 420	. . . 4 ⊢ (𝐼 = 𝐽 → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 → (𝑋 = ⦋𝐽 / 𝑎⦌𝐴 → 𝑋 = 𝑌)))
49	48	adantl 486	. . 3 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → (𝑌 = ⦋𝐼 / 𝑎⦌𝐴 → (𝑋 = ⦋𝐽 / 𝑎⦌𝐴 → 𝑋 = 𝑌)))
50	42, 49	sylbird 263	. 2 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → (𝐼 = (℩𝑎 ∈ 𝑉 𝑌 = 𝐴) → (𝑋 = ⦋𝐽 / 𝑎⦌𝐴 → 𝑋 = 𝑌)))
51	4, 25, 50	mp2d 50	1 ⊢ ((𝜑 ∧ 𝐼 = 𝐽) → 𝑋 = 𝑌)

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1567   ∈ wcel 2149  ∃!wreu 3374  ⦋csb 3861  ℩crio 7367

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-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ral 3086  df-rex 3096  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-un 3918  df-ss 3930  df-sn 4595  df-pr 4597  df-uni 4877  df-iota 6493  df-riota 7368

This theorem is referenced by:  uspgredg2v  29514