Theorem erth 8795

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.)

Hypotheses

Ref	Expression
erth.1	⊢ (𝜑 → 𝑅 Er 𝑋)
erth.2	⊢ (𝜑 → 𝐴 ∈ 𝑋)

Assertion

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

Proof of Theorem erth

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		erth.1	. . . . . . . 8 ⊢ (𝜑 → 𝑅 Er 𝑋)
2	1	ersymb 8758	. . . . . . 7 ⊢ (𝜑 → (𝐴𝑅𝐵 ↔ 𝐵𝑅𝐴))
3	2	biimpa 476	. . . . . 6 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → 𝐵𝑅𝐴)
4	1	ertr 8759	. . . . . . 7 ⊢ (𝜑 → ((𝐵𝑅𝐴 ∧ 𝐴𝑅𝑥) → 𝐵𝑅𝑥))
5	4	impl 455	. . . . . 6 ⊢ (((𝜑 ∧ 𝐵𝑅𝐴) ∧ 𝐴𝑅𝑥) → 𝐵𝑅𝑥)
6	3, 5	syldanl 602	. . . . 5 ⊢ (((𝜑 ∧ 𝐴𝑅𝐵) ∧ 𝐴𝑅𝑥) → 𝐵𝑅𝑥)
7	1	ertr 8759	. . . . . 6 ⊢ (𝜑 → ((𝐴𝑅𝐵 ∧ 𝐵𝑅𝑥) → 𝐴𝑅𝑥))
8	7	impl 455	. . . . 5 ⊢ (((𝜑 ∧ 𝐴𝑅𝐵) ∧ 𝐵𝑅𝑥) → 𝐴𝑅𝑥)
9	6, 8	impbida 801	. . . 4 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → (𝐴𝑅𝑥 ↔ 𝐵𝑅𝑥))
10		vex 3482	. . . . 5 ⊢ 𝑥 ∈ V
11		erth.2	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ 𝑋)
12	11	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → 𝐴 ∈ 𝑋)
13		elecg 8788	. . . . 5 ⊢ ((𝑥 ∈ V ∧ 𝐴 ∈ 𝑋) → (𝑥 ∈ [𝐴]𝑅 ↔ 𝐴𝑅𝑥))
14	10, 12, 13	sylancr 587	. . . 4 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → (𝑥 ∈ [𝐴]𝑅 ↔ 𝐴𝑅𝑥))
15		errel 8753	. . . . . . 7 ⊢ (𝑅 Er 𝑋 → Rel 𝑅)
16	1, 15	syl 17	. . . . . 6 ⊢ (𝜑 → Rel 𝑅)
17		brrelex2 5743	. . . . . 6 ⊢ ((Rel 𝑅 ∧ 𝐴𝑅𝐵) → 𝐵 ∈ V)
18	16, 17	sylan 580	. . . . 5 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → 𝐵 ∈ V)
19		elecg 8788	. . . . 5 ⊢ ((𝑥 ∈ V ∧ 𝐵 ∈ V) → (𝑥 ∈ [𝐵]𝑅 ↔ 𝐵𝑅𝑥))
20	10, 18, 19	sylancr 587	. . . 4 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → (𝑥 ∈ [𝐵]𝑅 ↔ 𝐵𝑅𝑥))
21	9, 14, 20	3bitr4d 311	. . 3 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → (𝑥 ∈ [𝐴]𝑅 ↔ 𝑥 ∈ [𝐵]𝑅))
22	21	eqrdv 2733	. 2 ⊢ ((𝜑 ∧ 𝐴𝑅𝐵) → [𝐴]𝑅 = [𝐵]𝑅)
23	1	adantr 480	. . 3 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝑅 Er 𝑋)
24	1, 11	erref 8764	. . . . . . 7 ⊢ (𝜑 → 𝐴𝑅𝐴)
25	24	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐴𝑅𝐴)
26	11	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐴 ∈ 𝑋)
27		elecg 8788	. . . . . . 7 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐴 ∈ 𝑋) → (𝐴 ∈ [𝐴]𝑅 ↔ 𝐴𝑅𝐴))
28	26, 26, 27	syl2anc 584	. . . . . 6 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → (𝐴 ∈ [𝐴]𝑅 ↔ 𝐴𝑅𝐴))
29	25, 28	mpbird 257	. . . . 5 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐴 ∈ [𝐴]𝑅)
30		simpr 484	. . . . 5 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → [𝐴]𝑅 = [𝐵]𝑅)
31	29, 30	eleqtrd 2841	. . . 4 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐴 ∈ [𝐵]𝑅)
32	23, 30	ereldm 8794	. . . . . 6 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → (𝐴 ∈ 𝑋 ↔ 𝐵 ∈ 𝑋))
33	26, 32	mpbid 232	. . . . 5 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐵 ∈ 𝑋)
34		elecg 8788	. . . . 5 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴 ∈ [𝐵]𝑅 ↔ 𝐵𝑅𝐴))
35	26, 33, 34	syl2anc 584	. . . 4 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → (𝐴 ∈ [𝐵]𝑅 ↔ 𝐵𝑅𝐴))
36	31, 35	mpbid 232	. . 3 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐵𝑅𝐴)
37	23, 36	ersym 8756	. 2 ⊢ ((𝜑 ∧ [𝐴]𝑅 = [𝐵]𝑅) → 𝐴𝑅𝐵)
38	22, 37	impbida 801	1 ⊢ (𝜑 → (𝐴𝑅𝐵 ↔ [𝐴]𝑅 = [𝐵]𝑅))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1537   ∈ wcel 2106  Vcvv 3478   class class class wbr 5148  Rel wrel 5694   Er wer 8741  [cec 8742

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-sep 5302  ax-nul 5312  ax-pr 5438

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-clab 2713  df-cleq 2727  df-clel 2814  df-ne 2939  df-ral 3060  df-rex 3069  df-rab 3434  df-v 3480  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-nul 4340  df-if 4532  df-sn 4632  df-pr 4634  df-op 4638  df-br 5149  df-opab 5211  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-er 8744  df-ec 8746

This theorem is referenced by:  erth2  8796  erthi  8797  qliftfun  8841  eroveu  8851  eceqoveq  8861  enreceq  11104  prsrlem1  11110  ercpbllem  17595  eqg0el  19214  orbsta  19344  sylow2blem3  19655  qusecsub  19868  frgpnabllem2  19907  rngqipring1  21344  zndvds  21586  qustgpopn  24144  qustgphaus  24147  pi1xfrf  25100  pi1cof  25106  tgjustr  28497  rlocf1  33260  fracfld  33290  qusvscpbl  33359  nsgqusf1olem3  33423  qsnzr  33463  zringfrac  33562  pstmxmet  33858  sconnpi1  35224  topfneec2  36339