Theorem primefld 20917

Description: The smallest sub division ring of a division ring, here named 𝑃, is a field, called the Prime Field of 𝑅. (Suggested by GL, 4-Aug-2023.) (Contributed by Thierry Arnoux, 21-Aug-2023.)

Hypothesis

Ref	Expression
primefld.1	⊢ 𝑃 = (𝑅 ↾s ∩ (SubDRing‘𝑅))

Assertion

Ref	Expression
primefld	⊢ (𝑅 ∈ DivRing → 𝑃 ∈ Field)

Proof of Theorem primefld

Dummy variables 𝑠 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		primefld.1	. . 3 ⊢ 𝑃 = (𝑅 ↾s ∩ (SubDRing‘𝑅))
2		id 23	. . 3 ⊢ (𝑅 ∈ DivRing → 𝑅 ∈ DivRing)
3		issdrg 20900	. . . . . 6 ⊢ (𝑠 ∈ (SubDRing‘𝑅) ↔ (𝑅 ∈ DivRing ∧ 𝑠 ∈ (SubRing‘𝑅) ∧ (𝑅 ↾s 𝑠) ∈ DivRing))
4	3	simp2bi 1164	. . . . 5 ⊢ (𝑠 ∈ (SubDRing‘𝑅) → 𝑠 ∈ (SubRing‘𝑅))
5	4	ssriv 3941	. . . 4 ⊢ (SubDRing‘𝑅) ⊆ (SubRing‘𝑅)
6	5	a1i 11	. . 3 ⊢ (𝑅 ∈ DivRing → (SubDRing‘𝑅) ⊆ (SubRing‘𝑅))
7		eqid 2763	. . . . 5 ⊢ (Base‘𝑅) = (Base‘𝑅)
8	7	sdrgid 20904	. . . 4 ⊢ (𝑅 ∈ DivRing → (Base‘𝑅) ∈ (SubDRing‘𝑅))
9	8	ne0d 4295	. . 3 ⊢ (𝑅 ∈ DivRing → (SubDRing‘𝑅) ≠ ∅)
10	3	simp3bi 1165	. . . 4 ⊢ (𝑠 ∈ (SubDRing‘𝑅) → (𝑅 ↾s 𝑠) ∈ DivRing)
11	10	adantl 486	. . 3 ⊢ ((𝑅 ∈ DivRing ∧ 𝑠 ∈ (SubDRing‘𝑅)) → (𝑅 ↾s 𝑠) ∈ DivRing)
12	1, 2, 6, 9, 11	subdrgint 20915	. 2 ⊢ (𝑅 ∈ DivRing → 𝑃 ∈ DivRing)
13		drngring 20843	. . . 4 ⊢ (𝑃 ∈ DivRing → 𝑃 ∈ Ring)
14	12, 13	syl 18	. . 3 ⊢ (𝑅 ∈ DivRing → 𝑃 ∈ Ring)
15		ssidd 3960	. . . . . . . . . . . . . 14 ⊢ (𝑅 ∈ DivRing → (Base‘𝑅) ⊆ (Base‘𝑅))
16		eqid 2763	. . . . . . . . . . . . . . 15 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
17		eqid 2763	. . . . . . . . . . . . . . 15 ⊢ (Cntz‘(mulGrp‘𝑅)) = (Cntz‘(mulGrp‘𝑅))
18	7, 16, 17	cntzsdrg 20914	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ DivRing ∧ (Base‘𝑅) ⊆ (Base‘𝑅)) → ((Cntz‘(mulGrp‘𝑅))‘(Base‘𝑅)) ∈ (SubDRing‘𝑅))
19	2, 15, 18	syl2anc 595	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ DivRing → ((Cntz‘(mulGrp‘𝑅))‘(Base‘𝑅)) ∈ (SubDRing‘𝑅))
20		intss1 4928	. . . . . . . . . . . . 13 ⊢ (((Cntz‘(mulGrp‘𝑅))‘(Base‘𝑅)) ∈ (SubDRing‘𝑅) → ∩ (SubDRing‘𝑅) ⊆ ((Cntz‘(mulGrp‘𝑅))‘(Base‘𝑅)))
21	19, 20	syl 18	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ DivRing → ∩ (SubDRing‘𝑅) ⊆ ((Cntz‘(mulGrp‘𝑅))‘(Base‘𝑅)))
22	16, 7	mgpbas 20225	. . . . . . . . . . . . 13 ⊢ (Base‘𝑅) = (Base‘(mulGrp‘𝑅))
23	22, 17	cntrval 19393	. . . . . . . . . . . 12 ⊢ ((Cntz‘(mulGrp‘𝑅))‘(Base‘𝑅)) = (Cntr‘(mulGrp‘𝑅))
24	21, 23	sseqtrdi 3977	. . . . . . . . . . 11 ⊢ (𝑅 ∈ DivRing → ∩ (SubDRing‘𝑅) ⊆ (Cntr‘(mulGrp‘𝑅)))
25	22	cntrss 19405	. . . . . . . . . . 11 ⊢ (Cntr‘(mulGrp‘𝑅)) ⊆ (Base‘𝑅)
26	24, 25	sstrdi 3949	. . . . . . . . . 10 ⊢ (𝑅 ∈ DivRing → ∩ (SubDRing‘𝑅) ⊆ (Base‘𝑅))
27	1, 7	ressbas2 17302	. . . . . . . . . 10 ⊢ (∩ (SubDRing‘𝑅) ⊆ (Base‘𝑅) → ∩ (SubDRing‘𝑅) = (Base‘𝑃))
28	26, 27	syl 18	. . . . . . . . 9 ⊢ (𝑅 ∈ DivRing → ∩ (SubDRing‘𝑅) = (Base‘𝑃))
29	28, 24	eqsstrrd 3972	. . . . . . . 8 ⊢ (𝑅 ∈ DivRing → (Base‘𝑃) ⊆ (Cntr‘(mulGrp‘𝑅)))
30	29	adantr 485	. . . . . . 7 ⊢ ((𝑅 ∈ DivRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → (Base‘𝑃) ⊆ (Cntr‘(mulGrp‘𝑅)))
31		simprl 782	. . . . . . 7 ⊢ ((𝑅 ∈ DivRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → 𝑥 ∈ (Base‘𝑃))
32	30, 31	sseldd 3938	. . . . . 6 ⊢ ((𝑅 ∈ DivRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → 𝑥 ∈ (Cntr‘(mulGrp‘𝑅)))
33	28, 26	eqsstrrd 3972	. . . . . . . 8 ⊢ (𝑅 ∈ DivRing → (Base‘𝑃) ⊆ (Base‘𝑅))
34	33	adantr 485	. . . . . . 7 ⊢ ((𝑅 ∈ DivRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → (Base‘𝑃) ⊆ (Base‘𝑅))
35		simprr 784	. . . . . . 7 ⊢ ((𝑅 ∈ DivRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → 𝑦 ∈ (Base‘𝑃))
36	34, 35	sseldd 3938	. . . . . 6 ⊢ ((𝑅 ∈ DivRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → 𝑦 ∈ (Base‘𝑅))
37		eqid 2763	. . . . . . . 8 ⊢ (.r‘𝑅) = (.r‘𝑅)
38	16, 37	mgpplusg 20224	. . . . . . 7 ⊢ (.r‘𝑅) = (+g‘(mulGrp‘𝑅))
39		eqid 2763	. . . . . . 7 ⊢ (Cntr‘(mulGrp‘𝑅)) = (Cntr‘(mulGrp‘𝑅))
40	22, 38, 39	cntri 19406	. . . . . 6 ⊢ ((𝑥 ∈ (Cntr‘(mulGrp‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) → (𝑥(.r‘𝑅)𝑦) = (𝑦(.r‘𝑅)𝑥))
41	32, 36, 40	syl2anc 595	. . . . 5 ⊢ ((𝑅 ∈ DivRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → (𝑥(.r‘𝑅)𝑦) = (𝑦(.r‘𝑅)𝑥))
42	8, 26	ssexd 5295	. . . . . . 7 ⊢ (𝑅 ∈ DivRing → ∩ (SubDRing‘𝑅) ∈ V)
43	1, 37	ressmulr 17364	. . . . . . 7 ⊢ (∩ (SubDRing‘𝑅) ∈ V → (.r‘𝑅) = (.r‘𝑃))
44	42, 43	syl 18	. . . . . 6 ⊢ (𝑅 ∈ DivRing → (.r‘𝑅) = (.r‘𝑃))
45	44	oveqdr 7438	. . . . 5 ⊢ ((𝑅 ∈ DivRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → (𝑥(.r‘𝑅)𝑦) = (𝑥(.r‘𝑃)𝑦))
46	44	oveqdr 7438	. . . . 5 ⊢ ((𝑅 ∈ DivRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → (𝑦(.r‘𝑅)𝑥) = (𝑦(.r‘𝑃)𝑥))
47	41, 45, 46	3eqtr3d 2806	. . . 4 ⊢ ((𝑅 ∈ DivRing ∧ (𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃))) → (𝑥(.r‘𝑃)𝑦) = (𝑦(.r‘𝑃)𝑥))
48	47	ralrimivva 3208	. . 3 ⊢ (𝑅 ∈ DivRing → ∀𝑥 ∈ (Base‘𝑃)∀𝑦 ∈ (Base‘𝑃)(𝑥(.r‘𝑃)𝑦) = (𝑦(.r‘𝑃)𝑥))
49		eqid 2763	. . . 4 ⊢ (Base‘𝑃) = (Base‘𝑃)
50		eqid 2763	. . . 4 ⊢ (.r‘𝑃) = (.r‘𝑃)
51	49, 50	iscrng2 20338	. . 3 ⊢ (𝑃 ∈ CRing ↔ (𝑃 ∈ Ring ∧ ∀𝑥 ∈ (Base‘𝑃)∀𝑦 ∈ (Base‘𝑃)(𝑥(.r‘𝑃)𝑦) = (𝑦(.r‘𝑃)𝑥)))
52	14, 48, 51	sylanbrc 594	. 2 ⊢ (𝑅 ∈ DivRing → 𝑃 ∈ CRing)
53		isfld 20849	. 2 ⊢ (𝑃 ∈ Field ↔ (𝑃 ∈ DivRing ∧ 𝑃 ∈ CRing))
54	12, 52, 53	sylanbrc 594	1 ⊢ (𝑅 ∈ DivRing → 𝑃 ∈ Field)

This proof depends on syntax axioms:   → wi 4   ∧ wa 400   = wceq 1570   ∈ wcel 2143  ∀wral 3079  Vcvv 3455   ⊆ wss 3905  ∩ cint 4912  ‘cfv 6536  (class class class)co 7410  Basecbs 17273   ↾_s cress 17294  ._rcmulr 17315  Cntzccntz 19389  Cntrccntr 19390  mulGrpcmgp 20220  Ringcrg 20319  CRingccrg 20320  SubRingcsubrg 20677  DivRingcdr 20836  Fieldcfield 20837  SubDRingcsdrg 20898

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-cnex 11160  ax-resscn 11161  ax-1cn 11162  ax-icn 11163  ax-addcl 11164  ax-addrcl 11165  ax-mulcl 11166  ax-mulrcl 11167  ax-mulcom 11168  ax-addass 11169  ax-mulass 11170  ax-distr 11171  ax-i2m1 11172  ax-1ne0 11173  ax-1rid 11174  ax-rnegex 11175  ax-rrecex 11176  ax-cnre 11177  ax-pre-lttri 11178  ax-pre-lttrn 11179  ax-pre-ltadd 11180  ax-pre-mulgt0 11181

This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-int 4913  df-iun 4958  df-iin 4959  df-br 5110  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7859  df-1st 7982  df-2nd 7983  df-tpos 8218  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-er 8690  df-en 8940  df-dom 8941  df-sdom 8942  df-pnf 11249  df-mnf 11250  df-xr 11251  df-ltxr 11252  df-le 11253  df-sub 11447  df-neg 11448  df-nn 12238  df-2 12307  df-3 12308  df-sets 17228  df-slot 17246  df-ndx 17258  df-base 17274  df-ress 17295  df-plusg 17327  df-mulr 17328  df-0g 17498  df-mgm 18702  df-sgrp 18781  df-mnd 18797  df-submnd 18846  df-grp 19007  df-minusg 19008  df-subg 19193  df-cntz 19391  df-cntr 19392  df-cmn 19856  df-abl 19857  df-mgp 20221  df-rng 20235  df-ur 20268  df-ring 20321  df-cring 20322  df-oppr 20424  df-dvdsr 20444  df-unit 20445  df-invr 20475  df-dvr 20488  df-subrng 20654  df-subrg 20678  df-drng 20838  df-field 20839  df-sdrg 20899

This theorem is used by: (None)