Theorem eqvrelth 39071

Description: Basic property of equivalence relations. Theorem 73 of [Suppes] p. 82. (Contributed by NM, 23-Jul-1995.) (Revised by Mario Carneiro, 6-Jul-2015.) (Revised by Peter Mazsa, 2-Jun-2019.)

Hypotheses

Ref	Expression
eqvrelth.1	⊢ (𝜑 → EqvRel 𝑅)
eqvrelth.2	⊢ (𝜑 → 𝐴 ∈ dom 𝑅)

Assertion

Ref	Expression
eqvrelth	⊢ (𝜑 → (𝐴𝑅𝐵 ↔ [𝐴]𝑅 = [𝐵]𝑅))

Proof of Theorem eqvrelth

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqvrelth.1	. . . . . . . 8 ⊢ (𝜑 → EqvRel 𝑅)
2	1	eqvrelsymb 39066	. . . . . . 7 ⊢ (𝜑 → (𝐴𝑅𝐵 ↔ 𝐵𝑅𝐴))
3	2	biimpa 477	. . . . . 6 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → 𝐵𝑅𝐴)
4	1	eqvreltr 39067	. . . . . . 7 ⊢ (𝜑 → ((𝐵𝑅𝐴 ∧ 𝐴𝑅𝑥) → 𝐵𝑅𝑥))
5	4	impl 456	. . . . . 6 ⊢ (((𝜑 ∧ 𝐵𝑅𝐴) ∧ 𝐴𝑅𝑥) → 𝐵𝑅𝑥)
6	3, 5	syldanl 608	. . . . 5 ⊢ (((𝜑 ∧ 𝐴𝑅𝐵) ∧ 𝐴𝑅𝑥) → 𝐵𝑅𝑥)
7	1	eqvreltr 39067	. . . . . 6 ⊢ (𝜑 → ((𝐴𝑅𝐵 ∧ 𝐵𝑅𝑥) → 𝐴𝑅𝑥))
8	7	impl 456	. . . . 5 ⊢ (((𝜑 ∧ 𝐴𝑅𝐵) ∧ 𝐵𝑅𝑥) → 𝐴𝑅𝑥)
9	6, 8	impbida 806	. . . 4 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → (𝐴𝑅𝑥 ↔ 𝐵𝑅𝑥))
10		vex 3435	. . . . 5 ⊢ 𝑥 ∈ V
11		eqvrelth.2	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ dom 𝑅)
12	11	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → 𝐴 ∈ dom 𝑅)
13		elecg 8679	. . . . 5 ⊢ ((𝑥 ∈ V ∧ 𝐴 ∈ dom 𝑅) → (𝑥 ∈ [𝐴]𝑅 ↔ 𝐴𝑅𝑥))
14	10, 12, 13	sylancr 593	. . . 4 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → (𝑥 ∈ [𝐴]𝑅 ↔ 𝐴𝑅𝑥))
15		eqvrelrel 39057	. . . . . . 7 ⊢ ( EqvRel 𝑅 → Rel 𝑅)
16	1, 15	syl 17	. . . . . 6 ⊢ (𝜑 → Rel 𝑅)
17		brrelex2 5673	. . . . . 6 ⊢ ((Rel 𝑅 ∧ 𝐴𝑅𝐵) → 𝐵 ∈ V)
18	16, 17	sylan 586	. . . . 5 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → 𝐵 ∈ V)
19		elecg 8679	. . . . 5 ⊢ ((𝑥 ∈ V ∧ 𝐵 ∈ V) → (𝑥 ∈ [𝐵]𝑅 ↔ 𝐵𝑅𝑥))
20	10, 18, 19	sylancr 593	. . . 4 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → (𝑥 ∈ [𝐵]𝑅 ↔ 𝐵𝑅𝑥))
21	9, 14, 20	3bitr4d 312	. . 3 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → (𝑥 ∈ [𝐴]𝑅 ↔ 𝑥 ∈ [𝐵]𝑅))
22	21	eqrdv 2737	. 2 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → [𝐴]𝑅 = [𝐵]𝑅)
23	1	adantr 481	. . 3 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → EqvRel 𝑅)
24	1, 11	eqvrelref 39070	. . . . . . 7 ⊢ (𝜑 → 𝐴𝑅𝐴)
25	24	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐴𝑅𝐴)
26	11	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐴 ∈ dom 𝑅)
27		elecALTV 38647	. . . . . . 7 ⊢ ((𝐴 ∈ dom 𝑅 ∧ 𝐴 ∈ dom 𝑅) → (𝐴 ∈ [𝐴]𝑅 ↔ 𝐴𝑅𝐴))
28	26, 26, 27	syl2anc 590	. . . . . 6 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → (𝐴 ∈ [𝐴]𝑅 ↔ 𝐴𝑅𝐴))
29	25, 28	mpbird 258	. . . . 5 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐴 ∈ [𝐴]𝑅)
30		simpr 485	. . . . 5 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → [𝐴]𝑅 = [𝐵]𝑅)
31	29, 30	eleqtrd 2841	. . . 4 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐴 ∈ [𝐵]𝑅)
32	30	dmec2d 38687	. . . . . 6 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → (𝐴 ∈ dom 𝑅 ↔ 𝐵 ∈ dom 𝑅))
33	26, 32	mpbid 233	. . . . 5 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐵 ∈ dom 𝑅)
34		elecALTV 38647	. . . . 5 ⊢ ((𝐵 ∈ dom 𝑅 ∧ 𝐴 ∈ dom 𝑅) → (𝐴 ∈ [𝐵]𝑅 ↔ 𝐵𝑅𝐴))
35	33, 26, 34	syl2anc 590	. . . 4 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → (𝐴 ∈ [𝐵]𝑅 ↔ 𝐵𝑅𝐴))
36	31, 35	mpbid 233	. . 3 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐵𝑅𝐴)
37	23, 36	eqvrelsym 39065	. 2 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐴𝑅𝐵)
38	22, 37	impbida 806	1 ⊢ (𝜑 → (𝐴𝑅𝐵 ↔ [𝐴]𝑅 = [𝐵]𝑅))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547   ∈ wcel 2119  Vcvv 3431   class class class wbr 5073  dom cdm 5619  Rel wrel 5624  [cec 8632   EqvRel weqvrel 38576

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-ext 2711  ax-sep 5219  ax-pr 5363

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-sb 2074  df-clab 2718  df-cleq 2731  df-clel 2814  df-ne 2935  df-ral 3054  df-rex 3064  df-rab 3392  df-v 3433  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4263  df-if 4456  df-sn 4557  df-pr 4559  df-op 4563  df-br 5074  df-opab 5136  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-ec 8636  df-refrel 38968  df-symrel 39000  df-trrel 39034  df-eqvrel 39045

This theorem is referenced by:  eqvrelthi  39073