Step | Hyp | Ref
| Expression |
1 | | cnex 11187 |
. . . 4
β’ β
β V |
2 | 1 | a1i 11 |
. . 3
β’ (π β β β
V) |
3 | | sumex 15630 |
. . . 4
β’
Ξ£π β
(0...π)((π΄βπ) Β· (π§βπ)) β V |
4 | 3 | a1i 11 |
. . 3
β’ ((π β§ π§ β β) β Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)) β V) |
5 | | sumex 15630 |
. . . 4
β’
Ξ£π β
(0...π)((π΅βπ) Β· (π§βπ)) β V |
6 | 5 | a1i 11 |
. . 3
β’ ((π β§ π§ β β) β Ξ£π β (0...π)((π΅βπ) Β· (π§βπ)) β V) |
7 | | plyaddlem.f |
. . 3
β’ (π β πΉ = (π§ β β β¦ Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)))) |
8 | | plyaddlem.g |
. . 3
β’ (π β πΊ = (π§ β β β¦ Ξ£π β (0...π)((π΅βπ) Β· (π§βπ)))) |
9 | 2, 4, 6, 7, 8 | offval2 7686 |
. 2
β’ (π β (πΉ βf + πΊ) = (π§ β β β¦ (Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)) + Ξ£π β (0...π)((π΅βπ) Β· (π§βπ))))) |
10 | | fzfid 13934 |
. . . . 5
β’ ((π β§ π§ β β) β (0...if(π β€ π, π, π)) β Fin) |
11 | | elfznn0 13590 |
. . . . . 6
β’ (π β (0...if(π β€ π, π, π)) β π β β0) |
12 | | plyaddlem.a |
. . . . . . . . 9
β’ (π β π΄:β0βΆβ) |
13 | 12 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π§ β β) β π΄:β0βΆβ) |
14 | 13 | ffvelcdmda 7083 |
. . . . . . 7
β’ (((π β§ π§ β β) β§ π β β0) β (π΄βπ) β β) |
15 | | expcl 14041 |
. . . . . . . 8
β’ ((π§ β β β§ π β β0)
β (π§βπ) β
β) |
16 | 15 | adantll 712 |
. . . . . . 7
β’ (((π β§ π§ β β) β§ π β β0) β (π§βπ) β β) |
17 | 14, 16 | mulcld 11230 |
. . . . . 6
β’ (((π β§ π§ β β) β§ π β β0) β ((π΄βπ) Β· (π§βπ)) β β) |
18 | 11, 17 | sylan2 593 |
. . . . 5
β’ (((π β§ π§ β β) β§ π β (0...if(π β€ π, π, π))) β ((π΄βπ) Β· (π§βπ)) β β) |
19 | | plyaddlem.b |
. . . . . . . . 9
β’ (π β π΅:β0βΆβ) |
20 | 19 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π§ β β) β π΅:β0βΆβ) |
21 | 20 | ffvelcdmda 7083 |
. . . . . . 7
β’ (((π β§ π§ β β) β§ π β β0) β (π΅βπ) β β) |
22 | 21, 16 | mulcld 11230 |
. . . . . 6
β’ (((π β§ π§ β β) β§ π β β0) β ((π΅βπ) Β· (π§βπ)) β β) |
23 | 11, 22 | sylan2 593 |
. . . . 5
β’ (((π β§ π§ β β) β§ π β (0...if(π β€ π, π, π))) β ((π΅βπ) Β· (π§βπ)) β β) |
24 | 10, 18, 23 | fsumadd 15682 |
. . . 4
β’ ((π β§ π§ β β) β Ξ£π β (0...if(π β€ π, π, π))(((π΄βπ) Β· (π§βπ)) + ((π΅βπ) Β· (π§βπ))) = (Ξ£π β (0...if(π β€ π, π, π))((π΄βπ) Β· (π§βπ)) + Ξ£π β (0...if(π β€ π, π, π))((π΅βπ) Β· (π§βπ)))) |
25 | 12 | ffnd 6715 |
. . . . . . . . . 10
β’ (π β π΄ Fn β0) |
26 | 19 | ffnd 6715 |
. . . . . . . . . 10
β’ (π β π΅ Fn β0) |
27 | | nn0ex 12474 |
. . . . . . . . . . 11
β’
β0 β V |
28 | 27 | a1i 11 |
. . . . . . . . . 10
β’ (π β β0 β
V) |
29 | | inidm 4217 |
. . . . . . . . . 10
β’
(β0 β© β0) =
β0 |
30 | | eqidd 2733 |
. . . . . . . . . 10
β’ ((π β§ π β β0) β (π΄βπ) = (π΄βπ)) |
31 | | eqidd 2733 |
. . . . . . . . . 10
β’ ((π β§ π β β0) β (π΅βπ) = (π΅βπ)) |
32 | 25, 26, 28, 28, 29, 30, 31 | ofval 7677 |
. . . . . . . . 9
β’ ((π β§ π β β0) β ((π΄ βf + π΅)βπ) = ((π΄βπ) + (π΅βπ))) |
33 | 32 | adantlr 713 |
. . . . . . . 8
β’ (((π β§ π§ β β) β§ π β β0) β ((π΄ βf + π΅)βπ) = ((π΄βπ) + (π΅βπ))) |
34 | 33 | oveq1d 7420 |
. . . . . . 7
β’ (((π β§ π§ β β) β§ π β β0) β (((π΄ βf + π΅)βπ) Β· (π§βπ)) = (((π΄βπ) + (π΅βπ)) Β· (π§βπ))) |
35 | 14, 21, 16 | adddird 11235 |
. . . . . . 7
β’ (((π β§ π§ β β) β§ π β β0) β (((π΄βπ) + (π΅βπ)) Β· (π§βπ)) = (((π΄βπ) Β· (π§βπ)) + ((π΅βπ) Β· (π§βπ)))) |
36 | 34, 35 | eqtrd 2772 |
. . . . . 6
β’ (((π β§ π§ β β) β§ π β β0) β (((π΄ βf + π΅)βπ) Β· (π§βπ)) = (((π΄βπ) Β· (π§βπ)) + ((π΅βπ) Β· (π§βπ)))) |
37 | 11, 36 | sylan2 593 |
. . . . 5
β’ (((π β§ π§ β β) β§ π β (0...if(π β€ π, π, π))) β (((π΄ βf + π΅)βπ) Β· (π§βπ)) = (((π΄βπ) Β· (π§βπ)) + ((π΅βπ) Β· (π§βπ)))) |
38 | 37 | sumeq2dv 15645 |
. . . 4
β’ ((π β§ π§ β β) β Ξ£π β (0...if(π β€ π, π, π))(((π΄ βf + π΅)βπ) Β· (π§βπ)) = Ξ£π β (0...if(π β€ π, π, π))(((π΄βπ) Β· (π§βπ)) + ((π΅βπ) Β· (π§βπ)))) |
39 | | plyaddlem.m |
. . . . . . . . . 10
β’ (π β π β
β0) |
40 | 39 | nn0zd 12580 |
. . . . . . . . 9
β’ (π β π β β€) |
41 | | plyaddlem.n |
. . . . . . . . . . 11
β’ (π β π β
β0) |
42 | 41, 39 | ifcld 4573 |
. . . . . . . . . 10
β’ (π β if(π β€ π, π, π) β
β0) |
43 | 42 | nn0zd 12580 |
. . . . . . . . 9
β’ (π β if(π β€ π, π, π) β β€) |
44 | 39 | nn0red 12529 |
. . . . . . . . . 10
β’ (π β π β β) |
45 | 41 | nn0red 12529 |
. . . . . . . . . 10
β’ (π β π β β) |
46 | | max1 13160 |
. . . . . . . . . 10
β’ ((π β β β§ π β β) β π β€ if(π β€ π, π, π)) |
47 | 44, 45, 46 | syl2anc 584 |
. . . . . . . . 9
β’ (π β π β€ if(π β€ π, π, π)) |
48 | | eluz2 12824 |
. . . . . . . . 9
β’ (if(π β€ π, π, π) β (β€β₯βπ) β (π β β€ β§ if(π β€ π, π, π) β β€ β§ π β€ if(π β€ π, π, π))) |
49 | 40, 43, 47, 48 | syl3anbrc 1343 |
. . . . . . . 8
β’ (π β if(π β€ π, π, π) β (β€β₯βπ)) |
50 | | fzss2 13537 |
. . . . . . . 8
β’ (if(π β€ π, π, π) β (β€β₯βπ) β (0...π) β (0...if(π β€ π, π, π))) |
51 | 49, 50 | syl 17 |
. . . . . . 7
β’ (π β (0...π) β (0...if(π β€ π, π, π))) |
52 | 51 | adantr 481 |
. . . . . 6
β’ ((π β§ π§ β β) β (0...π) β (0...if(π β€ π, π, π))) |
53 | | elfznn0 13590 |
. . . . . . 7
β’ (π β (0...π) β π β β0) |
54 | 53, 17 | sylan2 593 |
. . . . . 6
β’ (((π β§ π§ β β) β§ π β (0...π)) β ((π΄βπ) Β· (π§βπ)) β β) |
55 | | eldifn 4126 |
. . . . . . . . . . . . 13
β’ (π β ((0...if(π β€ π, π, π)) β (0...π)) β Β¬ π β (0...π)) |
56 | 55 | adantl 482 |
. . . . . . . . . . . 12
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β Β¬ π β (0...π)) |
57 | | eldifi 4125 |
. . . . . . . . . . . . . . . . 17
β’ (π β ((0...if(π β€ π, π, π)) β (0...π)) β π β (0...if(π β€ π, π, π))) |
58 | 57, 11 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (π β ((0...if(π β€ π, π, π)) β (0...π)) β π β β0) |
59 | 58 | adantl 482 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β π β β0) |
60 | | nn0uz 12860 |
. . . . . . . . . . . . . . . . . 18
β’
β0 = (β€β₯β0) |
61 | | peano2nn0 12508 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β β0
β (π + 1) β
β0) |
62 | 39, 61 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (π + 1) β
β0) |
63 | 62, 60 | eleqtrdi 2843 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (π + 1) β
(β€β₯β0)) |
64 | | uzsplit 13569 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π + 1) β
(β€β₯β0) β (β€β₯β0) =
((0...((π + 1) β 1))
βͺ (β€β₯β(π + 1)))) |
65 | 63, 64 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’ (π β
(β€β₯β0) = ((0...((π + 1) β 1)) βͺ
(β€β₯β(π + 1)))) |
66 | 60, 65 | eqtrid 2784 |
. . . . . . . . . . . . . . . . 17
β’ (π β β0 =
((0...((π + 1) β 1))
βͺ (β€β₯β(π + 1)))) |
67 | 39 | nn0cnd 12530 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β π β β) |
68 | | ax-1cn 11164 |
. . . . . . . . . . . . . . . . . . . 20
β’ 1 β
β |
69 | | pncan 11462 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β β§ 1 β
β) β ((π + 1)
β 1) = π) |
70 | 67, 68, 69 | sylancl 586 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β ((π + 1) β 1) = π) |
71 | 70 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (0...((π + 1) β 1)) = (0...π)) |
72 | 71 | uneq1d 4161 |
. . . . . . . . . . . . . . . . 17
β’ (π β ((0...((π + 1) β 1)) βͺ
(β€β₯β(π + 1))) = ((0...π) βͺ (β€β₯β(π + 1)))) |
73 | 66, 72 | eqtrd 2772 |
. . . . . . . . . . . . . . . 16
β’ (π β β0 =
((0...π) βͺ
(β€β₯β(π + 1)))) |
74 | 73 | ad2antrr 724 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β β0 = ((0...π) βͺ
(β€β₯β(π + 1)))) |
75 | 59, 74 | eleqtrd 2835 |
. . . . . . . . . . . . . 14
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β π β ((0...π) βͺ (β€β₯β(π + 1)))) |
76 | | elun 4147 |
. . . . . . . . . . . . . 14
β’ (π β ((0...π) βͺ (β€β₯β(π + 1))) β (π β (0...π) β¨ π β (β€β₯β(π + 1)))) |
77 | 75, 76 | sylib 217 |
. . . . . . . . . . . . 13
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π β (0...π) β¨ π β (β€β₯β(π + 1)))) |
78 | 77 | ord 862 |
. . . . . . . . . . . 12
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (Β¬ π β (0...π) β π β (β€β₯β(π + 1)))) |
79 | 56, 78 | mpd 15 |
. . . . . . . . . . 11
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β π β (β€β₯β(π + 1))) |
80 | 12 | ffund 6718 |
. . . . . . . . . . . . 13
β’ (π β Fun π΄) |
81 | | ssun2 4172 |
. . . . . . . . . . . . . . 15
β’
(β€β₯β(π + 1)) β ((0...((π + 1) β 1)) βͺ
(β€β₯β(π + 1))) |
82 | 81, 66 | sseqtrrid 4034 |
. . . . . . . . . . . . . 14
β’ (π β
(β€β₯β(π + 1)) β
β0) |
83 | 12 | fdmd 6725 |
. . . . . . . . . . . . . 14
β’ (π β dom π΄ = β0) |
84 | 82, 83 | sseqtrrd 4022 |
. . . . . . . . . . . . 13
β’ (π β
(β€β₯β(π + 1)) β dom π΄) |
85 | | funfvima2 7229 |
. . . . . . . . . . . . 13
β’ ((Fun
π΄ β§
(β€β₯β(π + 1)) β dom π΄) β (π β (β€β₯β(π + 1)) β (π΄βπ) β (π΄ β
(β€β₯β(π + 1))))) |
86 | 80, 84, 85 | syl2anc 584 |
. . . . . . . . . . . 12
β’ (π β (π β (β€β₯β(π + 1)) β (π΄βπ) β (π΄ β
(β€β₯β(π + 1))))) |
87 | 86 | ad2antrr 724 |
. . . . . . . . . . 11
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π β (β€β₯β(π + 1)) β (π΄βπ) β (π΄ β
(β€β₯β(π + 1))))) |
88 | 79, 87 | mpd 15 |
. . . . . . . . . 10
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π΄βπ) β (π΄ β
(β€β₯β(π + 1)))) |
89 | | plyaddlem.a2 |
. . . . . . . . . . 11
β’ (π β (π΄ β
(β€β₯β(π + 1))) = {0}) |
90 | 89 | ad2antrr 724 |
. . . . . . . . . 10
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π΄ β
(β€β₯β(π + 1))) = {0}) |
91 | 88, 90 | eleqtrd 2835 |
. . . . . . . . 9
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π΄βπ) β {0}) |
92 | | elsni 4644 |
. . . . . . . . 9
β’ ((π΄βπ) β {0} β (π΄βπ) = 0) |
93 | 91, 92 | syl 17 |
. . . . . . . 8
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π΄βπ) = 0) |
94 | 93 | oveq1d 7420 |
. . . . . . 7
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β ((π΄βπ) Β· (π§βπ)) = (0 Β· (π§βπ))) |
95 | 58, 16 | sylan2 593 |
. . . . . . . 8
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π§βπ) β β) |
96 | 95 | mul02d 11408 |
. . . . . . 7
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (0 Β· (π§βπ)) = 0) |
97 | 94, 96 | eqtrd 2772 |
. . . . . 6
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β ((π΄βπ) Β· (π§βπ)) = 0) |
98 | 52, 54, 97, 10 | fsumss 15667 |
. . . . 5
β’ ((π β§ π§ β β) β Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)) = Ξ£π β (0...if(π β€ π, π, π))((π΄βπ) Β· (π§βπ))) |
99 | 41 | nn0zd 12580 |
. . . . . . . . 9
β’ (π β π β β€) |
100 | | max2 13162 |
. . . . . . . . . 10
β’ ((π β β β§ π β β) β π β€ if(π β€ π, π, π)) |
101 | 44, 45, 100 | syl2anc 584 |
. . . . . . . . 9
β’ (π β π β€ if(π β€ π, π, π)) |
102 | | eluz2 12824 |
. . . . . . . . 9
β’ (if(π β€ π, π, π) β (β€β₯βπ) β (π β β€ β§ if(π β€ π, π, π) β β€ β§ π β€ if(π β€ π, π, π))) |
103 | 99, 43, 101, 102 | syl3anbrc 1343 |
. . . . . . . 8
β’ (π β if(π β€ π, π, π) β (β€β₯βπ)) |
104 | | fzss2 13537 |
. . . . . . . 8
β’ (if(π β€ π, π, π) β (β€β₯βπ) β (0...π) β (0...if(π β€ π, π, π))) |
105 | 103, 104 | syl 17 |
. . . . . . 7
β’ (π β (0...π) β (0...if(π β€ π, π, π))) |
106 | 105 | adantr 481 |
. . . . . 6
β’ ((π β§ π§ β β) β (0...π) β (0...if(π β€ π, π, π))) |
107 | | elfznn0 13590 |
. . . . . . 7
β’ (π β (0...π) β π β β0) |
108 | 107, 22 | sylan2 593 |
. . . . . 6
β’ (((π β§ π§ β β) β§ π β (0...π)) β ((π΅βπ) Β· (π§βπ)) β β) |
109 | | eldifn 4126 |
. . . . . . . . . . . . 13
β’ (π β ((0...if(π β€ π, π, π)) β (0...π)) β Β¬ π β (0...π)) |
110 | 109 | adantl 482 |
. . . . . . . . . . . 12
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β Β¬ π β (0...π)) |
111 | | eldifi 4125 |
. . . . . . . . . . . . . . . . 17
β’ (π β ((0...if(π β€ π, π, π)) β (0...π)) β π β (0...if(π β€ π, π, π))) |
112 | 111, 11 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (π β ((0...if(π β€ π, π, π)) β (0...π)) β π β β0) |
113 | 112 | adantl 482 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β π β β0) |
114 | | peano2nn0 12508 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β β0
β (π + 1) β
β0) |
115 | 41, 114 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (π + 1) β
β0) |
116 | 115, 60 | eleqtrdi 2843 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (π + 1) β
(β€β₯β0)) |
117 | | uzsplit 13569 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π + 1) β
(β€β₯β0) β (β€β₯β0) =
((0...((π + 1) β 1))
βͺ (β€β₯β(π + 1)))) |
118 | 116, 117 | syl 17 |
. . . . . . . . . . . . . . . . . 18
β’ (π β
(β€β₯β0) = ((0...((π + 1) β 1)) βͺ
(β€β₯β(π + 1)))) |
119 | 60, 118 | eqtrid 2784 |
. . . . . . . . . . . . . . . . 17
β’ (π β β0 =
((0...((π + 1) β 1))
βͺ (β€β₯β(π + 1)))) |
120 | 41 | nn0cnd 12530 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β π β β) |
121 | | pncan 11462 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β β§ 1 β
β) β ((π + 1)
β 1) = π) |
122 | 120, 68, 121 | sylancl 586 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β ((π + 1) β 1) = π) |
123 | 122 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . 18
β’ (π β (0...((π + 1) β 1)) = (0...π)) |
124 | 123 | uneq1d 4161 |
. . . . . . . . . . . . . . . . 17
β’ (π β ((0...((π + 1) β 1)) βͺ
(β€β₯β(π + 1))) = ((0...π) βͺ (β€β₯β(π + 1)))) |
125 | 119, 124 | eqtrd 2772 |
. . . . . . . . . . . . . . . 16
β’ (π β β0 =
((0...π) βͺ
(β€β₯β(π + 1)))) |
126 | 125 | ad2antrr 724 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β β0 = ((0...π) βͺ
(β€β₯β(π + 1)))) |
127 | 113, 126 | eleqtrd 2835 |
. . . . . . . . . . . . . 14
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β π β ((0...π) βͺ (β€β₯β(π + 1)))) |
128 | | elun 4147 |
. . . . . . . . . . . . . 14
β’ (π β ((0...π) βͺ (β€β₯β(π + 1))) β (π β (0...π) β¨ π β (β€β₯β(π + 1)))) |
129 | 127, 128 | sylib 217 |
. . . . . . . . . . . . 13
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π β (0...π) β¨ π β (β€β₯β(π + 1)))) |
130 | 129 | ord 862 |
. . . . . . . . . . . 12
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (Β¬ π β (0...π) β π β (β€β₯β(π + 1)))) |
131 | 110, 130 | mpd 15 |
. . . . . . . . . . 11
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β π β (β€β₯β(π + 1))) |
132 | 19 | ffund 6718 |
. . . . . . . . . . . . 13
β’ (π β Fun π΅) |
133 | | ssun2 4172 |
. . . . . . . . . . . . . . 15
β’
(β€β₯β(π + 1)) β ((0...((π + 1) β 1)) βͺ
(β€β₯β(π + 1))) |
134 | 133, 119 | sseqtrrid 4034 |
. . . . . . . . . . . . . 14
β’ (π β
(β€β₯β(π + 1)) β
β0) |
135 | 19 | fdmd 6725 |
. . . . . . . . . . . . . 14
β’ (π β dom π΅ = β0) |
136 | 134, 135 | sseqtrrd 4022 |
. . . . . . . . . . . . 13
β’ (π β
(β€β₯β(π + 1)) β dom π΅) |
137 | | funfvima2 7229 |
. . . . . . . . . . . . 13
β’ ((Fun
π΅ β§
(β€β₯β(π + 1)) β dom π΅) β (π β (β€β₯β(π + 1)) β (π΅βπ) β (π΅ β
(β€β₯β(π + 1))))) |
138 | 132, 136,
137 | syl2anc 584 |
. . . . . . . . . . . 12
β’ (π β (π β (β€β₯β(π + 1)) β (π΅βπ) β (π΅ β
(β€β₯β(π + 1))))) |
139 | 138 | ad2antrr 724 |
. . . . . . . . . . 11
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π β (β€β₯β(π + 1)) β (π΅βπ) β (π΅ β
(β€β₯β(π + 1))))) |
140 | 131, 139 | mpd 15 |
. . . . . . . . . 10
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π΅βπ) β (π΅ β
(β€β₯β(π + 1)))) |
141 | | plyaddlem.b2 |
. . . . . . . . . . 11
β’ (π β (π΅ β
(β€β₯β(π + 1))) = {0}) |
142 | 141 | ad2antrr 724 |
. . . . . . . . . 10
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π΅ β
(β€β₯β(π + 1))) = {0}) |
143 | 140, 142 | eleqtrd 2835 |
. . . . . . . . 9
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π΅βπ) β {0}) |
144 | | elsni 4644 |
. . . . . . . . 9
β’ ((π΅βπ) β {0} β (π΅βπ) = 0) |
145 | 143, 144 | syl 17 |
. . . . . . . 8
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π΅βπ) = 0) |
146 | 145 | oveq1d 7420 |
. . . . . . 7
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β ((π΅βπ) Β· (π§βπ)) = (0 Β· (π§βπ))) |
147 | 112, 16 | sylan2 593 |
. . . . . . . 8
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (π§βπ) β β) |
148 | 147 | mul02d 11408 |
. . . . . . 7
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β (0 Β· (π§βπ)) = 0) |
149 | 146, 148 | eqtrd 2772 |
. . . . . 6
β’ (((π β§ π§ β β) β§ π β ((0...if(π β€ π, π, π)) β (0...π))) β ((π΅βπ) Β· (π§βπ)) = 0) |
150 | 106, 108,
149, 10 | fsumss 15667 |
. . . . 5
β’ ((π β§ π§ β β) β Ξ£π β (0...π)((π΅βπ) Β· (π§βπ)) = Ξ£π β (0...if(π β€ π, π, π))((π΅βπ) Β· (π§βπ))) |
151 | 98, 150 | oveq12d 7423 |
. . . 4
β’ ((π β§ π§ β β) β (Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)) + Ξ£π β (0...π)((π΅βπ) Β· (π§βπ))) = (Ξ£π β (0...if(π β€ π, π, π))((π΄βπ) Β· (π§βπ)) + Ξ£π β (0...if(π β€ π, π, π))((π΅βπ) Β· (π§βπ)))) |
152 | 24, 38, 151 | 3eqtr4d 2782 |
. . 3
β’ ((π β§ π§ β β) β Ξ£π β (0...if(π β€ π, π, π))(((π΄ βf + π΅)βπ) Β· (π§βπ)) = (Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)) + Ξ£π β (0...π)((π΅βπ) Β· (π§βπ)))) |
153 | 152 | mpteq2dva 5247 |
. 2
β’ (π β (π§ β β β¦ Ξ£π β (0...if(π β€ π, π, π))(((π΄ βf + π΅)βπ) Β· (π§βπ))) = (π§ β β β¦ (Ξ£π β (0...π)((π΄βπ) Β· (π§βπ)) + Ξ£π β (0...π)((π΅βπ) Β· (π§βπ))))) |
154 | 9, 153 | eqtr4d 2775 |
1
β’ (π β (πΉ βf + πΊ) = (π§ β β β¦ Ξ£π β (0...if(π β€ π, π, π))(((π΄ βf + π΅)βπ) Β· (π§βπ)))) |