Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  freshmansdream Structured version   Visualization version   GIF version

Theorem freshmansdream 30859
Description: For a prime number 𝑃, if 𝑋 and 𝑌 are members of a commutative ring 𝑅 of characteristic 𝑃, then ((𝑋 + 𝑌)↑𝑃) = ((𝑋𝑃) + (𝑌𝑃)). This theorem is sometimes referred to as "the freshman's dream" . (Contributed by Thierry Arnoux, 18-Sep-2023.)
Hypotheses
Ref Expression
freshmansdream.s 𝐵 = (Base‘𝑅)
freshmansdream.a + = (+g𝑅)
freshmansdream.p = (.g‘(mulGrp‘𝑅))
freshmansdream.c 𝑃 = (chr‘𝑅)
freshmansdream.r (𝜑𝑅 ∈ CRing)
freshmansdream.1 (𝜑𝑃 ∈ ℙ)
freshmansdream.x (𝜑𝑋𝐵)
freshmansdream.y (𝜑𝑌𝐵)
Assertion
Ref Expression
freshmansdream (𝜑 → (𝑃 (𝑋 + 𝑌)) = ((𝑃 𝑋) + (𝑃 𝑌)))

Proof of Theorem freshmansdream
Dummy variable 𝑖 is distinct from all other variables.
StepHypRef Expression
1 freshmansdream.r . . 3 (𝜑𝑅 ∈ CRing)
2 crngring 19308 . . . 4 (𝑅 ∈ CRing → 𝑅 ∈ Ring)
3 freshmansdream.c . . . . 5 𝑃 = (chr‘𝑅)
43chrcl 20673 . . . 4 (𝑅 ∈ Ring → 𝑃 ∈ ℕ0)
51, 2, 43syl 18 . . 3 (𝜑𝑃 ∈ ℕ0)
6 freshmansdream.x . . 3 (𝜑𝑋𝐵)
7 freshmansdream.y . . 3 (𝜑𝑌𝐵)
8 freshmansdream.s . . . 4 𝐵 = (Base‘𝑅)
9 eqid 2821 . . . 4 (.r𝑅) = (.r𝑅)
10 eqid 2821 . . . 4 (.g𝑅) = (.g𝑅)
11 freshmansdream.a . . . 4 + = (+g𝑅)
12 eqid 2821 . . . 4 (mulGrp‘𝑅) = (mulGrp‘𝑅)
13 freshmansdream.p . . . 4 = (.g‘(mulGrp‘𝑅))
148, 9, 10, 11, 12, 13crngbinom 19371 . . 3 (((𝑅 ∈ CRing ∧ 𝑃 ∈ ℕ0) ∧ (𝑋𝐵𝑌𝐵)) → (𝑃 (𝑋 + 𝑌)) = (𝑅 Σg (𝑖 ∈ (0...𝑃) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))))
151, 5, 6, 7, 14syl22anc 836 . 2 (𝜑 → (𝑃 (𝑋 + 𝑌)) = (𝑅 Σg (𝑖 ∈ (0...𝑃) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))))
165nn0cnd 11958 . . . . . . 7 (𝜑𝑃 ∈ ℂ)
17 1cnd 10636 . . . . . . 7 (𝜑 → 1 ∈ ℂ)
1816, 17npcand 11001 . . . . . 6 (𝜑 → ((𝑃 − 1) + 1) = 𝑃)
1918oveq2d 7172 . . . . 5 (𝜑 → (0...((𝑃 − 1) + 1)) = (0...𝑃))
2019eqcomd 2827 . . . 4 (𝜑 → (0...𝑃) = (0...((𝑃 − 1) + 1)))
2120mpteq1d 5155 . . 3 (𝜑 → (𝑖 ∈ (0...𝑃) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)))) = (𝑖 ∈ (0...((𝑃 − 1) + 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)))))
2221oveq2d 7172 . 2 (𝜑 → (𝑅 Σg (𝑖 ∈ (0...𝑃) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) = (𝑅 Σg (𝑖 ∈ (0...((𝑃 − 1) + 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))))
23 ringcmn 19331 . . . . 5 (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
241, 2, 233syl 18 . . . 4 (𝜑𝑅 ∈ CMnd)
25 freshmansdream.1 . . . . 5 (𝜑𝑃 ∈ ℙ)
26 prmnn 16018 . . . . 5 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
27 nnm1nn0 11939 . . . . 5 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
2825, 26, 273syl 18 . . . 4 (𝜑 → (𝑃 − 1) ∈ ℕ0)
29 ringgrp 19302 . . . . . . 7 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
301, 2, 293syl 18 . . . . . 6 (𝜑𝑅 ∈ Grp)
3130adantr 483 . . . . 5 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → 𝑅 ∈ Grp)
325adantr 483 . . . . . . 7 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → 𝑃 ∈ ℕ0)
33 fzssz 12910 . . . . . . . . 9 (0...((𝑃 − 1) + 1)) ⊆ ℤ
3433a1i 11 . . . . . . . 8 (𝜑 → (0...((𝑃 − 1) + 1)) ⊆ ℤ)
3534sselda 3967 . . . . . . 7 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → 𝑖 ∈ ℤ)
36 bccl 13683 . . . . . . 7 ((𝑃 ∈ ℕ0𝑖 ∈ ℤ) → (𝑃C𝑖) ∈ ℕ0)
3732, 35, 36syl2anc 586 . . . . . 6 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → (𝑃C𝑖) ∈ ℕ0)
3837nn0zd 12086 . . . . 5 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → (𝑃C𝑖) ∈ ℤ)
391, 2syl 17 . . . . . . 7 (𝜑𝑅 ∈ Ring)
4039adantr 483 . . . . . 6 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → 𝑅 ∈ Ring)
4112ringmgp 19303 . . . . . . . . 9 (𝑅 ∈ Ring → (mulGrp‘𝑅) ∈ Mnd)
4239, 41syl 17 . . . . . . . 8 (𝜑 → (mulGrp‘𝑅) ∈ Mnd)
4342adantr 483 . . . . . . 7 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → (mulGrp‘𝑅) ∈ Mnd)
44 simpr 487 . . . . . . . . 9 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → 𝑖 ∈ (0...((𝑃 − 1) + 1)))
4519adantr 483 . . . . . . . . 9 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → (0...((𝑃 − 1) + 1)) = (0...𝑃))
4644, 45eleqtrd 2915 . . . . . . . 8 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → 𝑖 ∈ (0...𝑃))
47 fznn0sub 12940 . . . . . . . 8 (𝑖 ∈ (0...𝑃) → (𝑃𝑖) ∈ ℕ0)
4846, 47syl 17 . . . . . . 7 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → (𝑃𝑖) ∈ ℕ0)
496adantr 483 . . . . . . 7 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → 𝑋𝐵)
5012, 8mgpbas 19245 . . . . . . . 8 𝐵 = (Base‘(mulGrp‘𝑅))
5150, 13mulgnn0cl 18244 . . . . . . 7 (((mulGrp‘𝑅) ∈ Mnd ∧ (𝑃𝑖) ∈ ℕ0𝑋𝐵) → ((𝑃𝑖) 𝑋) ∈ 𝐵)
5243, 48, 49, 51syl3anc 1367 . . . . . 6 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → ((𝑃𝑖) 𝑋) ∈ 𝐵)
53 elfznn0 13001 . . . . . . . 8 (𝑖 ∈ (0...((𝑃 − 1) + 1)) → 𝑖 ∈ ℕ0)
5453adantl 484 . . . . . . 7 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → 𝑖 ∈ ℕ0)
557adantr 483 . . . . . . 7 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → 𝑌𝐵)
5650, 13mulgnn0cl 18244 . . . . . . 7 (((mulGrp‘𝑅) ∈ Mnd ∧ 𝑖 ∈ ℕ0𝑌𝐵) → (𝑖 𝑌) ∈ 𝐵)
5743, 54, 55, 56syl3anc 1367 . . . . . 6 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → (𝑖 𝑌) ∈ 𝐵)
588, 9ringcl 19311 . . . . . 6 ((𝑅 ∈ Ring ∧ ((𝑃𝑖) 𝑋) ∈ 𝐵 ∧ (𝑖 𝑌) ∈ 𝐵) → (((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)) ∈ 𝐵)
5940, 52, 57, 58syl3anc 1367 . . . . 5 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → (((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)) ∈ 𝐵)
608, 10mulgcl 18245 . . . . 5 ((𝑅 ∈ Grp ∧ (𝑃C𝑖) ∈ ℤ ∧ (((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)) ∈ 𝐵) → ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))) ∈ 𝐵)
6131, 38, 59, 60syl3anc 1367 . . . 4 ((𝜑𝑖 ∈ (0...((𝑃 − 1) + 1))) → ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))) ∈ 𝐵)
628, 11, 24, 28, 61gsummptfzsplit 19052 . . 3 (𝜑 → (𝑅 Σg (𝑖 ∈ (0...((𝑃 − 1) + 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) = ((𝑅 Σg (𝑖 ∈ (0...(𝑃 − 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) + (𝑅 Σg (𝑖 ∈ {((𝑃 − 1) + 1)} ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)))))))
6330adantr 483 . . . . . . 7 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → 𝑅 ∈ Grp)
64 elfzelz 12909 . . . . . . . . 9 (𝑖 ∈ (0...(𝑃 − 1)) → 𝑖 ∈ ℤ)
655, 64, 36syl2an 597 . . . . . . . 8 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → (𝑃C𝑖) ∈ ℕ0)
6665nn0zd 12086 . . . . . . 7 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → (𝑃C𝑖) ∈ ℤ)
6739adantr 483 . . . . . . . 8 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → 𝑅 ∈ Ring)
6867, 41syl 17 . . . . . . . . 9 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → (mulGrp‘𝑅) ∈ Mnd)
69 fzssp1 12951 . . . . . . . . . . . 12 (0...(𝑃 − 1)) ⊆ (0...((𝑃 − 1) + 1))
7069, 19sseqtrid 4019 . . . . . . . . . . 11 (𝜑 → (0...(𝑃 − 1)) ⊆ (0...𝑃))
7170sselda 3967 . . . . . . . . . 10 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → 𝑖 ∈ (0...𝑃))
7271, 47syl 17 . . . . . . . . 9 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → (𝑃𝑖) ∈ ℕ0)
736adantr 483 . . . . . . . . 9 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → 𝑋𝐵)
7468, 72, 73, 51syl3anc 1367 . . . . . . . 8 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → ((𝑃𝑖) 𝑋) ∈ 𝐵)
75 elfznn0 13001 . . . . . . . . . 10 (𝑖 ∈ (0...(𝑃 − 1)) → 𝑖 ∈ ℕ0)
7675adantl 484 . . . . . . . . 9 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → 𝑖 ∈ ℕ0)
777adantr 483 . . . . . . . . 9 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → 𝑌𝐵)
7868, 76, 77, 56syl3anc 1367 . . . . . . . 8 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → (𝑖 𝑌) ∈ 𝐵)
7967, 74, 78, 58syl3anc 1367 . . . . . . 7 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → (((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)) ∈ 𝐵)
8063, 66, 79, 60syl3anc 1367 . . . . . 6 ((𝜑𝑖 ∈ (0...(𝑃 − 1))) → ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))) ∈ 𝐵)
818, 11, 24, 28, 80gsummptfzsplitl 19053 . . . . 5 (𝜑 → (𝑅 Σg (𝑖 ∈ (0...(𝑃 − 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) = ((𝑅 Σg (𝑖 ∈ (1...(𝑃 − 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) + (𝑅 Σg (𝑖 ∈ {0} ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)))))))
8239adantr 483 . . . . . . . . . 10 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → 𝑅 ∈ Ring)
83 prmdvdsbc 30532 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝑖 ∈ (1...(𝑃 − 1))) → 𝑃 ∥ (𝑃C𝑖))
8425, 83sylan 582 . . . . . . . . . 10 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → 𝑃 ∥ (𝑃C𝑖))
8582, 41syl 17 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → (mulGrp‘𝑅) ∈ Mnd)
865nn0zd 12086 . . . . . . . . . . . . . . . 16 (𝜑𝑃 ∈ ℤ)
87 1nn0 11914 . . . . . . . . . . . . . . . 16 1 ∈ ℕ0
88 eluzmn 12251 . . . . . . . . . . . . . . . 16 ((𝑃 ∈ ℤ ∧ 1 ∈ ℕ0) → 𝑃 ∈ (ℤ‘(𝑃 − 1)))
8986, 87, 88sylancl 588 . . . . . . . . . . . . . . 15 (𝜑𝑃 ∈ (ℤ‘(𝑃 − 1)))
90 fzss2 12948 . . . . . . . . . . . . . . 15 (𝑃 ∈ (ℤ‘(𝑃 − 1)) → (1...(𝑃 − 1)) ⊆ (1...𝑃))
9189, 90syl 17 . . . . . . . . . . . . . 14 (𝜑 → (1...(𝑃 − 1)) ⊆ (1...𝑃))
9291sselda 3967 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → 𝑖 ∈ (1...𝑃))
93 fznn0sub 12940 . . . . . . . . . . . . 13 (𝑖 ∈ (1...𝑃) → (𝑃𝑖) ∈ ℕ0)
9492, 93syl 17 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → (𝑃𝑖) ∈ ℕ0)
956adantr 483 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → 𝑋𝐵)
9685, 94, 95, 51syl3anc 1367 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → ((𝑃𝑖) 𝑋) ∈ 𝐵)
97 elfznn 12937 . . . . . . . . . . . . . 14 (𝑖 ∈ (1...(𝑃 − 1)) → 𝑖 ∈ ℕ)
9897nnnn0d 11956 . . . . . . . . . . . . 13 (𝑖 ∈ (1...(𝑃 − 1)) → 𝑖 ∈ ℕ0)
9998adantl 484 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → 𝑖 ∈ ℕ0)
1007adantr 483 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → 𝑌𝐵)
10185, 99, 100, 56syl3anc 1367 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → (𝑖 𝑌) ∈ 𝐵)
10282, 96, 101, 58syl3anc 1367 . . . . . . . . . 10 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → (((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)) ∈ 𝐵)
103 eqid 2821 . . . . . . . . . . 11 (0g𝑅) = (0g𝑅)
1043, 8, 10, 103dvdschrmulg 30858 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑃 ∥ (𝑃C𝑖) ∧ (((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)) ∈ 𝐵) → ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))) = (0g𝑅))
10582, 84, 102, 104syl3anc 1367 . . . . . . . . 9 ((𝜑𝑖 ∈ (1...(𝑃 − 1))) → ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))) = (0g𝑅))
106105mpteq2dva 5161 . . . . . . . 8 (𝜑 → (𝑖 ∈ (1...(𝑃 − 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)))) = (𝑖 ∈ (1...(𝑃 − 1)) ↦ (0g𝑅)))
107106oveq2d 7172 . . . . . . 7 (𝜑 → (𝑅 Σg (𝑖 ∈ (1...(𝑃 − 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) = (𝑅 Σg (𝑖 ∈ (1...(𝑃 − 1)) ↦ (0g𝑅))))
108 ringmnd 19306 . . . . . . . . 9 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
10939, 108syl 17 . . . . . . . 8 (𝜑𝑅 ∈ Mnd)
110 ovex 7189 . . . . . . . 8 (1...(𝑃 − 1)) ∈ V
111103gsumz 18000 . . . . . . . 8 ((𝑅 ∈ Mnd ∧ (1...(𝑃 − 1)) ∈ V) → (𝑅 Σg (𝑖 ∈ (1...(𝑃 − 1)) ↦ (0g𝑅))) = (0g𝑅))
112109, 110, 111sylancl 588 . . . . . . 7 (𝜑 → (𝑅 Σg (𝑖 ∈ (1...(𝑃 − 1)) ↦ (0g𝑅))) = (0g𝑅))
113107, 112eqtrd 2856 . . . . . 6 (𝜑 → (𝑅 Σg (𝑖 ∈ (1...(𝑃 − 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) = (0g𝑅))
114 0nn0 11913 . . . . . . . 8 0 ∈ ℕ0
115114a1i 11 . . . . . . 7 (𝜑 → 0 ∈ ℕ0)
11650, 13mulgnn0cl 18244 . . . . . . . 8 (((mulGrp‘𝑅) ∈ Mnd ∧ 𝑃 ∈ ℕ0𝑋𝐵) → (𝑃 𝑋) ∈ 𝐵)
11742, 5, 6, 116syl3anc 1367 . . . . . . 7 (𝜑 → (𝑃 𝑋) ∈ 𝐵)
118 simpr 487 . . . . . . . . . 10 ((𝜑𝑖 = 0) → 𝑖 = 0)
119118oveq2d 7172 . . . . . . . . 9 ((𝜑𝑖 = 0) → (𝑃C𝑖) = (𝑃C0))
120118oveq2d 7172 . . . . . . . . . . 11 ((𝜑𝑖 = 0) → (𝑃𝑖) = (𝑃 − 0))
121120oveq1d 7171 . . . . . . . . . 10 ((𝜑𝑖 = 0) → ((𝑃𝑖) 𝑋) = ((𝑃 − 0) 𝑋))
122118oveq1d 7171 . . . . . . . . . 10 ((𝜑𝑖 = 0) → (𝑖 𝑌) = (0 𝑌))
123121, 122oveq12d 7174 . . . . . . . . 9 ((𝜑𝑖 = 0) → (((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)) = (((𝑃 − 0) 𝑋)(.r𝑅)(0 𝑌)))
124119, 123oveq12d 7174 . . . . . . . 8 ((𝜑𝑖 = 0) → ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))) = ((𝑃C0)(.g𝑅)(((𝑃 − 0) 𝑋)(.r𝑅)(0 𝑌))))
125 bcn0 13671 . . . . . . . . . . . 12 (𝑃 ∈ ℕ0 → (𝑃C0) = 1)
1265, 125syl 17 . . . . . . . . . . 11 (𝜑 → (𝑃C0) = 1)
12716subid1d 10986 . . . . . . . . . . . . . 14 (𝜑 → (𝑃 − 0) = 𝑃)
128127oveq1d 7171 . . . . . . . . . . . . 13 (𝜑 → ((𝑃 − 0) 𝑋) = (𝑃 𝑋))
129 eqid 2821 . . . . . . . . . . . . . . . 16 (1r𝑅) = (1r𝑅)
13012, 129ringidval 19253 . . . . . . . . . . . . . . 15 (1r𝑅) = (0g‘(mulGrp‘𝑅))
13150, 130, 13mulg0 18231 . . . . . . . . . . . . . 14 (𝑌𝐵 → (0 𝑌) = (1r𝑅))
1327, 131syl 17 . . . . . . . . . . . . 13 (𝜑 → (0 𝑌) = (1r𝑅))
133128, 132oveq12d 7174 . . . . . . . . . . . 12 (𝜑 → (((𝑃 − 0) 𝑋)(.r𝑅)(0 𝑌)) = ((𝑃 𝑋)(.r𝑅)(1r𝑅)))
1348, 9, 129ringridm 19322 . . . . . . . . . . . . 13 ((𝑅 ∈ Ring ∧ (𝑃 𝑋) ∈ 𝐵) → ((𝑃 𝑋)(.r𝑅)(1r𝑅)) = (𝑃 𝑋))
13539, 117, 134syl2anc 586 . . . . . . . . . . . 12 (𝜑 → ((𝑃 𝑋)(.r𝑅)(1r𝑅)) = (𝑃 𝑋))
136133, 135eqtrd 2856 . . . . . . . . . . 11 (𝜑 → (((𝑃 − 0) 𝑋)(.r𝑅)(0 𝑌)) = (𝑃 𝑋))
137126, 136oveq12d 7174 . . . . . . . . . 10 (𝜑 → ((𝑃C0)(.g𝑅)(((𝑃 − 0) 𝑋)(.r𝑅)(0 𝑌))) = (1(.g𝑅)(𝑃 𝑋)))
1388, 10mulg1 18235 . . . . . . . . . . 11 ((𝑃 𝑋) ∈ 𝐵 → (1(.g𝑅)(𝑃 𝑋)) = (𝑃 𝑋))
139117, 138syl 17 . . . . . . . . . 10 (𝜑 → (1(.g𝑅)(𝑃 𝑋)) = (𝑃 𝑋))
140137, 139eqtrd 2856 . . . . . . . . 9 (𝜑 → ((𝑃C0)(.g𝑅)(((𝑃 − 0) 𝑋)(.r𝑅)(0 𝑌))) = (𝑃 𝑋))
141140adantr 483 . . . . . . . 8 ((𝜑𝑖 = 0) → ((𝑃C0)(.g𝑅)(((𝑃 − 0) 𝑋)(.r𝑅)(0 𝑌))) = (𝑃 𝑋))
142124, 141eqtrd 2856 . . . . . . 7 ((𝜑𝑖 = 0) → ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))) = (𝑃 𝑋))
1438, 109, 115, 117, 142gsumsnd 19072 . . . . . 6 (𝜑 → (𝑅 Σg (𝑖 ∈ {0} ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) = (𝑃 𝑋))
144113, 143oveq12d 7174 . . . . 5 (𝜑 → ((𝑅 Σg (𝑖 ∈ (1...(𝑃 − 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) + (𝑅 Σg (𝑖 ∈ {0} ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)))))) = ((0g𝑅) + (𝑃 𝑋)))
1458, 11, 103grplid 18133 . . . . . 6 ((𝑅 ∈ Grp ∧ (𝑃 𝑋) ∈ 𝐵) → ((0g𝑅) + (𝑃 𝑋)) = (𝑃 𝑋))
14630, 117, 145syl2anc 586 . . . . 5 (𝜑 → ((0g𝑅) + (𝑃 𝑋)) = (𝑃 𝑋))
14781, 144, 1463eqtrd 2860 . . . 4 (𝜑 → (𝑅 Σg (𝑖 ∈ (0...(𝑃 − 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) = (𝑃 𝑋))
14818, 5eqeltrd 2913 . . . . 5 (𝜑 → ((𝑃 − 1) + 1) ∈ ℕ0)
14950, 13mulgnn0cl 18244 . . . . . 6 (((mulGrp‘𝑅) ∈ Mnd ∧ 𝑃 ∈ ℕ0𝑌𝐵) → (𝑃 𝑌) ∈ 𝐵)
15042, 5, 7, 149syl3anc 1367 . . . . 5 (𝜑 → (𝑃 𝑌) ∈ 𝐵)
151 simpr 487 . . . . . . . . 9 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → 𝑖 = ((𝑃 − 1) + 1))
15218adantr 483 . . . . . . . . 9 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → ((𝑃 − 1) + 1) = 𝑃)
153151, 152eqtrd 2856 . . . . . . . 8 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → 𝑖 = 𝑃)
154153oveq2d 7172 . . . . . . 7 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → (𝑃C𝑖) = (𝑃C𝑃))
155153oveq2d 7172 . . . . . . . . 9 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → (𝑃𝑖) = (𝑃𝑃))
156155oveq1d 7171 . . . . . . . 8 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → ((𝑃𝑖) 𝑋) = ((𝑃𝑃) 𝑋))
157153oveq1d 7171 . . . . . . . 8 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → (𝑖 𝑌) = (𝑃 𝑌))
158156, 157oveq12d 7174 . . . . . . 7 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → (((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)) = (((𝑃𝑃) 𝑋)(.r𝑅)(𝑃 𝑌)))
159154, 158oveq12d 7174 . . . . . 6 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))) = ((𝑃C𝑃)(.g𝑅)(((𝑃𝑃) 𝑋)(.r𝑅)(𝑃 𝑌))))
160 bcnn 13673 . . . . . . . . . 10 (𝑃 ∈ ℕ0 → (𝑃C𝑃) = 1)
1615, 160syl 17 . . . . . . . . 9 (𝜑 → (𝑃C𝑃) = 1)
16216subidd 10985 . . . . . . . . . . . . 13 (𝜑 → (𝑃𝑃) = 0)
163162oveq1d 7171 . . . . . . . . . . . 12 (𝜑 → ((𝑃𝑃) 𝑋) = (0 𝑋))
16450, 130, 13mulg0 18231 . . . . . . . . . . . . 13 (𝑋𝐵 → (0 𝑋) = (1r𝑅))
1656, 164syl 17 . . . . . . . . . . . 12 (𝜑 → (0 𝑋) = (1r𝑅))
166163, 165eqtrd 2856 . . . . . . . . . . 11 (𝜑 → ((𝑃𝑃) 𝑋) = (1r𝑅))
167166oveq1d 7171 . . . . . . . . . 10 (𝜑 → (((𝑃𝑃) 𝑋)(.r𝑅)(𝑃 𝑌)) = ((1r𝑅)(.r𝑅)(𝑃 𝑌)))
1688, 9, 129ringlidm 19321 . . . . . . . . . . 11 ((𝑅 ∈ Ring ∧ (𝑃 𝑌) ∈ 𝐵) → ((1r𝑅)(.r𝑅)(𝑃 𝑌)) = (𝑃 𝑌))
16939, 150, 168syl2anc 586 . . . . . . . . . 10 (𝜑 → ((1r𝑅)(.r𝑅)(𝑃 𝑌)) = (𝑃 𝑌))
170167, 169eqtrd 2856 . . . . . . . . 9 (𝜑 → (((𝑃𝑃) 𝑋)(.r𝑅)(𝑃 𝑌)) = (𝑃 𝑌))
171161, 170oveq12d 7174 . . . . . . . 8 (𝜑 → ((𝑃C𝑃)(.g𝑅)(((𝑃𝑃) 𝑋)(.r𝑅)(𝑃 𝑌))) = (1(.g𝑅)(𝑃 𝑌)))
1728, 10mulg1 18235 . . . . . . . . 9 ((𝑃 𝑌) ∈ 𝐵 → (1(.g𝑅)(𝑃 𝑌)) = (𝑃 𝑌))
173150, 172syl 17 . . . . . . . 8 (𝜑 → (1(.g𝑅)(𝑃 𝑌)) = (𝑃 𝑌))
174171, 173eqtrd 2856 . . . . . . 7 (𝜑 → ((𝑃C𝑃)(.g𝑅)(((𝑃𝑃) 𝑋)(.r𝑅)(𝑃 𝑌))) = (𝑃 𝑌))
175174adantr 483 . . . . . 6 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → ((𝑃C𝑃)(.g𝑅)(((𝑃𝑃) 𝑋)(.r𝑅)(𝑃 𝑌))) = (𝑃 𝑌))
176159, 175eqtrd 2856 . . . . 5 ((𝜑𝑖 = ((𝑃 − 1) + 1)) → ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))) = (𝑃 𝑌))
1778, 109, 148, 150, 176gsumsnd 19072 . . . 4 (𝜑 → (𝑅 Σg (𝑖 ∈ {((𝑃 − 1) + 1)} ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) = (𝑃 𝑌))
178147, 177oveq12d 7174 . . 3 (𝜑 → ((𝑅 Σg (𝑖 ∈ (0...(𝑃 − 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) + (𝑅 Σg (𝑖 ∈ {((𝑃 − 1) + 1)} ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌)))))) = ((𝑃 𝑋) + (𝑃 𝑌)))
17962, 178eqtrd 2856 . 2 (𝜑 → (𝑅 Σg (𝑖 ∈ (0...((𝑃 − 1) + 1)) ↦ ((𝑃C𝑖)(.g𝑅)(((𝑃𝑖) 𝑋)(.r𝑅)(𝑖 𝑌))))) = ((𝑃 𝑋) + (𝑃 𝑌)))
18015, 22, 1793eqtrd 2860 1 (𝜑 → (𝑃 (𝑋 + 𝑌)) = ((𝑃 𝑋) + (𝑃 𝑌)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 398   = wceq 1537  wcel 2114  Vcvv 3494  wss 3936  {csn 4567   class class class wbr 5066  cmpt 5146  cfv 6355  (class class class)co 7156  0cc0 10537  1c1 10538   + caddc 10540  cmin 10870  cn 11638  0cn0 11898  cz 11982  cuz 12244  ...cfz 12893  Ccbc 13663  cdvds 15607  cprime 16015  Basecbs 16483  +gcplusg 16565  .rcmulr 16566  0gc0g 16713   Σg cgsu 16714  Mndcmnd 17911  Grpcgrp 18103  .gcmg 18224  CMndccmn 18906  mulGrpcmgp 19239  1rcur 19251  Ringcrg 19297  CRingccrg 19298  chrcchr 20649
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 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330  ax-un 7461  ax-cnex 10593  ax-resscn 10594  ax-1cn 10595  ax-icn 10596  ax-addcl 10597  ax-addrcl 10598  ax-mulcl 10599  ax-mulrcl 10600  ax-mulcom 10601  ax-addass 10602  ax-mulass 10603  ax-distr 10604  ax-i2m1 10605  ax-1ne0 10606  ax-1rid 10607  ax-rnegex 10608  ax-rrecex 10609  ax-cnre 10610  ax-pre-lttri 10611  ax-pre-lttrn 10612  ax-pre-ltadd 10613  ax-pre-mulgt0 10614  ax-pre-sup 10615
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-pss 3954  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-tp 4572  df-op 4574  df-uni 4839  df-int 4877  df-iun 4921  df-iin 4922  df-br 5067  df-opab 5129  df-mpt 5147  df-tr 5173  df-id 5460  df-eprel 5465  df-po 5474  df-so 5475  df-fr 5514  df-se 5515  df-we 5516  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-pred 6148  df-ord 6194  df-on 6195  df-lim 6196  df-suc 6197  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-isom 6364  df-riota 7114  df-ov 7159  df-oprab 7160  df-mpo 7161  df-of 7409  df-om 7581  df-1st 7689  df-2nd 7690  df-supp 7831  df-wrecs 7947  df-recs 8008  df-rdg 8046  df-1o 8102  df-2o 8103  df-oadd 8106  df-er 8289  df-map 8408  df-en 8510  df-dom 8511  df-sdom 8512  df-fin 8513  df-fsupp 8834  df-sup 8906  df-inf 8907  df-oi 8974  df-card 9368  df-pnf 10677  df-mnf 10678  df-xr 10679  df-ltxr 10680  df-le 10681  df-sub 10872  df-neg 10873  df-div 11298  df-nn 11639  df-2 11701  df-3 11702  df-n0 11899  df-z 11983  df-uz 12245  df-rp 12391  df-fz 12894  df-fzo 13035  df-fl 13163  df-mod 13239  df-seq 13371  df-exp 13431  df-fac 13635  df-bc 13664  df-hash 13692  df-cj 14458  df-re 14459  df-im 14460  df-sqrt 14594  df-abs 14595  df-dvds 15608  df-gcd 15844  df-prm 16016  df-ndx 16486  df-slot 16487  df-base 16489  df-sets 16490  df-ress 16491  df-plusg 16578  df-0g 16715  df-gsum 16716  df-mre 16857  df-mrc 16858  df-acs 16860  df-mgm 17852  df-sgrp 17901  df-mnd 17912  df-mhm 17956  df-submnd 17957  df-grp 18106  df-minusg 18107  df-sbg 18108  df-mulg 18225  df-cntz 18447  df-od 18656  df-cmn 18908  df-abl 18909  df-mgp 19240  df-ur 19252  df-srg 19256  df-ring 19299  df-cring 19300  df-chr 20653
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator