Theorem qsalrel 42732

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 8647	. 2 ⊢ (𝐴 / ∼ ) = ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ )
2		qsalrel.2	. . . . . . 7 ⊢ (𝜑 → ∼ Er 𝐴)
3	2	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∼ Er 𝐴)
4		qsalrel.1	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → 𝑥 ∼ 𝑦)
5	4	ralrimivva 3183	. . . . . . . 8 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦)
6	5	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦)
7		simpr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ 𝐴)
8		breq1 5082	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑎 → (𝑥 ∼ 𝑦 ↔ 𝑎 ∼ 𝑦))
9	8	ralbidv 3163	. . . . . . . . . 10 ⊢ (𝑥 = 𝑎 → (∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 ↔ ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
10	9	adantl 482	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ 𝐴) ∧ 𝑥 = 𝑎) → (∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 ↔ ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
11	7, 10	rspcdv 3559	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 → ∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦))
12		qsalrel.3	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ 𝐴)
13		breq2 5083	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑁 → (𝑎 ∼ 𝑦 ↔ 𝑎 ∼ 𝑁))
14	13	adantl 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 = 𝑁) → (𝑎 ∼ 𝑦 ↔ 𝑎 ∼ 𝑁))
15	12, 14	rspcdv 3559	. . . . . . . . 9 ⊢ (𝜑 → (∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦 → 𝑎 ∼ 𝑁))
16	15	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑦 ∈ 𝐴 𝑎 ∼ 𝑦 → 𝑎 ∼ 𝑁))
17	11, 16	syld 47	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 𝑥 ∼ 𝑦 → 𝑎 ∼ 𝑁))
18	6, 17	mpd 15	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∼ 𝑁)
19	3, 18	erthi 8697	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → [𝑎] ∼ = [𝑁] ∼ )
20	19	mpteq2dva 5172	. . . 4 ⊢ (𝜑 → (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ))
21	20	rneqd 5887	. . 3 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = ran (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ))
22		eqid 2740	. . . 4 ⊢ (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ) = (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ )
23	12	ne0d 4277	. . . 4 ⊢ (𝜑 → 𝐴 ≠ ∅)
24	22, 23	rnmptc 7158	. . 3 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑁] ∼ ) = {[𝑁] ∼ })
25	2	ecss 8692	. . . . 5 ⊢ (𝜑 → [𝑁] ∼ ⊆ 𝐴)
26	3, 18	ersym 8653	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑁 ∼ 𝑎)
27	12	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑁 ∈ 𝐴)
28		elecg 8685	. . . . . . 7 ⊢ ((𝑎 ∈ 𝐴 ∧ 𝑁 ∈ 𝐴) → (𝑎 ∈ [𝑁] ∼ ↔ 𝑁 ∼ 𝑎))
29	7, 27, 28	syl2anc 590	. . . . . 6 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → (𝑎 ∈ [𝑁] ∼ ↔ 𝑁 ∼ 𝑎))
30	26, 29	mpbird 258	. . . . 5 ⊢ ((𝜑 ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ [𝑁] ∼ )
31	25, 30	eqelssd 3943	. . . 4 ⊢ (𝜑 → [𝑁] ∼ = 𝐴)
32	31	sneqd 4574	. . 3 ⊢ (𝜑 → {[𝑁] ∼ } = {𝐴})
33	21, 24, 32	3eqtrd 2779	. 2 ⊢ (𝜑 → ran (𝑎 ∈ 𝐴 ↦ [𝑎] ∼ ) = {𝐴})
34	1, 33	eqtrid 2787	1 ⊢ (𝜑 → (𝐴 / ∼ ) = {𝐴})

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547   ∈ wcel 2119  ∀wral 3054  {csn 4562   class class class wbr 5079   ↦ cmpt 5160  ran crn 5626   Er wer 8637  [cec 8638   / cqs 8639

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-sep 5225  ax-pr 5369

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-ral 3055  df-rex 3065  df-rab 3393  df-v 3434  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4269  df-if 4462  df-sn 4563  df-pr 4565  df-op 4569  df-br 5080  df-opab 5142  df-mpt 5161  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-er 8640  df-ec 8642  df-qs 8646

This theorem is referenced by:  0prjspn  43085