Theorem proot1mul 44154

Description: Any primitive 𝑁-th root of unity is a multiple of any other. (Contributed by Stefan O'Rear, 2-Nov-2015.)

Hypotheses

Ref	Expression
idomsubgmo.g	⊢ 𝐺 = ((mulGrp‘𝑅) ↾s (Unit‘𝑅))
proot1mul.o	⊢ 𝑂 = (od‘𝐺)
proot1mul.k	⊢ 𝐾 = (mrCls‘(SubGrp‘𝐺))

Assertion

Ref	Expression
proot1mul	⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → 𝑋 ∈ (𝐾‘{𝑌}))

Proof of Theorem proot1mul

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpll 779	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → 𝑅 ∈ IDomn)
2		isidom 20956	. . . . . . 7 ⊢ (𝑅 ∈ IDomn ↔ (𝑅 ∈ CRing ∧ 𝑅 ∈ Domn))
3	2	simprbi 503	. . . . . 6 ⊢ (𝑅 ∈ IDomn → 𝑅 ∈ Domn)
4		domnring 20939	. . . . . 6 ⊢ (𝑅 ∈ Domn → 𝑅 ∈ Ring)
5		eqid 2761	. . . . . . 7 ⊢ (Unit‘𝑅) = (Unit‘𝑅)
6		idomsubgmo.g	. . . . . . 7 ⊢ 𝐺 = ((mulGrp‘𝑅) ↾s (Unit‘𝑅))
7	5, 6	unitgrp 20593	. . . . . 6 ⊢ (𝑅 ∈ Ring → 𝐺 ∈ Grp)
8	1, 3, 4, 7	4syl 20	. . . . 5 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → 𝐺 ∈ Grp)
9		eqid 2761	. . . . . 6 ⊢ (Base‘𝐺) = (Base‘𝐺)
10	9	subgacs 19351	. . . . 5 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)))
11		acsmre 17806	. . . . 5 ⊢ ((SubGrp‘𝐺) ∈ (ACS‘(Base‘𝐺)) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
12	8, 10, 11	3syl 19	. . . 4 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)))
13		proot1mul.k	. . . 4 ⊢ 𝐾 = (mrCls‘(SubGrp‘𝐺))
14		simprl 783	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → 𝑋 ∈ (◡𝑂 “ {𝑁}))
15		proot1mul.o	. . . . . . . . 9 ⊢ 𝑂 = (od‘𝐺)
16	9, 15	odf 19731	. . . . . . . 8 ⊢ 𝑂:(Base‘𝐺)⟶ℕ0
17		ffn 6701	. . . . . . . 8 ⊢ (𝑂:(Base‘𝐺)⟶ℕ0 → 𝑂 Fn (Base‘𝐺))
18		fniniseg 7051	. . . . . . . 8 ⊢ (𝑂 Fn (Base‘𝐺) → (𝑋 ∈ (◡𝑂 “ {𝑁}) ↔ (𝑋 ∈ (Base‘𝐺) ∧ (𝑂‘𝑋) = 𝑁)))
19	16, 17, 18	mp2b 10	. . . . . . 7 ⊢ (𝑋 ∈ (◡𝑂 “ {𝑁}) ↔ (𝑋 ∈ (Base‘𝐺) ∧ (𝑂‘𝑋) = 𝑁))
20	14, 19	sylib 221	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (𝑋 ∈ (Base‘𝐺) ∧ (𝑂‘𝑋) = 𝑁))
21	20	simpld 500	. . . . 5 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → 𝑋 ∈ (Base‘𝐺))
22	21	snssd 4747	. . . 4 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → {𝑋} ⊆ (Base‘𝐺))
23	12, 13, 22	mrcssidd 17779	. . 3 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → {𝑋} ⊆ (𝐾‘{𝑋}))
24		snssg 4744	. . . 4 ⊢ (𝑋 ∈ (◡𝑂 “ {𝑁}) → (𝑋 ∈ (𝐾‘{𝑋}) ↔ {𝑋} ⊆ (𝐾‘{𝑋})))
25	14, 24	syl 18	. . 3 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (𝑋 ∈ (𝐾‘{𝑋}) ↔ {𝑋} ⊆ (𝐾‘{𝑋})))
26	23, 25	mpbird 260	. 2 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → 𝑋 ∈ (𝐾‘{𝑋}))
27	6	idomsubgmo 44153	. . . 4 ⊢ ((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) → ∃*𝑥 ∈ (SubGrp‘𝐺)(♯‘𝑥) = 𝑁)
28	27	adantr 486	. . 3 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → ∃*𝑥 ∈ (SubGrp‘𝐺)(♯‘𝑥) = 𝑁)
29	13	mrccl 17765	. . . 4 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ {𝑋} ⊆ (Base‘𝐺)) → (𝐾‘{𝑋}) ∈ (SubGrp‘𝐺))
30	12, 22, 29	syl2anc 596	. . 3 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (𝐾‘{𝑋}) ∈ (SubGrp‘𝐺))
31	20	simprd 501	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (𝑂‘𝑋) = 𝑁)
32		simplr 781	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → 𝑁 ∈ ℕ)
33	31, 32	eqeltrd 2861	. . . . 5 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (𝑂‘𝑋) ∈ ℕ)
34	9, 15, 13	odhash2 19769	. . . . 5 ⊢ ((𝐺 ∈ Grp ∧ 𝑋 ∈ (Base‘𝐺) ∧ (𝑂‘𝑋) ∈ ℕ) → (♯‘(𝐾‘{𝑋})) = (𝑂‘𝑋))
35	8, 21, 33, 34	syl3anc 1398	. . . 4 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (♯‘(𝐾‘{𝑋})) = (𝑂‘𝑋))
36	35, 31	eqtrd 2796	. . 3 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (♯‘(𝐾‘{𝑋})) = 𝑁)
37		simprr 785	. . . . . . 7 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → 𝑌 ∈ (◡𝑂 “ {𝑁}))
38		fniniseg 7051	. . . . . . . 8 ⊢ (𝑂 Fn (Base‘𝐺) → (𝑌 ∈ (◡𝑂 “ {𝑁}) ↔ (𝑌 ∈ (Base‘𝐺) ∧ (𝑂‘𝑌) = 𝑁)))
39	16, 17, 38	mp2b 10	. . . . . . 7 ⊢ (𝑌 ∈ (◡𝑂 “ {𝑁}) ↔ (𝑌 ∈ (Base‘𝐺) ∧ (𝑂‘𝑌) = 𝑁))
40	37, 39	sylib 221	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (𝑌 ∈ (Base‘𝐺) ∧ (𝑂‘𝑌) = 𝑁))
41	40	simpld 500	. . . . 5 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → 𝑌 ∈ (Base‘𝐺))
42	41	snssd 4747	. . . 4 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → {𝑌} ⊆ (Base‘𝐺))
43	13	mrccl 17765	. . . 4 ⊢ (((SubGrp‘𝐺) ∈ (Moore‘(Base‘𝐺)) ∧ {𝑌} ⊆ (Base‘𝐺)) → (𝐾‘{𝑌}) ∈ (SubGrp‘𝐺))
44	12, 42, 43	syl2anc 596	. . 3 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (𝐾‘{𝑌}) ∈ (SubGrp‘𝐺))
45	40	simprd 501	. . . . . 6 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (𝑂‘𝑌) = 𝑁)
46	45, 32	eqeltrd 2861	. . . . 5 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (𝑂‘𝑌) ∈ ℕ)
47	9, 15, 13	odhash2 19769	. . . . 5 ⊢ ((𝐺 ∈ Grp ∧ 𝑌 ∈ (Base‘𝐺) ∧ (𝑂‘𝑌) ∈ ℕ) → (♯‘(𝐾‘{𝑌})) = (𝑂‘𝑌))
48	8, 41, 46, 47	syl3anc 1398	. . . 4 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (♯‘(𝐾‘{𝑌})) = (𝑂‘𝑌))
49	48, 45	eqtrd 2796	. . 3 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (♯‘(𝐾‘{𝑌})) = 𝑁)
50		fveqeq2 6886	. . . 4 ⊢ (𝑥 = (𝐾‘{𝑋}) → ((♯‘𝑥) = 𝑁 ↔ (♯‘(𝐾‘{𝑋})) = 𝑁))
51		fveqeq2 6886	. . . 4 ⊢ (𝑥 = (𝐾‘{𝑌}) → ((♯‘𝑥) = 𝑁 ↔ (♯‘(𝐾‘{𝑌})) = 𝑁))
52	50, 51	rmoi 3838	. . 3 ⊢ ((∃*𝑥 ∈ (SubGrp‘𝐺)(♯‘𝑥) = 𝑁 ∧ ((𝐾‘{𝑋}) ∈ (SubGrp‘𝐺) ∧ (♯‘(𝐾‘{𝑋})) = 𝑁) ∧ ((𝐾‘{𝑌}) ∈ (SubGrp‘𝐺) ∧ (♯‘(𝐾‘{𝑌})) = 𝑁)) → (𝐾‘{𝑋}) = (𝐾‘{𝑌}))
53	28, 30, 36, 44, 49, 52	syl122anc 1406	. 2 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → (𝐾‘{𝑋}) = (𝐾‘{𝑌}))
54	26, 53	eleqtrd 2863	1 ⊢ (((𝑅 ∈ IDomn ∧ 𝑁 ∈ ℕ) ∧ (𝑋 ∈ (◡𝑂 “ {𝑁}) ∧ 𝑌 ∈ (◡𝑂 “ {𝑁}))) → 𝑋 ∈ (𝐾‘{𝑌}))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2145  ∃*wrmo 3365   ⊆ wss 3899  {csn 4584  ^◡ccnv 5650   “ cima 5654   Fn wfn 6526  ⟶wf 6527  ‘cfv 6531  (class class class)co 7412  ℕcn 12316  ℕ₀cn0 12587  ♯chash 14454  Basecbs 17367   ↾_s cress 17388  Moorecmre 17732  mrClscmrc 17733  ACScacs 17735  Grpcgrp 19124  SubGrpcsubg 19310  odcod 19718  mulGrpcmgp 20340  Ringcrg 20439  CRingccrg 20440  Unitcui 20565  Domncdomn 20924  IDomncidom 20925

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7740  ax-inf2 9626  ax-cnex 11237  ax-resscn 11238  ax-1cn 11239  ax-icn 11240  ax-addcl 11241  ax-addrcl 11242  ax-mulcl 11243  ax-mulrcl 11244  ax-mulcom 11245  ax-addass 11246  ax-mulass 11247  ax-distr 11248  ax-i2m1 11249  ax-1ne0 11250  ax-1rid 11251  ax-rnegex 11252  ax-rrecex 11253  ax-cnre 11254  ax-pre-lttri 11255  ax-pre-lttrn 11256  ax-pre-ltadd 11257  ax-pre-mulgt0 11258  ax-pre-sup 11259  ax-addf 11260

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-iin 4954  df-disj 5071  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-se 5605  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6297  df-ord 6358  df-on 6359  df-lim 6360  df-suc 6361  df-iota 6487  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-isom 6540  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7682  df-ofr 7683  df-om 7867  df-1st 7990  df-2nd 7991  df-supp 8162  df-tpos 8227  df-frecs 8283  df-wrecs 8314  df-recs 8363  df-rdg 8402  df-1o 8460  df-2o 8461  df-oadd 8464  df-omul 8465  df-er 8701  df-ec 8703  df-qs 8707  df-map 8833  df-pm 8834  df-ixp 8910  df-en 8958  df-dom 8959  df-sdom 8960  df-fin 8961  df-fsupp 9338  df-sup 9418  df-inf 9419  df-oi 9488  df-dju 9963  df-card 10001  df-acn 10004  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11524  df-neg 11525  df-div 11955  df-nn 12317  df-2 12386  df-3 12387  df-4 12388  df-5 12389  df-6 12390  df-7 12391  df-8 12392  df-9 12393  df-n0 12588  df-xnn0 12661  df-z 12675  df-dec 12796  df-uz 12947  df-rp 13102  df-fz 13621  df-fzo 13769  df-fl 13912  df-mod 13990  df-seq 14125  df-exp 14185  df-hash 14455  df-cj 15246  df-re 15247  df-im 15248  df-sqrt 15382  df-abs 15383  df-clim 15635  df-sum 15834  df-dvds 16403  df-struct 17305  df-sets 17322  df-slot 17340  df-ndx 17352  df-base 17368  df-ress 17389  df-plusg 17421  df-mulr 17422  df-starv 17423  df-sca 17424  df-vsca 17425  df-ip 17426  df-tset 17427  df-ple 17428  df-ds 17430  df-unif 17431  df-hom 17432  df-cco 17433  df-0g 17592  df-gsum 17593  df-prds 17598  df-pws 17600  df-mre 17736  df-mrc 17737  df-acs 17739  df-mgm 18796  df-sgrp 18888  df-mnd 18904  df-mhm 18958  df-submnd 18959  df-grp 19127  df-minusg 19128  df-sbg 19129  df-mulg 19258  df-subg 19313  df-eqg 19315  df-ghm 19408  df-cntz 19511  df-od 19722  df-cmn 19976  df-abl 19977  df-mgp 20341  df-rng 20355  df-ur 20388  df-srg 20393  df-ring 20441  df-cring 20442  df-oppr 20547  df-dvdsr 20567  df-unit 20568  df-invr 20598  df-rhm 20682  df-nzr 20743  df-subrng 20778  df-subrg 20802  df-rlreg 20926  df-domn 20927  df-idom 20928  df-lmod 21117  df-lss 21187  df-lsp 21227  df-cnfld 21659  df-assa 22141  df-asp 22142  df-ascl 22143  df-psr 22197  df-mvr 22198  df-mpl 22199  df-opsr 22201  df-evls 22363  df-evl 22364  df-psr1 22478  df-vr1 22479  df-ply1 22480  df-coe1 22481  df-evl1 22614  df-mdeg 26353  df-deg1 26354  df-mon1 26429  df-uc1p 26430  df-q1p 26431  df-r1p 26432

This theorem is used by:  proot1hash  44155