MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  srgbinomlem4 Structured version   Visualization version   GIF version

Theorem srgbinomlem4 18366
Description: Lemma 4 for srgbinomlem 18367. (Contributed by AV, 24-Aug-2019.) (Proof shortened by AV, 19-Nov-2019.)
Hypotheses
Ref Expression
srgbinom.s 𝑆 = (Base‘𝑅)
srgbinom.m × = (.r𝑅)
srgbinom.t · = (.g𝑅)
srgbinom.a + = (+g𝑅)
srgbinom.g 𝐺 = (mulGrp‘𝑅)
srgbinom.e = (.g𝐺)
srgbinomlem.r (𝜑𝑅 ∈ SRing)
srgbinomlem.a (𝜑𝐴𝑆)
srgbinomlem.b (𝜑𝐵𝑆)
srgbinomlem.c (𝜑 → (𝐴 × 𝐵) = (𝐵 × 𝐴))
srgbinomlem.n (𝜑𝑁 ∈ ℕ0)
srgbinomlem.i (𝜓 → (𝑁 (𝐴 + 𝐵)) = (𝑅 Σg (𝑘 ∈ (0...𝑁) ↦ ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))))))
Assertion
Ref Expression
srgbinomlem4 ((𝜑𝜓) → ((𝑁 (𝐴 + 𝐵)) × 𝐵) = (𝑅 Σg (𝑘 ∈ (0...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))))
Distinct variable groups:   𝐴,𝑘   𝐵,𝑘   𝑘,𝑁   𝑅,𝑘   𝑆,𝑘   · ,𝑘   × ,𝑘   ,𝑘   𝜑,𝑘
Allowed substitution hints:   𝜓(𝑘)   + (𝑘)   𝐺(𝑘)

