Step | Hyp | Ref
| Expression |
1 | | etransclem38.c |
. . . 4
β’ πΆ = (π β β0 β¦ {π β ((0...π) βm (0...π)) β£ Ξ£π β (0...π)(πβπ) = π}) |
2 | | etransclem38.i |
. . . 4
β’ (π β πΌ β
β0) |
3 | 1, 2 | etransclem16 44901 |
. . 3
β’ (π β (πΆβπΌ) β Fin) |
4 | | etransclem38.p |
. . . 4
β’ (π β π β β) |
5 | 4 | nnzd 12581 |
. . 3
β’ (π β π β β€) |
6 | 4 | adantr 482 |
. . . . 5
β’ ((π β§ π β (πΆβπΌ)) β π β β) |
7 | | etransclem38.m |
. . . . . 6
β’ (π β π β
β0) |
8 | 7 | adantr 482 |
. . . . 5
β’ ((π β§ π β (πΆβπΌ)) β π β
β0) |
9 | 2 | adantr 482 |
. . . . 5
β’ ((π β§ π β (πΆβπΌ)) β πΌ β
β0) |
10 | | etransclem11 44896 |
. . . . . 6
β’ (π β β0
β¦ {π β
((0...π) βm
(0...π)) β£
Ξ£π β (0...π)(πβπ) = π}) = (π β β0 β¦ {π β ((0...π) βm (0...π)) β£ Ξ£π β (0...π)(πβπ) = π}) |
11 | | etransclem11 44896 |
. . . . . 6
β’ (π β β0
β¦ {π β
((0...π) βm
(0...π)) β£
Ξ£π β (0...π)(πβπ) = π}) = (π β β0 β¦ {π β ((0...π) βm (0...π)) β£ Ξ£π β (0...π)(πβπ) = π}) |
12 | 1, 10, 11 | 3eqtri 2765 |
. . . . 5
β’ πΆ = (π β β0 β¦ {π β ((0...π) βm (0...π)) β£ Ξ£π β (0...π)(πβπ) = π}) |
13 | | simpr 486 |
. . . . 5
β’ ((π β§ π β (πΆβπΌ)) β π β (πΆβπΌ)) |
14 | | etransclem38.j |
. . . . . 6
β’ (π β π½ β (0...π)) |
15 | 14 | adantr 482 |
. . . . 5
β’ ((π β§ π β (πΆβπΌ)) β π½ β (0...π)) |
16 | | eqid 2733 |
. . . . 5
β’
(((!βπΌ) /
βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) = (((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) |
17 | 6, 8, 9, 12, 13, 15, 16 | etransclem28 44913 |
. . . 4
β’ ((π β§ π β (πΆβπΌ)) β (!β(π β 1)) β₯ (((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ)))))))) |
18 | | nnm1nn0 12509 |
. . . . . . . . 9
β’ (π β β β (π β 1) β
β0) |
19 | 4, 18 | syl 17 |
. . . . . . . 8
β’ (π β (π β 1) β
β0) |
20 | 19 | faccld 14240 |
. . . . . . 7
β’ (π β (!β(π β 1)) β
β) |
21 | 20 | nnzd 12581 |
. . . . . 6
β’ (π β (!β(π β 1)) β
β€) |
22 | 21 | adantr 482 |
. . . . 5
β’ ((π β§ π β (πΆβπΌ)) β (!β(π β 1)) β
β€) |
23 | 20 | nnne0d 12258 |
. . . . . 6
β’ (π β (!β(π β 1)) β
0) |
24 | 23 | adantr 482 |
. . . . 5
β’ ((π β§ π β (πΆβπΌ)) β (!β(π β 1)) β 0) |
25 | 14 | elfzelzd 13498 |
. . . . . . 7
β’ (π β π½ β β€) |
26 | 25 | adantr 482 |
. . . . . 6
β’ ((π β§ π β (πΆβπΌ)) β π½ β β€) |
27 | 6, 8, 9, 26, 12, 13 | etransclem26 44911 |
. . . . 5
β’ ((π β§ π β (πΆβπΌ)) β (((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) β β€) |
28 | | dvdsval2 16196 |
. . . . 5
β’
(((!β(π
β 1)) β β€ β§ (!β(π β 1)) β 0 β§ (((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) β β€) β
((!β(π β 1))
β₯ (((!βπΌ) /
βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) β ((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) β
β€)) |
29 | 22, 24, 27, 28 | syl3anc 1372 |
. . . 4
β’ ((π β§ π β (πΆβπΌ)) β ((!β(π β 1)) β₯ (((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) β ((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) β
β€)) |
30 | 17, 29 | mpbid 231 |
. . 3
β’ ((π β§ π β (πΆβπΌ)) β ((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) β
β€) |
31 | | pm3.22 461 |
. . . . . . . 8
β’ ((π½ = 0 β§ πΌ = (π β 1)) β (πΌ = (π β 1) β§ π½ = 0)) |
32 | 31 | adantll 713 |
. . . . . . 7
β’ ((((π β§ π β (πΆβπΌ)) β§ π½ = 0) β§ πΌ = (π β 1)) β (πΌ = (π β 1) β§ π½ = 0)) |
33 | | etransclem38.ij |
. . . . . . . 8
β’ (π β Β¬ (πΌ = (π β 1) β§ π½ = 0)) |
34 | 33 | ad3antrrr 729 |
. . . . . . 7
β’ ((((π β§ π β (πΆβπΌ)) β§ π½ = 0) β§ πΌ = (π β 1)) β Β¬ (πΌ = (π β 1) β§ π½ = 0)) |
35 | 32, 34 | pm2.65da 816 |
. . . . . 6
β’ (((π β§ π β (πΆβπΌ)) β§ π½ = 0) β Β¬ πΌ = (π β 1)) |
36 | 35 | neqned 2948 |
. . . . 5
β’ (((π β§ π β (πΆβπΌ)) β§ π½ = 0) β πΌ β (π β 1)) |
37 | 4 | ad3antrrr 729 |
. . . . . 6
β’ ((((π β§ π β (πΆβπΌ)) β§ π½ = 0) β§ πΌ β (π β 1)) β π β β) |
38 | 7 | ad3antrrr 729 |
. . . . . 6
β’ ((((π β§ π β (πΆβπΌ)) β§ π½ = 0) β§ πΌ β (π β 1)) β π β
β0) |
39 | 2 | ad3antrrr 729 |
. . . . . 6
β’ ((((π β§ π β (πΆβπΌ)) β§ π½ = 0) β§ πΌ β (π β 1)) β πΌ β
β0) |
40 | | simpr 486 |
. . . . . 6
β’ ((((π β§ π β (πΆβπΌ)) β§ π½ = 0) β§ πΌ β (π β 1)) β πΌ β (π β 1)) |
41 | | simplr 768 |
. . . . . 6
β’ ((((π β§ π β (πΆβπΌ)) β§ π½ = 0) β§ πΌ β (π β 1)) β π½ = 0) |
42 | 13 | ad2antrr 725 |
. . . . . 6
β’ ((((π β§ π β (πΆβπΌ)) β§ π½ = 0) β§ πΌ β (π β 1)) β π β (πΆβπΌ)) |
43 | 37, 38, 39, 40, 41, 12, 42 | etransclem24 44909 |
. . . . 5
β’ ((((π β§ π β (πΆβπΌ)) β§ π½ = 0) β§ πΌ β (π β 1)) β π β₯ ((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1)))) |
44 | 36, 43 | mpdan 686 |
. . . 4
β’ (((π β§ π β (πΆβπΌ)) β§ π½ = 0) β π β₯ ((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1)))) |
45 | 4 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β π β β) |
46 | 7 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β π β
β0) |
47 | 2 | ad2antrr 725 |
. . . . . . 7
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β πΌ β
β0) |
48 | 1, 2 | etransclem12 44897 |
. . . . . . . . . . . . 13
β’ (π β (πΆβπΌ) = {π β ((0...πΌ) βm (0...π)) β£ Ξ£π β (0...π)(πβπ) = πΌ}) |
49 | 48 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β§ π β (πΆβπΌ)) β (πΆβπΌ) = {π β ((0...πΌ) βm (0...π)) β£ Ξ£π β (0...π)(πβπ) = πΌ}) |
50 | 13, 49 | eleqtrd 2836 |
. . . . . . . . . . 11
β’ ((π β§ π β (πΆβπΌ)) β π β {π β ((0...πΌ) βm (0...π)) β£ Ξ£π β (0...π)(πβπ) = πΌ}) |
51 | | rabid 3453 |
. . . . . . . . . . 11
β’ (π β {π β ((0...πΌ) βm (0...π)) β£ Ξ£π β (0...π)(πβπ) = πΌ} β (π β ((0...πΌ) βm (0...π)) β§ Ξ£π β (0...π)(πβπ) = πΌ)) |
52 | 50, 51 | sylib 217 |
. . . . . . . . . 10
β’ ((π β§ π β (πΆβπΌ)) β (π β ((0...πΌ) βm (0...π)) β§ Ξ£π β (0...π)(πβπ) = πΌ)) |
53 | 52 | simpld 496 |
. . . . . . . . 9
β’ ((π β§ π β (πΆβπΌ)) β π β ((0...πΌ) βm (0...π))) |
54 | | elmapi 8839 |
. . . . . . . . 9
β’ (π β ((0...πΌ) βm (0...π)) β π:(0...π)βΆ(0...πΌ)) |
55 | 53, 54 | syl 17 |
. . . . . . . 8
β’ ((π β§ π β (πΆβπΌ)) β π:(0...π)βΆ(0...πΌ)) |
56 | 55 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β π:(0...π)βΆ(0...πΌ)) |
57 | 52 | simprd 497 |
. . . . . . . 8
β’ ((π β§ π β (πΆβπΌ)) β Ξ£π β (0...π)(πβπ) = πΌ) |
58 | 57 | adantr 482 |
. . . . . . 7
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β Ξ£π β (0...π)(πβπ) = πΌ) |
59 | | 1zzd 12589 |
. . . . . . . . 9
β’ ((π β§ Β¬ π½ = 0) β 1 β
β€) |
60 | 7 | nn0zd 12580 |
. . . . . . . . . 10
β’ (π β π β β€) |
61 | 60 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ Β¬ π½ = 0) β π β β€) |
62 | 25 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ Β¬ π½ = 0) β π½ β β€) |
63 | | elfznn0 13590 |
. . . . . . . . . . . . 13
β’ (π½ β (0...π) β π½ β
β0) |
64 | 14, 63 | syl 17 |
. . . . . . . . . . . 12
β’ (π β π½ β
β0) |
65 | | neqne 2949 |
. . . . . . . . . . . 12
β’ (Β¬
π½ = 0 β π½ β 0) |
66 | 64, 65 | anim12i 614 |
. . . . . . . . . . 11
β’ ((π β§ Β¬ π½ = 0) β (π½ β β0 β§ π½ β 0)) |
67 | | elnnne0 12482 |
. . . . . . . . . . 11
β’ (π½ β β β (π½ β β0
β§ π½ β
0)) |
68 | 66, 67 | sylibr 233 |
. . . . . . . . . 10
β’ ((π β§ Β¬ π½ = 0) β π½ β β) |
69 | 68 | nnge1d 12256 |
. . . . . . . . 9
β’ ((π β§ Β¬ π½ = 0) β 1 β€ π½) |
70 | | elfzle2 13501 |
. . . . . . . . . . 11
β’ (π½ β (0...π) β π½ β€ π) |
71 | 14, 70 | syl 17 |
. . . . . . . . . 10
β’ (π β π½ β€ π) |
72 | 71 | adantr 482 |
. . . . . . . . 9
β’ ((π β§ Β¬ π½ = 0) β π½ β€ π) |
73 | 59, 61, 62, 69, 72 | elfzd 13488 |
. . . . . . . 8
β’ ((π β§ Β¬ π½ = 0) β π½ β (1...π)) |
74 | 73 | adantlr 714 |
. . . . . . 7
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β π½ β (1...π)) |
75 | 45, 46, 47, 56, 58, 16, 74 | etransclem25 44910 |
. . . . . 6
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β (!βπ) β₯ (((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ)))))))) |
76 | 4 | nncnd 12224 |
. . . . . . . . . . 11
β’ (π β π β β) |
77 | | 1cnd 11205 |
. . . . . . . . . . 11
β’ (π β 1 β
β) |
78 | 76, 77 | npcand 11571 |
. . . . . . . . . 10
β’ (π β ((π β 1) + 1) = π) |
79 | 78 | eqcomd 2739 |
. . . . . . . . 9
β’ (π β π = ((π β 1) + 1)) |
80 | 79 | fveq2d 6892 |
. . . . . . . 8
β’ (π β (!βπ) = (!β((π β 1) + 1))) |
81 | | facp1 14234 |
. . . . . . . . 9
β’ ((π β 1) β
β0 β (!β((π β 1) + 1)) = ((!β(π β 1)) Β· ((π β 1) +
1))) |
82 | 19, 81 | syl 17 |
. . . . . . . 8
β’ (π β (!β((π β 1) + 1)) =
((!β(π β 1))
Β· ((π β 1) +
1))) |
83 | 78 | oveq2d 7420 |
. . . . . . . . 9
β’ (π β ((!β(π β 1)) Β· ((π β 1) + 1)) =
((!β(π β 1))
Β· π)) |
84 | 20 | nncnd 12224 |
. . . . . . . . . 10
β’ (π β (!β(π β 1)) β
β) |
85 | 84, 76 | mulcomd 11231 |
. . . . . . . . 9
β’ (π β ((!β(π β 1)) Β· π) = (π Β· (!β(π β 1)))) |
86 | 83, 85 | eqtrd 2773 |
. . . . . . . 8
β’ (π β ((!β(π β 1)) Β· ((π β 1) + 1)) = (π Β· (!β(π β 1)))) |
87 | 80, 82, 86 | 3eqtrrd 2778 |
. . . . . . 7
β’ (π β (π Β· (!β(π β 1))) = (!βπ)) |
88 | 87 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β (π Β· (!β(π β 1))) = (!βπ)) |
89 | 27 | zcnd 12663 |
. . . . . . . 8
β’ ((π β§ π β (πΆβπΌ)) β (((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) β β) |
90 | 84 | adantr 482 |
. . . . . . . 8
β’ ((π β§ π β (πΆβπΌ)) β (!β(π β 1)) β
β) |
91 | 89, 90, 24 | divcan1d 11987 |
. . . . . . 7
β’ ((π β§ π β (πΆβπΌ)) β (((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) Β· (!β(π β 1))) = (((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ)))))))) |
92 | 91 | adantr 482 |
. . . . . 6
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β (((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) Β· (!β(π β 1))) = (((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ)))))))) |
93 | 75, 88, 92 | 3brtr4d 5179 |
. . . . 5
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β (π Β· (!β(π β 1))) β₯ (((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) Β· (!β(π β 1)))) |
94 | 5 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β π β β€) |
95 | 30 | adantr 482 |
. . . . . 6
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β ((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) β
β€) |
96 | 21 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β (!β(π β 1)) β
β€) |
97 | 23 | ad2antrr 725 |
. . . . . 6
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β (!β(π β 1)) β 0) |
98 | | dvdsmulcr 16225 |
. . . . . 6
β’ ((π β β€ β§
((((!βπΌ) /
βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) β β€ β§
((!β(π β 1))
β β€ β§ (!β(π β 1)) β 0)) β ((π Β· (!β(π β 1))) β₯
(((((!βπΌ) /
βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) Β· (!β(π β 1))) β π β₯ ((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))))) |
99 | 94, 95, 96, 97, 98 | syl112anc 1375 |
. . . . 5
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β ((π Β· (!β(π β 1))) β₯ (((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) Β· (!β(π β 1))) β π β₯ ((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))))) |
100 | 93, 99 | mpbid 231 |
. . . 4
β’ (((π β§ π β (πΆβπΌ)) β§ Β¬ π½ = 0) β π β₯ ((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1)))) |
101 | 44, 100 | pm2.61dan 812 |
. . 3
β’ ((π β§ π β (πΆβπΌ)) β π β₯ ((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1)))) |
102 | 3, 5, 30, 101 | fsumdvds 16247 |
. 2
β’ (π β π β₯ Ξ£π β (πΆβπΌ)((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1)))) |
103 | | reelprrecn 11198 |
. . . . . 6
β’ β
β {β, β} |
104 | 103 | a1i 11 |
. . . . 5
β’ (π β β β {β,
β}) |
105 | | reopn 43934 |
. . . . . . 7
β’ β
β (topGenβran (,)) |
106 | | eqid 2733 |
. . . . . . . 8
β’
(TopOpenββfld) =
(TopOpenββfld) |
107 | 106 | tgioo2 24301 |
. . . . . . 7
β’
(topGenβran (,)) = ((TopOpenββfld)
βΎt β) |
108 | 105, 107 | eleqtri 2832 |
. . . . . 6
β’ β
β ((TopOpenββfld) βΎt
β) |
109 | 108 | a1i 11 |
. . . . 5
β’ (π β β β
((TopOpenββfld) βΎt
β)) |
110 | | etransclem38.f |
. . . . 5
β’ πΉ = (π₯ β β β¦ ((π₯β(π β 1)) Β· βπ β (1...π)((π₯ β π)βπ))) |
111 | | etransclem5 44890 |
. . . . 5
β’ (π β (0...π) β¦ (π¦ β β β¦ ((π¦ β π)βif(π = 0, (π β 1), π)))) = (π β (0...π) β¦ (π₯ β β β¦ ((π₯ β π)βif(π = 0, (π β 1), π)))) |
112 | | fzssre 43959 |
. . . . . 6
β’
(0...π) β
β |
113 | 112, 14 | sselid 3979 |
. . . . 5
β’ (π β π½ β β) |
114 | 104, 109,
4, 7, 110, 2, 111, 1, 113 | etransclem31 44916 |
. . . 4
β’ (π β (((β
Dπ πΉ)βπΌ)βπ½) = Ξ£π β (πΆβπΌ)(((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ)))))))) |
115 | 114 | oveq1d 7419 |
. . 3
β’ (π β ((((β
Dπ πΉ)βπΌ)βπ½) / (!β(π β 1))) = (Ξ£π β (πΆβπΌ)(((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1)))) |
116 | 3, 84, 89, 23 | fsumdivc 15728 |
. . 3
β’ (π β (Ξ£π β (πΆβπΌ)(((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1))) = Ξ£π β (πΆβπΌ)((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1)))) |
117 | 115, 116 | eqtrd 2773 |
. 2
β’ (π β ((((β
Dπ πΉ)βπΌ)βπ½) / (!β(π β 1))) = Ξ£π β (πΆβπΌ)((((!βπΌ) / βπ β (0...π)(!β(πβπ))) Β· (if((π β 1) < (πβ0), 0, (((!β(π β 1)) / (!β((π β 1) β (πβ0)))) Β· (π½β((π β 1) β (πβ0))))) Β· βπ β (1...π)if(π < (πβπ), 0, (((!βπ) / (!β(π β (πβπ)))) Β· ((π½ β π)β(π β (πβπ))))))) / (!β(π β 1)))) |
118 | 102, 117 | breqtrrd 5175 |
1
β’ (π β π β₯ ((((β Dπ
πΉ)βπΌ)βπ½) / (!β(π β 1)))) |