Step | Hyp | Ref
| Expression |
1 | | plyaddcl 25725 |
. . 3
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (πΉ βf + πΊ) β
(Polyββ)) |
2 | | coeadd.4 |
. . . . . 6
β’ π = (degβπΊ) |
3 | | dgrcl 25738 |
. . . . . 6
β’ (πΊ β (Polyβπ) β (degβπΊ) β
β0) |
4 | 2, 3 | eqeltrid 2837 |
. . . . 5
β’ (πΊ β (Polyβπ) β π β
β0) |
5 | 4 | adantl 482 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β π β
β0) |
6 | | coeadd.3 |
. . . . . 6
β’ π = (degβπΉ) |
7 | | dgrcl 25738 |
. . . . . 6
β’ (πΉ β (Polyβπ) β (degβπΉ) β
β0) |
8 | 6, 7 | eqeltrid 2837 |
. . . . 5
β’ (πΉ β (Polyβπ) β π β
β0) |
9 | 8 | adantr 481 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β π β
β0) |
10 | 5, 9 | ifcld 4573 |
. . 3
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β if(π β€ π, π, π) β
β0) |
11 | | addcl 11188 |
. . . . 5
β’ ((π₯ β β β§ π¦ β β) β (π₯ + π¦) β β) |
12 | 11 | adantl 482 |
. . . 4
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ (π₯ β β β§ π¦ β β)) β (π₯ + π¦) β β) |
13 | | coefv0.1 |
. . . . . 6
β’ π΄ = (coeffβπΉ) |
14 | 13 | coef3 25737 |
. . . . 5
β’ (πΉ β (Polyβπ) β π΄:β0βΆβ) |
15 | 14 | adantr 481 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β π΄:β0βΆβ) |
16 | | coeadd.2 |
. . . . . 6
β’ π΅ = (coeffβπΊ) |
17 | 16 | coef3 25737 |
. . . . 5
β’ (πΊ β (Polyβπ) β π΅:β0βΆβ) |
18 | 17 | adantl 482 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β π΅:β0βΆβ) |
19 | | nn0ex 12474 |
. . . . 5
β’
β0 β V |
20 | 19 | a1i 11 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β β0 β
V) |
21 | | inidm 4217 |
. . . 4
β’
(β0 β© β0) =
β0 |
22 | 12, 15, 18, 20, 20, 21 | off 7684 |
. . 3
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (π΄ βf + π΅):β0βΆβ) |
23 | | oveq12 7414 |
. . . . . . . . . 10
β’ (((π΄βπ) = 0 β§ (π΅βπ) = 0) β ((π΄βπ) + (π΅βπ)) = (0 + 0)) |
24 | | 00id 11385 |
. . . . . . . . . 10
β’ (0 + 0) =
0 |
25 | 23, 24 | eqtrdi 2788 |
. . . . . . . . 9
β’ (((π΄βπ) = 0 β§ (π΅βπ) = 0) β ((π΄βπ) + (π΅βπ)) = 0) |
26 | 15 | ffnd 6715 |
. . . . . . . . . . 11
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β π΄ Fn β0) |
27 | 18 | ffnd 6715 |
. . . . . . . . . . 11
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β π΅ Fn β0) |
28 | | eqidd 2733 |
. . . . . . . . . . 11
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (π΄βπ) = (π΄βπ)) |
29 | | eqidd 2733 |
. . . . . . . . . . 11
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (π΅βπ) = (π΅βπ)) |
30 | 26, 27, 20, 20, 21, 28, 29 | ofval 7677 |
. . . . . . . . . 10
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β ((π΄ βf + π΅)βπ) = ((π΄βπ) + (π΅βπ))) |
31 | 30 | eqeq1d 2734 |
. . . . . . . . 9
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (((π΄ βf + π΅)βπ) = 0 β ((π΄βπ) + (π΅βπ)) = 0)) |
32 | 25, 31 | imbitrrid 245 |
. . . . . . . 8
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (((π΄βπ) = 0 β§ (π΅βπ) = 0) β ((π΄ βf + π΅)βπ) = 0)) |
33 | 32 | necon3ad 2953 |
. . . . . . 7
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (((π΄ βf + π΅)βπ) β 0 β Β¬ ((π΄βπ) = 0 β§ (π΅βπ) = 0))) |
34 | | neorian 3037 |
. . . . . . 7
β’ (((π΄βπ) β 0 β¨ (π΅βπ) β 0) β Β¬ ((π΄βπ) = 0 β§ (π΅βπ) = 0)) |
35 | 33, 34 | syl6ibr 251 |
. . . . . 6
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (((π΄ βf + π΅)βπ) β 0 β ((π΄βπ) β 0 β¨ (π΅βπ) β 0))) |
36 | 13, 6 | dgrub2 25740 |
. . . . . . . . . . 11
β’ (πΉ β (Polyβπ) β (π΄ β
(β€β₯β(π + 1))) = {0}) |
37 | 36 | adantr 481 |
. . . . . . . . . 10
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (π΄ β
(β€β₯β(π + 1))) = {0}) |
38 | | plyco0 25697 |
. . . . . . . . . . 11
β’ ((π β β0
β§ π΄:β0βΆβ) β
((π΄ β
(β€β₯β(π + 1))) = {0} β βπ β β0
((π΄βπ) β 0 β π β€ π))) |
39 | 9, 15, 38 | syl2anc 584 |
. . . . . . . . . 10
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β ((π΄ β
(β€β₯β(π + 1))) = {0} β βπ β β0
((π΄βπ) β 0 β π β€ π))) |
40 | 37, 39 | mpbid 231 |
. . . . . . . . 9
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β βπ β β0 ((π΄βπ) β 0 β π β€ π)) |
41 | 40 | r19.21bi 3248 |
. . . . . . . 8
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β ((π΄βπ) β 0 β π β€ π)) |
42 | 9 | adantr 481 |
. . . . . . . . . . 11
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β π β
β0) |
43 | 42 | nn0red 12529 |
. . . . . . . . . 10
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β π β
β) |
44 | 5 | adantr 481 |
. . . . . . . . . . 11
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β π β
β0) |
45 | 44 | nn0red 12529 |
. . . . . . . . . 10
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β π β
β) |
46 | | max1 13160 |
. . . . . . . . . 10
β’ ((π β β β§ π β β) β π β€ if(π β€ π, π, π)) |
47 | 43, 45, 46 | syl2anc 584 |
. . . . . . . . 9
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β π β€ if(π β€ π, π, π)) |
48 | | nn0re 12477 |
. . . . . . . . . . 11
β’ (π β β0
β π β
β) |
49 | 48 | adantl 482 |
. . . . . . . . . 10
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β π β
β) |
50 | 10 | adantr 481 |
. . . . . . . . . . 11
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β if(π β€ π, π, π) β
β0) |
51 | 50 | nn0red 12529 |
. . . . . . . . . 10
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β if(π β€ π, π, π) β β) |
52 | | letr 11304 |
. . . . . . . . . 10
β’ ((π β β β§ π β β β§ if(π β€ π, π, π) β β) β ((π β€ π β§ π β€ if(π β€ π, π, π)) β π β€ if(π β€ π, π, π))) |
53 | 49, 43, 51, 52 | syl3anc 1371 |
. . . . . . . . 9
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β ((π β€ π β§ π β€ if(π β€ π, π, π)) β π β€ if(π β€ π, π, π))) |
54 | 47, 53 | mpan2d 692 |
. . . . . . . 8
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (π β€ π β π β€ if(π β€ π, π, π))) |
55 | 41, 54 | syld 47 |
. . . . . . 7
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β ((π΄βπ) β 0 β π β€ if(π β€ π, π, π))) |
56 | 16, 2 | dgrub2 25740 |
. . . . . . . . . . 11
β’ (πΊ β (Polyβπ) β (π΅ β
(β€β₯β(π + 1))) = {0}) |
57 | 56 | adantl 482 |
. . . . . . . . . 10
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (π΅ β
(β€β₯β(π + 1))) = {0}) |
58 | | plyco0 25697 |
. . . . . . . . . . 11
β’ ((π β β0
β§ π΅:β0βΆβ) β
((π΅ β
(β€β₯β(π + 1))) = {0} β βπ β β0
((π΅βπ) β 0 β π β€ π))) |
59 | 5, 18, 58 | syl2anc 584 |
. . . . . . . . . 10
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β ((π΅ β
(β€β₯β(π + 1))) = {0} β βπ β β0
((π΅βπ) β 0 β π β€ π))) |
60 | 57, 59 | mpbid 231 |
. . . . . . . . 9
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β βπ β β0 ((π΅βπ) β 0 β π β€ π)) |
61 | 60 | r19.21bi 3248 |
. . . . . . . 8
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β ((π΅βπ) β 0 β π β€ π)) |
62 | | max2 13162 |
. . . . . . . . . 10
β’ ((π β β β§ π β β) β π β€ if(π β€ π, π, π)) |
63 | 43, 45, 62 | syl2anc 584 |
. . . . . . . . 9
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β π β€ if(π β€ π, π, π)) |
64 | | letr 11304 |
. . . . . . . . . 10
β’ ((π β β β§ π β β β§ if(π β€ π, π, π) β β) β ((π β€ π β§ π β€ if(π β€ π, π, π)) β π β€ if(π β€ π, π, π))) |
65 | 49, 45, 51, 64 | syl3anc 1371 |
. . . . . . . . 9
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β ((π β€ π β§ π β€ if(π β€ π, π, π)) β π β€ if(π β€ π, π, π))) |
66 | 63, 65 | mpan2d 692 |
. . . . . . . 8
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (π β€ π β π β€ if(π β€ π, π, π))) |
67 | 61, 66 | syld 47 |
. . . . . . 7
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β ((π΅βπ) β 0 β π β€ if(π β€ π, π, π))) |
68 | 55, 67 | jaod 857 |
. . . . . 6
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (((π΄βπ) β 0 β¨ (π΅βπ) β 0) β π β€ if(π β€ π, π, π))) |
69 | 35, 68 | syld 47 |
. . . . 5
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β β0) β (((π΄ βf + π΅)βπ) β 0 β π β€ if(π β€ π, π, π))) |
70 | 69 | ralrimiva 3146 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β βπ β β0 (((π΄ βf + π΅)βπ) β 0 β π β€ if(π β€ π, π, π))) |
71 | | plyco0 25697 |
. . . . 5
β’
((if(π β€ π, π, π) β β0 β§ (π΄ βf + π΅):β0βΆβ) β
(((π΄ βf +
π΅) β
(β€β₯β(if(π β€ π, π, π) + 1))) = {0} β βπ β β0
(((π΄ βf +
π΅)βπ) β 0 β π β€ if(π β€ π, π, π)))) |
72 | 10, 22, 71 | syl2anc 584 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (((π΄ βf + π΅) β
(β€β₯β(if(π β€ π, π, π) + 1))) = {0} β βπ β β0
(((π΄ βf +
π΅)βπ) β 0 β π β€ if(π β€ π, π, π)))) |
73 | 70, 72 | mpbird 256 |
. . 3
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β ((π΄ βf + π΅) β
(β€β₯β(if(π β€ π, π, π) + 1))) = {0}) |
74 | | simpl 483 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β πΉ β (Polyβπ)) |
75 | | simpr 485 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β πΊ β (Polyβπ)) |
76 | 13, 6 | coeid 25743 |
. . . . 5
β’ (πΉ β (Polyβπ) β πΉ = (π§ β β β¦ Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)))) |
77 | 76 | adantr 481 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β πΉ = (π§ β β β¦ Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)))) |
78 | 16, 2 | coeid 25743 |
. . . . 5
β’ (πΊ β (Polyβπ) β πΊ = (π§ β β β¦ Ξ£π β (0...π)((π΅βπ) Β· (π§βπ)))) |
79 | 78 | adantl 482 |
. . . 4
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β πΊ = (π§ β β β¦ Ξ£π β (0...π)((π΅βπ) Β· (π§βπ)))) |
80 | 74, 75, 9, 5, 15, 18, 37, 57, 77, 79 | plyaddlem1 25718 |
. . 3
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (πΉ βf + πΊ) = (π§ β β β¦ Ξ£π β (0...if(π β€ π, π, π))(((π΄ βf + π΅)βπ) Β· (π§βπ)))) |
81 | 1, 10, 22, 73, 80 | coeeq 25732 |
. 2
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (coeffβ(πΉ βf + πΊ)) = (π΄ βf + π΅)) |
82 | | elfznn0 13590 |
. . . 4
β’ (π β (0...if(π β€ π, π, π)) β π β β0) |
83 | | ffvelcdm 7080 |
. . . 4
β’ (((π΄ βf + π΅):β0βΆβ β§
π β
β0) β ((π΄ βf + π΅)βπ) β β) |
84 | 22, 82, 83 | syl2an 596 |
. . 3
β’ (((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β§ π β (0...if(π β€ π, π, π))) β ((π΄ βf + π΅)βπ) β β) |
85 | 1, 10, 84, 80 | dgrle 25748 |
. 2
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β (degβ(πΉ βf + πΊ)) β€ if(π β€ π, π, π)) |
86 | 81, 85 | jca 512 |
1
β’ ((πΉ β (Polyβπ) β§ πΊ β (Polyβπ)) β ((coeffβ(πΉ βf + πΊ)) = (π΄ βf + π΅) β§ (degβ(πΉ βf + πΊ)) β€ if(π β€ π, π, π))) |