Theorem iserd 8661

Description: A reflexive, symmetric, transitive relation is an equivalence relation on its domain. (Contributed by Mario Carneiro, 9-Jul-2014.) (Revised by Mario Carneiro, 12-Aug-2015.)

Hypotheses

Ref	Expression
iserd.1	⊢ (𝜑 → Rel 𝑅)
iserd.2	⊢ ((𝜑 ∧ 𝑥𝑅𝑦) → 𝑦𝑅𝑥)
iserd.3	⊢ ((𝜑 ∧ (𝑥𝑅𝑦 ∧ 𝑦𝑅𝑧)) → 𝑥𝑅𝑧)
iserd.4	⊢ (𝜑 → (𝑥 ∈ 𝐴 ↔ 𝑥𝑅𝑥))

Assertion

Ref	Expression
iserd	⊢ (𝜑 → 𝑅 Er 𝐴)

Distinct variable groups:   𝑥,𝑦,𝑧,𝑅   𝑥,𝐴   𝜑,𝑥,𝑦,𝑧

Allowed substitution hints:   𝐴(𝑦,𝑧)

Proof of Theorem iserd

Step	Hyp	Ref	Expression
1		iserd.1	. . 3 ⊢ (𝜑 → Rel 𝑅)
2		eqidd 2737	. . 3 ⊢ (𝜑 → dom 𝑅 = dom 𝑅)
3		iserd.2	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥𝑅𝑦) → 𝑦𝑅𝑥)
4	3	ex 412	. . . . . . 7 ⊢ (𝜑 → (𝑥𝑅𝑦 → 𝑦𝑅𝑥))
5		iserd.3	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥𝑅𝑦 ∧ 𝑦𝑅𝑧)) → 𝑥𝑅𝑧)
6	5	ex 412	. . . . . . 7 ⊢ (𝜑 → ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑧) → 𝑥𝑅𝑧))
7	4, 6	jca 511	. . . . . 6 ⊢ (𝜑 → ((𝑥𝑅𝑦 → 𝑦𝑅𝑥) ∧ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑧) → 𝑥𝑅𝑧)))
8	7	alrimiv 1928	. . . . 5 ⊢ (𝜑 → ∀𝑧((𝑥𝑅𝑦 → 𝑦𝑅𝑥) ∧ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑧) → 𝑥𝑅𝑧)))
9	8	alrimiv 1928	. . . 4 ⊢ (𝜑 → ∀𝑦∀𝑧((𝑥𝑅𝑦 → 𝑦𝑅𝑥) ∧ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑧) → 𝑥𝑅𝑧)))
10	9	alrimiv 1928	. . 3 ⊢ (𝜑 → ∀𝑥∀𝑦∀𝑧((𝑥𝑅𝑦 → 𝑦𝑅𝑥) ∧ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑧) → 𝑥𝑅𝑧)))
11		dfer2 8636	. . 3 ⊢ (𝑅 Er dom 𝑅 ↔ (Rel 𝑅 ∧ dom 𝑅 = dom 𝑅 ∧ ∀𝑥∀𝑦∀𝑧((𝑥𝑅𝑦 → 𝑦𝑅𝑥) ∧ ((𝑥𝑅𝑦 ∧ 𝑦𝑅𝑧) → 𝑥𝑅𝑧))))
12	1, 2, 10, 11	syl3anbrc 1344	. 2 ⊢ (𝜑 → 𝑅 Er dom 𝑅)
13	12	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ dom 𝑅) → 𝑅 Er dom 𝑅)
14		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ dom 𝑅) → 𝑥 ∈ dom 𝑅)
15	13, 14	erref 8655	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ dom 𝑅) → 𝑥𝑅𝑥)
16	15	ex 412	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ dom 𝑅 → 𝑥𝑅𝑥))
17		vex 3444	. . . . . . 7 ⊢ 𝑥 ∈ V
18	17, 17	breldm 5857	. . . . . 6 ⊢ (𝑥𝑅𝑥 → 𝑥 ∈ dom 𝑅)
19	16, 18	impbid1 225	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ dom 𝑅 ↔ 𝑥𝑅𝑥))
20		iserd.4	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↔ 𝑥𝑅𝑥))
21	19, 20	bitr4d 282	. . . 4 ⊢ (𝜑 → (𝑥 ∈ dom 𝑅 ↔ 𝑥 ∈ 𝐴))
22	21	eqrdv 2734	. . 3 ⊢ (𝜑 → dom 𝑅 = 𝐴)
23		ereq2 8643	. . 3 ⊢ (dom 𝑅 = 𝐴 → (𝑅 Er dom 𝑅 ↔ 𝑅 Er 𝐴))
24	22, 23	syl 17	. 2 ⊢ (𝜑 → (𝑅 Er dom 𝑅 ↔ 𝑅 Er 𝐴))
25	12, 24	mpbid 232	1 ⊢ (𝜑 → 𝑅 Er 𝐴)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395  ∀wal 1539   = wceq 1541   ∈ wcel 2113   class class class wbr 5098  dom cdm 5624  Rel wrel 5629   Er wer 8632

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-ext 2708  ax-sep 5241  ax-nul 5251  ax-pr 5377

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-sb 2068  df-clab 2715  df-cleq 2728  df-clel 2811  df-ral 3052  df-rex 3061  df-rab 3400  df-v 3442  df-dif 3904  df-un 3906  df-ss 3918  df-nul 4286  df-if 4480  df-sn 4581  df-pr 4583  df-op 4587  df-br 5099  df-opab 5161  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-er 8635

This theorem is referenced by:  iseri  8662  iseriALT  8663  swoer  8666  iiner  8726  erinxp  8728  cicer  17730  eqger  19107  gaorber  19237  efgrelexlemb  19679  efgcpbllemb  19684  xmeter  24377  ercgrg  28589  erler  33347  metider  34051  prjsper  42851  cicerALT  49291