Step | Hyp | Ref
| Expression |
1 | | breprexplemc.t |
. . . . 5
β’ (π β π β
β0) |
2 | | nn0uz 12861 |
. . . . 5
β’
β0 = (β€β₯β0) |
3 | 1, 2 | eleqtrdi 2844 |
. . . 4
β’ (π β π β
(β€β₯β0)) |
4 | | fzosplitsn 13737 |
. . . 4
β’ (π β
(β€β₯β0) β (0..^(π + 1)) = ((0..^π) βͺ {π})) |
5 | 3, 4 | syl 17 |
. . 3
β’ (π β (0..^(π + 1)) = ((0..^π) βͺ {π})) |
6 | 5 | prodeq1d 15862 |
. 2
β’ (π β βπ β (0..^(π + 1))Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = βπ β ((0..^π) βͺ {π})Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ))) |
7 | | nfv 1918 |
. . 3
β’
β²ππ |
8 | | nfcv 2904 |
. . 3
β’
β²πΞ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) |
9 | | fzofi 13936 |
. . . 4
β’
(0..^π) β
Fin |
10 | 9 | a1i 11 |
. . 3
β’ (π β (0..^π) β Fin) |
11 | | fzonel 13643 |
. . . 4
β’ Β¬
π β (0..^π) |
12 | 11 | a1i 11 |
. . 3
β’ (π β Β¬ π β (0..^π)) |
13 | | fzfid 13935 |
. . . 4
β’ ((π β§ π β (0..^π)) β (1...π) β Fin) |
14 | | breprexp.n |
. . . . . . 7
β’ (π β π β
β0) |
15 | 14 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β
β0) |
16 | | breprexp.s |
. . . . . . 7
β’ (π β π β
β0) |
17 | 16 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β
β0) |
18 | | breprexp.z |
. . . . . . 7
β’ (π β π β β) |
19 | 18 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β β) |
20 | | breprexp.h |
. . . . . . . 8
β’ (π β πΏ:(0..^π)βΆ(β βm
β)) |
21 | 20 | adantr 482 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β πΏ:(0..^π)βΆ(β βm
β)) |
22 | 21 | adantr 482 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β πΏ:(0..^π)βΆ(β βm
β)) |
23 | 1 | nn0zd 12581 |
. . . . . . . . . 10
β’ (π β π β β€) |
24 | 16 | nn0zd 12581 |
. . . . . . . . . 10
β’ (π β π β β€) |
25 | 1 | nn0red 12530 |
. . . . . . . . . . 11
β’ (π β π β β) |
26 | | 1red 11212 |
. . . . . . . . . . . 12
β’ (π β 1 β
β) |
27 | 25, 26 | readdcld 11240 |
. . . . . . . . . . 11
β’ (π β (π + 1) β β) |
28 | 16 | nn0red 12530 |
. . . . . . . . . . 11
β’ (π β π β β) |
29 | 25 | lep1d 12142 |
. . . . . . . . . . 11
β’ (π β π β€ (π + 1)) |
30 | | breprexplemc.s |
. . . . . . . . . . 11
β’ (π β (π + 1) β€ π) |
31 | 25, 27, 28, 29, 30 | letrd 11368 |
. . . . . . . . . 10
β’ (π β π β€ π) |
32 | | eluz1 12823 |
. . . . . . . . . . 11
β’ (π β β€ β (π β
(β€β₯βπ) β (π β β€ β§ π β€ π))) |
33 | 32 | biimpar 479 |
. . . . . . . . . 10
β’ ((π β β€ β§ (π β β€ β§ π β€ π)) β π β (β€β₯βπ)) |
34 | 23, 24, 31, 33 | syl12anc 836 |
. . . . . . . . 9
β’ (π β π β (β€β₯βπ)) |
35 | | fzoss2 13657 |
. . . . . . . . 9
β’ (π β
(β€β₯βπ) β (0..^π) β (0..^π)) |
36 | 34, 35 | syl 17 |
. . . . . . . 8
β’ (π β (0..^π) β (0..^π)) |
37 | 36 | sselda 3982 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β π β (0..^π)) |
38 | 37 | adantr 482 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β (0..^π)) |
39 | | fz1ssnn 13529 |
. . . . . . . 8
β’
(1...π) β
β |
40 | 39 | a1i 11 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (1...π) β β) |
41 | 40 | sselda 3982 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β β) |
42 | 15, 17, 19, 22, 38, 41 | breprexplemb 33632 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β ((πΏβπ)βπ) β β) |
43 | | nnssnn0 12472 |
. . . . . . . . . . 11
β’ β
β β0 |
44 | 39, 43 | sstri 3991 |
. . . . . . . . . 10
β’
(1...π) β
β0 |
45 | 44 | a1i 11 |
. . . . . . . . 9
β’ (π β (1...π) β
β0) |
46 | 45 | ralrimivw 3151 |
. . . . . . . 8
β’ (π β βπ β (0..^π)(1...π) β
β0) |
47 | 46 | r19.21bi 3249 |
. . . . . . 7
β’ ((π β§ π β (0..^π)) β (1...π) β
β0) |
48 | 47 | sselda 3982 |
. . . . . 6
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β π β β0) |
49 | 19, 48 | expcld 14108 |
. . . . 5
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β (πβπ) β β) |
50 | 42, 49 | mulcld 11231 |
. . . 4
β’ (((π β§ π β (0..^π)) β§ π β (1...π)) β (((πΏβπ)βπ) Β· (πβπ)) β β) |
51 | 13, 50 | fsumcl 15676 |
. . 3
β’ ((π β§ π β (0..^π)) β Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) β β) |
52 | | simpl 484 |
. . . . . . 7
β’ ((π = π β§ π β (1...π)) β π = π) |
53 | 52 | fveq2d 6893 |
. . . . . 6
β’ ((π = π β§ π β (1...π)) β (πΏβπ) = (πΏβπ)) |
54 | 53 | fveq1d 6891 |
. . . . 5
β’ ((π = π β§ π β (1...π)) β ((πΏβπ)βπ) = ((πΏβπ)βπ)) |
55 | 54 | oveq1d 7421 |
. . . 4
β’ ((π = π β§ π β (1...π)) β (((πΏβπ)βπ) Β· (πβπ)) = (((πΏβπ)βπ) Β· (πβπ))) |
56 | 55 | sumeq2dv 15646 |
. . 3
β’ (π = π β Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ))) |
57 | | fzfid 13935 |
. . . 4
β’ (π β (1...π) β Fin) |
58 | 14 | adantr 482 |
. . . . . 6
β’ ((π β§ π β (1...π)) β π β
β0) |
59 | 16 | adantr 482 |
. . . . . 6
β’ ((π β§ π β (1...π)) β π β
β0) |
60 | 18 | adantr 482 |
. . . . . 6
β’ ((π β§ π β (1...π)) β π β β) |
61 | 20 | adantr 482 |
. . . . . 6
β’ ((π β§ π β (1...π)) β πΏ:(0..^π)βΆ(β βm
β)) |
62 | 1 | nn0ge0d 12532 |
. . . . . . . 8
β’ (π β 0 β€ π) |
63 | | zltp1le 12609 |
. . . . . . . . . 10
β’ ((π β β€ β§ π β β€) β (π < π β (π + 1) β€ π)) |
64 | 23, 24, 63 | syl2anc 585 |
. . . . . . . . 9
β’ (π β (π < π β (π + 1) β€ π)) |
65 | 30, 64 | mpbird 257 |
. . . . . . . 8
β’ (π β π < π) |
66 | | 0zd 12567 |
. . . . . . . . 9
β’ (π β 0 β
β€) |
67 | | elfzo 13631 |
. . . . . . . . 9
β’ ((π β β€ β§ 0 β
β€ β§ π β
β€) β (π β
(0..^π) β (0 β€
π β§ π < π))) |
68 | 23, 66, 24, 67 | syl3anc 1372 |
. . . . . . . 8
β’ (π β (π β (0..^π) β (0 β€ π β§ π < π))) |
69 | 62, 65, 68 | mpbir2and 712 |
. . . . . . 7
β’ (π β π β (0..^π)) |
70 | 69 | adantr 482 |
. . . . . 6
β’ ((π β§ π β (1...π)) β π β (0..^π)) |
71 | 39 | a1i 11 |
. . . . . . 7
β’ (π β (1...π) β β) |
72 | 71 | sselda 3982 |
. . . . . 6
β’ ((π β§ π β (1...π)) β π β β) |
73 | 58, 59, 60, 61, 70, 72 | breprexplemb 33632 |
. . . . 5
β’ ((π β§ π β (1...π)) β ((πΏβπ)βπ) β β) |
74 | 45 | sselda 3982 |
. . . . . 6
β’ ((π β§ π β (1...π)) β π β β0) |
75 | 60, 74 | expcld 14108 |
. . . . 5
β’ ((π β§ π β (1...π)) β (πβπ) β β) |
76 | 73, 75 | mulcld 11231 |
. . . 4
β’ ((π β§ π β (1...π)) β (((πΏβπ)βπ) Β· (πβπ)) β β) |
77 | 57, 76 | fsumcl 15676 |
. . 3
β’ (π β Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) β β) |
78 | 7, 8, 10, 1, 12, 51, 56, 77 | fprodsplitsn 15930 |
. 2
β’ (π β βπ β ((0..^π) βͺ {π})Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = (βπ β (0..^π)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) Β· Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)))) |
79 | | breprexplemc.1 |
. . . 4
β’ (π β βπ β (0..^π)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ))) |
80 | 79 | oveq1d 7421 |
. . 3
β’ (π β (βπ β (0..^π)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) Β· Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ))) = (Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)))) |
81 | | fzfid 13935 |
. . . 4
β’ (π β (0...(π Β· π)) β Fin) |
82 | 39 | a1i 11 |
. . . . . 6
β’ ((π β§ π β (0...(π Β· π))) β (1...π) β β) |
83 | | simpr 486 |
. . . . . . 7
β’ ((π β§ π β (0...(π Β· π))) β π β (0...(π Β· π))) |
84 | 83 | elfzelzd 13499 |
. . . . . 6
β’ ((π β§ π β (0...(π Β· π))) β π β β€) |
85 | 1 | adantr 482 |
. . . . . 6
β’ ((π β§ π β (0...(π Β· π))) β π β
β0) |
86 | 57 | adantr 482 |
. . . . . 6
β’ ((π β§ π β (0...(π Β· π))) β (1...π) β Fin) |
87 | 82, 84, 85, 86 | reprfi 33617 |
. . . . 5
β’ ((π β§ π β (0...(π Β· π))) β ((1...π)(reprβπ)π) β Fin) |
88 | 9 | a1i 11 |
. . . . . . 7
β’ (((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β (0..^π) β Fin) |
89 | 14 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ π β (0...(π Β· π))) β π β
β0) |
90 | 89 | ad2antrr 725 |
. . . . . . . 8
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β
β0) |
91 | 16 | ad3antrrr 729 |
. . . . . . . 8
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β
β0) |
92 | 18 | ad3antrrr 729 |
. . . . . . . 8
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β β) |
93 | 20 | ad3antrrr 729 |
. . . . . . . 8
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β πΏ:(0..^π)βΆ(β βm
β)) |
94 | 36 | ad2antrr 725 |
. . . . . . . . 9
β’ (((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β (0..^π) β (0..^π)) |
95 | 94 | sselda 3982 |
. . . . . . . 8
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β (0..^π)) |
96 | 39 | a1i 11 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β (1...π) β β) |
97 | 84 | ad2antrr 725 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β β€) |
98 | 85 | ad2antrr 725 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β
β0) |
99 | | simplr 768 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β ((1...π)(reprβπ)π)) |
100 | 96, 97, 98, 99 | reprf 33613 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π:(0..^π)βΆ(1...π)) |
101 | | simpr 486 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β (0..^π)) |
102 | 100, 101 | ffvelcdmd 7085 |
. . . . . . . . 9
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β (πβπ) β (1...π)) |
103 | 39, 102 | sselid 3980 |
. . . . . . . 8
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β (πβπ) β β) |
104 | 90, 91, 92, 93, 95, 103 | breprexplemb 33632 |
. . . . . . 7
β’ ((((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β ((πΏβπ)β(πβπ)) β β) |
105 | 88, 104 | fprodcl 15893 |
. . . . . 6
β’ (((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β βπ β (0..^π)((πΏβπ)β(πβπ)) β β) |
106 | 18 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β π β β) |
107 | | fz0ssnn0 13593 |
. . . . . . . . 9
β’
(0...(π Β·
π)) β
β0 |
108 | 107, 83 | sselid 3980 |
. . . . . . . 8
β’ ((π β§ π β (0...(π Β· π))) β π β β0) |
109 | 108 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β π β β0) |
110 | 106, 109 | expcld 14108 |
. . . . . 6
β’ (((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β (πβπ) β β) |
111 | 105, 110 | mulcld 11231 |
. . . . 5
β’ (((π β§ π β (0...(π Β· π))) β§ π β ((1...π)(reprβπ)π)) β (βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) β β) |
112 | 87, 111 | fsumcl 15676 |
. . . 4
β’ ((π β§ π β (0...(π Β· π))) β Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) β β) |
113 | 81, 57, 112, 76 | fsum2mul 15732 |
. . 3
β’ (π β Ξ£π β (0...(π Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = (Ξ£π β (0...(π Β· π))Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)))) |
114 | 39 | a1i 11 |
. . . . . . . . . 10
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (1...π) β β) |
115 | | simpr 486 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0...((π + 1) Β· π))) β π β (0...((π + 1) Β· π))) |
116 | 115 | elfzelzd 13499 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0...((π + 1) Β· π))) β π β β€) |
117 | 116 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β π β β€) |
118 | | simpr 486 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β π β (1...π)) |
119 | 118 | elfzelzd 13499 |
. . . . . . . . . . 11
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β π β β€) |
120 | 117, 119 | zsubcld 12668 |
. . . . . . . . . 10
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (π β π) β β€) |
121 | 1 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π β (0...((π + 1) Β· π))) β π β
β0) |
122 | 121 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β π β
β0) |
123 | 57 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β§ π β (0...((π + 1) Β· π))) β (1...π) β Fin) |
124 | 123 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (1...π) β Fin) |
125 | 114, 120,
122, 124 | reprfi 33617 |
. . . . . . . . 9
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β ((1...π)(reprβπ)(π β π)) β Fin) |
126 | 73 | adantlr 714 |
. . . . . . . . . 10
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β ((πΏβπ)βπ) β β) |
127 | 18 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0...((π + 1) Β· π))) β π β β) |
128 | | fz0ssnn0 13593 |
. . . . . . . . . . . . 13
β’
(0...((π + 1)
Β· π)) β
β0 |
129 | 128, 115 | sselid 3980 |
. . . . . . . . . . . 12
β’ ((π β§ π β (0...((π + 1) Β· π))) β π β β0) |
130 | 127, 129 | expcld 14108 |
. . . . . . . . . . 11
β’ ((π β§ π β (0...((π + 1) Β· π))) β (πβπ) β β) |
131 | 130 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (πβπ) β β) |
132 | 126, 131 | mulcld 11231 |
. . . . . . . . 9
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (((πΏβπ)βπ) Β· (πβπ)) β β) |
133 | 9 | a1i 11 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β (0..^π) β Fin) |
134 | 14 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (0...((π + 1) Β· π))) β π β
β0) |
135 | 134 | adantr 482 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β π β
β0) |
136 | 135 | ad2antrr 725 |
. . . . . . . . . . 11
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β π β
β0) |
137 | 16 | ad4antr 731 |
. . . . . . . . . . 11
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β π β
β0) |
138 | 127 | ad3antrrr 729 |
. . . . . . . . . . 11
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β π β β) |
139 | 20 | ad4antr 731 |
. . . . . . . . . . 11
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β πΏ:(0..^π)βΆ(β βm
β)) |
140 | 37 | ad5ant15 758 |
. . . . . . . . . . 11
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β π β (0..^π)) |
141 | 39 | a1i 11 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β (1...π) β β) |
142 | 120 | ad2antrr 725 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β (π β π) β β€) |
143 | 122 | ad2antrr 725 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β π β
β0) |
144 | | simplr 768 |
. . . . . . . . . . . . . 14
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β π β ((1...π)(reprβπ)(π β π))) |
145 | 141, 142,
143, 144 | reprf 33613 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β π:(0..^π)βΆ(1...π)) |
146 | | simpr 486 |
. . . . . . . . . . . . 13
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β π β (0..^π)) |
147 | 145, 146 | ffvelcdmd 7085 |
. . . . . . . . . . . 12
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β (πβπ) β (1...π)) |
148 | 39, 147 | sselid 3980 |
. . . . . . . . . . 11
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β (πβπ) β β) |
149 | 136, 137,
138, 139, 140, 148 | breprexplemb 33632 |
. . . . . . . . . 10
β’
(((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β§ π β (0..^π)) β ((πΏβπ)β(πβπ)) β β) |
150 | 133, 149 | fprodcl 15893 |
. . . . . . . . 9
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β βπ β (0..^π)((πΏβπ)β(πβπ)) β β) |
151 | 125, 132,
150 | fsummulc1 15728 |
. . . . . . . 8
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
152 | 151 | sumeq2dv 15646 |
. . . . . . 7
β’ ((π β§ π β (0...((π + 1) Β· π))) β Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = Ξ£π β (1...π)Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
153 | | elfzle2 13502 |
. . . . . . . . . . 11
β’ (π β (0...((π + 1) Β· π)) β π β€ ((π + 1) Β· π)) |
154 | 153 | adantl 483 |
. . . . . . . . . 10
β’ ((π β§ π β (0...((π + 1) Β· π))) β π β€ ((π + 1) Β· π)) |
155 | 134 | ad2antrr 725 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π₯ β (0..^(π + 1))) β§ π¦ β β) β π β
β0) |
156 | 16 | ad3antrrr 729 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π₯ β (0..^(π + 1))) β§ π¦ β β) β π β
β0) |
157 | 127 | ad2antrr 725 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π₯ β (0..^(π + 1))) β§ π¦ β β) β π β β) |
158 | 20 | ad3antrrr 729 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π₯ β (0..^(π + 1))) β§ π¦ β β) β πΏ:(0..^π)βΆ(β βm
β)) |
159 | 23 | peano2zd 12666 |
. . . . . . . . . . . . . . 15
β’ (π β (π + 1) β β€) |
160 | | eluz 12833 |
. . . . . . . . . . . . . . . 16
β’ (((π + 1) β β€ β§ π β β€) β (π β
(β€β₯β(π + 1)) β (π + 1) β€ π)) |
161 | 160 | biimpar 479 |
. . . . . . . . . . . . . . 15
β’ ((((π + 1) β β€ β§ π β β€) β§ (π + 1) β€ π) β π β (β€β₯β(π + 1))) |
162 | 159, 24, 30, 161 | syl21anc 837 |
. . . . . . . . . . . . . 14
β’ (π β π β (β€β₯β(π + 1))) |
163 | | fzoss2 13657 |
. . . . . . . . . . . . . 14
β’ (π β
(β€β₯β(π + 1)) β (0..^(π + 1)) β (0..^π)) |
164 | 162, 163 | syl 17 |
. . . . . . . . . . . . 13
β’ (π β (0..^(π + 1)) β (0..^π)) |
165 | 164 | ad3antrrr 729 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π₯ β (0..^(π + 1))) β§ π¦ β β) β (0..^(π + 1)) β (0..^π)) |
166 | | simplr 768 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π₯ β (0..^(π + 1))) β§ π¦ β β) β π₯ β (0..^(π + 1))) |
167 | 165, 166 | sseldd 3983 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π₯ β (0..^(π + 1))) β§ π¦ β β) β π₯ β (0..^π)) |
168 | | simpr 486 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π₯ β (0..^(π + 1))) β§ π¦ β β) β π¦ β β) |
169 | 155, 156,
157, 158, 167, 168 | breprexplemb 33632 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π₯ β (0..^(π + 1))) β§ π¦ β β) β ((πΏβπ₯)βπ¦) β β) |
170 | 134, 121,
129, 154, 169 | breprexplema 33631 |
. . . . . . . . 9
β’ ((π β§ π β (0...((π + 1) Β· π))) β Ξ£π β ((1...π)(reprβ(π + 1))π)βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) = Ξ£π β (1...π)Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ))) |
171 | 170 | oveq1d 7421 |
. . . . . . . 8
β’ ((π β§ π β (0...((π + 1) Β· π))) β (Ξ£π β ((1...π)(reprβ(π + 1))π)βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ)) = (Ξ£π β (1...π)Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) Β· (πβπ))) |
172 | 126 | adantr 482 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β ((πΏβπ)βπ) β β) |
173 | 150, 172 | mulcld 11231 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β (βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) β β) |
174 | 125, 173 | fsumcl 15676 |
. . . . . . . . 9
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) β β) |
175 | 123, 130,
174 | fsummulc1 15728 |
. . . . . . . 8
β’ ((π β§ π β (0...((π + 1) Β· π))) β (Ξ£π β (1...π)Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) Β· (πβπ)) = Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) Β· (πβπ))) |
176 | 125, 131,
173 | fsummulc1 15728 |
. . . . . . . . . 10
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ)(π β π))((βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) Β· (πβπ))) |
177 | 131 | adantr 482 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β (πβπ) β β) |
178 | 150, 172,
177 | mulassd 11234 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)(π β π))) β ((βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) Β· (πβπ)) = (βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
179 | 178 | sumeq2dv 15646 |
. . . . . . . . . 10
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β Ξ£π β ((1...π)(reprβπ)(π β π))((βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
180 | 176, 179 | eqtrd 2773 |
. . . . . . . . 9
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
181 | 180 | sumeq2dv 15646 |
. . . . . . . 8
β’ ((π β§ π β (0...((π + 1) Β· π))) β Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πΏβπ)βπ)) Β· (πβπ)) = Ξ£π β (1...π)Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
182 | 171, 175,
181 | 3eqtrd 2777 |
. . . . . . 7
β’ ((π β§ π β (0...((π + 1) Β· π))) β (Ξ£π β ((1...π)(reprβ(π + 1))π)βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β (1...π)Ξ£π β ((1...π)(reprβπ)(π β π))(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
183 | 39 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π β (0...((π + 1) Β· π))) β (1...π) β β) |
184 | | 1nn0 12485 |
. . . . . . . . . . 11
β’ 1 β
β0 |
185 | 184 | a1i 11 |
. . . . . . . . . 10
β’ ((π β§ π β (0...((π + 1) Β· π))) β 1 β
β0) |
186 | 121, 185 | nn0addcld 12533 |
. . . . . . . . 9
β’ ((π β§ π β (0...((π + 1) Β· π))) β (π + 1) β
β0) |
187 | 183, 116,
186, 123 | reprfi 33617 |
. . . . . . . 8
β’ ((π β§ π β (0...((π + 1) Β· π))) β ((1...π)(reprβ(π + 1))π) β Fin) |
188 | | fzofi 13936 |
. . . . . . . . . 10
β’
(0..^(π + 1)) β
Fin |
189 | 188 | a1i 11 |
. . . . . . . . 9
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β (0..^(π + 1)) β Fin) |
190 | 134 | ad2antrr 725 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β π β
β0) |
191 | 16 | ad3antrrr 729 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β π β
β0) |
192 | 127 | ad2antrr 725 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β π β β) |
193 | 20 | ad3antrrr 729 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β πΏ:(0..^π)βΆ(β βm
β)) |
194 | 164 | ad2antrr 725 |
. . . . . . . . . . 11
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β (0..^(π + 1)) β (0..^π)) |
195 | 194 | sselda 3982 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β π β (0..^π)) |
196 | 39 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β (1...π) β β) |
197 | 116 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β π β β€) |
198 | 186 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β (π + 1) β
β0) |
199 | | simplr 768 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β π β ((1...π)(reprβ(π + 1))π)) |
200 | 196, 197,
198, 199 | reprf 33613 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β π:(0..^(π + 1))βΆ(1...π)) |
201 | | simpr 486 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β π β (0..^(π + 1))) |
202 | 200, 201 | ffvelcdmd 7085 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β (πβπ) β (1...π)) |
203 | 39, 202 | sselid 3980 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β (πβπ) β β) |
204 | 190, 191,
192, 193, 195, 203 | breprexplemb 33632 |
. . . . . . . . 9
β’ ((((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β§ π β (0..^(π + 1))) β ((πΏβπ)β(πβπ)) β β) |
205 | 189, 204 | fprodcl 15893 |
. . . . . . . 8
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β ((1...π)(reprβ(π + 1))π)) β βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) β β) |
206 | 187, 130,
205 | fsummulc1 15728 |
. . . . . . 7
β’ ((π β§ π β (0...((π + 1) Β· π))) β (Ξ£π β ((1...π)(reprβ(π + 1))π)βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |
207 | 152, 182,
206 | 3eqtr2rd 2780 |
. . . . . 6
β’ ((π β§ π β (0...((π + 1) Β· π))) β Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
208 | 207 | sumeq2dv 15646 |
. . . . 5
β’ (π β Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
209 | | oveq1 7413 |
. . . . . . . . . . 11
β’ (π = π β (π β π) = (π β π)) |
210 | 209 | oveq2d 7422 |
. . . . . . . . . 10
β’ (π = π β ((1...π)(reprβπ)(π β π)) = ((1...π)(reprβπ)(π β π))) |
211 | 210 | sumeq1d 15644 |
. . . . . . . . 9
β’ (π = π β Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) = Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ))) |
212 | | oveq2 7414 |
. . . . . . . . . 10
β’ (π = π β (πβπ) = (πβπ)) |
213 | 212 | oveq2d 7422 |
. . . . . . . . 9
β’ (π = π β (((πΏβπ)βπ) Β· (πβπ)) = (((πΏβπ)βπ) Β· (πβπ))) |
214 | 211, 213 | oveq12d 7424 |
. . . . . . . 8
β’ (π = π β (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
215 | 214 | adantr 482 |
. . . . . . 7
β’ ((π = π β§ π β (1...π)) β (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
216 | 215 | sumeq2dv 15646 |
. . . . . 6
β’ (π = π β Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
217 | 216 | cbvsumv 15639 |
. . . . 5
β’
Ξ£π β
(0...((π + 1) Β·
π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) |
218 | 208, 217 | eqtr4di 2791 |
. . . 4
β’ (π β Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ)) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
219 | 1, 14 | nn0mulcld 12534 |
. . . . . 6
β’ (π β (π Β· π) β
β0) |
220 | | oveq2 7414 |
. . . . . . . 8
β’ (π = (π β π) β ((1...π)(reprβπ)π) = ((1...π)(reprβπ)(π β π))) |
221 | 220 | sumeq1d 15644 |
. . . . . . 7
β’ (π = (π β π) β Ξ£π β ((1...π)(reprβπ)π)βπ β (0..^π)((πΏβπ)β(πβπ)) = Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ))) |
222 | | oveq1 7413 |
. . . . . . . . 9
β’ (π = (π β π) β (π + π) = ((π β π) + π)) |
223 | 222 | oveq2d 7422 |
. . . . . . . 8
β’ (π = (π β π) β (πβ(π + π)) = (πβ((π β π) + π))) |
224 | 223 | oveq2d 7422 |
. . . . . . 7
β’ (π = (π β π) β (((πΏβπ)βπ) Β· (πβ(π + π))) = (((πΏβπ)βπ) Β· (πβ((π β π) + π)))) |
225 | 221, 224 | oveq12d 7424 |
. . . . . 6
β’ (π = (π β π) β (Ξ£π β ((1...π)(reprβπ)π)βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π)))) = (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π))))) |
226 | 39 | a1i 11 |
. . . . . . . . 9
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β (1...π) β β) |
227 | | uzssz 12840 |
. . . . . . . . . 10
β’
(β€β₯β-π) β β€ |
228 | | simp2 1138 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β (β€β₯β-π)) |
229 | 227, 228 | sselid 3980 |
. . . . . . . . 9
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β β€) |
230 | 1 | 3ad2ant1 1134 |
. . . . . . . . 9
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β
β0) |
231 | 57 | 3ad2ant1 1134 |
. . . . . . . . 9
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β (1...π) β Fin) |
232 | 226, 229,
230, 231 | reprfi 33617 |
. . . . . . . 8
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β ((1...π)(reprβπ)π) β Fin) |
233 | 9 | a1i 11 |
. . . . . . . . 9
β’ (((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (0..^π) β Fin) |
234 | 58 | 3adant2 1132 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β
β0) |
235 | 234 | ad2antrr 725 |
. . . . . . . . . 10
β’ ((((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β
β0) |
236 | 59 | 3adant2 1132 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β
β0) |
237 | 236 | ad2antrr 725 |
. . . . . . . . . 10
β’ ((((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β
β0) |
238 | 60 | 3adant2 1132 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β β) |
239 | 238 | ad2antrr 725 |
. . . . . . . . . 10
β’ ((((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β β) |
240 | 61 | 3adant2 1132 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β πΏ:(0..^π)βΆ(β βm
β)) |
241 | 240 | ad2antrr 725 |
. . . . . . . . . 10
β’ ((((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β πΏ:(0..^π)βΆ(β βm
β)) |
242 | 36 | 3ad2ant1 1134 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β (0..^π) β (0..^π)) |
243 | 242 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (0..^π) β (0..^π)) |
244 | 243 | sselda 3982 |
. . . . . . . . . 10
β’ ((((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β (0..^π)) |
245 | 39 | a1i 11 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (1...π) β β) |
246 | 229 | adantr 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β π β β€) |
247 | 230 | adantr 482 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β π β
β0) |
248 | | simpr 486 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β π β ((1...π)(reprβπ)π)) |
249 | 245, 246,
247, 248 | reprf 33613 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β π:(0..^π)βΆ(1...π)) |
250 | 249 | adantr 482 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π:(0..^π)βΆ(1...π)) |
251 | | simpr 486 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β π β (0..^π)) |
252 | 250, 251 | ffvelcdmd 7085 |
. . . . . . . . . . 11
β’ ((((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β (πβπ) β (1...π)) |
253 | 39, 252 | sselid 3980 |
. . . . . . . . . 10
β’ ((((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β (πβπ) β β) |
254 | 235, 237,
239, 241, 244, 253 | breprexplemb 33632 |
. . . . . . . . 9
β’ ((((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β§ π β (0..^π)) β ((πΏβπ)β(πβπ)) β β) |
255 | 233, 254 | fprodcl 15893 |
. . . . . . . 8
β’ (((π β§ π β (β€β₯β-π) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β βπ β (0..^π)((πΏβπ)β(πβπ)) β β) |
256 | 232, 255 | fsumcl 15676 |
. . . . . . 7
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β Ξ£π β ((1...π)(reprβπ)π)βπ β (0..^π)((πΏβπ)β(πβπ)) β β) |
257 | 70 | 3adant2 1132 |
. . . . . . . . 9
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β (0..^π)) |
258 | 72 | 3adant2 1132 |
. . . . . . . . 9
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β β) |
259 | 234, 236,
238, 240, 257, 258 | breprexplemb 33632 |
. . . . . . . 8
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β ((πΏβπ)βπ) β β) |
260 | 229 | zcnd 12664 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β β) |
261 | | simp3 1139 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β (1...π)) |
262 | 261 | elfzelzd 13499 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β β€) |
263 | 262 | zcnd 12664 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β π β β) |
264 | 260, 263 | subnegd 11575 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β (π β -π) = (π + π)) |
265 | 262 | znegcld 12665 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β -π β β€) |
266 | | eluzle 12832 |
. . . . . . . . . . . 12
β’ (π β
(β€β₯β-π) β -π β€ π) |
267 | 228, 266 | syl 17 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β -π β€ π) |
268 | | znn0sub 12606 |
. . . . . . . . . . . 12
β’ ((-π β β€ β§ π β β€) β (-π β€ π β (π β -π) β
β0)) |
269 | 268 | biimpa 478 |
. . . . . . . . . . 11
β’ (((-π β β€ β§ π β β€) β§ -π β€ π) β (π β -π) β
β0) |
270 | 265, 229,
267, 269 | syl21anc 837 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β (π β -π) β
β0) |
271 | 264, 270 | eqeltrrd 2835 |
. . . . . . . . 9
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β (π + π) β
β0) |
272 | 238, 271 | expcld 14108 |
. . . . . . . 8
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β (πβ(π + π)) β β) |
273 | 259, 272 | mulcld 11231 |
. . . . . . 7
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β (((πΏβπ)βπ) Β· (πβ(π + π))) β β) |
274 | 256, 273 | mulcld 11231 |
. . . . . 6
β’ ((π β§ π β (β€β₯β-π) β§ π β (1...π)) β (Ξ£π β ((1...π)(reprβπ)π)βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π)))) β β) |
275 | 58 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β
β0) |
276 | | ssidd 4005 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (1...π) β (1...π)) |
277 | | simpr 486 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) |
278 | 277 | elfzelzd 13499 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β€) |
279 | | simplr 768 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β (1...π)) |
280 | 279 | elfzelzd 13499 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β€) |
281 | 278, 280 | zsubcld 12668 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (π β π) β β€) |
282 | 1 | ad2antrr 725 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β
β0) |
283 | 25 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β) |
284 | 275 | nn0red 12530 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β) |
285 | 283, 284 | remulcld 11241 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (π Β· π) β β) |
286 | 280 | zred 12663 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β) |
287 | 219 | adantr 482 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (1...π)) β (π Β· π) β
β0) |
288 | 287, 74 | nn0addcld 12533 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (1...π)) β ((π Β· π) + π) β
β0) |
289 | 184 | a1i 11 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (1...π)) β 1 β
β0) |
290 | 288, 289 | nn0addcld 12533 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (1...π)) β (((π Β· π) + π) + 1) β
β0) |
291 | | fz2ssnn0 31984 |
. . . . . . . . . . . . . . 15
β’ ((((π Β· π) + π) + 1) β β0 β
((((π Β· π) + π) + 1)...((π Β· π) + π)) β
β0) |
292 | 290, 291 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (1...π)) β ((((π Β· π) + π) + 1)...((π Β· π) + π)) β
β0) |
293 | 292 | sselda 3982 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β0) |
294 | 293 | nn0red 12530 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β) |
295 | 23 | ad2antrr 725 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β€) |
296 | 275 | nn0zd 12581 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β€) |
297 | 295, 296 | zmulcld 12669 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (π Β· π) β β€) |
298 | 297, 280 | zaddcld 12667 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β ((π Β· π) + π) β β€) |
299 | | elfzle1 13501 |
. . . . . . . . . . . . . 14
β’ (π β ((((π Β· π) + π) + 1)...((π Β· π) + π)) β (((π Β· π) + π) + 1) β€ π) |
300 | 277, 299 | syl 17 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (((π Β· π) + π) + 1) β€ π) |
301 | | zltp1le 12609 |
. . . . . . . . . . . . . 14
β’ ((((π Β· π) + π) β β€ β§ π β β€) β (((π Β· π) + π) < π β (((π Β· π) + π) + 1) β€ π)) |
302 | 301 | biimpar 479 |
. . . . . . . . . . . . 13
β’
(((((π Β·
π) + π) β β€ β§ π β β€) β§ (((π Β· π) + π) + 1) β€ π) β ((π Β· π) + π) < π) |
303 | 298, 278,
300, 302 | syl21anc 837 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β ((π Β· π) + π) < π) |
304 | | ltaddsub 11685 |
. . . . . . . . . . . . 13
β’ (((π Β· π) β β β§ π β β β§ π β β) β (((π Β· π) + π) < π β (π Β· π) < (π β π))) |
305 | 304 | biimpa 478 |
. . . . . . . . . . . 12
β’ ((((π Β· π) β β β§ π β β β§ π β β) β§ ((π Β· π) + π) < π) β (π Β· π) < (π β π)) |
306 | 285, 286,
294, 303, 305 | syl31anc 1374 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (π Β· π) < (π β π)) |
307 | 275, 276,
281, 282, 306 | reprgt 33622 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β ((1...π)(reprβπ)(π β π)) = β
) |
308 | 307 | sumeq1d 15644 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) = Ξ£π β β
βπ β (0..^π)((πΏβπ)β(πβπ))) |
309 | | sum0 15664 |
. . . . . . . . 9
β’
Ξ£π β
β
βπ β
(0..^π)((πΏβπ)β(πβπ)) = 0 |
310 | 308, 309 | eqtrdi 2789 |
. . . . . . . 8
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) = 0) |
311 | 310 | oveq1d 7421 |
. . . . . . 7
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π)))) = (0 Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π))))) |
312 | 73 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β ((πΏβπ)βπ) β β) |
313 | 60 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β) |
314 | 278 | zcnd 12664 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β) |
315 | 280 | zcnd 12664 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β π β β) |
316 | 314, 315 | npcand 11572 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β ((π β π) + π) = π) |
317 | 316, 293 | eqeltrd 2834 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β ((π β π) + π) β
β0) |
318 | 313, 317 | expcld 14108 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (πβ((π β π) + π)) β β) |
319 | 312, 318 | mulcld 11231 |
. . . . . . . 8
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (((πΏβπ)βπ) Β· (πβ((π β π) + π))) β β) |
320 | 319 | mul02d 11409 |
. . . . . . 7
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (0 Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π)))) = 0) |
321 | 311, 320 | eqtrd 2773 |
. . . . . 6
β’ (((π β§ π β (1...π)) β§ π β ((((π Β· π) + π) + 1)...((π Β· π) + π))) β (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π)))) = 0) |
322 | 39 | a1i 11 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β (1...π) β β) |
323 | | fzossfz 13648 |
. . . . . . . . . . . . . 14
β’
(0..^π) β
(0...π) |
324 | | fzssz 13500 |
. . . . . . . . . . . . . 14
β’
(0...π) β
β€ |
325 | 323, 324 | sstri 3991 |
. . . . . . . . . . . . 13
β’
(0..^π) β
β€ |
326 | | simpr 486 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β (0..^π)) |
327 | 325, 326 | sselid 3980 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β β€) |
328 | | simplr 768 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β (1...π)) |
329 | 328 | elfzelzd 13499 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β β€) |
330 | 327, 329 | zsubcld 12668 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β (π β π) β β€) |
331 | 1 | ad2antrr 725 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β
β0) |
332 | 330 | zred 12663 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β (π β π) β β) |
333 | | 0red 11214 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β 0 β β) |
334 | 25 | ad2antrr 725 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β β) |
335 | | elfzolt2 13638 |
. . . . . . . . . . . . . 14
β’ (π β (0..^π) β π < π) |
336 | 335 | adantl 483 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π < π) |
337 | 327 | zred 12663 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β β) |
338 | 329 | zred 12663 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β β) |
339 | 337, 338 | sublt0d 11837 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β ((π β π) < 0 β π < π)) |
340 | 336, 339 | mpbird 257 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β (π β π) < 0) |
341 | 62 | ad2antrr 725 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β 0 β€ π) |
342 | 332, 333,
334, 340, 341 | ltletrd 11371 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β (π β π) < π) |
343 | 322, 330,
331, 342 | reprlt 33620 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β ((1...π)(reprβπ)(π β π)) = β
) |
344 | 343 | sumeq1d 15644 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) = Ξ£π β β
βπ β (0..^π)((πΏβπ)β(πβπ))) |
345 | 344, 309 | eqtrdi 2789 |
. . . . . . . 8
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) = 0) |
346 | 345 | oveq1d 7421 |
. . . . . . 7
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π)))) = (0 Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π))))) |
347 | 73 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β ((πΏβπ)βπ) β β) |
348 | 60 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β β) |
349 | 337 | recnd 11239 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β β) |
350 | 338 | recnd 11239 |
. . . . . . . . . . . 12
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β β) |
351 | 349, 350 | npcand 11572 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β ((π β π) + π) = π) |
352 | | fzo0ssnn0 13710 |
. . . . . . . . . . . 12
β’
(0..^π) β
β0 |
353 | 352, 326 | sselid 3980 |
. . . . . . . . . . 11
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β π β β0) |
354 | 351, 353 | eqeltrd 2834 |
. . . . . . . . . 10
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β ((π β π) + π) β
β0) |
355 | 348, 354 | expcld 14108 |
. . . . . . . . 9
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β (πβ((π β π) + π)) β β) |
356 | 347, 355 | mulcld 11231 |
. . . . . . . 8
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β (((πΏβπ)βπ) Β· (πβ((π β π) + π))) β β) |
357 | 356 | mul02d 11409 |
. . . . . . 7
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β (0 Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π)))) = 0) |
358 | 346, 357 | eqtrd 2773 |
. . . . . 6
β’ (((π β§ π β (1...π)) β§ π β (0..^π)) β (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π)))) = 0) |
359 | 219, 14, 225, 274, 321, 358 | fsum2dsub 33608 |
. . . . 5
β’ (π β Ξ£π β (0...(π Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)π)βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π)))) = Ξ£π β (0...((π Β· π) + π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π))))) |
360 | | nn0sscn 12474 |
. . . . . . . . 9
β’
β0 β β |
361 | 360, 1 | sselid 3980 |
. . . . . . . 8
β’ (π β π β β) |
362 | 360, 14 | sselid 3980 |
. . . . . . . 8
β’ (π β π β β) |
363 | 361, 362 | adddirp1d 11237 |
. . . . . . 7
β’ (π β ((π + 1) Β· π) = ((π Β· π) + π)) |
364 | 363 | oveq2d 7422 |
. . . . . 6
β’ (π β (0...((π + 1) Β· π)) = (0...((π Β· π) + π))) |
365 | 128, 360 | sstri 3991 |
. . . . . . . . . . . . 13
β’
(0...((π + 1)
Β· π)) β
β |
366 | | simplr 768 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β π β (0...((π + 1) Β· π))) |
367 | 365, 366 | sselid 3980 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β π β β) |
368 | 44, 360 | sstri 3991 |
. . . . . . . . . . . . 13
β’
(1...π) β
β |
369 | | simpr 486 |
. . . . . . . . . . . . 13
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β π β (1...π)) |
370 | 368, 369 | sselid 3980 |
. . . . . . . . . . . 12
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β π β β) |
371 | 367, 370 | npcand 11572 |
. . . . . . . . . . 11
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β ((π β π) + π) = π) |
372 | 371 | eqcomd 2739 |
. . . . . . . . . 10
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β π = ((π β π) + π)) |
373 | 372 | oveq2d 7422 |
. . . . . . . . 9
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (πβπ) = (πβ((π β π) + π))) |
374 | 373 | oveq2d 7422 |
. . . . . . . 8
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (((πΏβπ)βπ) Β· (πβπ)) = (((πΏβπ)βπ) Β· (πβ((π β π) + π)))) |
375 | 374 | oveq2d 7422 |
. . . . . . 7
β’ (((π β§ π β (0...((π + 1) Β· π))) β§ π β (1...π)) β (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = (Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π))))) |
376 | 375 | sumeq2dv 15646 |
. . . . . 6
β’ ((π β§ π β (0...((π + 1) Β· π))) β Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π))))) |
377 | 364, 376 | sumeq12dv 15649 |
. . . . 5
β’ (π β Ξ£π β (0...((π + 1) Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = Ξ£π β (0...((π Β· π) + π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ((π β π) + π))))) |
378 | 359, 377 | eqtr4d 2776 |
. . . 4
β’ (π β Ξ£π β (0...(π Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)π)βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π)))) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)(π β π))βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
379 | 105 | adantlr 714 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β βπ β (0..^π)((πΏβπ)β(πβπ)) β β) |
380 | 110 | adantlr 714 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (πβπ) β β) |
381 | 76 | adantlr 714 |
. . . . . . . . . . 11
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β (((πΏβπ)βπ) Β· (πβπ)) β β) |
382 | 381 | adantr 482 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (((πΏβπ)βπ) Β· (πβπ)) β β) |
383 | 379, 380,
382 | mulassd 11234 |
. . . . . . . . 9
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β ((βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = (βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πβπ) Β· (((πΏβπ)βπ) Β· (πβπ))))) |
384 | 73 | ad4ant13 750 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β ((πΏβπ)βπ) β β) |
385 | 75 | ad4ant13 750 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (πβπ) β β) |
386 | 380, 384,
385 | mulassd 11234 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (((πβπ) Β· ((πΏβπ)βπ)) Β· (πβπ)) = ((πβπ) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
387 | 384, 380,
385 | mulassd 11234 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β ((((πΏβπ)βπ) Β· (πβπ)) Β· (πβπ)) = (((πΏβπ)βπ) Β· ((πβπ) Β· (πβπ)))) |
388 | 380, 384 | mulcomd 11232 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β ((πβπ) Β· ((πΏβπ)βπ)) = (((πΏβπ)βπ) Β· (πβπ))) |
389 | 388 | oveq1d 7421 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (((πβπ) Β· ((πΏβπ)βπ)) Β· (πβπ)) = ((((πΏβπ)βπ) Β· (πβπ)) Β· (πβπ))) |
390 | 106 | adantlr 714 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β π β β) |
391 | 74 | ad4ant13 750 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β π β β0) |
392 | 109 | adantlr 714 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β π β β0) |
393 | 390, 391,
392 | expaddd 14110 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (πβ(π + π)) = ((πβπ) Β· (πβπ))) |
394 | 393 | oveq2d 7422 |
. . . . . . . . . . . 12
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (((πΏβπ)βπ) Β· (πβ(π + π))) = (((πΏβπ)βπ) Β· ((πβπ) Β· (πβπ)))) |
395 | 387, 389,
394 | 3eqtr4d 2783 |
. . . . . . . . . . 11
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (((πβπ) Β· ((πΏβπ)βπ)) Β· (πβπ)) = (((πΏβπ)βπ) Β· (πβ(π + π)))) |
396 | 386, 395 | eqtr3d 2775 |
. . . . . . . . . 10
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β ((πβπ) Β· (((πΏβπ)βπ) Β· (πβπ))) = (((πΏβπ)βπ) Β· (πβ(π + π)))) |
397 | 396 | oveq2d 7422 |
. . . . . . . . 9
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (βπ β (0..^π)((πΏβπ)β(πβπ)) Β· ((πβπ) Β· (((πΏβπ)βπ) Β· (πβπ)))) = (βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π))))) |
398 | 383, 397 | eqtrd 2773 |
. . . . . . . 8
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β ((βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = (βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π))))) |
399 | 398 | sumeq2dv 15646 |
. . . . . . 7
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β Ξ£π β ((1...π)(reprβπ)π)((βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π))))) |
400 | 87 | adantr 482 |
. . . . . . . 8
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β ((1...π)(reprβπ)π) β Fin) |
401 | 111 | adantlr 714 |
. . . . . . . 8
β’ ((((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β§ π β ((1...π)(reprβπ)π)) β (βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) β β) |
402 | 400, 381,
401 | fsummulc1 15728 |
. . . . . . 7
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β (Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = Ξ£π β ((1...π)(reprβπ)π)((βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
403 | 73 | adantlr 714 |
. . . . . . . . 9
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β ((πΏβπ)βπ) β β) |
404 | 60 | adantlr 714 |
. . . . . . . . . 10
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β π β β) |
405 | 108 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β π β β0) |
406 | 74 | adantlr 714 |
. . . . . . . . . . 11
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β π β β0) |
407 | 405, 406 | nn0addcld 12533 |
. . . . . . . . . 10
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β (π + π) β
β0) |
408 | 404, 407 | expcld 14108 |
. . . . . . . . 9
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β (πβ(π + π)) β β) |
409 | 403, 408 | mulcld 11231 |
. . . . . . . 8
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β (((πΏβπ)βπ) Β· (πβ(π + π))) β β) |
410 | 400, 409,
379 | fsummulc1 15728 |
. . . . . . 7
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β (Ξ£π β ((1...π)(reprβπ)π)βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π)))) = Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π))))) |
411 | 399, 402,
410 | 3eqtr4rd 2784 |
. . . . . 6
β’ (((π β§ π β (0...(π Β· π))) β§ π β (1...π)) β (Ξ£π β ((1...π)(reprβπ)π)βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π)))) = (Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
412 | 411 | sumeq2dv 15646 |
. . . . 5
β’ ((π β§ π β (0...(π Β· π))) β Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)π)βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π)))) = Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
413 | 412 | sumeq2dv 15646 |
. . . 4
β’ (π β Ξ£π β (0...(π Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)π)βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (((πΏβπ)βπ) Β· (πβ(π + π)))) = Ξ£π β (0...(π Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ)))) |
414 | 218, 378,
413 | 3eqtr2rd 2780 |
. . 3
β’ (π β Ξ£π β (0...(π Β· π))Ξ£π β (1...π)(Ξ£π β ((1...π)(reprβπ)π)(βπ β (0..^π)((πΏβπ)β(πβπ)) Β· (πβπ)) Β· (((πΏβπ)βπ) Β· (πβπ))) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |
415 | 80, 113, 414 | 3eqtr2d 2779 |
. 2
β’ (π β (βπ β (0..^π)Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) Β· Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ))) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |
416 | 6, 78, 415 | 3eqtrd 2777 |
1
β’ (π β βπ β (0..^(π + 1))Ξ£π β (1...π)(((πΏβπ)βπ) Β· (πβπ)) = Ξ£π β (0...((π + 1) Β· π))Ξ£π β ((1...π)(reprβ(π + 1))π)(βπ β (0..^(π + 1))((πΏβπ)β(πβπ)) Β· (πβπ))) |