Proof of Theorem srgbinomlem4
Dummy variable 𝑗 is distinct from all other variables.
StepHypRef Expression
1 srgbinomlem.i . . 3 (𝜓 → (𝑁 (𝐴 + 𝐵)) = (𝑅 Σg (𝑘 ∈ (0...𝑁) ↦ ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))))))
21oveq1d 6564 . 2 (𝜓 → ((𝑁 (𝐴 + 𝐵)) × 𝐵) = ((𝑅 Σg (𝑘 ∈ (0...𝑁) ↦ ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))))) × 𝐵))
3 srgbinom.s . . . 4 𝑆 = (Base‘𝑅)
4 eqid 2610 . . . 4 (0g𝑅) = (0g𝑅)
5 srgbinom.a . . . 4 + = (+g𝑅)
6 srgbinom.m . . . 4 × = (.r𝑅)
7 srgbinomlem.r . . . 4 (𝜑𝑅 ∈ SRing)
8 ovex 6577 . . . . 5 (0...𝑁) ∈ V
98a1i 11 . . . 4 (𝜑 → (0...𝑁) ∈ V)
10 srgbinomlem.b . . . 4 (𝜑𝐵𝑆)
11 simpl 472 . . . . 5 ((𝜑𝑘 ∈ (0...𝑁)) → 𝜑)
12 srgbinomlem.n . . . . . 6 (𝜑𝑁 ∈ ℕ0)
13 elfzelz 12213 . . . . . 6 (𝑘 ∈ (0...𝑁) → 𝑘 ∈ ℤ)
14 bccl 12971 . . . . . 6 ((𝑁 ∈ ℕ0𝑘 ∈ ℤ) → (𝑁C𝑘) ∈ ℕ0)
1512, 13, 14syl2an 493 . . . . 5 ((𝜑𝑘 ∈ (0...𝑁)) → (𝑁C𝑘) ∈ ℕ0)
16 fznn0sub 12244 . . . . . 6 (𝑘 ∈ (0...𝑁) → (𝑁𝑘) ∈ ℕ0)
1716adantl 481 . . . . 5 ((𝜑𝑘 ∈ (0...𝑁)) → (𝑁𝑘) ∈ ℕ0)
18 elfznn0 12302 . . . . . 6 (𝑘 ∈ (0...𝑁) → 𝑘 ∈ ℕ0)
1918adantl 481 . . . . 5 ((𝜑𝑘 ∈ (0...𝑁)) → 𝑘 ∈ ℕ0)
20 srgbinom.t . . . . . 6 · = (.g𝑅)
21 srgbinom.g . . . . . 6 𝐺 = (mulGrp‘𝑅)
22 srgbinom.e . . . . . 6 = (.g𝐺)
23 srgbinomlem.a . . . . . 6 (𝜑𝐴𝑆)
24 srgbinomlem.c . . . . . 6 (𝜑 → (𝐴 × 𝐵) = (𝐵 × 𝐴))
253, 6, 20, 5, 21, 22, 7, 23, 10, 24, 12srgbinomlem2 18364 . . . . 5 ((𝜑 ∧ ((𝑁C𝑘) ∈ ℕ0 ∧ (𝑁𝑘) ∈ ℕ0𝑘 ∈ ℕ0)) → ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆)
2611, 15, 17, 19, 25syl13anc 1320 . . . 4 ((𝜑𝑘 ∈ (0...𝑁)) → ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆)
27 eqid 2610 . . . . 5 (𝑘 ∈ (0...𝑁) ↦ ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵)))) = (𝑘 ∈ (0...𝑁) ↦ ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))))
28 fzfid 12634 . . . . 5 (𝜑 → (0...𝑁) ∈ Fin)
29 ovex 6577 . . . . . 6 ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) ∈ V
3029a1i 11 . . . . 5 ((𝜑𝑘 ∈ (0...𝑁)) → ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) ∈ V)
31 fvex 6113 . . . . . 6 (0g𝑅) ∈ V
3231a1i 11 . . . . 5 (𝜑 → (0g𝑅) ∈ V)
3327, 28, 30, 32fsuppmptdm 8169 . . . 4 (𝜑 → (𝑘 ∈ (0...𝑁) ↦ ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵)))) finSupp (0g𝑅))
343, 4, 5, 6, 7, 9, 10, 26, 33srgsummulcr 18360 . . 3 (𝜑 → (𝑅 Σg (𝑘 ∈ (0...𝑁) ↦ (((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) × 𝐵))) = ((𝑅 Σg (𝑘 ∈ (0...𝑁) ↦ ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))))) × 𝐵))
35 srgcmn 18331 . . . . . 6 (𝑅 ∈ SRing → 𝑅 ∈ CMnd)
367, 35syl 17 . . . . 5 (𝜑𝑅 ∈ CMnd)
37 1z 11284 . . . . . 6 1 ∈ ℤ
3837a1i 11 . . . . 5 (𝜑 → 1 ∈ ℤ)
39 0zd 11266 . . . . 5 (𝜑 → 0 ∈ ℤ)
4012nn0zd 11356 . . . . 5 (𝜑𝑁 ∈ ℤ)
417adantr 480 . . . . . 6 ((𝜑𝑘 ∈ (0...𝑁)) → 𝑅 ∈ SRing)
4210adantr 480 . . . . . 6 ((𝜑𝑘 ∈ (0...𝑁)) → 𝐵𝑆)
433, 6srgcl 18335 . . . . . 6 ((𝑅 ∈ SRing ∧ ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆𝐵𝑆) → (((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) × 𝐵) ∈ 𝑆)
4441, 26, 42, 43syl3anc 1318 . . . . 5 ((𝜑𝑘 ∈ (0...𝑁)) → (((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) × 𝐵) ∈ 𝑆)
45 oveq2 6557 . . . . . . 7 (𝑘 = (𝑗 − 1) → (𝑁C𝑘) = (𝑁C(𝑗 − 1)))
46 oveq2 6557 . . . . . . . . 9 (𝑘 = (𝑗 − 1) → (𝑁𝑘) = (𝑁 − (𝑗 − 1)))
4746oveq1d 6564 . . . . . . . 8 (𝑘 = (𝑗 − 1) → ((𝑁𝑘) 𝐴) = ((𝑁 − (𝑗 − 1)) 𝐴))
48 oveq1 6556 . . . . . . . 8 (𝑘 = (𝑗 − 1) → (𝑘 𝐵) = ((𝑗 − 1) 𝐵))
4947, 48oveq12d 6567 . . . . . . 7 (𝑘 = (𝑗 − 1) → (((𝑁𝑘) 𝐴) × (𝑘 𝐵)) = (((𝑁 − (𝑗 − 1)) 𝐴) × ((𝑗 − 1) 𝐵)))
5045, 49oveq12d 6567 . . . . . 6 (𝑘 = (𝑗 − 1) → ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) = ((𝑁C(𝑗 − 1)) · (((𝑁 − (𝑗 − 1)) 𝐴) × ((𝑗 − 1) 𝐵))))
5150oveq1d 6564 . . . . 5 (𝑘 = (𝑗 − 1) → (((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) × 𝐵) = (((𝑁C(𝑗 − 1)) · (((𝑁 − (𝑗 − 1)) 𝐴) × ((𝑗 − 1) 𝐵))) × 𝐵))
523, 4, 36, 38, 39, 40, 44, 51gsummptshft 18159 . . . 4 (𝜑 → (𝑅 Σg (𝑘 ∈ (0...𝑁) ↦ (((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) × 𝐵))) = (𝑅 Σg (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 − (𝑗 − 1)) 𝐴) × ((𝑗 − 1) 𝐵))) × 𝐵))))
5312nn0cnd 11230 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℂ)
5453adantr 480 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → 𝑁 ∈ ℂ)
55 elfzelz 12213 . . . . . . . . . . . . . 14 (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) → 𝑗 ∈ ℤ)
5655adantl 481 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → 𝑗 ∈ ℤ)
5756zcnd 11359 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → 𝑗 ∈ ℂ)
58 1cnd 9935 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → 1 ∈ ℂ)
5954, 57, 58subsub3d 10301 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (𝑁 − (𝑗 − 1)) = ((𝑁 + 1) − 𝑗))
6059oveq1d 6564 . . . . . . . . . 10 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → ((𝑁 − (𝑗 − 1)) 𝐴) = (((𝑁 + 1) − 𝑗) 𝐴))
6160oveq1d 6564 . . . . . . . . 9 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (((𝑁 − (𝑗 − 1)) 𝐴) × ((𝑗 − 1) 𝐵)) = ((((𝑁 + 1) − 𝑗) 𝐴) × ((𝑗 − 1) 𝐵)))
6261oveq2d 6565 . . . . . . . 8 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → ((𝑁C(𝑗 − 1)) · (((𝑁 − (𝑗 − 1)) 𝐴) × ((𝑗 − 1) 𝐵))) = ((𝑁C(𝑗 − 1)) · ((((𝑁 + 1) − 𝑗) 𝐴) × ((𝑗 − 1) 𝐵))))
6362oveq1d 6564 . . . . . . 7 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (((𝑁C(𝑗 − 1)) · (((𝑁 − (𝑗 − 1)) 𝐴) × ((𝑗 − 1) 𝐵))) × 𝐵) = (((𝑁C(𝑗 − 1)) · ((((𝑁 + 1) − 𝑗) 𝐴) × ((𝑗 − 1) 𝐵))) × 𝐵))
647adantr 480 . . . . . . . . . 10 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → 𝑅 ∈ SRing)
65 peano2zm 11297 . . . . . . . . . . . 12 (𝑗 ∈ ℤ → (𝑗 − 1) ∈ ℤ)
6655, 65syl 17 . . . . . . . . . . 11 (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) → (𝑗 − 1) ∈ ℤ)
67 bccl 12971 . . . . . . . . . . 11 ((𝑁 ∈ ℕ0 ∧ (𝑗 − 1) ∈ ℤ) → (𝑁C(𝑗 − 1)) ∈ ℕ0)
6812, 66, 67syl2an 493 . . . . . . . . . 10 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (𝑁C(𝑗 − 1)) ∈ ℕ0)
6921srgmgp 18333 . . . . . . . . . . . . 13 (𝑅 ∈ SRing → 𝐺 ∈ Mnd)
707, 69syl 17 . . . . . . . . . . . 12 (𝜑𝐺 ∈ Mnd)
7170adantr 480 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → 𝐺 ∈ Mnd)
72 0p1e1 11009 . . . . . . . . . . . . . . 15 (0 + 1) = 1
7372oveq1i 6559 . . . . . . . . . . . . . 14 ((0 + 1)...(𝑁 + 1)) = (1...(𝑁 + 1))
7473eleq2i 2680 . . . . . . . . . . . . 13 (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↔ 𝑗 ∈ (1...(𝑁 + 1)))
75 fznn0sub 12244 . . . . . . . . . . . . . 14 (𝑗 ∈ (1...(𝑁 + 1)) → ((𝑁 + 1) − 𝑗) ∈ ℕ0)
7675a1i 11 . . . . . . . . . . . . 13 (𝜑 → (𝑗 ∈ (1...(𝑁 + 1)) → ((𝑁 + 1) − 𝑗) ∈ ℕ0))
7774, 76syl5bi 231 . . . . . . . . . . . 12 (𝜑 → (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) → ((𝑁 + 1) − 𝑗) ∈ ℕ0))
7877imp 444 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → ((𝑁 + 1) − 𝑗) ∈ ℕ0)
7923adantr 480 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → 𝐴𝑆)
8021, 3mgpbas 18318 . . . . . . . . . . . 12 𝑆 = (Base‘𝐺)
8180, 22mulgnn0cl 17381 . . . . . . . . . . 11 ((𝐺 ∈ Mnd ∧ ((𝑁 + 1) − 𝑗) ∈ ℕ0𝐴𝑆) → (((𝑁 + 1) − 𝑗) 𝐴) ∈ 𝑆)
8271, 78, 79, 81syl3anc 1318 . . . . . . . . . 10 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (((𝑁 + 1) − 𝑗) 𝐴) ∈ 𝑆)
83 elfznn 12241 . . . . . . . . . . . . . 14 (𝑗 ∈ (1...(𝑁 + 1)) → 𝑗 ∈ ℕ)
84 nnm1nn0 11211 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ → (𝑗 − 1) ∈ ℕ0)
8583, 84syl 17 . . . . . . . . . . . . 13 (𝑗 ∈ (1...(𝑁 + 1)) → (𝑗 − 1) ∈ ℕ0)
8674, 85sylbi 206 . . . . . . . . . . . 12 (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) → (𝑗 − 1) ∈ ℕ0)
8786adantl 481 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (𝑗 − 1) ∈ ℕ0)
8810adantr 480 . . . . . . . . . . 11 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → 𝐵𝑆)
8980, 22mulgnn0cl 17381 . . . . . . . . . . 11 ((𝐺 ∈ Mnd ∧ (𝑗 − 1) ∈ ℕ0𝐵𝑆) → ((𝑗 − 1) 𝐵) ∈ 𝑆)
9071, 87, 88, 89syl3anc 1318 . . . . . . . . . 10 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → ((𝑗 − 1) 𝐵) ∈ 𝑆)
913, 20, 6srgmulgass 18354 . . . . . . . . . 10 ((𝑅 ∈ SRing ∧ ((𝑁C(𝑗 − 1)) ∈ ℕ0 ∧ (((𝑁 + 1) − 𝑗) 𝐴) ∈ 𝑆 ∧ ((𝑗 − 1) 𝐵) ∈ 𝑆)) → (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × ((𝑗 − 1) 𝐵)) = ((𝑁C(𝑗 − 1)) · ((((𝑁 + 1) − 𝑗) 𝐴) × ((𝑗 − 1) 𝐵))))
9264, 68, 82, 90, 91syl13anc 1320 . . . . . . . . 9 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × ((𝑗 − 1) 𝐵)) = ((𝑁C(𝑗 − 1)) · ((((𝑁 + 1) − 𝑗) 𝐴) × ((𝑗 − 1) 𝐵))))
9392eqcomd 2616 . . . . . . . 8 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → ((𝑁C(𝑗 − 1)) · ((((𝑁 + 1) − 𝑗) 𝐴) × ((𝑗 − 1) 𝐵))) = (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × ((𝑗 − 1) 𝐵)))
9493oveq1d 6564 . . . . . . 7 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (((𝑁C(𝑗 − 1)) · ((((𝑁 + 1) − 𝑗) 𝐴) × ((𝑗 − 1) 𝐵))) × 𝐵) = ((((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × ((𝑗 − 1) 𝐵)) × 𝐵))
95 srgmnd 18332 . . . . . . . . . . . 12 (𝑅 ∈ SRing → 𝑅 ∈ Mnd)
967, 95syl 17 . . . . . . . . . . 11 (𝜑𝑅 ∈ Mnd)
9796adantr 480 . . . . . . . . . 10 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → 𝑅 ∈ Mnd)
983, 20mulgnn0cl 17381 . . . . . . . . . 10 ((𝑅 ∈ Mnd ∧ (𝑁C(𝑗 − 1)) ∈ ℕ0 ∧ (((𝑁 + 1) − 𝑗) 𝐴) ∈ 𝑆) → ((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) ∈ 𝑆)
9997, 68, 82, 98syl3anc 1318 . . . . . . . . 9 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → ((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) ∈ 𝑆)
1003, 6srgass 18336 . . . . . . . . 9 ((𝑅 ∈ SRing ∧ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) ∈ 𝑆 ∧ ((𝑗 − 1) 𝐵) ∈ 𝑆𝐵𝑆)) → ((((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × ((𝑗 − 1) 𝐵)) × 𝐵) = (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (((𝑗 − 1) 𝐵) × 𝐵)))
10164, 99, 90, 88, 100syl13anc 1320 . . . . . . . 8 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → ((((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × ((𝑗 − 1) 𝐵)) × 𝐵) = (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (((𝑗 − 1) 𝐵) × 𝐵)))
10221, 6mgpplusg 18316 . . . . . . . . . . . 12 × = (+g𝐺)
10380, 22, 102mulgnn0p1 17375 . . . . . . . . . . 11 ((𝐺 ∈ Mnd ∧ (𝑗 − 1) ∈ ℕ0𝐵𝑆) → (((𝑗 − 1) + 1) 𝐵) = (((𝑗 − 1) 𝐵) × 𝐵))
104103eqcomd 2616 . . . . . . . . . 10 ((𝐺 ∈ Mnd ∧ (𝑗 − 1) ∈ ℕ0𝐵𝑆) → (((𝑗 − 1) 𝐵) × 𝐵) = (((𝑗 − 1) + 1) 𝐵))
10571, 87, 88, 104syl3anc 1318 . . . . . . . . 9 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (((𝑗 − 1) 𝐵) × 𝐵) = (((𝑗 − 1) + 1) 𝐵))
106105oveq2d 6565 . . . . . . . 8 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (((𝑗 − 1) 𝐵) × 𝐵)) = (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (((𝑗 − 1) + 1) 𝐵)))
10755zcnd 11359 . . . . . . . . . . . 12 (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) → 𝑗 ∈ ℂ)
108 1cnd 9935 . . . . . . . . . . . 12 (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) → 1 ∈ ℂ)
109107, 108npcand 10275 . . . . . . . . . . 11 (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) → ((𝑗 − 1) + 1) = 𝑗)
110109adantl 481 . . . . . . . . . 10 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → ((𝑗 − 1) + 1) = 𝑗)
111110oveq1d 6564 . . . . . . . . 9 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (((𝑗 − 1) + 1) 𝐵) = (𝑗 𝐵))
112111oveq2d 6565 . . . . . . . 8 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (((𝑗 − 1) + 1) 𝐵)) = (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵)))
113101, 106, 1123eqtrd 2648 . . . . . . 7 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → ((((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × ((𝑗 − 1) 𝐵)) × 𝐵) = (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵)))
11463, 94, 1133eqtrd 2648 . . . . . 6 ((𝜑𝑗 ∈ ((0 + 1)...(𝑁 + 1))) → (((𝑁C(𝑗 − 1)) · (((𝑁 − (𝑗 − 1)) 𝐴) × ((𝑗 − 1) 𝐵))) × 𝐵) = (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵)))
115114mpteq2dva 4672 . . . . 5 (𝜑 → (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 − (𝑗 − 1)) 𝐴) × ((𝑗 − 1) 𝐵))) × 𝐵)) = (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵))))
116115oveq2d 6565 . . . 4 (𝜑 → (𝑅 Σg (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 − (𝑗 − 1)) 𝐴) × ((𝑗 − 1) 𝐵))) × 𝐵))) = (𝑅 Σg (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵)))))
117 mpteq1 4665 . . . . . . . 8 (((0 + 1)...(𝑁 + 1)) = (1...(𝑁 + 1)) → (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵))) = (𝑗 ∈ (1...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵))))
11873, 117ax-mp 5 . . . . . . 7 (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵))) = (𝑗 ∈ (1...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵)))
119 oveq1 6556 . . . . . . . . . . 11 (𝑗 = 𝑘 → (𝑗 − 1) = (𝑘 − 1))
120119oveq2d 6565 . . . . . . . . . 10 (𝑗 = 𝑘 → (𝑁C(𝑗 − 1)) = (𝑁C(𝑘 − 1)))
121 oveq2 6557 . . . . . . . . . . 11 (𝑗 = 𝑘 → ((𝑁 + 1) − 𝑗) = ((𝑁 + 1) − 𝑘))
122121oveq1d 6564 . . . . . . . . . 10 (𝑗 = 𝑘 → (((𝑁 + 1) − 𝑗) 𝐴) = (((𝑁 + 1) − 𝑘) 𝐴))
123120, 122oveq12d 6567 . . . . . . . . 9 (𝑗 = 𝑘 → ((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) = ((𝑁C(𝑘 − 1)) · (((𝑁 + 1) − 𝑘) 𝐴)))
124 oveq1 6556 . . . . . . . . 9 (𝑗 = 𝑘 → (𝑗 𝐵) = (𝑘 𝐵))
125123, 124oveq12d 6567 . . . . . . . 8 (𝑗 = 𝑘 → (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵)) = (((𝑁C(𝑘 − 1)) · (((𝑁 + 1) − 𝑘) 𝐴)) × (𝑘 𝐵)))
126125cbvmptv 4678 . . . . . . 7 (𝑗 ∈ (1...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵))) = (𝑘 ∈ (1...(𝑁 + 1)) ↦ (((𝑁C(𝑘 − 1)) · (((𝑁 + 1) − 𝑘) 𝐴)) × (𝑘 𝐵)))
127118, 126eqtri 2632 . . . . . 6 (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵))) = (𝑘 ∈ (1...(𝑁 + 1)) ↦ (((𝑁C(𝑘 − 1)) · (((𝑁 + 1) − 𝑘) 𝐴)) × (𝑘 𝐵)))
128127oveq2i 6560 . . . . 5 (𝑅 Σg (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵)))) = (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ (((𝑁C(𝑘 − 1)) · (((𝑁 + 1) − 𝑘) 𝐴)) × (𝑘 𝐵))))
129 fzfid 12634 . . . . . . . . 9 (𝜑 → (1...(𝑁 + 1)) ∈ Fin)
130 simpl 472 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → 𝜑)
131 elfzelz 12213 . . . . . . . . . . . . 13 (𝑘 ∈ (1...(𝑁 + 1)) → 𝑘 ∈ ℤ)
132 peano2zm 11297 . . . . . . . . . . . . 13 (𝑘 ∈ ℤ → (𝑘 − 1) ∈ ℤ)
133131, 132syl 17 . . . . . . . . . . . 12 (𝑘 ∈ (1...(𝑁 + 1)) → (𝑘 − 1) ∈ ℤ)
134 bccl 12971 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ0 ∧ (𝑘 − 1) ∈ ℤ) → (𝑁C(𝑘 − 1)) ∈ ℕ0)
13512, 133, 134syl2an 493 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → (𝑁C(𝑘 − 1)) ∈ ℕ0)
136 fznn0sub 12244 . . . . . . . . . . . 12 (𝑘 ∈ (1...(𝑁 + 1)) → ((𝑁 + 1) − 𝑘) ∈ ℕ0)
137136adantl 481 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → ((𝑁 + 1) − 𝑘) ∈ ℕ0)
138 elfznn 12241 . . . . . . . . . . . . 13 (𝑘 ∈ (1...(𝑁 + 1)) → 𝑘 ∈ ℕ)
139138nnnn0d 11228 . . . . . . . . . . . 12 (𝑘 ∈ (1...(𝑁 + 1)) → 𝑘 ∈ ℕ0)
140139adantl 481 . . . . . . . . . . 11 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → 𝑘 ∈ ℕ0)
1413, 6, 20, 5, 21, 22, 7, 23, 10, 24, 12srgbinomlem2 18364 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑁C(𝑘 − 1)) ∈ ℕ0 ∧ ((𝑁 + 1) − 𝑘) ∈ ℕ0𝑘 ∈ ℕ0)) → ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆)
142130, 135, 137, 140, 141syl13anc 1320 . . . . . . . . . 10 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆)
143142ralrimiva 2949 . . . . . . . . 9 (𝜑 → ∀𝑘 ∈ (1...(𝑁 + 1))((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆)
1443, 36, 129, 143gsummptcl 18189 . . . . . . . 8 (𝜑 → (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) ∈ 𝑆)
1453, 5, 4mndlid 17134 . . . . . . . 8 ((𝑅 ∈ Mnd ∧ (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) ∈ 𝑆) → ((0g𝑅) + (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))) = (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))))
14696, 144, 145syl2anc 691 . . . . . . 7 (𝜑 → ((0g𝑅) + (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))) = (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))))
147 0nn0 11184 . . . . . . . . . . 11 0 ∈ ℕ0
148147a1i 11 . . . . . . . . . 10 (𝜑 → 0 ∈ ℕ0)
149 id 22 . . . . . . . . . . 11 (𝜑𝜑)
150 0z 11265 . . . . . . . . . . . . . 14 0 ∈ ℤ
151150, 37pm3.2i 470 . . . . . . . . . . . . 13 (0 ∈ ℤ ∧ 1 ∈ ℤ)
152 zsubcl 11296 . . . . . . . . . . . . 13 ((0 ∈ ℤ ∧ 1 ∈ ℤ) → (0 − 1) ∈ ℤ)
153151, 152mp1i 13 . . . . . . . . . . . 12 (𝜑 → (0 − 1) ∈ ℤ)
154 bccl 12971 . . . . . . . . . . . 12 ((𝑁 ∈ ℕ0 ∧ (0 − 1) ∈ ℤ) → (𝑁C(0 − 1)) ∈ ℕ0)
15512, 153, 154syl2anc 691 . . . . . . . . . . 11 (𝜑 → (𝑁C(0 − 1)) ∈ ℕ0)
156 nn0cn 11179 . . . . . . . . . . . . . . 15 (𝑁 ∈ ℕ0𝑁 ∈ ℂ)
157 peano2cn 10087 . . . . . . . . . . . . . . 15 (𝑁 ∈ ℂ → (𝑁 + 1) ∈ ℂ)
158156, 157syl 17 . . . . . . . . . . . . . 14 (𝑁 ∈ ℕ0 → (𝑁 + 1) ∈ ℂ)
159158subid1d 10260 . . . . . . . . . . . . 13 (𝑁 ∈ ℕ0 → ((𝑁 + 1) − 0) = (𝑁 + 1))
160 peano2nn0 11210 . . . . . . . . . . . . 13 (𝑁 ∈ ℕ0 → (𝑁 + 1) ∈ ℕ0)
161159, 160eqeltrd 2688 . . . . . . . . . . . 12 (𝑁 ∈ ℕ0 → ((𝑁 + 1) − 0) ∈ ℕ0)
16212, 161syl 17 . . . . . . . . . . 11 (𝜑 → ((𝑁 + 1) − 0) ∈ ℕ0)
1633, 6, 20, 5, 21, 22, 7, 23, 10, 24, 12srgbinomlem2 18364 . . . . . . . . . . 11 ((𝜑 ∧ ((𝑁C(0 − 1)) ∈ ℕ0 ∧ ((𝑁 + 1) − 0) ∈ ℕ0 ∧ 0 ∈ ℕ0)) → ((𝑁C(0 − 1)) · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))) ∈ 𝑆)
164149, 155, 162, 148, 163syl13anc 1320 . . . . . . . . . 10 (𝜑 → ((𝑁C(0 − 1)) · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))) ∈ 𝑆)
165 oveq1 6556 . . . . . . . . . . . . 13 (𝑘 = 0 → (𝑘 − 1) = (0 − 1))
166165oveq2d 6565 . . . . . . . . . . . 12 (𝑘 = 0 → (𝑁C(𝑘 − 1)) = (𝑁C(0 − 1)))
167 oveq2 6557 . . . . . . . . . . . . . 14 (𝑘 = 0 → ((𝑁 + 1) − 𝑘) = ((𝑁 + 1) − 0))
168167oveq1d 6564 . . . . . . . . . . . . 13 (𝑘 = 0 → (((𝑁 + 1) − 𝑘) 𝐴) = (((𝑁 + 1) − 0) 𝐴))
169 oveq1 6556 . . . . . . . . . . . . 13 (𝑘 = 0 → (𝑘 𝐵) = (0 𝐵))
170168, 169oveq12d 6567 . . . . . . . . . . . 12 (𝑘 = 0 → ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)) = ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵)))
171166, 170oveq12d 6567 . . . . . . . . . . 11 (𝑘 = 0 → ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))) = ((𝑁C(0 − 1)) · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))))
1723, 171gsumsn 18177 . . . . . . . . . 10 ((𝑅 ∈ Mnd ∧ 0 ∈ ℕ0 ∧ ((𝑁C(0 − 1)) · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))) ∈ 𝑆) → (𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) = ((𝑁C(0 − 1)) · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))))
17396, 148, 164, 172syl3anc 1318 . . . . . . . . 9 (𝜑 → (𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) = ((𝑁C(0 − 1)) · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))))
174 0lt1 10429 . . . . . . . . . . . . . . 15 0 < 1
175174a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 0 < 1)
176175, 72syl6breqr 4625 . . . . . . . . . . . . 13 (𝜑 → 0 < (0 + 1))
177 0re 9919 . . . . . . . . . . . . . . 15 0 ∈ ℝ
178 1re 9918 . . . . . . . . . . . . . . 15 1 ∈ ℝ
179177, 178, 1773pm3.2i 1232 . . . . . . . . . . . . . 14 (0 ∈ ℝ ∧ 1 ∈ ℝ ∧ 0 ∈ ℝ)
180 ltsubadd 10377 . . . . . . . . . . . . . 14 ((0 ∈ ℝ ∧ 1 ∈ ℝ ∧ 0 ∈ ℝ) → ((0 − 1) < 0 ↔ 0 < (0 + 1)))
181179, 180mp1i 13 . . . . . . . . . . . . 13 (𝜑 → ((0 − 1) < 0 ↔ 0 < (0 + 1)))
182176, 181mpbird 246 . . . . . . . . . . . 12 (𝜑 → (0 − 1) < 0)
183182orcd 406 . . . . . . . . . . 11 (𝜑 → ((0 − 1) < 0 ∨ 𝑁 < (0 − 1)))
184 bcval4 12956 . . . . . . . . . . 11 ((𝑁 ∈ ℕ0 ∧ (0 − 1) ∈ ℤ ∧ ((0 − 1) < 0 ∨ 𝑁 < (0 − 1))) → (𝑁C(0 − 1)) = 0)
18512, 153, 183, 184syl3anc 1318 . . . . . . . . . 10 (𝜑 → (𝑁C(0 − 1)) = 0)
186185oveq1d 6564 . . . . . . . . 9 (𝜑 → ((𝑁C(0 − 1)) · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))) = (0 · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))))
18780, 22mulgnn0cl 17381 . . . . . . . . . . . 12 ((𝐺 ∈ Mnd ∧ ((𝑁 + 1) − 0) ∈ ℕ0𝐴𝑆) → (((𝑁 + 1) − 0) 𝐴) ∈ 𝑆)
18870, 162, 23, 187syl3anc 1318 . . . . . . . . . . 11 (𝜑 → (((𝑁 + 1) − 0) 𝐴) ∈ 𝑆)
18980, 22mulgnn0cl 17381 . . . . . . . . . . . 12 ((𝐺 ∈ Mnd ∧ 0 ∈ ℕ0𝐵𝑆) → (0 𝐵) ∈ 𝑆)
19070, 148, 10, 189syl3anc 1318 . . . . . . . . . . 11 (𝜑 → (0 𝐵) ∈ 𝑆)
1913, 6srgcl 18335 . . . . . . . . . . 11 ((𝑅 ∈ SRing ∧ (((𝑁 + 1) − 0) 𝐴) ∈ 𝑆 ∧ (0 𝐵) ∈ 𝑆) → ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵)) ∈ 𝑆)
1927, 188, 190, 191syl3anc 1318 . . . . . . . . . 10 (𝜑 → ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵)) ∈ 𝑆)
1933, 4, 20mulg0 17369 . . . . . . . . . 10 (((((𝑁 + 1) − 0) 𝐴) × (0 𝐵)) ∈ 𝑆 → (0 · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))) = (0g𝑅))
194192, 193syl 17 . . . . . . . . 9 (𝜑 → (0 · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))) = (0g𝑅))
195173, 186, 1943eqtrrd 2649 . . . . . . . 8 (𝜑 → (0g𝑅) = (𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))))
196195oveq1d 6564 . . . . . . 7 (𝜑 → ((0g𝑅) + (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))) = ((𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) + (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))))
197146, 196eqtr3d 2646 . . . . . 6 (𝜑 → (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) = ((𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) + (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))))
1987adantr 480 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → 𝑅 ∈ SRing)
19970adantr 480 . . . . . . . . . 10 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → 𝐺 ∈ Mnd)
20023adantr 480 . . . . . . . . . 10 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → 𝐴𝑆)
20180, 22mulgnn0cl 17381 . . . . . . . . . 10 ((𝐺 ∈ Mnd ∧ ((𝑁 + 1) − 𝑘) ∈ ℕ0𝐴𝑆) → (((𝑁 + 1) − 𝑘) 𝐴) ∈ 𝑆)
202199, 137, 200, 201syl3anc 1318 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → (((𝑁 + 1) − 𝑘) 𝐴) ∈ 𝑆)
20310adantr 480 . . . . . . . . . 10 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → 𝐵𝑆)
20480, 22mulgnn0cl 17381 . . . . . . . . . 10 ((𝐺 ∈ Mnd ∧ 𝑘 ∈ ℕ0𝐵𝑆) → (𝑘 𝐵) ∈ 𝑆)
205199, 140, 203, 204syl3anc 1318 . . . . . . . . 9 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → (𝑘 𝐵) ∈ 𝑆)
2063, 20, 6srgmulgass 18354 . . . . . . . . 9 ((𝑅 ∈ SRing ∧ ((𝑁C(𝑘 − 1)) ∈ ℕ0 ∧ (((𝑁 + 1) − 𝑘) 𝐴) ∈ 𝑆 ∧ (𝑘 𝐵) ∈ 𝑆)) → (((𝑁C(𝑘 − 1)) · (((𝑁 + 1) − 𝑘) 𝐴)) × (𝑘 𝐵)) = ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))
207198, 135, 202, 205, 206syl13anc 1320 . . . . . . . 8 ((𝜑𝑘 ∈ (1...(𝑁 + 1))) → (((𝑁C(𝑘 − 1)) · (((𝑁 + 1) − 𝑘) 𝐴)) × (𝑘 𝐵)) = ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))
208207mpteq2dva 4672 . . . . . . 7 (𝜑 → (𝑘 ∈ (1...(𝑁 + 1)) ↦ (((𝑁C(𝑘 − 1)) · (((𝑁 + 1) − 𝑘) 𝐴)) × (𝑘 𝐵))) = (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))
209208oveq2d 6565 . . . . . 6 (𝜑 → (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ (((𝑁C(𝑘 − 1)) · (((𝑁 + 1) − 𝑘) 𝐴)) × (𝑘 𝐵)))) = (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))))
21012, 160syl 17 . . . . . . . 8 (𝜑 → (𝑁 + 1) ∈ ℕ0)
211 simpl 472 . . . . . . . . 9 ((𝜑𝑘 ∈ (0...(𝑁 + 1))) → 𝜑)
212 elfzelz 12213 . . . . . . . . . . 11 (𝑘 ∈ (0...(𝑁 + 1)) → 𝑘 ∈ ℤ)
213212, 132syl 17 . . . . . . . . . 10 (𝑘 ∈ (0...(𝑁 + 1)) → (𝑘 − 1) ∈ ℤ)
21412, 213, 134syl2an 493 . . . . . . . . 9 ((𝜑𝑘 ∈ (0...(𝑁 + 1))) → (𝑁C(𝑘 − 1)) ∈ ℕ0)
215 fznn0sub 12244 . . . . . . . . . 10 (𝑘 ∈ (0...(𝑁 + 1)) → ((𝑁 + 1) − 𝑘) ∈ ℕ0)
216215adantl 481 . . . . . . . . 9 ((𝜑𝑘 ∈ (0...(𝑁 + 1))) → ((𝑁 + 1) − 𝑘) ∈ ℕ0)
217 elfznn0 12302 . . . . . . . . . 10 (𝑘 ∈ (0...(𝑁 + 1)) → 𝑘 ∈ ℕ0)
218217adantl 481 . . . . . . . . 9 ((𝜑𝑘 ∈ (0...(𝑁 + 1))) → 𝑘 ∈ ℕ0)
219211, 214, 216, 218, 141syl13anc 1320 . . . . . . . 8 ((𝜑𝑘 ∈ (0...(𝑁 + 1))) → ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆)
2203, 5, 36, 210, 219gsummptfzsplitl 18156 . . . . . . 7 (𝜑 → (𝑅 Σg (𝑘 ∈ (0...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) = ((𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) + (𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))))
221 snfi 7923 . . . . . . . . . 10 {0} ∈ Fin
222221a1i 11 . . . . . . . . 9 (𝜑 → {0} ∈ Fin)
223171eleq1d 2672 . . . . . . . . . . . 12 (𝑘 = 0 → (((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆 ↔ ((𝑁C(0 − 1)) · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))) ∈ 𝑆))
224223ralsng 4165 . . . . . . . . . . 11 (0 ∈ ℕ0 → (∀𝑘 ∈ {0} ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆 ↔ ((𝑁C(0 − 1)) · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))) ∈ 𝑆))
225147, 224ax-mp 5 . . . . . . . . . 10 (∀𝑘 ∈ {0} ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆 ↔ ((𝑁C(0 − 1)) · ((((𝑁 + 1) − 0) 𝐴) × (0 𝐵))) ∈ 𝑆)
226164, 225sylibr 223 . . . . . . . . 9 (𝜑 → ∀𝑘 ∈ {0} ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))) ∈ 𝑆)
2273, 36, 222, 226gsummptcl 18189 . . . . . . . 8 (𝜑 → (𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) ∈ 𝑆)
2283, 5cmncom 18032 . . . . . . . 8 ((𝑅 ∈ CMnd ∧ (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) ∈ 𝑆 ∧ (𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) ∈ 𝑆) → ((𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) + (𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))) = ((𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) + (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))))
22936, 144, 227, 228syl3anc 1318 . . . . . . 7 (𝜑 → ((𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) + (𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))) = ((𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) + (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))))
230220, 229eqtrd 2644 . . . . . 6 (𝜑 → (𝑅 Σg (𝑘 ∈ (0...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) = ((𝑅 Σg (𝑘 ∈ {0} ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))) + (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵)))))))
231197, 209, 2303eqtr4d 2654 . . . . 5 (𝜑 → (𝑅 Σg (𝑘 ∈ (1...(𝑁 + 1)) ↦ (((𝑁C(𝑘 − 1)) · (((𝑁 + 1) − 𝑘) 𝐴)) × (𝑘 𝐵)))) = (𝑅 Σg (𝑘 ∈ (0...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))))
232128, 231syl5eq 2656 . . . 4 (𝜑 → (𝑅 Σg (𝑗 ∈ ((0 + 1)...(𝑁 + 1)) ↦ (((𝑁C(𝑗 − 1)) · (((𝑁 + 1) − 𝑗) 𝐴)) × (𝑗 𝐵)))) = (𝑅 Σg (𝑘 ∈ (0...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))))
23352, 116, 2323eqtrd 2648 . . 3 (𝜑 → (𝑅 Σg (𝑘 ∈ (0...𝑁) ↦ (((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))) × 𝐵))) = (𝑅 Σg (𝑘 ∈ (0...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))))
23434, 233eqtr3d 2646 . 2 (𝜑 → ((𝑅 Σg (𝑘 ∈ (0...𝑁) ↦ ((𝑁C𝑘) · (((𝑁𝑘) 𝐴) × (𝑘 𝐵))))) × 𝐵) = (𝑅 Σg (𝑘 ∈ (0...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))))
2352, 234sylan9eqr 2666 1 ((𝜑𝜓) → ((𝑁 (𝐴 + 𝐵)) × 𝐵) = (𝑅 Σg (𝑘 ∈ (0...(𝑁 + 1)) ↦ ((𝑁C(𝑘 − 1)) · ((((𝑁 + 1) − 𝑘) 𝐴) × (𝑘 𝐵))))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 195  wo 382  wa 383  w3a 1031   = wceq 1475  wcel 1977  wral 2896  Vcvv 3173  {csn 4125   class class class wbr 4583  cmpt 4643  cfv 5804  (class class class)co 6549  Fincfn 7841  cc 9813  cr 9814  0cc0 9815  1c1 9816   + caddc 9818   < clt 9953  cmin 10145  cn 10897  0cn0 11169  cz 11254  ...cfz 12197  Ccbc 12951  Basecbs 15695  +gcplusg 15768  .rcmulr 15769  0gc0g 15923   Σg cgsu 15924  Mndcmnd 17117  .gcmg 17363  CMndccmn 18016  mulGrpcmgp 18312  SRingcsrg 18328
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-inf2 8421  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-iin 4458  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-se 4998  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-isom 5813  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-of 6795  df-om 6958  df-1st 7059  df-2nd 7060  df-supp 7183  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-oadd 7451  df-er 7629  df-map 7746  df-en 7842  df-dom 7843  df-sdom 7844  df-fin 7845  df-fsupp 8159  df-oi 8298  df-card 8648  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-div 10564  df-nn 10898  df-2 10956  df-n0 11170  df-z 11255  df-uz 11564  df-rp 11709  df-fz 12198  df-fzo 12335  df-seq 12664  df-fac 12923  df-bc 12952  df-hash 12980  df-ndx 15698  df-slot 15699  df-base 15700  df-sets 15701  df-ress 15702  df-plusg 15781  df-0g 15925  df-gsum 15926  df-mre 16069  df-mrc 16070  df-acs 16072  df-mgm 17065  df-sgrp 17107  df-mnd 17118  df-mhm 17158  df-submnd 17159  df-mulg 17364  df-cntz 17573  df-cmn 18018  df-mgp 18313  df-srg 18329
This theorem is referenced by:  srgbinomlem  18367
  Copyright terms: Public domain W3C validator