Theorem qsalrel 43050

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 8710	. 2 ⊢ (𝐴 / ∼ ) = ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ )
2		qsalrel.2	. . . . . . 7 ⊢ (𝜑 → ∼ Er 𝐴)
3	2	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∼ Er 𝐴)
4		qsalrel.1	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → 𝑥 ∼ 𝑦)
5	4	ralrimivva 3211	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦)
6	5	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦)
7		simpr 490	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ 𝐴)
8		breq1 5117	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑎 → (𝑥 ∼ 𝑦 ↔ 𝑎 ∼ 𝑦))
9	8	ralbidv 3191	. . . . . . . . . 10 ⊢ (𝑥 = 𝑎 → (∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 ↔ ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
10	9	adantl 487	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = 𝑎) → (∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 ↔ ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
11	7, 10	rspcdv 3576	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 → ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
12		qsalrel.3	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ 𝐴)
13		breq2 5118	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑁 → (𝑎 ∼ 𝑦 ↔ 𝑎 ∼ 𝑁))
14	13	adantl 487	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = 𝑁) → (𝑎 ∼ 𝑦 ↔ 𝑎 ∼ 𝑁))
15	12, 14	rspcdv 3576	. . . . . . . . 9 ⊢ (𝜑 → (∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦 → 𝑎 ∼ 𝑁))
16	15	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦 → 𝑎 ∼ 𝑁))
17	11, 16	syld 48	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 → 𝑎 ∼ 𝑁))
18	6, 17	mpd 16	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∼ 𝑁)
19	3, 18	erthi 8760	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → [𝑎] ∼ = [𝑁] ∼ )
20	19	mpteq2dva 5209	. . . 4 ⊢ (𝜑 → (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ))
21	20	rneqd 5933	. . 3 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = ran (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ))
22		eqid 2766	. . . 4 ⊢ (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ) = (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ )
23	12	ne0d 4298	. . . 4 ⊢ (𝜑 → 𝐴 ≠ ∅)
24	22, 23	rnmptc 7212	. . 3 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ) = {[𝑁] ∼ })
25	2	ecss 8755	. . . . 5 ⊢ (𝜑 → [𝑁] ∼ ⊆ 𝐴)
26	3, 18	ersym 8716	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑁 ∼ 𝑎)
27	12	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑁 ∈ 𝐴)
28		elecg 8748	. . . . . . 7 ⊢ ((𝑎 ∈ 𝐴 ∧ 𝑁 ∈ 𝐴) → (𝑎 ∈ [𝑁] ∼ ↔ 𝑁 ∼ 𝑎))
29	7, 27, 28	syl2anc 596	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎 ∈ [𝑁] ∼ ↔ 𝑁 ∼ 𝑎))
30	26, 29	mpbird 260	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ [𝑁] ∼ )
31	25, 30	eqelssd 3961	. . . 4 ⊢ (𝜑 → [𝑁] ∼ = 𝐴)
32	31	sneqd 4606	. . 3 ⊢ (𝜑 → {[𝑁] ∼ } = {𝐴})
33	21, 24, 32	3eqtrd 2805	. 2 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = {𝐴})
34	1, 33	eqtrid 2813	1 ⊢ (𝜑 → (𝐴 / ∼ ) = {𝐴})

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∀wral 3082  {csn 4594   class class class wbr 5114   ↦ cmpt 5197  ran crn 5667   Er wer 8700  [cec 8701   / cqs 8702

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-sep 5262  ax-pr 5409

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-rab 3420  df-v 3460  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4493  df-sn 4595  df-pr 4597  df-op 4601  df-br 5115  df-opab 5179  df-mpt 5198  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-er 8703  df-ec 8705  df-qs 8709

This theorem is used by:  0prjspn  43401