Theorem proot1hash 43640

Description: If an integral domain has a primitive 𝑁-th root of unity, it has exactly (ϕ‘𝑁) of them. (Contributed by Stefan O'Rear, 12-Sep-2015.)

Hypotheses

Ref	Expression
proot1hash.g	⊢ 𝐺 = ((mulGrp‘𝑅) ↾s (Unit‘𝑅))
proot1hash.o	⊢ 𝑂 = (od‘𝐺)

Assertion

Ref	Expression
proot1hash	⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (♯‘(◡𝑂 “ {𝑁})) = (ϕ‘𝑁))

Proof of Theorem proot1hash

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2739	. . . . . 6 ⊢ (Base‘𝐺) = (Base‘𝐺)
2		proot1hash.o	. . . . . 6 ⊢ 𝑂 = (od‘𝐺)
3	1, 2	odf 19503	. . . . 5 ⊢ 𝑂:(Base‘𝐺)⟶ℕ0
4		ffn 6655	. . . . 5 ⊢ (𝑂:(Base‘𝐺)⟶ℕ0 → 𝑂 Fn (Base‘𝐺))
5		fniniseg2 7003	. . . . 5 ⊢ (𝑂 Fn (Base‘𝐺) → (◡𝑂 “ {𝑁}) = {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁})
6	3, 4, 5	mp2b 10	. . . 4 ⊢ (◡𝑂 “ {𝑁}) = {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁}
7		simp3 1144	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → 𝑋 ∈ (◡𝑂 “ {𝑁}))
8		fniniseg 7001	. . . . . . . . . 10 ⊢ (𝑂 Fn (Base‘𝐺) → (𝑋 ∈ (◡𝑂 “ {𝑁}) ↔ (𝑋 ∈ (Base‘𝐺) ∧ (𝑂‘𝑋) = 𝑁)))
9	3, 4, 8	mp2b 10	. . . . . . . . 9 ⊢ (𝑋 ∈ (◡𝑂 “ {𝑁}) ↔ (𝑋 ∈ (Base‘𝐺) ∧ (𝑂‘𝑋) = 𝑁))
10	7, 9	sylib 219	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (𝑋 ∈ (Base‘𝐺) ∧ (𝑂‘𝑋) = 𝑁))
11	10	simprd 496	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (𝑂‘𝑋) = 𝑁)
12	11	eqeq2d 2750	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → ((𝑂‘𝑥) = (𝑂‘𝑋) ↔ (𝑂‘𝑥) = 𝑁))
13	12	rabbidv 3398	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → {𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∣ (𝑂‘𝑥) = (𝑂‘𝑋)} = {𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∣ (𝑂‘𝑥) = 𝑁})
14		isidom 20697	. . . . . . . . . 10 ⊢ (𝑅 ∈ IDomn ↔ (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn))
15	14	simprbi 498	. . . . . . . . 9 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ Domn)
16	15	3ad2ant1 1139	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → 𝑅 ∈ Domn)
17		domnring 20679	. . . . . . . 8 ⊢ (𝑅 ∈ Domn → 𝑅 ∈ Ring)
18		eqid 2739	. . . . . . . . 9 ⊢ (Unit‘𝑅) = (Unit‘𝑅)
19		proot1hash.g	. . . . . . . . 9 ⊢ 𝐺 = ((mulGrp‘𝑅) ↾s (Unit‘𝑅))
20	18, 19	unitgrp 20354	. . . . . . . 8 ⊢ (𝑅 ∈ Ring → 𝐺 ∈ Grp)
21	16, 17, 20	3syl 18	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → 𝐺 ∈ Grp)
22	1	subgacs 19127	. . . . . . 7 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)))
23		acsmre 17609	. . . . . . 7 ⊢ ((SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
24	21, 22, 23	3syl 18	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
25		eqid 2739	. . . . . . 7 ⊢ (mrCls‘(SubGrp‘𝐺)) = (mrCls‘(SubGrp‘𝐺))
26	25	mrcssv 17571	. . . . . 6 ⊢ ((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) → ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ⊆ (Base‘𝐺))
27		dfrab3ss 4251	. . . . . 6 ⊢ (((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ⊆ (Base‘𝐺) → {𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∣ (𝑂‘𝑥) = 𝑁} = (((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∩ {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁}))
28	24, 26, 27	3syl 18	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → {𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∣ (𝑂‘𝑥) = 𝑁} = (((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∩ {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁}))
29		incom 4138	. . . . . 6 ⊢ (((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∩ {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁}) = ({𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁} ∩ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}))
30		simpl1 1198	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) ∧ 𝑥 ∈ (◡𝑂 “ {𝑁})) → 𝑅 ∈ IDomn)
31		simpl2 1199	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) ∧ 𝑥 ∈ (◡𝑂 “ {𝑁})) → 𝑁 ∈ ℕ)
32		simpr 485	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) ∧ 𝑥 ∈ (◡𝑂 “ {𝑁})) → 𝑥 ∈ (◡𝑂 “ {𝑁}))
33		simpl3 1200	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) ∧ 𝑥 ∈ (◡𝑂 “ {𝑁})) → 𝑋 ∈ (◡𝑂 “ {𝑁}))
34	19, 2, 25	proot1mul 43639	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑥 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑋 ∈ (◡𝑂 “ {𝑁}))) → 𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}))
35	30, 31, 32, 33, 34	syl22anc 844	. . . . . . . . . 10 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) ∧ 𝑥 ∈ (◡𝑂 “ {𝑁})) → 𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}))
36	35	ex 413	. . . . . . . . 9 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (𝑥 ∈ (◡𝑂 “ {𝑁}) → 𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋})))
37	36	ssrdv 3921	. . . . . . . 8 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (◡𝑂 “ {𝑁}) ⊆ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}))
38	6, 37	eqsstrrid 3954	. . . . . . 7 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁} ⊆ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}))
39		dfss2 3901	. . . . . . 7 ⊢ ({𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁} ⊆ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ↔ ({𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁} ∩ ((mrCls‘(SubGrp‘𝐺))‘{𝑋})) = {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁})
40	38, 39	sylib 219	. . . . . 6 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → ({𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁} ∩ ((mrCls‘(SubGrp‘𝐺))‘{𝑋})) = {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁})
41	29, 40	eqtrid 2786	. . . . 5 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∩ {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁}) = {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁})
42	13, 28, 41	3eqtrrd 2779	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → {𝑥 ∈ (Base‘𝐺) ∣ (𝑂‘𝑥) = 𝑁} = {𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∣ (𝑂‘𝑥) = (𝑂‘𝑋)})
43	6, 42	eqtrid 2786	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (◡𝑂 “ {𝑁}) = {𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∣ (𝑂‘𝑥) = (𝑂‘𝑋)})
44	43	fveq2d 6831	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (♯‘(◡𝑂 “ {𝑁})) = (♯‘{𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∣ (𝑂‘𝑥) = (𝑂‘𝑋)}))
45	10	simpld 495	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → 𝑋 ∈ (Base‘𝐺))
46		simp2 1143	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → 𝑁 ∈ ℕ)
47	11, 46	eqeltrd 2839	. . 3 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (𝑂‘𝑋) ∈ ℕ)
48	1, 2, 25	odngen 19543	. . 3 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ (Base‘𝐺) ∧ (𝑂‘𝑋) ∈ ℕ) → (♯‘{𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∣ (𝑂‘𝑥) = (𝑂‘𝑋)}) = (ϕ‘(𝑂‘𝑋)))
49	21, 45, 47, 48	syl3anc 1379	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (♯‘{𝑥 ∈ ((mrCls‘(SubGrp‘𝐺))‘{𝑋}) ∣ (𝑂‘𝑥) = (𝑂‘𝑋)}) = (ϕ‘(𝑂‘𝑋)))
50	11	fveq2d 6831	. 2 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (ϕ‘(𝑂‘𝑋)) = (ϕ‘𝑁))
51	44, 49, 50	3eqtrd 2778	1 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ ∧ 𝑋 ∈ (◡𝑂 “ {𝑁})) → (♯‘(◡𝑂 “ {𝑁})) = (ϕ‘𝑁))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1092   = wceq 1547   ∈ wcel 2119  {crab 3391   ∩ cin 3882   ⊆ wss 3883  {csn 4555  ^◡ccnv 5617   “ cima 5621   Fn wfn 6480  ⟶wf 6481  ‘cfv 6485  (class class class)co 7356  ℕcn 12165  ℕ₀cn0 12428  ♯chash 14283  ϕcphi 16725  Basecbs 17170   ↾_s cress 17191  Moorecmre 17535  mrClscmrc 17536  ACScacs 17538  Grpcgrp 18900  SubGrpcsubg 19087  odcod 19490  mulGrpcmgp 20112  Ringcrg 20205  CRingccrg 20206  Unitcui 20326  Domncdomn 20664  IDomncidom 20665

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 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-inf2 9553  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106  ax-pre-sup 11107  ax-addf 11108

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  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 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-tp 4560  df-op 4562  df-uni 4839  df-int 4878  df-iun 4923  df-iin 4924  df-disj 5040  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-se 5572  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-isom 6494  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-of 7620  df-ofr 7621  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8101  df-tpos 8166  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-oadd 8399  df-omul 8400  df-er 8633  df-ec 8635  df-qs 8639  df-map 8765  df-pm 8766  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9265  df-sup 9345  df-inf 9346  df-oi 9415  df-dju 9816  df-card 9854  df-acn 9857  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-div 11799  df-nn 12166  df-2 12235  df-3 12236  df-4 12237  df-5 12238  df-6 12239  df-7 12240  df-8 12241  df-9 12242  df-n0 12429  df-xnn0 12502  df-z 12516  df-dec 12636  df-uz 12780  df-rp 12934  df-fz 13453  df-fzo 13600  df-fl 13742  df-mod 13820  df-seq 13955  df-exp 14015  df-hash 14284  df-cj 15052  df-re 15053  df-im 15054  df-sqrt 15188  df-abs 15189  df-clim 15441  df-sum 15640  df-dvds 16213  df-gcd 16455  df-phi 16727  df-struct 17108  df-sets 17125  df-slot 17143  df-ndx 17155  df-base 17171  df-ress 17192  df-plusg 17224  df-mulr 17225  df-starv 17226  df-sca 17227  df-vsca 17228  df-ip 17229  df-tset 17230  df-ple 17231  df-ds 17233  df-unif 17234  df-hom 17235  df-cco 17236  df-0g 17395  df-gsum 17396  df-prds 17401  df-pws 17403  df-mre 17539  df-mrc 17540  df-acs 17542  df-mgm 18599  df-sgrp 18678  df-mnd 18694  df-mhm 18742  df-submnd 18743  df-grp 18903  df-minusg 18904  df-sbg 18905  df-mulg 19035  df-subg 19090  df-eqg 19092  df-ghm 19179  df-cntz 19283  df-od 19494  df-cmn 19748  df-abl 19749  df-mgp 20113  df-rng 20125  df-ur 20154  df-srg 20159  df-ring 20207  df-cring 20208  df-oppr 20308  df-dvdsr 20328  df-unit 20329  df-invr 20359  df-rhm 20443  df-nzr 20485  df-subrng 20518  df-subrg 20542  df-rlreg 20666  df-domn 20667  df-idom 20668  df-lmod 20852  df-lss 20922  df-lsp 20962  df-cnfld 21348  df-assa 21828  df-asp 21829  df-ascl 21830  df-psr 21884  df-mvr 21885  df-mpl 21886  df-opsr 21888  df-evls 22050  df-evl 22051  df-psr1 22165  df-vr1 22166  df-ply1 22167  df-coe1 22168  df-evl1 22302  df-mdeg 26038  df-deg1 26039  df-mon1 26114  df-uc1p 26115  df-q1p 26116  df-r1p 26117

This theorem is referenced by: (None)