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 33658
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 6902 . . . 4 (𝜑𝐹 = (𝑘𝐴 ↦ (𝐹𝑘)))
32oveq2d 7376 . . 3 (𝜑 → (𝑀 Σg 𝐹) = (𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘))))
43fveq2d 6838 . 2 (𝜑 → (𝐷‘(𝑀 Σg 𝐹)) = (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))))
5 mpteq1 5175 . . . . . 6 (𝑎 = ∅ → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘 ∈ ∅ ↦ (𝐹𝑘)))
65oveq2d 7376 . . . . 5 (𝑎 = ∅ → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))))
76fveq2d 6838 . . . 4 (𝑎 = ∅ → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))))
8 sumeq1 15642 . . . 4 (𝑎 = ∅ → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)))
97, 8eqeq12d 2753 . . 3 (𝑎 = ∅ → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘))))
10 mpteq1 5175 . . . . . 6 (𝑎 = 𝑏 → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘𝑏 ↦ (𝐹𝑘)))
1110oveq2d 7376 . . . . 5 (𝑎 = 𝑏 → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))))
1211fveq2d 6838 . . . 4 (𝑎 = 𝑏 → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))))
13 sumeq1 15642 . . . 4 (𝑎 = 𝑏 → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
1412, 13eqeq12d 2753 . . 3 (𝑎 = 𝑏 → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))))
15 mpteq1 5175 . . . . . 6 (𝑎 = (𝑏 ∪ {𝑙}) → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))
1615oveq2d 7376 . . . . 5 (𝑎 = (𝑏 ∪ {𝑙}) → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘))))
1716fveq2d 6838 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))))
18 sumeq1 15642 . . . 4 (𝑎 = (𝑏 ∪ {𝑙}) → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)))
1917, 18eqeq12d 2753 . . 3 (𝑎 = (𝑏 ∪ {𝑙}) → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
20 mpteq1 5175 . . . . . 6 (𝑎 = 𝐴 → (𝑘𝑎 ↦ (𝐹𝑘)) = (𝑘𝐴 ↦ (𝐹𝑘)))
2120oveq2d 7376 . . . . 5 (𝑎 = 𝐴 → (𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘))) = (𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘))))
2221fveq2d 6838 . . . 4 (𝑎 = 𝐴 → (𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))))
23 sumeq1 15642 . . . 4 (𝑎 = 𝐴 → Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
2422, 23eqeq12d 2753 . . 3 (𝑎 = 𝐴 → ((𝐷‘(𝑀 Σg (𝑘𝑎 ↦ (𝐹𝑘)))) = Σ𝑘𝑎 (𝐷‘(𝐹𝑘)) ↔ (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘))))
25 mpt0 6634 . . . . . . . . 9 (𝑘 ∈ ∅ ↦ (𝐹𝑘)) = ∅
2625oveq2i 7371 . . . . . . . 8 (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (𝑀 Σg ∅)
27 deg1prod.4 . . . . . . . . . 10 𝑀 = (mulGrp‘𝑃)
28 eqid 2737 . . . . . . . . . 10 (1r𝑃) = (1r𝑃)
2927, 28ringidval 20155 . . . . . . . . 9 (1r𝑃) = (0g𝑀)
3029gsum0 18643 . . . . . . . 8 (𝑀 Σg ∅) = (1r𝑃)
3126, 30eqtri 2760 . . . . . . 7 (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (1r𝑃)
3231a1i 11 . . . . . 6 (𝜑 → (𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘))) = (1r𝑃))
3332fveq2d 6838 . . . . 5 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = (𝐷‘(1r𝑃)))
34 deg1prod.7 . . . . . . . 8 (𝜑𝑅 ∈ IDomn)
3534idomdomd 20694 . . . . . . 7 (𝜑𝑅 ∈ Domn)
36 domnring 20675 . . . . . . 7 (𝑅 ∈ Domn → 𝑅 ∈ Ring)
37 deg1prod.2 . . . . . . . 8 𝑃 = (Poly1𝑅)
38 eqid 2737 . . . . . . . 8 (algSc‘𝑃) = (algSc‘𝑃)
39 eqid 2737 . . . . . . . 8 (1r𝑅) = (1r𝑅)
4037, 38, 39, 28ply1scl1 22267 . . . . . . 7 (𝑅 ∈ Ring → ((algSc‘𝑃)‘(1r𝑅)) = (1r𝑃))
4135, 36, 403syl 18 . . . . . 6 (𝜑 → ((algSc‘𝑃)‘(1r𝑅)) = (1r𝑃))
4241fveq2d 6838 . . . . 5 (𝜑 → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = (𝐷‘(1r𝑃)))
4334idomringd 20696 . . . . . 6 (𝜑𝑅 ∈ Ring)
44 eqid 2737 . . . . . . 7 (Base‘𝑅) = (Base‘𝑅)
4544, 39, 43ringidcld 20238 . . . . . 6 (𝜑 → (1r𝑅) ∈ (Base‘𝑅))
46 domnnzr 20674 . . . . . . 7 (𝑅 ∈ Domn → 𝑅 ∈ NzRing)
47 eqid 2737 . . . . . . . 8 (0g𝑅) = (0g𝑅)
4839, 47nzrnz 20483 . . . . . . 7 (𝑅 ∈ NzRing → (1r𝑅) ≠ (0g𝑅))
4935, 46, 483syl 18 . . . . . 6 (𝜑 → (1r𝑅) ≠ (0g𝑅))
50 deg1prod.1 . . . . . . 7 𝐷 = (deg1𝑅)
5150, 37, 44, 38, 47deg1scl 26088 . . . . . 6 ((𝑅 ∈ Ring ∧ (1r𝑅) ∈ (Base‘𝑅) ∧ (1r𝑅) ≠ (0g𝑅)) → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = 0)
5243, 45, 49, 51syl3anc 1374 . . . . 5 (𝜑 → (𝐷‘((algSc‘𝑃)‘(1r𝑅))) = 0)
5333, 42, 523eqtr2d 2778 . . . 4 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = 0)
54 sum0 15674 . . . 4 Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)) = 0
5553, 54eqtr4di 2790 . . 3 (𝜑 → (𝐷‘(𝑀 Σg (𝑘 ∈ ∅ ↦ (𝐹𝑘)))) = Σ𝑘 ∈ ∅ (𝐷‘(𝐹𝑘)))
56 deg1prod.3 . . . . . . . . 9 𝐵 = (Base‘𝑃)
57 eqid 2737 . . . . . . . . 9 (.r𝑃) = (.r𝑃)
58 deg1prod.5 . . . . . . . . 9 0 = (0g𝑃)
5935ad2antrr 727 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑅 ∈ Domn)
6027, 56mgpbas 20117 . . . . . . . . . 10 𝐵 = (Base‘𝑀)
6137ply1idom 26100 . . . . . . . . . . . . . 14 (𝑅 ∈ IDomn → 𝑃 ∈ IDomn)
6234, 61syl 17 . . . . . . . . . . . . 13 (𝜑𝑃 ∈ IDomn)
6362idomcringd 20695 . . . . . . . . . . . 12 (𝜑𝑃 ∈ CRing)
6427crngmgp 20213 . . . . . . . . . . . 12 (𝑃 ∈ CRing → 𝑀 ∈ CMnd)
6563, 64syl 17 . . . . . . . . . . 11 (𝜑𝑀 ∈ CMnd)
6665ad2antrr 727 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑀 ∈ CMnd)
67 deg1prod.6 . . . . . . . . . . . 12 (𝜑𝐴 ∈ Fin)
6867ad2antrr 727 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝐴 ∈ Fin)
69 simplr 769 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑏𝐴)
7068, 69ssfid 9172 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑏 ∈ Fin)
711ad3antrrr 731 . . . . . . . . . . . . 13 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
7269sselda 3922 . . . . . . . . . . . . 13 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → 𝑘𝐴)
7371, 72ffvelcdmd 7031 . . . . . . . . . . . 12 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
7473eldifad 3902 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
7574ralrimiva 3130 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ∀𝑘𝑏 (𝐹𝑘) ∈ 𝐵)
7660, 66, 70, 75gsummptcl 19933 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ∈ 𝐵)
77 nfv 1916 . . . . . . . . . . . 12 𝑘(𝜑𝑏𝐴)
78 eqid 2737 . . . . . . . . . . . 12 (𝑘𝑏 ↦ (𝐹𝑘)) = (𝑘𝑏 ↦ (𝐹𝑘))
7958fvexi 6848 . . . . . . . . . . . . 13 0 ∈ V
8079a1i 11 . . . . . . . . . . . 12 ((𝜑𝑏𝐴) → 0 ∈ V)
811ad2antrr 727 . . . . . . . . . . . . . . 15 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
82 simpr 484 . . . . . . . . . . . . . . . 16 ((𝜑𝑏𝐴) → 𝑏𝐴)
8382sselda 3922 . . . . . . . . . . . . . . 15 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 𝑘𝐴)
8481, 83ffvelcdmd 7031 . . . . . . . . . . . . . 14 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
85 eldifsni 4734 . . . . . . . . . . . . . 14 ((𝐹𝑘) ∈ (𝐵 ∖ { 0 }) → (𝐹𝑘) ≠ 0 )
8684, 85syl 17 . . . . . . . . . . . . 13 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ≠ 0 )
8786necomd 2988 . . . . . . . . . . . 12 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → 0 ≠ (𝐹𝑘))
8877, 78, 80, 87nelrnmpt 5916 . . . . . . . . . . 11 ((𝜑𝑏𝐴) → ¬ 0 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘)))
8962adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → 𝑃 ∈ IDomn)
9067adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑏𝐴) → 𝐴 ∈ Fin)
9190, 82ssfid 9172 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → 𝑏 ∈ Fin)
9284eldifad 3902 . . . . . . . . . . . . . 14 (((𝜑𝑏𝐴) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
9392fmpttd 7061 . . . . . . . . . . . . 13 ((𝜑𝑏𝐴) → (𝑘𝑏 ↦ (𝐹𝑘)):𝑏𝐵)
9427, 56, 58, 89, 91, 93domnprodeq0 33352 . . . . . . . . . . . 12 ((𝜑𝑏𝐴) → ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) = 00 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘))))
9594necon3abid 2969 . . . . . . . . . . 11 ((𝜑𝑏𝐴) → ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 ↔ ¬ 0 ∈ ran (𝑘𝑏 ↦ (𝐹𝑘))))
9688, 95mpbird 257 . . . . . . . . . 10 ((𝜑𝑏𝐴) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 )
9796adantr 480 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))) ≠ 0 )
981ad2antrr 727 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
99 simpr 484 . . . . . . . . . . . 12 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑙 ∈ (𝐴𝑏))
10099eldifad 3902 . . . . . . . . . . 11 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → 𝑙𝐴)
10198, 100ffvelcdmd 7031 . . . . . . . . . 10 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ∈ (𝐵 ∖ { 0 }))
102101eldifad 3902 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ∈ 𝐵)
103 eldifsni 4734 . . . . . . . . . 10 ((𝐹𝑙) ∈ (𝐵 ∖ { 0 }) → (𝐹𝑙) ≠ 0 )
104101, 103syl 17 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐹𝑙) ≠ 0 )
10550, 37, 56, 57, 58, 59, 76, 97, 102, 104deg1mul 26090 . . . . . . . 8 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))) = ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))))
106105adantr 480 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))) = ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))))
107 simpr 484 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
108107oveq1d 7375 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) + (𝐷‘(𝐹𝑙))) = (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))))
109106, 108eqtr2d 2773 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) + (𝐷‘(𝐹𝑙))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
110 nfv 1916 . . . . . . . 8 𝑘((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏))
111 nfcv 2899 . . . . . . . . . 10 𝑘𝐷
112 nfcv 2899 . . . . . . . . . . 11 𝑘𝑀
113 nfcv 2899 . . . . . . . . . . 11 𝑘 Σg
114 nfmpt1 5185 . . . . . . . . . . 11 𝑘(𝑘𝑏 ↦ (𝐹𝑘))
115112, 113, 114nfov 7390 . . . . . . . . . 10 𝑘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))
116111, 115nffv 6844 . . . . . . . . 9 𝑘(𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘))))
117 nfcv 2899 . . . . . . . . . 10 𝑘𝑏
118117nfsum1 15643 . . . . . . . . 9 𝑘Σ𝑘𝑏 (𝐷‘(𝐹𝑘))
119116, 118nfeq 2913 . . . . . . . 8 𝑘(𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))
120110, 119nfan 1901 . . . . . . 7 𝑘(((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)))
121 nfcv 2899 . . . . . . 7 𝑘(𝐷‘(𝐹𝑙))
12267ad3antrrr 731 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝐴 ∈ Fin)
123 simpllr 776 . . . . . . . 8 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑏𝐴)
124122, 123ssfid 9172 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑏 ∈ Fin)
125 simplr 769 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑙 ∈ (𝐴𝑏))
126125eldifbd 3903 . . . . . . 7 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → ¬ 𝑙𝑏)
12743ad4antr 733 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝑅 ∈ Ring)
1281ad4antr 733 . . . . . . . . . . 11 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
129123sselda 3922 . . . . . . . . . . 11 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → 𝑘𝐴)
130128, 129ffvelcdmd 7031 . . . . . . . . . 10 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ (𝐵 ∖ { 0 }))
131130eldifad 3902 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ∈ 𝐵)
132130, 85syl 17 . . . . . . . . 9 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐹𝑘) ≠ 0 )
13350, 37, 58, 56deg1nn0cl 26063 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝐹𝑘) ∈ 𝐵 ∧ (𝐹𝑘) ≠ 0 ) → (𝐷‘(𝐹𝑘)) ∈ ℕ0)
134127, 131, 132, 133syl3anc 1374 . . . . . . . 8 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐷‘(𝐹𝑘)) ∈ ℕ0)
135134nn0cnd 12491 . . . . . . 7 (((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) ∧ 𝑘𝑏) → (𝐷‘(𝐹𝑘)) ∈ ℂ)
136 2fveq3 6839 . . . . . . 7 (𝑘 = 𝑙 → (𝐷‘(𝐹𝑘)) = (𝐷‘(𝐹𝑙)))
13743ad3antrrr 731 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑅 ∈ Ring)
1381ad3antrrr 731 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝐹:𝐴⟶(𝐵 ∖ { 0 }))
139125eldifad 3902 . . . . . . . . . . 11 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → 𝑙𝐴)
140138, 139ffvelcdmd 7031 . . . . . . . . . 10 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ∈ (𝐵 ∖ { 0 }))
141140eldifad 3902 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ∈ 𝐵)
142140, 103syl 17 . . . . . . . . 9 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐹𝑙) ≠ 0 )
14350, 37, 58, 56deg1nn0cl 26063 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝐹𝑙) ∈ 𝐵 ∧ (𝐹𝑙) ≠ 0 ) → (𝐷‘(𝐹𝑙)) ∈ ℕ0)
144137, 141, 142, 143syl3anc 1374 . . . . . . . 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 3903 . . . . . . . . 9 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ¬ 𝑙𝑏)
149 fveq2 6834 . . . . . . . . 9 (𝑘 = 𝑙 → (𝐹𝑘) = (𝐹𝑙))
15060, 147, 66, 70, 74, 99, 148, 102, 149gsumunsn 19926 . . . . . . . 8 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘))) = ((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙)))
151150fveq2d 6838 . . . . . . 7 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
152151adantr 480 . . . . . 6 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = (𝐷‘((𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))(.r𝑃)(𝐹𝑙))))
153109, 146, 1523eqtr4rd 2783 . . . . 5 ((((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) ∧ (𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘))) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘)))
154153ex 412 . . . 4 (((𝜑𝑏𝐴) ∧ 𝑙 ∈ (𝐴𝑏)) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
155154anasss 466 . . 3 ((𝜑 ∧ (𝑏𝐴𝑙 ∈ (𝐴𝑏))) → ((𝐷‘(𝑀 Σg (𝑘𝑏 ↦ (𝐹𝑘)))) = Σ𝑘𝑏 (𝐷‘(𝐹𝑘)) → (𝐷‘(𝑀 Σg (𝑘 ∈ (𝑏 ∪ {𝑙}) ↦ (𝐹𝑘)))) = Σ𝑘 ∈ (𝑏 ∪ {𝑙})(𝐷‘(𝐹𝑘))))
1569, 14, 19, 24, 55, 155, 67findcard2d 9094 . 2 (𝜑 → (𝐷‘(𝑀 Σg (𝑘𝐴 ↦ (𝐹𝑘)))) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
1574, 156eqtrd 2772 1 (𝜑 → (𝐷‘(𝑀 Σg 𝐹)) = Σ𝑘𝐴 (𝐷‘(𝐹𝑘)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395   = wceq 1542  wcel 2114  wne 2933  Vcvv 3430  cdif 3887  cun 3888  wss 3890  c0 4274  {csn 4568  cmpt 5167  ran crn 5625  wf 6488  cfv 6492  (class class class)co 7360  Fincfn 8886  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 20480  Domncdomn 20660  IDomncidom 20661  algSccascl 21842  Poly1cpl1 22150  deg1cdg1 26029
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5302  ax-pr 5370  ax-un 7682  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 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-se 5578  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-of 7624  df-ofr 7625  df-om 7811  df-1st 7935  df-2nd 7936  df-supp 8104  df-frecs 8224  df-wrecs 8255  df-recs 8304  df-rdg 8342  df-1o 8398  df-2o 8399  df-er 8636  df-map 8768  df-pm 8769  df-ixp 8839  df-en 8887  df-dom 8888  df-sdom 8889  df-fin 8890  df-fsupp 9268  df-sup 9348  df-oi 9418  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 20481  df-subrng 20514  df-subrg 20538  df-rlreg 20662  df-domn 20663  df-idom 20664  df-lmod 20848  df-lss 20918  df-cnfld 21345  df-ascl 21845  df-psr 21899  df-mvr 21900  df-mpl 21901  df-opsr 21903  df-psr1 22153  df-vr1 22154  df-ply1 22155  df-coe1 22156  df-mdeg 26030  df-deg1 26031
This theorem is referenced by:  vietadeg1  33737
  Copyright terms: Public domain W3C validator