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

Theorem deg1prod 33666
Description: Degree of a product of polynomials. (Contributed by Thierry Arnoux, 15-Feb-2026.)
Hypotheses
Ref Expression
deg1prod.1 𝐷 = (deg1𝑅)
deg1prod.2 𝑃 = (Poly1𝑅)
deg1prod.3 𝐵 = (Base‘𝑃)
deg1prod.4 𝑀 = (mulGrp‘𝑃)
deg1prod.5 0 = (0g𝑃)
deg1prod.6 (𝜑𝐴 ∈ Fin)
deg1prod.7 (𝜑𝑅 ∈ IDomn)
deg1prod.8 (𝜑𝐹:𝐴⟶(𝐵 ∖ { 0 }))
Assertion
Ref Expression
deg1prod (𝜑 → (𝐷‘(𝑀 Σg 𝐹)) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
Distinct variable groups:   0 ,𝑘   𝐴,𝑘   𝐵,𝑘   𝐷,𝑘   𝑘,𝐹   𝑘,𝑀   𝜑,𝑘
Allowed substitution hints:   𝑃(𝑘)   𝑅(𝑘)

Proof of Theorem deg1prod
Dummy variables 𝑎 𝑏 𝑙 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 deg1prod.8 . . . . 5 (𝜑𝐹:𝐴⟶(𝐵 ∖ { 0 }))
21feqmptd 6895 . . . 4 (𝜑𝐹 = (𝑘𝐴 ↦ (𝐹𝑘)))
32oveq2d 7372 . . 3 (𝜑 → (𝑀 Σg 𝐹) = (𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘))))
43fveq2d 6831 . 2 (𝜑 → (𝐷‘(𝑀 Σg 𝐹)) = (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))))
5 mpteq1 5161 . . . . . 6 (𝑎 = ∅ → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘 ∈ ∅ ↦ (𝐹𝑘)))
65oveq2d 7372 . . . . 5 (𝑎 = ∅ → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))))
76fveq2d 6831 . . . 4 (𝑎 = ∅ → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))))
8 sumeq1 15642 . . . 4 (𝑎 = ∅ → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)))
97, 8eqeq12d 2755 . . 3 (𝑎 = ∅ → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘))))
10 mpteq1 5161 . . . . . 6 (𝑎 = 𝑏 → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘𝑏 ↦ (𝐹𝑘)))
1110oveq2d 7372 . . . . 5 (𝑎 = 𝑏 → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))))
1211fveq2d 6831 . . . 4 (𝑎 = 𝑏 → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))))
13 sumeq1 15642 . . . 4 (𝑎 = 𝑏 → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
1412, 13eqeq12d 2755 . . 3 (𝑎 = 𝑏 → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))))
15 mpteq1 5161 . . . . . 6 (𝑎 = (𝑏 ∪ {𝑙}) → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))
1615oveq2d 7372 . . . . 5 (𝑎 = (𝑏 ∪ {𝑙}) → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘))))
1716fveq2d 6831 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))))
18 sumeq1 15642 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)))
1917, 18eqeq12d 2755 . . 3 (𝑎 = (𝑏 ∪ {𝑙}) → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
20 mpteq1 5161 . . . . . 6 (𝑎 = 𝐴 → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘𝐴 ↦ (𝐹𝑘)))
2120oveq2d 7372 . . . . 5 (𝑎 = 𝐴 → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘))))
2221fveq2d 6831 . . . 4 (𝑎 = 𝐴 → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))))
23 sumeq1 15642 . . . 4 (𝑎 = 𝐴 → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
2422, 23eqeq12d 2755 . . 3 (𝑎 = 𝐴 → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘))))
25 mpt0 6627 . . . . . . . . 9 (𝑘 ∈ ∅ ↦ (𝐹𝑘)) = ∅
2625oveq2i 7367 . . . . . . . 8 (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (𝑀 Σg ∅)
27 deg1prod.4 . . . . . . . . . 10 𝑀 = (mulGrp‘𝑃)
28 eqid 2739 . . . . . . . . . 10 (1r𝑃) = (1r𝑃)
2927, 28ringidval 20155 . . . . . . . . 9 (1r𝑃) = (0g𝑀)
3029gsum0 18643 . . . . . . . 8 (𝑀 Σg ∅) = (1r𝑃)
3126, 30eqtri 2762 . . . . . . 7 (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (1r𝑃)
3231a1i 11 . . . . . 6 (𝜑 → (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (1r𝑃))
3332fveq2d 6831 . . . . 5 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = (𝐷‘(1r𝑃)))
34 deg1prod.7 . . . . . . . 8 (𝜑𝑅 ∈ IDomn)
3534idomdomd 20698 . . . . . . 7 (𝜑𝑅 ∈ Domn)
36 domnring 20679 . . . . . . 7 (𝑅 ∈ Domn → 𝑅 ∈ Ring)
37 deg1prod.2 . . . . . . . 8 𝑃 = (Poly1𝑅)
38 eqid 2739 . . . . . . . 8 (algSc‘𝑃) = (algSc‘𝑃)
39 eqid 2739 . . . . . . . 8 (1r𝑅) = (1r𝑅)
4037, 38, 39, 28ply1scl1 22278 . . . . . . 7 (𝑅 ∈ Ring → ((algSc‘𝑃)‘(1r𝑅)) = (1r𝑃))
4135, 36, 403syl 18 . . . . . 6 (𝜑 → ((algSc‘𝑃)‘(1r𝑅)) = (1r𝑃))
4241fveq2d 6831 . . . . 5 (𝜑 → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = (𝐷‘(1r𝑃)))
4334idomringd 20700 . . . . . 6 (𝜑𝑅 ∈ Ring)
44 eqid 2739 . . . . . . 7 (Base‘𝑅) = (Base‘𝑅)
4544, 39, 43ringidcld 20238 . . . . . 6 (𝜑 → (1r𝑅) ∈ (Base‘𝑅))
46 domnnzr 20678 . . . . . . 7 (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
47 eqid 2739 . . . . . . . 8 (0g𝑅) = (0g𝑅)
4839, 47nzrnz 20487 . . . . . . 7 (𝑅 ∈ NzRing → (1r𝑅) ≠ (0g𝑅))
4935, 46, 483syl 18 . . . . . 6 (𝜑 → (1r𝑅) ≠ (0g𝑅))
50 deg1prod.1 . . . . . . 7 𝐷 = (deg1𝑅)
5150, 37, 44, 38, 47deg1scl 26096 . . . . . 6 ((𝑅 ∈ Ring ∧ (1r𝑅) ∈ (Base‘𝑅) ∧ (1r𝑅) ≠ (0g𝑅)) → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = 0)
5243, 45, 49, 51syl3anc 1379 . . . . 5 (𝜑 → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = 0)
5333, 42, 523eqtr2d 2780 . . . 4 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = 0)
54 sum0 15674 . . . 4 Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)) = 0
5553, 54eqtr4di 2792 . . 3 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)))
56 deg1prod.3 . . . . . . . . 9 𝐵 = (Base‘𝑃)
57 eqid 2739 . . . . . . . . 9 (.r𝑃) = (.r𝑃)
58 deg1prod.5 . . . . . . . . 9 0 = (0g𝑃)
5935ad2antrr 732 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑅 ∈ Domn)
6027, 56mgpbas 20117 . . . . . . . . . 10 𝐵 = (Base‘𝑀)
6137ply1idom 26108 . . . . . . . . . . . . . 14 (𝑅 ∈ IDomn → 𝑃 ∈ IDomn)
6234, 61syl 17 . . . . . . . . . . . . 13 (𝜑𝑃 ∈ IDomn)
6362idomcringd 20699 . . . . . . . . . . . 12 (𝜑𝑃 ∈ CRing)
6427crngmgp 20213 . . . . . . . . . . . 12 (𝑃 ∈ CRing → 𝑀 ∈ CMnd)
6563, 64syl 17 . . . . . . . . . . 11 (𝜑𝑀 ∈ CMnd)
6665ad2antrr 732 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑀 ∈ CMnd)
67 deg1prod.6 . . . . . . . . . . . 12 (𝜑𝐴 ∈ Fin)
6867ad2antrr 732 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝐴 ∈ Fin)
69 simplr 774 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑏𝐴)
7068, 69ssfid 9169 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑏 ∈ Fin)
711ad3antrrr 736 . . . . . . . . . . . . 13 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
7269sselda 3915 . . . . . . . . . . . . 13 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → 𝑘𝐴)
7371, 72ffvelcdmd 7026 . . . . . . . . . . . 12 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
7473eldifad 3895 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
7574ralrimiva 3131 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ∀𝑘𝑏 (𝐹𝑘) ∈ 𝐵)
7660, 66, 70, 75gsummptcl 19933 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ∈ 𝐵)
77 nfv 1921 . . . . . . . . . . . 12 𝑘(𝜑𝑏𝐴)
78 eqid 2739 . . . . . . . . . . . 12 (𝑘𝑏 ↦ (𝐹𝑘)) = (𝑘𝑏 ↦ (𝐹𝑘))
7958fvexi 6841 . . . . . . . . . . . . 13 0 ∈ V
8079a1i 11 . . . . . . . . . . . 12 ((𝜑𝑏𝐴) → 0 ∈ V)
811ad2antrr 732 . . . . . . . . . . . . . . 15 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
82 simpr 485 . . . . . . . . . . . . . . . 16 ((𝜑𝑏𝐴) → 𝑏𝐴)
8382sselda 3915 . . . . . . . . . . . . . . 15 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 𝑘𝐴)
8481, 83ffvelcdmd 7026 . . . . . . . . . . . . . 14 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
85 eldifsni 4723 . . . . . . . . . . . . . 14 ((𝐹𝑘) ∈ (𝐵 ∖ { 0 }) → (𝐹𝑘) ≠ 0 )
8684, 85syl 17 . . . . . . . . . . . . 13 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ≠ 0 )
8786necomd 2989 . . . . . . . . . . . 12 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 0 ≠ (𝐹𝑘))
8877, 78, 80, 87nelrnmpt 5909 . . . . . . . . . . 11 ((𝜑𝑏𝐴) → ¬ 0 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘)))
8962adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → 𝑃 ∈ IDomn)
9067adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑏𝐴) → 𝐴 ∈ Fin)
9190, 82ssfid 9169 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → 𝑏 ∈ Fin)
9284eldifad 3895 . . . . . . . . . . . . . 14 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
9392fmpttd 7056 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → (𝑘𝑏 ↦ (𝐹𝑘)):𝑏𝐵)
9427, 56, 58, 89, 91, 93domnprodeq0 33357 . . . . . . . . . . . 12 ((𝜑𝑏𝐴) → ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) = 00 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘))))
9594necon3abid 2970 . . . . . . . . . . 11 ((𝜑𝑏𝐴) → ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 ↔ ¬ 0 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘))))
9688, 95mpbird 258 . . . . . . . . . 10 ((𝜑𝑏𝐴) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 )
9796adantr 481 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 )
981ad2antrr 732 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
99 simpr 485 . . . . . . . . . . . 12 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑙 ∈ (𝐴𝑏))
10099eldifad 3895 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑙𝐴)
10198, 100ffvelcdmd 7026 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ∈ (𝐵 ∖ { 0 }))
102101eldifad 3895 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ∈ 𝐵)
103 eldifsni 4723 . . . . . . . . . 10 ((𝐹𝑙) ∈ (𝐵 ∖ { 0 }) → (𝐹𝑙) ≠ 0 )
104101, 103syl 17 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ≠ 0 )
10550, 37, 56, 57, 58, 59, 76, 97, 102, 104deg1mul 26098 . . . . . . . 8 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))) = ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))))
106105adantr 481 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))) = ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))))
107 simpr 485 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
108107oveq1d 7371 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))) = (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))))
109106, 108eqtr2d 2775 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
110 nfv 1921 . . . . . . . 8 𝑘((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏))
111 nfcv 2901 . . . . . . . . . 10 𝑘𝐷
112 nfcv 2901 . . . . . . . . . . 11 𝑘𝑀
113 nfcv 2901 . . . . . . . . . . 11 𝑘 Σg
114 nfmpt1 5171 . . . . . . . . . . 11 𝑘(𝑘𝑏 ↦ (𝐹𝑘))
115112, 113, 114nfov 7386 . . . . . . . . . 10 𝑘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))
116111, 115nffv 6837 . . . . . . . . 9 𝑘(𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))))
117 nfcv 2901 . . . . . . . . . 10 𝑘𝑏
118117nfsum1 15643 . . . . . . . . 9 𝑘Σ𝑘𝑏 (𝐷‘(𝐹𝑘))
119116, 118nfeq 2914 . . . . . . . 8 𝑘(𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))
120110, 119nfan 1906 . . . . . . 7 𝑘(((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
121 nfcv 2901 . . . . . . 7 𝑘(𝐷‘(𝐹𝑙))
12267ad3antrrr 736 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝐴 ∈ Fin)
123 simpllr 781 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑏𝐴)
124122, 123ssfid 9169 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑏 ∈ Fin)
125 simplr 774 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑙 ∈ (𝐴𝑏))
126125eldifbd 3896 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → ¬ 𝑙𝑏)
12743ad4antr 738 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝑅 ∈ Ring)
1281ad4antr 738 . . . . . . . . . . 11 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
129123sselda 3915 . . . . . . . . . . 11 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝑘𝐴)
130128, 129ffvelcdmd 7026 . . . . . . . . . 10 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
131130eldifad 3895 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
132130, 85syl 17 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ≠ 0 )
13350, 37, 58, 56deg1nn0cl 26071 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝐹𝑘) ∈ 𝐵 ∧ (𝐹𝑘) ≠ 0 ) → (𝐷‘(𝐹𝑘)) ∈ ℕ0)
134127, 131, 132, 133syl3anc 1379 . . . . . . . 8 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐷‘(𝐹𝑘)) ∈ ℕ0)
135134nn0cnd 12491 . . . . . . 7 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐷‘(𝐹𝑘)) ∈ ℂ)
136 2fveq3 6832 . . . . . . 7 (𝑘 = 𝑙 → (𝐷‘(𝐹𝑘)) = (𝐷‘(𝐹𝑙)))
13743ad3antrrr 736 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑅 ∈ Ring)
1381ad3antrrr 736 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
139125eldifad 3895 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑙𝐴)
140138, 139ffvelcdmd 7026 . . . . . . . . . 10 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ∈ (𝐵 ∖ { 0 }))
141140eldifad 3895 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ∈ 𝐵)
142140, 103syl 17 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ≠ 0 )
14350, 37, 58, 56deg1nn0cl 26071 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝐹𝑙) ∈ 𝐵 ∧ (𝐹𝑙) ≠ 0 ) → (𝐷‘(𝐹𝑙)) ∈ ℕ0)
144137, 141, 142, 143syl3anc 1379 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝐹𝑙)) ∈ ℕ0)
145144nn0cnd 12491 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝐹𝑙)) ∈ ℂ)
146120, 121, 124, 125, 126, 135, 136, 145fsumsplitsn 15697 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)) = (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))))
14727, 57mgpplusg 20116 . . . . . . . . 9 (.r𝑃) = (+g𝑀)
14899eldifbd 3896 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ¬ 𝑙𝑏)
149 fveq2 6827 . . . . . . . . 9 (𝑘 = 𝑙 → (𝐹𝑘) = (𝐹𝑙))
15060, 147, 66, 70, 74, 99, 148, 102, 149gsumunsn 19926 . . . . . . . 8 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘))) = ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙)))
151150fveq2d 6831 . . . . . . 7 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
152151adantr 481 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
153109, 146, 1523eqtr4rd 2785 . . . . 5 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)))
154153ex 413 . . . 4 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
155154anasss 467 . . 3 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
1569, 14, 19, 24, 55, 155, 67findcard2d 9091 . 2 (𝜑 → (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
1574, 156eqtrd 2774 1 (𝜑 → (𝐷‘(𝑀 Σg 𝐹)) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396   = wceq 1547  wcel 2119  wne 2934  Vcvv 3431  cdif 3880  cun 3881  wss 3883  c0 4261  {csn 4555  cmpt 5153  ran crn 5619  wf 6481  cfv 6485  (class class class)co 7356  Fincfn 8883  0cc0 11029   + caddc 11032  0cn0 12428  Σcsu 15639  Basecbs 17170  .rcmulr 17212  0gc0g 17393   Σg cgsu 17394  CMndccmn 19746  mulGrpcmgp 20112  1rcur 20153  Ringcrg 20205  CRingccrg 20206  NzRingcnzr 20484  Domncdomn 20664  IDomncidom 20665  algSccascl 21827  Poly1cpl1 22162  deg1cdg1 26037
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-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-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8633  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-oi 9415  df-card 9854  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-z 12516  df-dec 12636  df-uz 12780  df-rp 12934  df-fz 13453  df-fzo 13600  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-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-ghm 19179  df-cntz 19283  df-cmn 19748  df-abl 19749  df-mgp 20113  df-rng 20125  df-ur 20154  df-ring 20207  df-cring 20208  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-cnfld 21348  df-ascl 21830  df-psr 21884  df-mvr 21885  df-mpl 21886  df-opsr 21888  df-psr1 22165  df-vr1 22166  df-ply1 22167  df-coe1 22168  df-mdeg 26038  df-deg1 26039
This theorem is referenced by:  vietadeg1  33762
  Copyright terms: Public domain W3C validator