Theorem qsalrel 42990

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 8702	. 2 ⊢ (𝐴 / ∼ ) = ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ )
2		qsalrel.2	. . . . . . 7 ⊢ (𝜑 → ∼ Er 𝐴)
3	2	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∼ Er 𝐴)
4		qsalrel.1	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → 𝑥 ∼ 𝑦)
5	4	ralrimivva 3208	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦)
6	5	adantr 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦)
7		simpr 489	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ 𝐴)
8		breq1 5113	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑎 → (𝑥 ∼ 𝑦 ↔ 𝑎 ∼ 𝑦))
9	8	ralbidv 3188	. . . . . . . . . 10 ⊢ (𝑥 = 𝑎 → (∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 ↔ ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
10	9	adantl 486	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = 𝑎) → (∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 ↔ ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
11	7, 10	rspcdv 3574	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 → ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
12		qsalrel.3	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ 𝐴)
13		breq2 5114	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑁 → (𝑎 ∼ 𝑦 ↔ 𝑎 ∼ 𝑁))
14	13	adantl 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = 𝑁) → (𝑎 ∼ 𝑦 ↔ 𝑎 ∼ 𝑁))
15	12, 14	rspcdv 3574	. . . . . . . . 9 ⊢ (𝜑 → (∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦 → 𝑎 ∼ 𝑁))
16	15	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦 → 𝑎 ∼ 𝑁))
17	11, 16	syld 48	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 → 𝑎 ∼ 𝑁))
18	6, 17	mpd 16	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∼ 𝑁)
19	3, 18	erthi 8752	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → [𝑎] ∼ = [𝑁] ∼ )
20	19	mpteq2dva 5205	. . . 4 ⊢ (𝜑 → (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ))
21	20	rneqd 5930	. . 3 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = ran (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ))
22		eqid 2763	. . . 4 ⊢ (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ) = (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ )
23	12	ne0d 4296	. . . 4 ⊢ (𝜑 → 𝐴 ≠ ∅)
24	22, 23	rnmptc 7207	. . 3 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ) = {[𝑁] ∼ })
25	2	ecss 8747	. . . . 5 ⊢ (𝜑 → [𝑁] ∼ ⊆ 𝐴)
26	3, 18	ersym 8708	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑁 ∼ 𝑎)
27	12	adantr 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑁 ∈ 𝐴)
28		elecg 8740	. . . . . . 7 ⊢ ((𝑎 ∈ 𝐴 ∧ 𝑁 ∈ 𝐴) → (𝑎 ∈ [𝑁] ∼ ↔ 𝑁 ∼ 𝑎))
29	7, 27, 28	syl2anc 595	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎 ∈ [𝑁] ∼ ↔ 𝑁 ∼ 𝑎))
30	26, 29	mpbird 260	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ [𝑁] ∼ )
31	25, 30	eqelssd 3959	. . . 4 ⊢ (𝜑 → [𝑁] ∼ = 𝐴)
32	31	sneqd 4602	. . 3 ⊢ (𝜑 → {[𝑁] ∼ } = {𝐴})
33	21, 24, 32	3eqtrd 2802	. 2 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = {𝐴})
34	1, 33	eqtrid 2810	1 ⊢ (𝜑 → (𝐴 / ∼ ) = {𝐴})

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1570   ∈ wcel 2143  ∀wral 3079  {csn 4590   class class class wbr 5110   ↦ cmpt 5193  ran crn 5664   Er wer 8692  [cec 8693   / cqs 8694

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-sep 5258  ax-pr 5406

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rab 3417  df-v 3457  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4489  df-sn 4591  df-pr 4593  df-op 4597  df-br 5111  df-opab 5175  df-mpt 5194  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-er 8695  df-ec 8697  df-qs 8701

This theorem is referenced by:  0prjspn  43343