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 33592
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 6899 . . . 4 (𝜑𝐹 = (𝑘𝐴 ↦ (𝐹𝑘)))
32oveq2d 7371 . . 3 (𝜑 → (𝑀 Σg 𝐹) = (𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘))))
43fveq2d 6835 . 2 (𝜑 → (𝐷‘(𝑀 Σg 𝐹)) = (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))))
5 mpteq1 5184 . . . . . 6 (𝑎 = ∅ → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘 ∈ ∅ ↦ (𝐹𝑘)))
65oveq2d 7371 . . . . 5 (𝑎 = ∅ → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))))
76fveq2d 6835 . . . 4 (𝑎 = ∅ → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))))
8 sumeq1 15603 . . . 4 (𝑎 = ∅ → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)))
97, 8eqeq12d 2749 . . 3 (𝑎 = ∅ → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘))))
10 mpteq1 5184 . . . . . 6 (𝑎 = 𝑏 → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘𝑏 ↦ (𝐹𝑘)))
1110oveq2d 7371 . . . . 5 (𝑎 = 𝑏 → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))))
1211fveq2d 6835 . . . 4 (𝑎 = 𝑏 → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))))
13 sumeq1 15603 . . . 4 (𝑎 = 𝑏 → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
1412, 13eqeq12d 2749 . . 3 (𝑎 = 𝑏 → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))))
15 mpteq1 5184 . . . . . 6 (𝑎 = (𝑏 ∪ {𝑙}) → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))
1615oveq2d 7371 . . . . 5 (𝑎 = (𝑏 ∪ {𝑙}) → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘))))
1716fveq2d 6835 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))))
18 sumeq1 15603 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)))
1917, 18eqeq12d 2749 . . 3 (𝑎 = (𝑏 ∪ {𝑙}) → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
20 mpteq1 5184 . . . . . 6 (𝑎 = 𝐴 → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘𝐴 ↦ (𝐹𝑘)))
2120oveq2d 7371 . . . . 5 (𝑎 = 𝐴 → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘))))
2221fveq2d 6835 . . . 4 (𝑎 = 𝐴 → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))))
23 sumeq1 15603 . . . 4 (𝑎 = 𝐴 → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
2422, 23eqeq12d 2749 . . 3 (𝑎 = 𝐴 → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘))))
25 mpt0 6631 . . . . . . . . 9 (𝑘 ∈ ∅ ↦ (𝐹𝑘)) = ∅
2625oveq2i 7366 . . . . . . . 8 (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (𝑀 Σg ∅)
27 deg1prod.4 . . . . . . . . . 10 𝑀 = (mulGrp‘𝑃)
28 eqid 2733 . . . . . . . . . 10 (1r𝑃) = (1r𝑃)
2927, 28ringidval 20109 . . . . . . . . 9 (1r𝑃) = (0g𝑀)
3029gsum0 18600 . . . . . . . 8 (𝑀 Σg ∅) = (1r𝑃)
3126, 30eqtri 2756 . . . . . . 7 (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (1r𝑃)
3231a1i 11 . . . . . 6 (𝜑 → (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (1r𝑃))
3332fveq2d 6835 . . . . 5 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = (𝐷‘(1r𝑃)))
34 deg1prod.7 . . . . . . . 8 (𝜑𝑅 ∈ IDomn)
3534idomdomd 20650 . . . . . . 7 (𝜑𝑅 ∈ Domn)
36 domnring 20631 . . . . . . 7 (𝑅 ∈ Domn → 𝑅 ∈ Ring)
37 deg1prod.2 . . . . . . . 8 𝑃 = (Poly1𝑅)
38 eqid 2733 . . . . . . . 8 (algSc‘𝑃) = (algSc‘𝑃)
39 eqid 2733 . . . . . . . 8 (1r𝑅) = (1r𝑅)
4037, 38, 39, 28ply1scl1 22226 . . . . . . 7 (𝑅 ∈ Ring → ((algSc‘𝑃)‘(1r𝑅)) = (1r𝑃))
4135, 36, 403syl 18 . . . . . 6 (𝜑 → ((algSc‘𝑃)‘(1r𝑅)) = (1r𝑃))
4241fveq2d 6835 . . . . 5 (𝜑 → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = (𝐷‘(1r𝑃)))
4334idomringd 20652 . . . . . 6 (𝜑𝑅 ∈ Ring)
44 eqid 2733 . . . . . . 7 (Base‘𝑅) = (Base‘𝑅)
4544, 39, 43ringidcld 20192 . . . . . 6 (𝜑 → (1r𝑅) ∈ (Base‘𝑅))
46 domnnzr 20630 . . . . . . 7 (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
47 eqid 2733 . . . . . . . 8 (0g𝑅) = (0g𝑅)
4839, 47nzrnz 20439 . . . . . . 7 (𝑅 ∈ NzRing → (1r𝑅) ≠ (0g𝑅))
4935, 46, 483syl 18 . . . . . 6 (𝜑 → (1r𝑅) ≠ (0g𝑅))
50 deg1prod.1 . . . . . . 7 𝐷 = (deg1𝑅)
5150, 37, 44, 38, 47deg1scl 26065 . . . . . 6 ((𝑅 ∈ Ring ∧ (1r𝑅) ∈ (Base‘𝑅) ∧ (1r𝑅) ≠ (0g𝑅)) → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = 0)
5243, 45, 49, 51syl3anc 1373 . . . . 5 (𝜑 → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = 0)
5333, 42, 523eqtr2d 2774 . . . 4 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = 0)
54 sum0 15635 . . . 4 Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)) = 0
5553, 54eqtr4di 2786 . . 3 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)))
56 deg1prod.3 . . . . . . . . 9 𝐵 = (Base‘𝑃)
57 eqid 2733 . . . . . . . . 9 (.r𝑃) = (.r𝑃)
58 deg1prod.5 . . . . . . . . 9 0 = (0g𝑃)
5935ad2antrr 726 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑅 ∈ Domn)
6027, 56mgpbas 20071 . . . . . . . . . 10 𝐵 = (Base‘𝑀)
6137ply1idom 26077 . . . . . . . . . . . . . 14 (𝑅 ∈ IDomn → 𝑃 ∈ IDomn)
6234, 61syl 17 . . . . . . . . . . . . 13 (𝜑𝑃 ∈ IDomn)
6362idomcringd 20651 . . . . . . . . . . . 12 (𝜑𝑃 ∈ CRing)
6427crngmgp 20167 . . . . . . . . . . . 12 (𝑃 ∈ CRing → 𝑀 ∈ CMnd)
6563, 64syl 17 . . . . . . . . . . 11 (𝜑𝑀 ∈ CMnd)
6665ad2antrr 726 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑀 ∈ CMnd)
67 deg1prod.6 . . . . . . . . . . . 12 (𝜑𝐴 ∈ Fin)
6867ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝐴 ∈ Fin)
69 simplr 768 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑏𝐴)
7068, 69ssfid 9164 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑏 ∈ Fin)
711ad3antrrr 730 . . . . . . . . . . . . 13 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
7269sselda 3930 . . . . . . . . . . . . 13 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → 𝑘𝐴)
7371, 72ffvelcdmd 7027 . . . . . . . . . . . 12 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
7473eldifad 3910 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
7574ralrimiva 3125 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ∀𝑘𝑏 (𝐹𝑘) ∈ 𝐵)
7660, 66, 70, 75gsummptcl 19887 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ∈ 𝐵)
77 nfv 1915 . . . . . . . . . . . 12 𝑘(𝜑𝑏𝐴)
78 eqid 2733 . . . . . . . . . . . 12 (𝑘𝑏 ↦ (𝐹𝑘)) = (𝑘𝑏 ↦ (𝐹𝑘))
7958fvexi 6845 . . . . . . . . . . . . 13 0 ∈ V
8079a1i 11 . . . . . . . . . . . 12 ((𝜑𝑏𝐴) → 0 ∈ V)
811ad2antrr 726 . . . . . . . . . . . . . . 15 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
82 simpr 484 . . . . . . . . . . . . . . . 16 ((𝜑𝑏𝐴) → 𝑏𝐴)
8382sselda 3930 . . . . . . . . . . . . . . 15 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 𝑘𝐴)
8481, 83ffvelcdmd 7027 . . . . . . . . . . . . . 14 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
85 eldifsni 4743 . . . . . . . . . . . . . 14 ((𝐹𝑘) ∈ (𝐵 ∖ { 0 }) → (𝐹𝑘) ≠ 0 )
8684, 85syl 17 . . . . . . . . . . . . 13 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ≠ 0 )
8786necomd 2984 . . . . . . . . . . . 12 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 0 ≠ (𝐹𝑘))
8877, 78, 80, 87nelrnmpt 5913 . . . . . . . . . . 11 ((𝜑𝑏𝐴) → ¬ 0 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘)))
8962adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → 𝑃 ∈ IDomn)
9067adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑏𝐴) → 𝐴 ∈ Fin)
9190, 82ssfid 9164 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → 𝑏 ∈ Fin)
9284eldifad 3910 . . . . . . . . . . . . . 14 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
9392fmpttd 7057 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → (𝑘𝑏 ↦ (𝐹𝑘)):𝑏𝐵)
9427, 56, 58, 89, 91, 93domnprodeq0 33286 . . . . . . . . . . . 12 ((𝜑𝑏𝐴) → ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) = 00 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘))))
9594necon3abid 2965 . . . . . . . . . . 11 ((𝜑𝑏𝐴) → ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 ↔ ¬ 0 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘))))
9688, 95mpbird 257 . . . . . . . . . 10 ((𝜑𝑏𝐴) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 )
9796adantr 480 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 )
981ad2antrr 726 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
99 simpr 484 . . . . . . . . . . . 12 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑙 ∈ (𝐴𝑏))
10099eldifad 3910 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑙𝐴)
10198, 100ffvelcdmd 7027 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ∈ (𝐵 ∖ { 0 }))
102101eldifad 3910 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ∈ 𝐵)
103 eldifsni 4743 . . . . . . . . . 10 ((𝐹𝑙) ∈ (𝐵 ∖ { 0 }) → (𝐹𝑙) ≠ 0 )
104101, 103syl 17 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ≠ 0 )
10550, 37, 56, 57, 58, 59, 76, 97, 102, 104deg1mul 26067 . . . . . . . 8 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))) = ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))))
106105adantr 480 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))) = ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))))
107 simpr 484 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
108107oveq1d 7370 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))) = (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))))
109106, 108eqtr2d 2769 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
110 nfv 1915 . . . . . . . 8 𝑘((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏))
111 nfcv 2895 . . . . . . . . . 10 𝑘𝐷
112 nfcv 2895 . . . . . . . . . . 11 𝑘𝑀
113 nfcv 2895 . . . . . . . . . . 11 𝑘 Σg
114 nfmpt1 5194 . . . . . . . . . . 11 𝑘(𝑘𝑏 ↦ (𝐹𝑘))
115112, 113, 114nfov 7385 . . . . . . . . . 10 𝑘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))
116111, 115nffv 6841 . . . . . . . . 9 𝑘(𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))))
117 nfcv 2895 . . . . . . . . . 10 𝑘𝑏
118117nfsum1 15604 . . . . . . . . 9 𝑘Σ𝑘𝑏 (𝐷‘(𝐹𝑘))
119116, 118nfeq 2909 . . . . . . . 8 𝑘(𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))
120110, 119nfan 1900 . . . . . . 7 𝑘(((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
121 nfcv 2895 . . . . . . 7 𝑘(𝐷‘(𝐹𝑙))
12267ad3antrrr 730 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝐴 ∈ Fin)
123 simpllr 775 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑏𝐴)
124122, 123ssfid 9164 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑏 ∈ Fin)
125 simplr 768 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑙 ∈ (𝐴𝑏))
126125eldifbd 3911 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → ¬ 𝑙𝑏)
12743ad4antr 732 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝑅 ∈ Ring)
1281ad4antr 732 . . . . . . . . . . 11 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
129123sselda 3930 . . . . . . . . . . 11 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝑘𝐴)
130128, 129ffvelcdmd 7027 . . . . . . . . . 10 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
131130eldifad 3910 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
132130, 85syl 17 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ≠ 0 )
13350, 37, 58, 56deg1nn0cl 26040 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝐹𝑘) ∈ 𝐵 ∧ (𝐹𝑘) ≠ 0 ) → (𝐷‘(𝐹𝑘)) ∈ ℕ0)
134127, 131, 132, 133syl3anc 1373 . . . . . . . 8 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐷‘(𝐹𝑘)) ∈ ℕ0)
135134nn0cnd 12455 . . . . . . 7 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐷‘(𝐹𝑘)) ∈ ℂ)
136 2fveq3 6836 . . . . . . 7 (𝑘 = 𝑙 → (𝐷‘(𝐹𝑘)) = (𝐷‘(𝐹𝑙)))
13743ad3antrrr 730 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑅 ∈ Ring)
1381ad3antrrr 730 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
139125eldifad 3910 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑙𝐴)
140138, 139ffvelcdmd 7027 . . . . . . . . . 10 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ∈ (𝐵 ∖ { 0 }))
141140eldifad 3910 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ∈ 𝐵)
142140, 103syl 17 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ≠ 0 )
14350, 37, 58, 56deg1nn0cl 26040 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝐹𝑙) ∈ 𝐵 ∧ (𝐹𝑙) ≠ 0 ) → (𝐷‘(𝐹𝑙)) ∈ ℕ0)
144137, 141, 142, 143syl3anc 1373 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝐹𝑙)) ∈ ℕ0)
145144nn0cnd 12455 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝐹𝑙)) ∈ ℂ)
146120, 121, 124, 125, 126, 135, 136, 145fsumsplitsn 15658 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)) = (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))))
14727, 57mgpplusg 20070 . . . . . . . . 9 (.r𝑃) = (+g𝑀)
14899eldifbd 3911 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ¬ 𝑙𝑏)
149 fveq2 6831 . . . . . . . . 9 (𝑘 = 𝑙 → (𝐹𝑘) = (𝐹𝑙))
15060, 147, 66, 70, 74, 99, 148, 102, 149gsumunsn 19880 . . . . . . . 8 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘))) = ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙)))
151150fveq2d 6835 . . . . . . 7 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
152151adantr 480 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
153109, 146, 1523eqtr4rd 2779 . . . . 5 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)))
154153ex 412 . . . 4 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
155154anasss 466 . . 3 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
1569, 14, 19, 24, 55, 155, 67findcard2d 9087 . 2 (𝜑 → (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
1574, 156eqtrd 2768 1 (𝜑 → (𝐷‘(𝑀 Σg 𝐹)) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395   = wceq 1541  wcel 2113  wne 2929  Vcvv 3437  cdif 3895  cun 3896  wss 3898  c0 4282  {csn 4577  cmpt 5176  ran crn 5622  wf 6485  cfv 6489  (class class class)co 7355  Fincfn 8879  0cc0 11017   + caddc 11020  0cn0 12392  Σcsu 15600  Basecbs 17127  .rcmulr 17169  0gc0g 17350   Σg cgsu 17351  CMndccmn 19700  mulGrpcmgp 20066  1rcur 20107  Ringcrg 20159  CRingccrg 20160  NzRingcnzr 20436  Domncdomn 20616  IDomncidom 20617  algSccascl 21798  Poly1cpl1 22108  deg1cdg1 26006
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 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7677  ax-inf2 9542  ax-cnex 11073  ax-resscn 11074  ax-1cn 11075  ax-icn 11076  ax-addcl 11077  ax-addrcl 11078  ax-mulcl 11079  ax-mulrcl 11080  ax-mulcom 11081  ax-addass 11082  ax-mulass 11083  ax-distr 11084  ax-i2m1 11085  ax-1ne0 11086  ax-1rid 11087  ax-rnegex 11088  ax-rrecex 11089  ax-cnre 11090  ax-pre-lttri 11091  ax-pre-lttrn 11092  ax-pre-ltadd 11093  ax-pre-mulgt0 11094  ax-pre-sup 11095  ax-addf 11096
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-nel 3034  df-ral 3049  df-rex 3058  df-rmo 3347  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4283  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-tp 4582  df-op 4584  df-uni 4861  df-int 4900  df-iun 4945  df-iin 4946  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5516  df-eprel 5521  df-po 5529  df-so 5530  df-fr 5574  df-se 5575  df-we 5576  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-pred 6256  df-ord 6317  df-on 6318  df-lim 6319  df-suc 6320  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-isom 6498  df-riota 7312  df-ov 7358  df-oprab 7359  df-mpo 7360  df-of 7619  df-ofr 7620  df-om 7806  df-1st 7930  df-2nd 7931  df-supp 8100  df-frecs 8220  df-wrecs 8251  df-recs 8300  df-rdg 8338  df-1o 8394  df-2o 8395  df-er 8631  df-map 8761  df-pm 8762  df-ixp 8832  df-en 8880  df-dom 8881  df-sdom 8882  df-fin 8883  df-fsupp 9257  df-sup 9337  df-oi 9407  df-card 9843  df-pnf 11159  df-mnf 11160  df-xr 11161  df-ltxr 11162  df-le 11163  df-sub 11357  df-neg 11358  df-div 11786  df-nn 12137  df-2 12199  df-3 12200  df-4 12201  df-5 12202  df-6 12203  df-7 12204  df-8 12205  df-9 12206  df-n0 12393  df-z 12480  df-dec 12599  df-uz 12743  df-rp 12897  df-fz 13415  df-fzo 13562  df-seq 13916  df-exp 13976  df-hash 14245  df-cj 15013  df-re 15014  df-im 15015  df-sqrt 15149  df-abs 15150  df-clim 15402  df-sum 15601  df-struct 17065  df-sets 17082  df-slot 17100  df-ndx 17112  df-base 17128  df-ress 17149  df-plusg 17181  df-mulr 17182  df-starv 17183  df-sca 17184  df-vsca 17185  df-ip 17186  df-tset 17187  df-ple 17188  df-ds 17190  df-unif 17191  df-hom 17192  df-cco 17193  df-0g 17352  df-gsum 17353  df-prds 17358  df-pws 17360  df-mre 17496  df-mrc 17497  df-acs 17499  df-mgm 18556  df-sgrp 18635  df-mnd 18651  df-mhm 18699  df-submnd 18700  df-grp 18857  df-minusg 18858  df-sbg 18859  df-mulg 18989  df-subg 19044  df-ghm 19133  df-cntz 19237  df-cmn 19702  df-abl 19703  df-mgp 20067  df-rng 20079  df-ur 20108  df-ring 20161  df-cring 20162  df-nzr 20437  df-subrng 20470  df-subrg 20494  df-rlreg 20618  df-domn 20619  df-idom 20620  df-lmod 20804  df-lss 20874  df-cnfld 21301  df-ascl 21801  df-psr 21856  df-mvr 21857  df-mpl 21858  df-opsr 21860  df-psr1 22111  df-vr1 22112  df-ply1 22113  df-coe1 22114  df-mdeg 26007  df-deg1 26008
This theorem is referenced by:  vietadeg1  33662
  Copyright terms: Public domain W3C validator