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 33814
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 6947 . . . 4 (𝜑𝐹 = (𝑘𝐴 ↦ (𝐹𝑘)))
32oveq2d 7424 . . 3 (𝜑 → (𝑀 Σg 𝐹) = (𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘))))
43fveq2d 6883 . 2 (𝜑 → (𝐷‘(𝑀 Σg 𝐹)) = (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))))
5 mpteq1 5201 . . . . . 6 (𝑎 = ∅ → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘 ∈ ∅ ↦ (𝐹𝑘)))
65oveq2d 7424 . . . . 5 (𝑎 = ∅ → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))))
76fveq2d 6883 . . . 4 (𝑎 = ∅ → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))))
8 sumeq1 15736 . . . 4 (𝑎 = ∅ → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)))
97, 8eqeq12d 2785 . . 3 (𝑎 = ∅ → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘))))
10 mpteq1 5201 . . . . . 6 (𝑎 = 𝑏 → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘𝑏 ↦ (𝐹𝑘)))
1110oveq2d 7424 . . . . 5 (𝑎 = 𝑏 → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))))
1211fveq2d 6883 . . . 4 (𝑎 = 𝑏 → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))))
13 sumeq1 15736 . . . 4 (𝑎 = 𝑏 → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
1412, 13eqeq12d 2785 . . 3 (𝑎 = 𝑏 → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))))
15 mpteq1 5201 . . . . . 6 (𝑎 = (𝑏 ∪ {𝑙}) → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))
1615oveq2d 7424 . . . . 5 (𝑎 = (𝑏 ∪ {𝑙}) → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘))))
1716fveq2d 6883 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))))
18 sumeq1 15736 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)))
1917, 18eqeq12d 2785 . . 3 (𝑎 = (𝑏 ∪ {𝑙}) → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
20 mpteq1 5201 . . . . . 6 (𝑎 = 𝐴 → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘𝐴 ↦ (𝐹𝑘)))
2120oveq2d 7424 . . . . 5 (𝑎 = 𝐴 → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘))))
2221fveq2d 6883 . . . 4 (𝑎 = 𝐴 → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))))
23 sumeq1 15736 . . . 4 (𝑎 = 𝐴 → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
2422, 23eqeq12d 2785 . . 3 (𝑎 = 𝐴 → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘))))
25 mpt0 6675 . . . . . . . . 9 (𝑘 ∈ ∅ ↦ (𝐹𝑘)) = ∅
2625oveq2i 7419 . . . . . . . 8 (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (𝑀 Σg ∅)
27 deg1prod.4 . . . . . . . . . 10 𝑀 = (mulGrp‘𝑃)
28 eqid 2769 . . . . . . . . . 10 (1r𝑃) = (1r𝑃)
2927, 28ringidval 20261 . . . . . . . . 9 (1r𝑃) = (0g𝑀)
3029gsum0 18738 . . . . . . . 8 (𝑀 Σg ∅) = (1r𝑃)
3126, 30eqtri 2792 . . . . . . 7 (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (1r𝑃)
3231a1i 11 . . . . . 6 (𝜑 → (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (1r𝑃))
3332fveq2d 6883 . . . . 5 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = (𝐷‘(1r𝑃)))
34 deg1prod.7 . . . . . . . 8 (𝜑𝑅 ∈ IDomn)
3534idomdomd 20806 . . . . . . 7 (𝜑𝑅 ∈ Domn)
36 domnring 20788 . . . . . . 7 (𝑅 ∈ Domn → 𝑅 ∈ Ring)
37 deg1prod.2 . . . . . . . 8 𝑃 = (Poly1𝑅)
38 eqid 2769 . . . . . . . 8 (algSc‘𝑃) = (algSc‘𝑃)
39 eqid 2769 . . . . . . . 8 (1r𝑅) = (1r𝑅)
4037, 38, 39, 28ply1scl1 22418 . . . . . . 7 (𝑅 ∈ Ring → ((algSc‘𝑃)‘(1r𝑅)) = (1r𝑃))
4135, 36, 403syl 19 . . . . . 6 (𝜑 → ((algSc‘𝑃)‘(1r𝑅)) = (1r𝑃))
4241fveq2d 6883 . . . . 5 (𝜑 → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = (𝐷‘(1r𝑃)))
4334idomringd 20808 . . . . . 6 (𝜑𝑅 ∈ Ring)
44 eqid 2769 . . . . . . 7 (Base‘𝑅) = (Base‘𝑅)
4544, 39, 43ringidcld 20345 . . . . . 6 (𝜑 → (1r𝑅) ∈ (Base‘𝑅))
46 domnnzr 20787 . . . . . . 7 (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
47 eqid 2769 . . . . . . . 8 (0g𝑅) = (0g𝑅)
4839, 47nzrnz 20594 . . . . . . 7 (𝑅 ∈ NzRing → (1r𝑅) ≠ (0g𝑅))
4935, 46, 483syl 19 . . . . . 6 (𝜑 → (1r𝑅) ≠ (0g𝑅))
50 deg1prod.1 . . . . . . 7 𝐷 = (deg1𝑅)
5150, 37, 44, 38, 47deg1scl 26235 . . . . . 6 ((𝑅 ∈ Ring ∧ (1r𝑅) ∈ (Base‘𝑅) ∧ (1r𝑅) ≠ (0g𝑅)) → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = 0)
5243, 45, 49, 51syl3anc 1396 . . . . 5 (𝜑 → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = 0)
5333, 42, 523eqtr2d 2810 . . . 4 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = 0)
54 sum0 15768 . . . 4 Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)) = 0
5553, 54eqtr4di 2822 . . 3 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)))
56 deg1prod.3 . . . . . . . . 9 𝐵 = (Base‘𝑃)
57 eqid 2769 . . . . . . . . 9 (.r𝑃) = (.r𝑃)
58 deg1prod.5 . . . . . . . . 9 0 = (0g𝑃)
5935ad2antrr 738 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑅 ∈ Domn)
6027, 56mgpbas 20217 . . . . . . . . . 10 𝐵 = (Base‘𝑀)
6137ply1idom 26247 . . . . . . . . . . . . . 14 (𝑅 ∈ IDomn → 𝑃 ∈ IDomn)
6234, 61syl 18 . . . . . . . . . . . . 13 (𝜑𝑃 ∈ IDomn)
6362idomcringd 20807 . . . . . . . . . . . 12 (𝜑𝑃 ∈ CRing)
6427crngmgp 20319 . . . . . . . . . . . 12 (𝑃 ∈ CRing → 𝑀 ∈ CMnd)
6563, 64syl 18 . . . . . . . . . . 11 (𝜑𝑀 ∈ CMnd)
6665ad2antrr 738 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑀 ∈ CMnd)
67 deg1prod.6 . . . . . . . . . . . 12 (𝜑𝐴 ∈ Fin)
6867ad2antrr 738 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝐴 ∈ Fin)
69 simplr 780 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑏𝐴)
7068, 69ssfid 9225 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑏 ∈ Fin)
711ad3antrrr 742 . . . . . . . . . . . . 13 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
7269sselda 3945 . . . . . . . . . . . . 13 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → 𝑘𝐴)
7371, 72ffvelcdmd 7078 . . . . . . . . . . . 12 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
7473eldifad 3925 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
7574ralrimiva 3163 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ∀𝑘𝑏 (𝐹𝑘) ∈ 𝐵)
7660, 66, 70, 75gsummptcl 20033 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ∈ 𝐵)
77 nfv 1941 . . . . . . . . . . . 12 𝑘(𝜑𝑏𝐴)
78 eqid 2769 . . . . . . . . . . . 12 (𝑘𝑏 ↦ (𝐹𝑘)) = (𝑘𝑏 ↦ (𝐹𝑘))
7958fvexi 6893 . . . . . . . . . . . . 13 0 ∈ V
8079a1i 11 . . . . . . . . . . . 12 ((𝜑𝑏𝐴) → 0 ∈ V)
811ad2antrr 738 . . . . . . . . . . . . . . 15 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
82 simpr 489 . . . . . . . . . . . . . . . 16 ((𝜑𝑏𝐴) → 𝑏𝐴)
8382sselda 3945 . . . . . . . . . . . . . . 15 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 𝑘𝐴)
8481, 83ffvelcdmd 7078 . . . . . . . . . . . . . 14 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
85 eldifsni 4759 . . . . . . . . . . . . . 14 ((𝐹𝑘) ∈ (𝐵 ∖ { 0 }) → (𝐹𝑘) ≠ 0 )
8684, 85syl 18 . . . . . . . . . . . . 13 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ≠ 0 )
8786necomd 3019 . . . . . . . . . . . 12 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 0 ≠ (𝐹𝑘))
8877, 78, 80, 87nelrnmpt 5955 . . . . . . . . . . 11 ((𝜑𝑏𝐴) → ¬ 0 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘)))
8962adantr 485 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → 𝑃 ∈ IDomn)
9067adantr 485 . . . . . . . . . . . . . 14 ((𝜑𝑏𝐴) → 𝐴 ∈ Fin)
9190, 82ssfid 9225 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → 𝑏 ∈ Fin)
9284eldifad 3925 . . . . . . . . . . . . . 14 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
9392fmpttd 7108 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → (𝑘𝑏 ↦ (𝐹𝑘)):𝑏𝐵)
9427, 56, 58, 89, 91, 93domnprodeq0 33536 . . . . . . . . . . . 12 ((𝜑𝑏𝐴) → ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) = 00 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘))))
9594necon3abid 3000 . . . . . . . . . . 11 ((𝜑𝑏𝐴) → ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 ↔ ¬ 0 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘))))
9688, 95mpbird 260 . . . . . . . . . 10 ((𝜑𝑏𝐴) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 )
9796adantr 485 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 )
981ad2antrr 738 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
99 simpr 489 . . . . . . . . . . . 12 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑙 ∈ (𝐴𝑏))
10099eldifad 3925 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑙𝐴)
10198, 100ffvelcdmd 7078 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ∈ (𝐵 ∖ { 0 }))
102101eldifad 3925 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ∈ 𝐵)
103 eldifsni 4759 . . . . . . . . . 10 ((𝐹𝑙) ∈ (𝐵 ∖ { 0 }) → (𝐹𝑙) ≠ 0 )
104101, 103syl 18 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ≠ 0 )
10550, 37, 56, 57, 58, 59, 76, 97, 102, 104deg1mul 26237 . . . . . . . 8 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))) = ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))))
106105adantr 485 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))) = ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))))
107 simpr 489 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
108107oveq1d 7423 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))) = (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))))
109106, 108eqtr2d 2805 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
110 nfv 1941 . . . . . . . 8 𝑘((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏))
111 nfcv 2931 . . . . . . . . . 10 𝑘𝐷
112 nfcv 2931 . . . . . . . . . . 11 𝑘𝑀
113 nfcv 2931 . . . . . . . . . . 11 𝑘 Σg
114 nfmpt1 5211 . . . . . . . . . . 11 𝑘(𝑘𝑏 ↦ (𝐹𝑘))
115112, 113, 114nfov 7438 . . . . . . . . . 10 𝑘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))
116111, 115nffv 6889 . . . . . . . . 9 𝑘(𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))))
117 nfcv 2931 . . . . . . . . . 10 𝑘𝑏
118117nfsum1 15737 . . . . . . . . 9 𝑘Σ𝑘𝑏 (𝐷‘(𝐹𝑘))
119116, 118nfeq 2944 . . . . . . . 8 𝑘(𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))
120110, 119nfan 1926 . . . . . . 7 𝑘(((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
121 nfcv 2931 . . . . . . 7 𝑘(𝐷‘(𝐹𝑙))
12267ad3antrrr 742 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝐴 ∈ Fin)
123 simpllr 787 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑏𝐴)
124122, 123ssfid 9225 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑏 ∈ Fin)
125 simplr 780 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑙 ∈ (𝐴𝑏))
126125eldifbd 3926 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → ¬ 𝑙𝑏)
12743ad4antr 744 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝑅 ∈ Ring)
1281ad4antr 744 . . . . . . . . . . 11 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
129123sselda 3945 . . . . . . . . . . 11 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝑘𝐴)
130128, 129ffvelcdmd 7078 . . . . . . . . . 10 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
131130eldifad 3925 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
132130, 85syl 18 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ≠ 0 )
13350, 37, 58, 56deg1nn0cl 26210 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝐹𝑘) ∈ 𝐵 ∧ (𝐹𝑘) ≠ 0 ) → (𝐷‘(𝐹𝑘)) ∈ ℕ0)
134127, 131, 132, 133syl3anc 1396 . . . . . . . 8 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐷‘(𝐹𝑘)) ∈ ℕ0)
135134nn0cnd 12563 . . . . . . 7 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐷‘(𝐹𝑘)) ∈ ℂ)
136 2fveq3 6884 . . . . . . 7 (𝑘 = 𝑙 → (𝐷‘(𝐹𝑘)) = (𝐷‘(𝐹𝑙)))
13743ad3antrrr 742 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑅 ∈ Ring)
1381ad3antrrr 742 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
139125eldifad 3925 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑙𝐴)
140138, 139ffvelcdmd 7078 . . . . . . . . . 10 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ∈ (𝐵 ∖ { 0 }))
141140eldifad 3925 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ∈ 𝐵)
142140, 103syl 18 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ≠ 0 )
14350, 37, 58, 56deg1nn0cl 26210 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝐹𝑙) ∈ 𝐵 ∧ (𝐹𝑙) ≠ 0 ) → (𝐷‘(𝐹𝑙)) ∈ ℕ0)
144137, 141, 142, 143syl3anc 1396 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝐹𝑙)) ∈ ℕ0)
145144nn0cnd 12563 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝐹𝑙)) ∈ ℂ)
146120, 121, 124, 125, 126, 135, 136, 145fsumsplitsn 15791 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)) = (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))))
14727, 57mgpplusg 20216 . . . . . . . . 9 (.r𝑃) = (+g𝑀)
14899eldifbd 3926 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ¬ 𝑙𝑏)
149 fveq2 6879 . . . . . . . . 9 (𝑘 = 𝑙 → (𝐹𝑘) = (𝐹𝑙))
15060, 147, 66, 70, 74, 99, 148, 102, 149gsumunsn 20026 . . . . . . . 8 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘))) = ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙)))
151150fveq2d 6883 . . . . . . 7 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
152151adantr 485 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
153109, 146, 1523eqtr4rd 2815 . . . . 5 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)))
154153ex 417 . . . 4 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
155154anasss 471 . . 3 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
1569, 14, 19, 24, 55, 155, 67findcard2d 9147 . 2 (𝜑 → (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
1574, 156eqtrd 2804 1 (𝜑 → (𝐷‘(𝑀 Σg 𝐹)) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 400   = wceq 1567  wcel 2149  wne 2964  Vcvv 3463  cdif 3910  cun 3911  wss 3913  c0 4294  {csn 4591  cmpt 5193  ran crn 5660  wf 6529  cfv 6533  (class class class)co 7408  Fincfn 8939  0cc0 11096   + caddc 11099  0cn0 12500  Σcsu 15733  Basecbs 17265  .rcmulr 17307  0gc0g 17488   Σg cgsu 17489  CMndccmn 19846  mulGrpcmgp 20212  1rcur 20259  Ringcrg 20311  CRingccrg 20312  NzRingcnzr 20591  Domncdomn 20773  IDomncidom 20774  algSccascl 21967  Poly1cpl1 22302  deg1cdg1 26176
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5239  ax-sep 5258  ax-nul 5268  ax-pow 5334  ax-pr 5402  ax-un 7730  ax-inf2 9606  ax-cnex 11152  ax-resscn 11153  ax-1cn 11154  ax-icn 11155  ax-addcl 11156  ax-addrcl 11157  ax-mulcl 11158  ax-mulrcl 11159  ax-mulcom 11160  ax-addass 11161  ax-mulass 11162  ax-distr 11163  ax-i2m1 11164  ax-1ne0 11165  ax-1rid 11166  ax-rnegex 11167  ax-rrecex 11168  ax-cnre 11169  ax-pre-lttri 11170  ax-pre-lttrn 11171  ax-pre-ltadd 11172  ax-pre-mulgt0 11173  ax-pre-sup 11174  ax-addf 11175
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4874  df-int 4914  df-iun 4959  df-iin 4960  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-se 5613  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-of 7672  df-ofr 7673  df-om 7859  df-1st 7982  df-2nd 7983  df-supp 8153  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-2o 8450  df-er 8690  df-map 8822  df-pm 8823  df-ixp 8892  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-fsupp 9318  df-sup 9398  df-oi 9468  df-card 9921  df-pnf 11241  df-mnf 11242  df-xr 11243  df-ltxr 11244  df-le 11245  df-sub 11439  df-neg 11440  df-div 11868  df-nn 12230  df-2 12299  df-3 12300  df-4 12301  df-5 12302  df-6 12303  df-7 12304  df-8 12305  df-9 12306  df-n0 12501  df-z 12588  df-dec 12708  df-uz 12859  df-rp 13013  df-fz 13532  df-fzo 13679  df-seq 14034  df-exp 14094  df-hash 14363  df-cj 15146  df-re 15147  df-im 15148  df-sqrt 15282  df-abs 15283  df-clim 15535  df-sum 15734  df-struct 17203  df-sets 17220  df-slot 17238  df-ndx 17250  df-base 17266  df-ress 17287  df-plusg 17319  df-mulr 17320  df-starv 17321  df-sca 17322  df-vsca 17323  df-ip 17324  df-tset 17325  df-ple 17326  df-ds 17328  df-unif 17329  df-hom 17330  df-cco 17331  df-0g 17490  df-gsum 17491  df-prds 17496  df-pws 17498  df-mre 17634  df-mrc 17635  df-acs 17637  df-mgm 18694  df-sgrp 18773  df-mnd 18789  df-mhm 18837  df-submnd 18838  df-grp 18999  df-minusg 19000  df-sbg 19001  df-mulg 19130  df-subg 19185  df-ghm 19280  df-cntz 19383  df-cmn 19848  df-abl 19849  df-mgp 20213  df-rng 20227  df-ur 20260  df-ring 20313  df-cring 20314  df-nzr 20592  df-subrng 20627  df-subrg 20651  df-rlreg 20775  df-domn 20776  df-idom 20777  df-lmod 20957  df-lss 21027  df-cnfld 21488  df-ascl 21970  df-psr 22024  df-mvr 22025  df-mpl 22026  df-opsr 22028  df-psr1 22305  df-vr1 22306  df-ply1 22307  df-coe1 22308  df-mdeg 26177  df-deg1 26178
This theorem is referenced by:  vietadeg1  33909
  Copyright terms: Public domain W3C validator