Step | Hyp | Ref
| Expression |
1 | | plymulcl 25727 |
. . 3
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (πΉ βf Β· πΊ) β
(Polyββ)) |
2 | | coeadd.3 |
. . . . 5
β’ π = (degβπΉ) |
3 | | dgrcl 25739 |
. . . . 5
β’ (πΉ β (Polyβπ) β (degβπΉ) β
β0) |
4 | 2, 3 | eqeltrid 2838 |
. . . 4
β’ (πΉ β (Polyβπ) β π β
β0) |
5 | | coeadd.4 |
. . . . 5
β’ π = (degβπΊ) |
6 | | dgrcl 25739 |
. . . . 5
β’ (πΊ β (Polyβπ) β (degβπΊ) β
β0) |
7 | 5, 6 | eqeltrid 2838 |
. . . 4
β’ (πΊ β (Polyβπ) β π β
β0) |
8 | | nn0addcl 12504 |
. . . 4
β’ ((π β β0
β§ π β
β0) β (π + π) β
β0) |
9 | 4, 7, 8 | syl2an 597 |
. . 3
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (π + π) β
β0) |
10 | | fzfid 13935 |
. . . . 5
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β
(0...π) β
Fin) |
11 | | coefv0.1 |
. . . . . . . . . 10
β’ π΄ = (coeffβπΉ) |
12 | 11 | coef3 25738 |
. . . . . . . . 9
β’ (πΉ β (Polyβπ) β π΄:β0βΆβ) |
13 | 12 | adantr 482 |
. . . . . . . 8
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β π΄:β0βΆβ) |
14 | 13 | adantr 482 |
. . . . . . 7
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β π΄:β0βΆβ) |
15 | | elfznn0 13591 |
. . . . . . 7
β’ (π β (0...π) β π β β0) |
16 | | ffvelcdm 7081 |
. . . . . . 7
β’ ((π΄:β0βΆβ β§
π β
β0) β (π΄βπ) β β) |
17 | 14, 15, 16 | syl2an 597 |
. . . . . 6
β’ ((((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β§ π β (0...π)) β (π΄βπ) β β) |
18 | | coeadd.2 |
. . . . . . . . . 10
β’ π΅ = (coeffβπΊ) |
19 | 18 | coef3 25738 |
. . . . . . . . 9
β’ (πΊ β (Polyβπ) β π΅:β0βΆβ) |
20 | 19 | adantl 483 |
. . . . . . . 8
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β π΅:β0βΆβ) |
21 | 20 | ad2antrr 725 |
. . . . . . 7
β’ ((((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β§ π β (0...π)) β π΅:β0βΆβ) |
22 | | fznn0sub 13530 |
. . . . . . . 8
β’ (π β (0...π) β (π β π) β
β0) |
23 | 22 | adantl 483 |
. . . . . . 7
β’ ((((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β§ π β (0...π)) β (π β π) β
β0) |
24 | 21, 23 | ffvelcdmd 7085 |
. . . . . 6
β’ ((((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β§ π β (0...π)) β (π΅β(π β π)) β β) |
25 | 17, 24 | mulcld 11231 |
. . . . 5
β’ ((((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β§ π β (0...π)) β ((π΄βπ) Β· (π΅β(π β π))) β β) |
26 | 10, 25 | fsumcl 15676 |
. . . 4
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))) β β) |
27 | 26 | fmpttd 7112 |
. . 3
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π)))):β0βΆβ) |
28 | | oveq2 7414 |
. . . . . . . . . . 11
β’ (π = π β (0...π) = (0...π)) |
29 | | fvoveq1 7429 |
. . . . . . . . . . . . 13
β’ (π = π β (π΅β(π β π)) = (π΅β(π β π))) |
30 | 29 | oveq2d 7422 |
. . . . . . . . . . . 12
β’ (π = π β ((π΄βπ) Β· (π΅β(π β π))) = ((π΄βπ) Β· (π΅β(π β π)))) |
31 | 30 | adantr 482 |
. . . . . . . . . . 11
β’ ((π = π β§ π β (0...π)) β ((π΄βπ) Β· (π΅β(π β π))) = ((π΄βπ) Β· (π΅β(π β π)))) |
32 | 28, 31 | sumeq12dv 15649 |
. . . . . . . . . 10
β’ (π = π β Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))) = Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π)))) |
33 | | eqid 2733 |
. . . . . . . . . 10
β’ (π β β0
β¦ Ξ£π β
(0...π)((π΄βπ) Β· (π΅β(π β π)))) = (π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π)))) |
34 | | sumex 15631 |
. . . . . . . . . 10
β’
Ξ£π β
(0...π)((π΄βπ) Β· (π΅β(π β π))) β V |
35 | 32, 33, 34 | fvmpt 6996 |
. . . . . . . . 9
β’ (π β β0
β ((π β
β0 β¦ Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) = Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π)))) |
36 | 35 | ad2antrl 727 |
. . . . . . . 8
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β ((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) = Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π)))) |
37 | | simp2r 1201 |
. . . . . . . . . . . . . . . . 17
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β Β¬ π β€ (π + π)) |
38 | | simp2l 1200 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π β β0) |
39 | 38 | nn0red 12530 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π β β) |
40 | | simp3l 1202 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π β (0...π)) |
41 | | elfznn0 13591 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (0...π) β π β β0) |
42 | 40, 41 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π β β0) |
43 | 42 | nn0red 12530 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π β β) |
44 | 7 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β π β
β0) |
45 | 44 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π β
β0) |
46 | 45 | nn0red 12530 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π β β) |
47 | 39, 43, 46 | lesubadd2d 11810 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β ((π β π) β€ π β π β€ (π + π))) |
48 | 4 | adantr 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β π β
β0) |
49 | 48 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π β
β0) |
50 | 49 | nn0red 12530 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π β β) |
51 | | simp3r 1203 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π β€ π) |
52 | 43, 50, 46, 51 | leadd1dd 11825 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β (π + π) β€ (π + π)) |
53 | 43, 46 | readdcld 11240 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β (π + π) β β) |
54 | 50, 46 | readdcld 11240 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β (π + π) β β) |
55 | | letr 11305 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β β§ (π + π) β β β§ (π + π) β β) β ((π β€ (π + π) β§ (π + π) β€ (π + π)) β π β€ (π + π))) |
56 | 39, 53, 54, 55 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β ((π β€ (π + π) β§ (π + π) β€ (π + π)) β π β€ (π + π))) |
57 | 52, 56 | mpan2d 693 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β (π β€ (π + π) β π β€ (π + π))) |
58 | 47, 57 | sylbid 239 |
. . . . . . . . . . . . . . . . 17
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β ((π β π) β€ π β π β€ (π + π))) |
59 | 37, 58 | mtod 197 |
. . . . . . . . . . . . . . . 16
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β Β¬ (π β π) β€ π) |
60 | | simpr 486 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β πΊ β (Polyβπ)) |
61 | 60 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β πΊ β (Polyβπ)) |
62 | | fznn0sub 13530 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (0...π) β (π β π) β
β0) |
63 | 40, 62 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β (π β π) β
β0) |
64 | 18, 5 | dgrub 25740 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πΊ β (Polyβπ) β§ (π β π) β β0 β§ (π΅β(π β π)) β 0) β (π β π) β€ π) |
65 | 64 | 3expia 1122 |
. . . . . . . . . . . . . . . . . 18
β’ ((πΊ β (Polyβπ) β§ (π β π) β β0) β ((π΅β(π β π)) β 0 β (π β π) β€ π)) |
66 | 61, 63, 65 | syl2anc 585 |
. . . . . . . . . . . . . . . . 17
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β ((π΅β(π β π)) β 0 β (π β π) β€ π)) |
67 | 66 | necon1bd 2959 |
. . . . . . . . . . . . . . . 16
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β (Β¬ (π β π) β€ π β (π΅β(π β π)) = 0)) |
68 | 59, 67 | mpd 15 |
. . . . . . . . . . . . . . 15
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β (π΅β(π β π)) = 0) |
69 | 68 | oveq2d 7422 |
. . . . . . . . . . . . . 14
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β ((π΄βπ) Β· (π΅β(π β π))) = ((π΄βπ) Β· 0)) |
70 | 13 | 3ad2ant1 1134 |
. . . . . . . . . . . . . . . 16
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β π΄:β0βΆβ) |
71 | 70, 42 | ffvelcdmd 7085 |
. . . . . . . . . . . . . . 15
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β (π΄βπ) β β) |
72 | 71 | mul01d 11410 |
. . . . . . . . . . . . . 14
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β ((π΄βπ) Β· 0) = 0) |
73 | 69, 72 | eqtrd 2773 |
. . . . . . . . . . . . 13
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π)) β§ (π β (0...π) β§ π β€ π)) β ((π΄βπ) Β· (π΅β(π β π))) = 0) |
74 | 73 | 3expia 1122 |
. . . . . . . . . . . 12
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β ((π β (0...π) β§ π β€ π) β ((π΄βπ) Β· (π΅β(π β π))) = 0)) |
75 | 74 | impl 457 |
. . . . . . . . . . 11
β’
(((((πΉ β
(Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β§ π β€ π) β ((π΄βπ) Β· (π΅β(π β π))) = 0) |
76 | | simpl 484 |
. . . . . . . . . . . . . . . . 17
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β πΉ β (Polyβπ)) |
77 | 76 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β πΉ β (Polyβπ)) |
78 | 11, 2 | dgrub 25740 |
. . . . . . . . . . . . . . . . 17
β’ ((πΉ β (Polyβπ) β§ π β β0 β§ (π΄βπ) β 0) β π β€ π) |
79 | 78 | 3expia 1122 |
. . . . . . . . . . . . . . . 16
β’ ((πΉ β (Polyβπ) β§ π β β0) β ((π΄βπ) β 0 β π β€ π)) |
80 | 77, 41, 79 | syl2an 597 |
. . . . . . . . . . . . . . 15
β’ ((((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β ((π΄βπ) β 0 β π β€ π)) |
81 | 80 | necon1bd 2959 |
. . . . . . . . . . . . . 14
β’ ((((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β (Β¬ π β€ π β (π΄βπ) = 0)) |
82 | 81 | imp 408 |
. . . . . . . . . . . . 13
β’
(((((πΉ β
(Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β§ Β¬ π β€ π) β (π΄βπ) = 0) |
83 | 82 | oveq1d 7421 |
. . . . . . . . . . . 12
β’
(((((πΉ β
(Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β§ Β¬ π β€ π) β ((π΄βπ) Β· (π΅β(π β π))) = (0 Β· (π΅β(π β π)))) |
84 | 20 | ad3antrrr 729 |
. . . . . . . . . . . . . 14
β’
(((((πΉ β
(Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β§ Β¬ π β€ π) β π΅:β0βΆβ) |
85 | 62 | ad2antlr 726 |
. . . . . . . . . . . . . 14
β’
(((((πΉ β
(Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β§ Β¬ π β€ π) β (π β π) β
β0) |
86 | 84, 85 | ffvelcdmd 7085 |
. . . . . . . . . . . . 13
β’
(((((πΉ β
(Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β§ Β¬ π β€ π) β (π΅β(π β π)) β β) |
87 | 86 | mul02d 11409 |
. . . . . . . . . . . 12
β’
(((((πΉ β
(Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β§ Β¬ π β€ π) β (0 Β· (π΅β(π β π))) = 0) |
88 | 83, 87 | eqtrd 2773 |
. . . . . . . . . . 11
β’
(((((πΉ β
(Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β§ Β¬ π β€ π) β ((π΄βπ) Β· (π΅β(π β π))) = 0) |
89 | 75, 88 | pm2.61dan 812 |
. . . . . . . . . 10
β’ ((((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β§ π β (0...π)) β ((π΄βπ) Β· (π΅β(π β π))) = 0) |
90 | 89 | sumeq2dv 15646 |
. . . . . . . . 9
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))) = Ξ£π β (0...π)0) |
91 | | fzfi 13934 |
. . . . . . . . . . 11
β’
(0...π) β
Fin |
92 | 91 | olci 865 |
. . . . . . . . . 10
β’
((0...π) β
(β€β₯β0) β¨ (0...π) β Fin) |
93 | | sumz 15665 |
. . . . . . . . . 10
β’
(((0...π) β
(β€β₯β0) β¨ (0...π) β Fin) β Ξ£π β (0...π)0 = 0) |
94 | 92, 93 | ax-mp 5 |
. . . . . . . . 9
β’
Ξ£π β
(0...π)0 =
0 |
95 | 90, 94 | eqtrdi 2789 |
. . . . . . . 8
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))) = 0) |
96 | 36, 95 | eqtrd 2773 |
. . . . . . 7
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π β β0 β§ Β¬ π β€ (π + π))) β ((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) = 0) |
97 | 96 | expr 458 |
. . . . . 6
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (Β¬
π β€ (π + π) β ((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) = 0)) |
98 | 97 | necon1ad 2958 |
. . . . 5
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (((π β β0
β¦ Ξ£π β
(0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) β 0 β π β€ (π + π))) |
99 | 98 | ralrimiva 3147 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β βπ β β0 (((π β β0
β¦ Ξ£π β
(0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) β 0 β π β€ (π + π))) |
100 | | plyco0 25698 |
. . . . 5
β’ (((π + π) β β0 β§ (π β β0
β¦ Ξ£π β
(0...π)((π΄βπ) Β· (π΅β(π β π)))):β0βΆβ)
β (((π β
β0 β¦ Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π)))) β
(β€β₯β((π + π) + 1))) = {0} β βπ β β0
(((π β
β0 β¦ Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) β 0 β π β€ (π + π)))) |
101 | 9, 27, 100 | syl2anc 585 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π)))) β
(β€β₯β((π + π) + 1))) = {0} β βπ β β0
(((π β
β0 β¦ Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) β 0 β π β€ (π + π)))) |
102 | 99, 101 | mpbird 257 |
. . 3
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β ((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π)))) β
(β€β₯β((π + π) + 1))) = {0}) |
103 | 11, 2 | dgrub2 25741 |
. . . . . 6
β’ (πΉ β (Polyβπ) β (π΄ β
(β€β₯β(π + 1))) = {0}) |
104 | 103 | adantr 482 |
. . . . 5
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (π΄ β
(β€β₯β(π + 1))) = {0}) |
105 | 18, 5 | dgrub2 25741 |
. . . . . 6
β’ (πΊ β (Polyβπ) β (π΅ β
(β€β₯β(π + 1))) = {0}) |
106 | 105 | adantl 483 |
. . . . 5
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (π΅ β
(β€β₯β(π + 1))) = {0}) |
107 | 11, 2 | coeid 25744 |
. . . . . 6
β’ (πΉ β (Polyβπ) β πΉ = (π§ β β β¦ Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)))) |
108 | 107 | adantr 482 |
. . . . 5
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β πΉ = (π§ β β β¦ Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)))) |
109 | 18, 5 | coeid 25744 |
. . . . . 6
β’ (πΊ β (Polyβπ) β πΊ = (π§ β β β¦ Ξ£π β (0...π)((π΅βπ) Β· (π§βπ)))) |
110 | 109 | adantl 483 |
. . . . 5
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β πΊ = (π§ β β β¦ Ξ£π β (0...π)((π΅βπ) Β· (π§βπ)))) |
111 | 76, 60, 48, 44, 13, 20, 104, 106, 108, 110 | plymullem1 25720 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (πΉ βf Β· πΊ) = (π§ β β β¦ Ξ£π β (0...(π + π))(Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))) Β· (π§βπ)))) |
112 | | elfznn0 13591 |
. . . . . . . 8
β’ (π β (0...(π + π)) β π β β0) |
113 | 112, 35 | syl 17 |
. . . . . . 7
β’ (π β (0...(π + π)) β ((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) = Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π)))) |
114 | 113 | oveq1d 7421 |
. . . . . 6
β’ (π β (0...(π + π)) β (((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) Β· (π§βπ)) = (Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))) Β· (π§βπ))) |
115 | 114 | sumeq2i 15642 |
. . . . 5
β’
Ξ£π β
(0...(π + π))(((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) Β· (π§βπ)) = Ξ£π β (0...(π + π))(Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))) Β· (π§βπ)) |
116 | 115 | mpteq2i 5253 |
. . . 4
β’ (π§ β β β¦
Ξ£π β (0...(π + π))(((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) Β· (π§βπ))) = (π§ β β β¦ Ξ£π β (0...(π + π))(Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))) Β· (π§βπ))) |
117 | 111, 116 | eqtr4di 2791 |
. . 3
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (πΉ βf Β· πΊ) = (π§ β β β¦ Ξ£π β (0...(π + π))(((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) Β· (π§βπ)))) |
118 | 1, 9, 27, 102, 117 | coeeq 25733 |
. 2
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (coeffβ(πΉ βf Β· πΊ)) = (π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))) |
119 | | ffvelcdm 7081 |
. . . 4
β’ (((π β β0
β¦ Ξ£π β
(0...π)((π΄βπ) Β· (π΅β(π β π)))):β0βΆβ β§
π β
β0) β ((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) β β) |
120 | 27, 112, 119 | syl2an 597 |
. . 3
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β (0...(π + π))) β ((π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π))))βπ) β β) |
121 | 1, 9, 120, 117 | dgrle 25749 |
. 2
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (degβ(πΉ βf Β· πΊ)) β€ (π + π)) |
122 | 118, 121 | jca 513 |
1
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β ((coeffβ(πΉ βf Β· πΊ)) = (π β β0 β¦
Ξ£π β (0...π)((π΄βπ) Β· (π΅β(π β π)))) β§ (degβ(πΉ βf Β· πΊ)) β€ (π + π))) |