Theorem qsalrel 42216

Description: The quotient set is equal to the singleton of 𝐴 when all elements are related and 𝐴 is nonempty. (Contributed by SN, 8-Jun-2023.)

Hypotheses

Ref	Expression
qsalrel.1	⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → 𝑥 ∼ 𝑦)
qsalrel.2	⊢ (𝜑 → ∼ Er 𝐴)
qsalrel.3	⊢ (𝜑 → 𝑁 ∈ 𝐴)

Assertion

Ref	Expression
qsalrel	⊢ (𝜑 → (𝐴 / ∼ ) = {𝐴})

Distinct variable groups:   𝜑,𝑥,𝑦   𝑥,𝐴,𝑦   𝑥, ∼ ,𝑦   𝑦,𝑁

Allowed substitution hint:   𝑁(𝑥)

Proof of Theorem qsalrel

Dummy variable 𝑎 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		dfqs2 42213	. 2 ⊢ (𝐴 / ∼ ) = ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ )
2		qsalrel.2	. . . . . . 7 ⊢ (𝜑 → ∼ Er 𝐴)
3	2	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∼ Er 𝐴)
4		qsalrel.1	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → 𝑥 ∼ 𝑦)
5	4	ralrimivva 3172	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦)
6	5	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦)
7		simpr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ 𝐴)
8		breq1 5098	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑎 → (𝑥 ∼ 𝑦 ↔ 𝑎 ∼ 𝑦))
9	8	ralbidv 3152	. . . . . . . . . 10 ⊢ (𝑥 = 𝑎 → (∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 ↔ ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
10	9	adantl 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = 𝑎) → (∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 ↔ ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
11	7, 10	rspcdv 3571	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 → ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
12		qsalrel.3	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ 𝐴)
13		breq2 5099	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑁 → (𝑎 ∼ 𝑦 ↔ 𝑎 ∼ 𝑁))
14	13	adantl 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = 𝑁) → (𝑎 ∼ 𝑦 ↔ 𝑎 ∼ 𝑁))
15	12, 14	rspcdv 3571	. . . . . . . . 9 ⊢ (𝜑 → (∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦 → 𝑎 ∼ 𝑁))
16	15	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦 → 𝑎 ∼ 𝑁))
17	11, 16	syld 47	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 → 𝑎 ∼ 𝑁))
18	6, 17	mpd 15	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∼ 𝑁)
19	3, 18	erthi 8688	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → [𝑎] ∼ = [𝑁] ∼ )
20	19	mpteq2dva 5188	. . . 4 ⊢ (𝜑 → (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ))
21	20	rneqd 5884	. . 3 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = ran (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ))
22		eqid 2729	. . . 4 ⊢ (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ) = (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ )
23	12	ne0d 4295	. . . 4 ⊢ (𝜑 → 𝐴 ≠ ∅)
24	22, 23	rnmptc 7147	. . 3 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ) = {[𝑁] ∼ })
25	2	ecss 8683	. . . . 5 ⊢ (𝜑 → [𝑁] ∼ ⊆ 𝐴)
26	3, 18	ersym 8644	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑁 ∼ 𝑎)
27	12	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑁 ∈ 𝐴)
28		elecg 8676	. . . . . . 7 ⊢ ((𝑎 ∈ 𝐴 ∧ 𝑁 ∈ 𝐴) → (𝑎 ∈ [𝑁] ∼ ↔ 𝑁 ∼ 𝑎))
29	7, 27, 28	syl2anc 584	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎 ∈ [𝑁] ∼ ↔ 𝑁 ∼ 𝑎))
30	26, 29	mpbird 257	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ [𝑁] ∼ )
31	25, 30	eqelssd 3959	. . . 4 ⊢ (𝜑 → [𝑁] ∼ = 𝐴)
32	31	sneqd 4591	. . 3 ⊢ (𝜑 → {[𝑁] ∼ } = {𝐴})
33	21, 24, 32	3eqtrd 2768	. 2 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = {𝐴})
34	1, 33	eqtrid 2776	1 ⊢ (𝜑 → (𝐴 / ∼ ) = {𝐴})

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109  ∀wral 3044  {csn 4579   class class class wbr 5095   ↦ cmpt 5176  ran crn 5624   Er wer 8629  [cec 8630   / cqs 8631

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5238  ax-nul 5248  ax-pr 5374

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rab 3397  df-v 3440  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4479  df-sn 4580  df-pr 4582  df-op 4586  df-br 5096  df-opab 5158  df-mpt 5177  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-er 8632  df-ec 8634  df-qs 8638

This theorem is referenced by:  0prjspn  42604