Theorem qsalrel 43496

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 8755	. 2 ⊢ (𝐴 / ∼ ) = ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ )
2		qsalrel.2	. . . . . . 7 ⊢ (𝜑 → ∼ Er 𝐴)
3	2	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∼ Er 𝐴)
4		qsalrel.1	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → 𝑥 ∼ 𝑦)
5	4	ralrimivva 3209	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦)
6	5	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦)
7		simpr 490	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ 𝐴)
8		breq1 5109	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑎 → (𝑥 ∼ 𝑦 ↔ 𝑎 ∼ 𝑦))
9	8	ralbidv 3189	. . . . . . . . . 10 ⊢ (𝑥 = 𝑎 → (∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 ↔ ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
10	9	adantl 487	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = 𝑎) → (∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 ↔ ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
11	7, 10	rspcdv 3572	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 → ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
12		qsalrel.3	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ 𝐴)
13		breq2 5110	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑁 → (𝑎 ∼ 𝑦 ↔ 𝑎 ∼ 𝑁))
14	13	adantl 487	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = 𝑁) → (𝑎 ∼ 𝑦 ↔ 𝑎 ∼ 𝑁))
15	12, 14	rspcdv 3572	. . . . . . . . 9 ⊢ (𝜑 → (∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦 → 𝑎 ∼ 𝑁))
16	15	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦 → 𝑎 ∼ 𝑁))
17	11, 16	syld 48	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 → 𝑎 ∼ 𝑁))
18	6, 17	mpd 16	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∼ 𝑁)
19	3, 18	erthi 8805	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → [𝑎] ∼ = [𝑁] ∼ )
20	19	mpteq2dva 5202	. . . 4 ⊢ (𝜑 → (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ))
21	20	rneqd 5928	. . 3 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = ran (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ))
22		eqid 2763	. . . 4 ⊢ (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ) = (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ )
23	12	ne0d 4291	. . . 4 ⊢ (𝜑 → 𝐴 ≠ ∅)
24	22, 23	rnmptc 7239	. . 3 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ) = {[𝑁] ∼ })
25	2	ecss 8800	. . . . 5 ⊢ (𝜑 → [𝑁] ∼ ⊆ 𝐴)
26	3, 18	ersym 8761	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑁 ∼ 𝑎)
27	12	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑁 ∈ 𝐴)
28		elecg 8793	. . . . . . 7 ⊢ ((𝑎 ∈ 𝐴 ∧ 𝑁 ∈ 𝐴) → (𝑎 ∈ [𝑁] ∼ ↔ 𝑁 ∼ 𝑎))
29	7, 27, 28	syl2anc 596	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎 ∈ [𝑁] ∼ ↔ 𝑁 ∼ 𝑎))
30	26, 29	mpbird 260	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ [𝑁] ∼ )
31	25, 30	eqelssd 3934	. . . 4 ⊢ (𝜑 → [𝑁] ∼ = 𝐴)
32	31	sneqd 4596	. . 3 ⊢ (𝜑 → {[𝑁] ∼ } = {𝐴})
33	21, 24, 32	3eqtrd 2802	. 2 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = {𝐴})
34	1, 33	eqtrid 2810	1 ⊢ (𝜑 → (𝐴 / ∼ ) = {𝐴})

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2147  ∀wral 3080  {csn 4588   class class class wbr 5106   ↦ cmpt 5190  ran crn 5657   Er wer 8745  [cec 8746   / cqs 8747

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-sep 5253  ax-pr 5396

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 2102  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-rab 3417  df-v 3456  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-sn 4589  df-pr 4591  df-op 4839  df-br 5107  df-opab 5172  df-mpt 5191  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-er 8748  df-ec 8750  df-qs 8754

This theorem is used by:  0prjspn  43868