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

Theorem coe1mul2 22293
Description: The coefficient vector of multiplication in the univariate power series ring. (Contributed by Stefan O'Rear, 25-Mar-2015.)
Hypotheses
Ref Expression
coe1mul2.s 𝑆 = (PwSer1𝑅)
coe1mul2.t = (.r𝑆)
coe1mul2.u · = (.r𝑅)
coe1mul2.b 𝐵 = (Base‘𝑆)
Assertion
Ref Expression
coe1mul2 ((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → (coe1‘(𝐹 𝐺)) = (𝑘 ∈ ℕ0 ↦ (𝑅 Σg (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))))))
Distinct variable groups:   𝑥,𝑘,𝐵   𝑘,𝐹,𝑥   · ,𝑘,𝑥   𝑘,𝐺,𝑥   𝑅,𝑘,𝑥   ,𝑘
Allowed substitution hints:   𝑆(𝑥,𝑘)   (𝑥)

Proof of Theorem coe1mul2
Dummy variables 𝑎 𝑏 𝑐 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fconst6g 6810 . . . . 5 (𝑘 ∈ ℕ0 → (1o × {𝑘}):1o⟶ℕ0)
2 nn0ex 12559 . . . . . 6 0 ∈ V
3 1on 8534 . . . . . . 7 1o ∈ On
43elexi 3511 . . . . . 6 1o ∈ V
52, 4elmap 8929 . . . . 5 ((1o × {𝑘}) ∈ (ℕ0m 1o) ↔ (1o × {𝑘}):1o⟶ℕ0)
61, 5sylibr 234 . . . 4 (𝑘 ∈ ℕ0 → (1o × {𝑘}) ∈ (ℕ0m 1o))
76adantl 481 . . 3 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (1o × {𝑘}) ∈ (ℕ0m 1o))
8 eqidd 2741 . . 3 ((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → (𝑘 ∈ ℕ0 ↦ (1o × {𝑘})) = (𝑘 ∈ ℕ0 ↦ (1o × {𝑘})))
9 eqid 2740 . . . 4 (1o mPwSer 𝑅) = (1o mPwSer 𝑅)
10 coe1mul2.s . . . . 5 𝑆 = (PwSer1𝑅)
11 coe1mul2.b . . . . 5 𝐵 = (Base‘𝑆)
1210, 11, 9psr1bas2 22212 . . . 4 𝐵 = (Base‘(1o mPwSer 𝑅))
13 coe1mul2.u . . . 4 · = (.r𝑅)
14 coe1mul2.t . . . . 5 = (.r𝑆)
1510, 9, 14psr1mulr 22245 . . . 4 = (.r‘(1o mPwSer 𝑅))
16 psr1baslem 22207 . . . 4 (ℕ0m 1o) = {𝑎 ∈ (ℕ0m 1o) ∣ (𝑎 “ ℕ) ∈ Fin}
17 simp2 1137 . . . 4 ((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → 𝐹𝐵)
18 simp3 1138 . . . 4 ((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → 𝐺𝐵)
199, 12, 13, 15, 16, 17, 18psrmulfval 21986 . . 3 ((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → (𝐹 𝐺) = (𝑏 ∈ (ℕ0m 1o) ↦ (𝑅 Σg (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r𝑏} ↦ ((𝐹𝑐) · (𝐺‘(𝑏f𝑐)))))))
20 breq2 5170 . . . . . 6 (𝑏 = (1o × {𝑘}) → (𝑑r𝑏𝑑r ≤ (1o × {𝑘})))
2120rabbidv 3451 . . . . 5 (𝑏 = (1o × {𝑘}) → {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r𝑏} = {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})})
22 fvoveq1 7471 . . . . . 6 (𝑏 = (1o × {𝑘}) → (𝐺‘(𝑏f𝑐)) = (𝐺‘((1o × {𝑘}) ∘f𝑐)))
2322oveq2d 7464 . . . . 5 (𝑏 = (1o × {𝑘}) → ((𝐹𝑐) · (𝐺‘(𝑏f𝑐))) = ((𝐹𝑐) · (𝐺‘((1o × {𝑘}) ∘f𝑐))))
2421, 23mpteq12dv 5257 . . . 4 (𝑏 = (1o × {𝑘}) → (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r𝑏} ↦ ((𝐹𝑐) · (𝐺‘(𝑏f𝑐)))) = (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ ((𝐹𝑐) · (𝐺‘((1o × {𝑘}) ∘f𝑐)))))
2524oveq2d 7464 . . 3 (𝑏 = (1o × {𝑘}) → (𝑅 Σg (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r𝑏} ↦ ((𝐹𝑐) · (𝐺‘(𝑏f𝑐))))) = (𝑅 Σg (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ ((𝐹𝑐) · (𝐺‘((1o × {𝑘}) ∘f𝑐))))))
267, 8, 19, 25fmptco 7163 . 2 ((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → ((𝐹 𝐺) ∘ (𝑘 ∈ ℕ0 ↦ (1o × {𝑘}))) = (𝑘 ∈ ℕ0 ↦ (𝑅 Σg (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ ((𝐹𝑐) · (𝐺‘((1o × {𝑘}) ∘f𝑐)))))))
2710psr1ring 22269 . . . 4 (𝑅 ∈ Ring → 𝑆 ∈ Ring)
2811, 14ringcl 20277 . . . 4 ((𝑆 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → (𝐹 𝐺) ∈ 𝐵)
2927, 28syl3an1 1163 . . 3 ((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → (𝐹 𝐺) ∈ 𝐵)
30 eqid 2740 . . . 4 (coe1‘(𝐹 𝐺)) = (coe1‘(𝐹 𝐺))
31 eqid 2740 . . . 4 (𝑘 ∈ ℕ0 ↦ (1o × {𝑘})) = (𝑘 ∈ ℕ0 ↦ (1o × {𝑘}))
3230, 11, 10, 31coe1fval3 22231 . . 3 ((𝐹 𝐺) ∈ 𝐵 → (coe1‘(𝐹 𝐺)) = ((𝐹 𝐺) ∘ (𝑘 ∈ ℕ0 ↦ (1o × {𝑘}))))
3329, 32syl 17 . 2 ((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → (coe1‘(𝐹 𝐺)) = ((𝐹 𝐺) ∘ (𝑘 ∈ ℕ0 ↦ (1o × {𝑘}))))
34 eqid 2740 . . . . 5 (Base‘𝑅) = (Base‘𝑅)
35 eqid 2740 . . . . 5 (0g𝑅) = (0g𝑅)
36 simpl1 1191 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → 𝑅 ∈ Ring)
37 ringcmn 20305 . . . . . 6 (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
3836, 37syl 17 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → 𝑅 ∈ CMnd)
39 fzfi 14023 . . . . . 6 (0...𝑘) ∈ Fin
4039a1i 11 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (0...𝑘) ∈ Fin)
41 simpll1 1212 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑥 ∈ (0...𝑘)) → 𝑅 ∈ Ring)
42 simpll2 1213 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑥 ∈ (0...𝑘)) → 𝐹𝐵)
43 eqid 2740 . . . . . . . . . 10 (coe1𝐹) = (coe1𝐹)
4443, 11, 10, 34coe1f2 22232 . . . . . . . . 9 (𝐹𝐵 → (coe1𝐹):ℕ0⟶(Base‘𝑅))
4542, 44syl 17 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑥 ∈ (0...𝑘)) → (coe1𝐹):ℕ0⟶(Base‘𝑅))
46 elfznn0 13677 . . . . . . . . 9 (𝑥 ∈ (0...𝑘) → 𝑥 ∈ ℕ0)
4746adantl 481 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑥 ∈ (0...𝑘)) → 𝑥 ∈ ℕ0)
4845, 47ffvelcdmd 7119 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑥 ∈ (0...𝑘)) → ((coe1𝐹)‘𝑥) ∈ (Base‘𝑅))
49 simpll3 1214 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑥 ∈ (0...𝑘)) → 𝐺𝐵)
50 eqid 2740 . . . . . . . . . 10 (coe1𝐺) = (coe1𝐺)
5150, 11, 10, 34coe1f2 22232 . . . . . . . . 9 (𝐺𝐵 → (coe1𝐺):ℕ0⟶(Base‘𝑅))
5249, 51syl 17 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑥 ∈ (0...𝑘)) → (coe1𝐺):ℕ0⟶(Base‘𝑅))
53 fznn0sub 13616 . . . . . . . . 9 (𝑥 ∈ (0...𝑘) → (𝑘𝑥) ∈ ℕ0)
5453adantl 481 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑥 ∈ (0...𝑘)) → (𝑘𝑥) ∈ ℕ0)
5552, 54ffvelcdmd 7119 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑥 ∈ (0...𝑘)) → ((coe1𝐺)‘(𝑘𝑥)) ∈ (Base‘𝑅))
5634, 13ringcl 20277 . . . . . . 7 ((𝑅 ∈ Ring ∧ ((coe1𝐹)‘𝑥) ∈ (Base‘𝑅) ∧ ((coe1𝐺)‘(𝑘𝑥)) ∈ (Base‘𝑅)) → (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥))) ∈ (Base‘𝑅))
5741, 48, 55, 56syl3anc 1371 . . . . . 6 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑥 ∈ (0...𝑘)) → (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥))) ∈ (Base‘𝑅))
5857fmpttd 7149 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))):(0...𝑘)⟶(Base‘𝑅))
5939elexi 3511 . . . . . . . . 9 (0...𝑘) ∈ V
6059mptex 7260 . . . . . . . 8 (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) ∈ V
61 funmpt 6616 . . . . . . . 8 Fun (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥))))
62 fvex 6933 . . . . . . . 8 (0g𝑅) ∈ V
6360, 61, 623pm3.2i 1339 . . . . . . 7 ((𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) ∈ V ∧ Fun (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) ∧ (0g𝑅) ∈ V)
64 suppssdm 8218 . . . . . . . . 9 ((𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) supp (0g𝑅)) ⊆ dom (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥))))
65 eqid 2740 . . . . . . . . . 10 (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) = (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥))))
6665dmmptss 6272 . . . . . . . . 9 dom (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) ⊆ (0...𝑘)
6764, 66sstri 4018 . . . . . . . 8 ((𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) supp (0g𝑅)) ⊆ (0...𝑘)
6839, 67pm3.2i 470 . . . . . . 7 ((0...𝑘) ∈ Fin ∧ ((𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) supp (0g𝑅)) ⊆ (0...𝑘))
69 suppssfifsupp 9449 . . . . . . 7 ((((𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) ∈ V ∧ Fun (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) ∧ (0g𝑅) ∈ V) ∧ ((0...𝑘) ∈ Fin ∧ ((𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) supp (0g𝑅)) ⊆ (0...𝑘))) → (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) finSupp (0g𝑅))
7063, 68, 69mp2an 691 . . . . . 6 (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) finSupp (0g𝑅)
7170a1i 11 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) finSupp (0g𝑅))
72 eqid 2740 . . . . . . 7 {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} = {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}
7372coe1mul2lem2 22292 . . . . . 6 (𝑘 ∈ ℕ0 → (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ (𝑐‘∅)):{𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}–1-1-onto→(0...𝑘))
7473adantl 481 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ (𝑐‘∅)):{𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}–1-1-onto→(0...𝑘))
7534, 35, 38, 40, 58, 71, 74gsumf1o 19958 . . . 4 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (𝑅 Σg (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥))))) = (𝑅 Σg ((𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) ∘ (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ (𝑐‘∅)))))
76 breq1 5169 . . . . . . . . . . 11 (𝑑 = 𝑐 → (𝑑r ≤ (1o × {𝑘}) ↔ 𝑐r ≤ (1o × {𝑘})))
7776elrab 3708 . . . . . . . . . 10 (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↔ (𝑐 ∈ (ℕ0m 1o) ∧ 𝑐r ≤ (1o × {𝑘})))
7877simprbi 496 . . . . . . . . 9 (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} → 𝑐r ≤ (1o × {𝑘}))
7978adantl 481 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → 𝑐r ≤ (1o × {𝑘}))
80 simplr 768 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → 𝑘 ∈ ℕ0)
81 elrabi 3703 . . . . . . . . . 10 (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} → 𝑐 ∈ (ℕ0m 1o))
8281adantl 481 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → 𝑐 ∈ (ℕ0m 1o))
83 coe1mul2lem1 22291 . . . . . . . . 9 ((𝑘 ∈ ℕ0𝑐 ∈ (ℕ0m 1o)) → (𝑐r ≤ (1o × {𝑘}) ↔ (𝑐‘∅) ∈ (0...𝑘)))
8480, 82, 83syl2anc 583 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → (𝑐r ≤ (1o × {𝑘}) ↔ (𝑐‘∅) ∈ (0...𝑘)))
8579, 84mpbid 232 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → (𝑐‘∅) ∈ (0...𝑘))
86 eqidd 2741 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ (𝑐‘∅)) = (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ (𝑐‘∅)))
87 eqidd 2741 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) = (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))))
88 fveq2 6920 . . . . . . . 8 (𝑥 = (𝑐‘∅) → ((coe1𝐹)‘𝑥) = ((coe1𝐹)‘(𝑐‘∅)))
89 oveq2 7456 . . . . . . . . 9 (𝑥 = (𝑐‘∅) → (𝑘𝑥) = (𝑘 − (𝑐‘∅)))
9089fveq2d 6924 . . . . . . . 8 (𝑥 = (𝑐‘∅) → ((coe1𝐺)‘(𝑘𝑥)) = ((coe1𝐺)‘(𝑘 − (𝑐‘∅))))
9188, 90oveq12d 7466 . . . . . . 7 (𝑥 = (𝑐‘∅) → (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥))) = (((coe1𝐹)‘(𝑐‘∅)) · ((coe1𝐺)‘(𝑘 − (𝑐‘∅)))))
9285, 86, 87, 91fmptco 7163 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → ((𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) ∘ (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ (𝑐‘∅))) = (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ (((coe1𝐹)‘(𝑐‘∅)) · ((coe1𝐺)‘(𝑘 − (𝑐‘∅))))))
93 simpll2 1213 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → 𝐹𝐵)
9443fvcoe1 22230 . . . . . . . . 9 ((𝐹𝐵𝑐 ∈ (ℕ0m 1o)) → (𝐹𝑐) = ((coe1𝐹)‘(𝑐‘∅)))
9593, 82, 94syl2anc 583 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → (𝐹𝑐) = ((coe1𝐹)‘(𝑐‘∅)))
96 df1o2 8529 . . . . . . . . . . . . . 14 1o = {∅}
97 0ex 5325 . . . . . . . . . . . . . 14 ∅ ∈ V
9896, 2, 97mapsnconst 8950 . . . . . . . . . . . . 13 (𝑐 ∈ (ℕ0m 1o) → 𝑐 = (1o × {(𝑐‘∅)}))
9982, 98syl 17 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → 𝑐 = (1o × {(𝑐‘∅)}))
10099oveq2d 7464 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → ((1o × {𝑘}) ∘f𝑐) = ((1o × {𝑘}) ∘f − (1o × {(𝑐‘∅)})))
1013a1i 11 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → 1o ∈ On)
102 vex 3492 . . . . . . . . . . . . 13 𝑘 ∈ V
103102a1i 11 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → 𝑘 ∈ V)
104 fvexd 6935 . . . . . . . . . . . 12 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → (𝑐‘∅) ∈ V)
105101, 103, 104ofc12 7743 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → ((1o × {𝑘}) ∘f − (1o × {(𝑐‘∅)})) = (1o × {(𝑘 − (𝑐‘∅))}))
106100, 105eqtrd 2780 . . . . . . . . . 10 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → ((1o × {𝑘}) ∘f𝑐) = (1o × {(𝑘 − (𝑐‘∅))}))
107106fveq2d 6924 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → (𝐺‘((1o × {𝑘}) ∘f𝑐)) = (𝐺‘(1o × {(𝑘 − (𝑐‘∅))})))
108 simpll3 1214 . . . . . . . . . 10 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → 𝐺𝐵)
109 fznn0sub 13616 . . . . . . . . . . 11 ((𝑐‘∅) ∈ (0...𝑘) → (𝑘 − (𝑐‘∅)) ∈ ℕ0)
11085, 109syl 17 . . . . . . . . . 10 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → (𝑘 − (𝑐‘∅)) ∈ ℕ0)
11150coe1fv 22229 . . . . . . . . . 10 ((𝐺𝐵 ∧ (𝑘 − (𝑐‘∅)) ∈ ℕ0) → ((coe1𝐺)‘(𝑘 − (𝑐‘∅))) = (𝐺‘(1o × {(𝑘 − (𝑐‘∅))})))
112108, 110, 111syl2anc 583 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → ((coe1𝐺)‘(𝑘 − (𝑐‘∅))) = (𝐺‘(1o × {(𝑘 − (𝑐‘∅))})))
113107, 112eqtr4d 2783 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → (𝐺‘((1o × {𝑘}) ∘f𝑐)) = ((coe1𝐺)‘(𝑘 − (𝑐‘∅))))
11495, 113oveq12d 7466 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) ∧ 𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})}) → ((𝐹𝑐) · (𝐺‘((1o × {𝑘}) ∘f𝑐))) = (((coe1𝐹)‘(𝑐‘∅)) · ((coe1𝐺)‘(𝑘 − (𝑐‘∅)))))
115114mpteq2dva 5266 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ ((𝐹𝑐) · (𝐺‘((1o × {𝑘}) ∘f𝑐)))) = (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ (((coe1𝐹)‘(𝑐‘∅)) · ((coe1𝐺)‘(𝑘 − (𝑐‘∅))))))
11692, 115eqtr4d 2783 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → ((𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) ∘ (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ (𝑐‘∅))) = (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ ((𝐹𝑐) · (𝐺‘((1o × {𝑘}) ∘f𝑐)))))
117116oveq2d 7464 . . . 4 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (𝑅 Σg ((𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))) ∘ (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ (𝑐‘∅)))) = (𝑅 Σg (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ ((𝐹𝑐) · (𝐺‘((1o × {𝑘}) ∘f𝑐))))))
11875, 117eqtrd 2780 . . 3 (((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) ∧ 𝑘 ∈ ℕ0) → (𝑅 Σg (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥))))) = (𝑅 Σg (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ ((𝐹𝑐) · (𝐺‘((1o × {𝑘}) ∘f𝑐))))))
119118mpteq2dva 5266 . 2 ((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → (𝑘 ∈ ℕ0 ↦ (𝑅 Σg (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))))) = (𝑘 ∈ ℕ0 ↦ (𝑅 Σg (𝑐 ∈ {𝑑 ∈ (ℕ0m 1o) ∣ 𝑑r ≤ (1o × {𝑘})} ↦ ((𝐹𝑐) · (𝐺‘((1o × {𝑘}) ∘f𝑐)))))))
12026, 33, 1193eqtr4d 2790 1 ((𝑅 ∈ Ring ∧ 𝐹𝐵𝐺𝐵) → (coe1‘(𝐹 𝐺)) = (𝑘 ∈ ℕ0 ↦ (𝑅 Σg (𝑥 ∈ (0...𝑘) ↦ (((coe1𝐹)‘𝑥) · ((coe1𝐺)‘(𝑘𝑥)))))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1087   = wceq 1537  wcel 2108  {crab 3443  Vcvv 3488  wss 3976  c0 4352  {csn 4648   class class class wbr 5166  cmpt 5249   × cxp 5698  dom cdm 5700  ccom 5704  Oncon0 6395  Fun wfun 6567  wf 6569  1-1-ontowf1o 6572  cfv 6573  (class class class)co 7448  f cof 7712  r cofr 7713   supp csupp 8201  1oc1o 8515  m cmap 8884  Fincfn 9003   finSupp cfsupp 9431  0cc0 11184  cle 11325  cmin 11520  0cn0 12553  ...cfz 13567  Basecbs 17258  .rcmulr 17312  0gc0g 17499   Σg cgsu 17500  CMndccmn 19822  Ringcrg 20260   mPwSer cmps 21947  PwSer1cps1 22197  coe1cco1 22200
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-iin 5018  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-se 5653  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-isom 6582  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-of 7714  df-ofr 7715  df-om 7904  df-1st 8030  df-2nd 8031  df-supp 8202  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-2o 8523  df-er 8763  df-map 8886  df-pm 8887  df-ixp 8956  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-fsupp 9432  df-sup 9511  df-oi 9579  df-card 10008  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-z 12640  df-dec 12759  df-uz 12904  df-fz 13568  df-fzo 13712  df-seq 14053  df-hash 14380  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-hom 17335  df-cco 17336  df-0g 17501  df-gsum 17502  df-prds 17507  df-pws 17509  df-mre 17644  df-mrc 17645  df-acs 17647  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-mhm 18818  df-submnd 18819  df-grp 18976  df-minusg 18977  df-mulg 19108  df-ghm 19253  df-cntz 19357  df-cmn 19824  df-abl 19825  df-mgp 20162  df-rng 20180  df-ur 20209  df-ring 20262  df-psr 21952  df-opsr 21956  df-psr1 22202  df-coe1 22205
This theorem is referenced by:  coe1mul  22294
  Copyright terms: Public domain W3C validator