Step | Hyp | Ref
| Expression |
1 | | fveq2 6888 |
. . 3
β’ (π = 0 β ((π Dπ πΉ)βπ) = ((π Dπ πΉ)β0)) |
2 | | breq2 5151 |
. . . . 5
β’ (π = 0 β (πΎ < π β πΎ < 0)) |
3 | | eqidd 2733 |
. . . . 5
β’ (π = 0 β 0 =
0) |
4 | | oveq2 7413 |
. . . . . . . 8
β’ (π = 0 β (πΎ β π) = (πΎ β 0)) |
5 | 4 | fveq2d 6892 |
. . . . . . 7
β’ (π = 0 β (!β(πΎ β π)) = (!β(πΎ β 0))) |
6 | 5 | oveq2d 7421 |
. . . . . 6
β’ (π = 0 β ((!βπΎ) / (!β(πΎ β π))) = ((!βπΎ) / (!β(πΎ β 0)))) |
7 | 4 | oveq2d 7421 |
. . . . . 6
β’ (π = 0 β ((π₯ + π΄)β(πΎ β π)) = ((π₯ + π΄)β(πΎ β 0))) |
8 | 6, 7 | oveq12d 7423 |
. . . . 5
β’ (π = 0 β (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))) = (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0)))) |
9 | 2, 3, 8 | ifbieq12d 4555 |
. . . 4
β’ (π = 0 β if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) = if(πΎ < 0, 0, (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0))))) |
10 | 9 | mpteq2dv 5249 |
. . 3
β’ (π = 0 β (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π₯ β π β¦ if(πΎ < 0, 0, (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0)))))) |
11 | 1, 10 | eqeq12d 2748 |
. 2
β’ (π = 0 β (((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) β ((π Dπ πΉ)β0) = (π₯ β π β¦ if(πΎ < 0, 0, (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0))))))) |
12 | | fveq2 6888 |
. . 3
β’ (π = π β ((π Dπ πΉ)βπ) = ((π Dπ πΉ)βπ)) |
13 | | breq2 5151 |
. . . . 5
β’ (π = π β (πΎ < π β πΎ < π)) |
14 | | eqidd 2733 |
. . . . 5
β’ (π = π β 0 = 0) |
15 | | oveq2 7413 |
. . . . . . . 8
β’ (π = π β (πΎ β π) = (πΎ β π)) |
16 | 15 | fveq2d 6892 |
. . . . . . 7
β’ (π = π β (!β(πΎ β π)) = (!β(πΎ β π))) |
17 | 16 | oveq2d 7421 |
. . . . . 6
β’ (π = π β ((!βπΎ) / (!β(πΎ β π))) = ((!βπΎ) / (!β(πΎ β π)))) |
18 | 15 | oveq2d 7421 |
. . . . . 6
β’ (π = π β ((π₯ + π΄)β(πΎ β π)) = ((π₯ + π΄)β(πΎ β π))) |
19 | 17, 18 | oveq12d 7423 |
. . . . 5
β’ (π = π β (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))) = (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) |
20 | 13, 14, 19 | ifbieq12d 4555 |
. . . 4
β’ (π = π β if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) = if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) |
21 | 20 | mpteq2dv 5249 |
. . 3
β’ (π = π β (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) |
22 | 12, 21 | eqeq12d 2748 |
. 2
β’ (π = π β (((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) β ((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))))) |
23 | | fveq2 6888 |
. . 3
β’ (π = (π + 1) β ((π Dπ πΉ)βπ) = ((π Dπ πΉ)β(π + 1))) |
24 | | breq2 5151 |
. . . . 5
β’ (π = (π + 1) β (πΎ < π β πΎ < (π + 1))) |
25 | | eqidd 2733 |
. . . . 5
β’ (π = (π + 1) β 0 = 0) |
26 | | oveq2 7413 |
. . . . . . . 8
β’ (π = (π + 1) β (πΎ β π) = (πΎ β (π + 1))) |
27 | 26 | fveq2d 6892 |
. . . . . . 7
β’ (π = (π + 1) β (!β(πΎ β π)) = (!β(πΎ β (π + 1)))) |
28 | 27 | oveq2d 7421 |
. . . . . 6
β’ (π = (π + 1) β ((!βπΎ) / (!β(πΎ β π))) = ((!βπΎ) / (!β(πΎ β (π + 1))))) |
29 | 26 | oveq2d 7421 |
. . . . . 6
β’ (π = (π + 1) β ((π₯ + π΄)β(πΎ β π)) = ((π₯ + π΄)β(πΎ β (π + 1)))) |
30 | 28, 29 | oveq12d 7423 |
. . . . 5
β’ (π = (π + 1) β (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))) = (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))) |
31 | 24, 25, 30 | ifbieq12d 4555 |
. . . 4
β’ (π = (π + 1) β if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) = if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1)))))) |
32 | 31 | mpteq2dv 5249 |
. . 3
β’ (π = (π + 1) β (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
33 | 23, 32 | eqeq12d 2748 |
. 2
β’ (π = (π + 1) β (((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) β ((π Dπ πΉ)β(π + 1)) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1)))))))) |
34 | | fveq2 6888 |
. . 3
β’ (π = π β ((π Dπ πΉ)βπ) = ((π Dπ πΉ)βπ)) |
35 | | breq2 5151 |
. . . . 5
β’ (π = π β (πΎ < π β πΎ < π)) |
36 | | eqidd 2733 |
. . . . 5
β’ (π = π β 0 = 0) |
37 | | oveq2 7413 |
. . . . . . . 8
β’ (π = π β (πΎ β π) = (πΎ β π)) |
38 | 37 | fveq2d 6892 |
. . . . . . 7
β’ (π = π β (!β(πΎ β π)) = (!β(πΎ β π))) |
39 | 38 | oveq2d 7421 |
. . . . . 6
β’ (π = π β ((!βπΎ) / (!β(πΎ β π))) = ((!βπΎ) / (!β(πΎ β π)))) |
40 | 37 | oveq2d 7421 |
. . . . . 6
β’ (π = π β ((π₯ + π΄)β(πΎ β π)) = ((π₯ + π΄)β(πΎ β π))) |
41 | 39, 40 | oveq12d 7423 |
. . . . 5
β’ (π = π β (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))) = (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) |
42 | 35, 36, 41 | ifbieq12d 4555 |
. . . 4
β’ (π = π β if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) = if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) |
43 | 42 | mpteq2dv 5249 |
. . 3
β’ (π = π β (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) |
44 | 34, 43 | eqeq12d 2748 |
. 2
β’ (π = π β (((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) β ((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))))) |
45 | | dvnxpaek.s |
. . . . 5
β’ (π β π β {β, β}) |
46 | | recnprss 25412 |
. . . . 5
β’ (π β {β, β}
β π β
β) |
47 | 45, 46 | syl 17 |
. . . 4
β’ (π β π β β) |
48 | | cnex 11187 |
. . . . . 6
β’ β
β V |
49 | 48 | a1i 11 |
. . . . 5
β’ (π β β β
V) |
50 | | dvnxpaek.x |
. . . . . . . . . . . 12
β’ (π β π β
((TopOpenββfld) βΎt π)) |
51 | | restsspw 17373 |
. . . . . . . . . . . . . 14
β’
((TopOpenββfld) βΎt π) β π« π |
52 | | id 22 |
. . . . . . . . . . . . . 14
β’ (π β
((TopOpenββfld) βΎt π) β π β
((TopOpenββfld) βΎt π)) |
53 | 51, 52 | sselid 3979 |
. . . . . . . . . . . . 13
β’ (π β
((TopOpenββfld) βΎt π) β π β π« π) |
54 | | elpwi 4608 |
. . . . . . . . . . . . 13
β’ (π β π« π β π β π) |
55 | 53, 54 | syl 17 |
. . . . . . . . . . . 12
β’ (π β
((TopOpenββfld) βΎt π) β π β π) |
56 | 50, 55 | syl 17 |
. . . . . . . . . . 11
β’ (π β π β π) |
57 | 56, 47 | sstrd 3991 |
. . . . . . . . . 10
β’ (π β π β β) |
58 | 57 | adantr 481 |
. . . . . . . . 9
β’ ((π β§ π₯ β π) β π β β) |
59 | | simpr 485 |
. . . . . . . . 9
β’ ((π β§ π₯ β π) β π₯ β π) |
60 | 58, 59 | sseldd 3982 |
. . . . . . . 8
β’ ((π β§ π₯ β π) β π₯ β β) |
61 | | dvnxpaek.a |
. . . . . . . . 9
β’ (π β π΄ β β) |
62 | 61 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π₯ β π) β π΄ β β) |
63 | 60, 62 | addcld 11229 |
. . . . . . 7
β’ ((π β§ π₯ β π) β (π₯ + π΄) β β) |
64 | | dvnxpaek.k |
. . . . . . . 8
β’ (π β πΎ β
β0) |
65 | 64 | adantr 481 |
. . . . . . 7
β’ ((π β§ π₯ β π) β πΎ β
β0) |
66 | 63, 65 | expcld 14107 |
. . . . . 6
β’ ((π β§ π₯ β π) β ((π₯ + π΄)βπΎ) β β) |
67 | | dvnxpaek.f |
. . . . . 6
β’ πΉ = (π₯ β π β¦ ((π₯ + π΄)βπΎ)) |
68 | 66, 67 | fmptd 7110 |
. . . . 5
β’ (π β πΉ:πβΆβ) |
69 | | elpm2r 8835 |
. . . . 5
β’
(((β β V β§ π β {β, β}) β§ (πΉ:πβΆβ β§ π β π)) β πΉ β (β βpm π)) |
70 | 49, 45, 68, 56, 69 | syl22anc 837 |
. . . 4
β’ (π β πΉ β (β βpm π)) |
71 | | dvn0 25432 |
. . . 4
β’ ((π β β β§ πΉ β (β
βpm π))
β ((π
Dπ πΉ)β0) = πΉ) |
72 | 47, 70, 71 | syl2anc 584 |
. . 3
β’ (π β ((π Dπ πΉ)β0) = πΉ) |
73 | 67 | a1i 11 |
. . 3
β’ (π β πΉ = (π₯ β π β¦ ((π₯ + π΄)βπΎ))) |
74 | 64 | nn0ge0d 12531 |
. . . . . . . 8
β’ (π β 0 β€ πΎ) |
75 | | 0red 11213 |
. . . . . . . . 9
β’ (π β 0 β
β) |
76 | 64 | nn0red 12529 |
. . . . . . . . 9
β’ (π β πΎ β β) |
77 | 75, 76 | lenltd 11356 |
. . . . . . . 8
β’ (π β (0 β€ πΎ β Β¬ πΎ < 0)) |
78 | 74, 77 | mpbid 231 |
. . . . . . 7
β’ (π β Β¬ πΎ < 0) |
79 | 78 | iffalsed 4538 |
. . . . . 6
β’ (π β if(πΎ < 0, 0, (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0)))) = (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0)))) |
80 | 79 | adantr 481 |
. . . . 5
β’ ((π β§ π₯ β π) β if(πΎ < 0, 0, (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0)))) = (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0)))) |
81 | 64 | nn0cnd 12530 |
. . . . . . . . . . 11
β’ (π β πΎ β β) |
82 | 81 | subid1d 11556 |
. . . . . . . . . 10
β’ (π β (πΎ β 0) = πΎ) |
83 | 82 | fveq2d 6892 |
. . . . . . . . 9
β’ (π β (!β(πΎ β 0)) = (!βπΎ)) |
84 | 83 | oveq2d 7421 |
. . . . . . . 8
β’ (π β ((!βπΎ) / (!β(πΎ β 0))) = ((!βπΎ) / (!βπΎ))) |
85 | | faccl 14239 |
. . . . . . . . . . 11
β’ (πΎ β β0
β (!βπΎ) β
β) |
86 | 64, 85 | syl 17 |
. . . . . . . . . 10
β’ (π β (!βπΎ) β β) |
87 | 86 | nncnd 12224 |
. . . . . . . . 9
β’ (π β (!βπΎ) β β) |
88 | 86 | nnne0d 12258 |
. . . . . . . . 9
β’ (π β (!βπΎ) β 0) |
89 | 87, 88 | dividd 11984 |
. . . . . . . 8
β’ (π β ((!βπΎ) / (!βπΎ)) = 1) |
90 | 84, 89 | eqtrd 2772 |
. . . . . . 7
β’ (π β ((!βπΎ) / (!β(πΎ β 0))) = 1) |
91 | 82 | oveq2d 7421 |
. . . . . . 7
β’ (π β ((π₯ + π΄)β(πΎ β 0)) = ((π₯ + π΄)βπΎ)) |
92 | 90, 91 | oveq12d 7423 |
. . . . . 6
β’ (π β (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0))) = (1 Β· ((π₯ + π΄)βπΎ))) |
93 | 92 | adantr 481 |
. . . . 5
β’ ((π β§ π₯ β π) β (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0))) = (1 Β· ((π₯ + π΄)βπΎ))) |
94 | 66 | mullidd 11228 |
. . . . 5
β’ ((π β§ π₯ β π) β (1 Β· ((π₯ + π΄)βπΎ)) = ((π₯ + π΄)βπΎ)) |
95 | 80, 93, 94 | 3eqtrrd 2777 |
. . . 4
β’ ((π β§ π₯ β π) β ((π₯ + π΄)βπΎ) = if(πΎ < 0, 0, (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0))))) |
96 | 95 | mpteq2dva 5247 |
. . 3
β’ (π β (π₯ β π β¦ ((π₯ + π΄)βπΎ)) = (π₯ β π β¦ if(πΎ < 0, 0, (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0)))))) |
97 | 72, 73, 96 | 3eqtrd 2776 |
. 2
β’ (π β ((π Dπ πΉ)β0) = (π₯ β π β¦ if(πΎ < 0, 0, (((!βπΎ) / (!β(πΎ β 0))) Β· ((π₯ + π΄)β(πΎ β 0)))))) |
98 | 47 | adantr 481 |
. . . . 5
β’ ((π β§ π β β0) β π β
β) |
99 | 70 | adantr 481 |
. . . . 5
β’ ((π β§ π β β0) β πΉ β (β
βpm π)) |
100 | | simpr 485 |
. . . . 5
β’ ((π β§ π β β0) β π β
β0) |
101 | | dvnp1 25433 |
. . . . 5
β’ ((π β β β§ πΉ β (β
βpm π)
β§ π β
β0) β ((π Dπ πΉ)β(π + 1)) = (π D ((π Dπ πΉ)βπ))) |
102 | 98, 99, 100, 101 | syl3anc 1371 |
. . . 4
β’ ((π β§ π β β0) β ((π Dπ πΉ)β(π + 1)) = (π D ((π Dπ πΉ)βπ))) |
103 | 102 | adantr 481 |
. . 3
β’ (((π β§ π β β0) β§ ((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) β ((π Dπ πΉ)β(π + 1)) = (π D ((π Dπ πΉ)βπ))) |
104 | | oveq2 7413 |
. . . 4
β’ (((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) β (π D ((π Dπ πΉ)βπ)) = (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))))) |
105 | 104 | adantl 482 |
. . 3
β’ (((π β§ π β β0) β§ ((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) β (π D ((π Dπ πΉ)βπ)) = (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))))) |
106 | | iftrue 4533 |
. . . . . . . . 9
β’ (πΎ < π β if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) = 0) |
107 | 106 | mpteq2dv 5249 |
. . . . . . . 8
β’ (πΎ < π β (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π₯ β π β¦ 0)) |
108 | 107 | oveq2d 7421 |
. . . . . . 7
β’ (πΎ < π β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π D (π₯ β π β¦ 0))) |
109 | 108 | adantl 482 |
. . . . . 6
β’ (((π β§ π β β0) β§ πΎ < π) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π D (π₯ β π β¦ 0))) |
110 | | 0cnd 11203 |
. . . . . . . 8
β’ (π β 0 β
β) |
111 | 45, 50, 110 | dvmptconst 44617 |
. . . . . . 7
β’ (π β (π D (π₯ β π β¦ 0)) = (π₯ β π β¦ 0)) |
112 | 111 | ad2antrr 724 |
. . . . . 6
β’ (((π β§ π β β0) β§ πΎ < π) β (π D (π₯ β π β¦ 0)) = (π₯ β π β¦ 0)) |
113 | 76 | ad2antrr 724 |
. . . . . . . . . . 11
β’ (((π β§ π β β0) β§ πΎ < π) β πΎ β β) |
114 | | nn0re 12477 |
. . . . . . . . . . . 12
β’ (π β β0
β π β
β) |
115 | 114 | ad2antlr 725 |
. . . . . . . . . . 11
β’ (((π β§ π β β0) β§ πΎ < π) β π β β) |
116 | | simpr 485 |
. . . . . . . . . . 11
β’ (((π β§ π β β0) β§ πΎ < π) β πΎ < π) |
117 | 113, 115,
116 | ltled 11358 |
. . . . . . . . . 10
β’ (((π β§ π β β0) β§ πΎ < π) β πΎ β€ π) |
118 | 64 | nn0zd 12580 |
. . . . . . . . . . . . 13
β’ (π β πΎ β β€) |
119 | 118 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ π β β0) β πΎ β
β€) |
120 | 100 | nn0zd 12580 |
. . . . . . . . . . . 12
β’ ((π β§ π β β0) β π β
β€) |
121 | | zleltp1 12609 |
. . . . . . . . . . . 12
β’ ((πΎ β β€ β§ π β β€) β (πΎ β€ π β πΎ < (π + 1))) |
122 | 119, 120,
121 | syl2anc 584 |
. . . . . . . . . . 11
β’ ((π β§ π β β0) β (πΎ β€ π β πΎ < (π + 1))) |
123 | 122 | adantr 481 |
. . . . . . . . . 10
β’ (((π β§ π β β0) β§ πΎ < π) β (πΎ β€ π β πΎ < (π + 1))) |
124 | 117, 123 | mpbid 231 |
. . . . . . . . 9
β’ (((π β§ π β β0) β§ πΎ < π) β πΎ < (π + 1)) |
125 | 124 | iftrued 4535 |
. . . . . . . 8
β’ (((π β§ π β β0) β§ πΎ < π) β if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))) = 0) |
126 | 125 | mpteq2dv 5249 |
. . . . . . 7
β’ (((π β§ π β β0) β§ πΎ < π) β (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1)))))) = (π₯ β π β¦ 0)) |
127 | 126 | eqcomd 2738 |
. . . . . 6
β’ (((π β§ π β β0) β§ πΎ < π) β (π₯ β π β¦ 0) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
128 | 109, 112,
127 | 3eqtrd 2776 |
. . . . 5
β’ (((π β§ π β β0) β§ πΎ < π) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
129 | | simpl 483 |
. . . . . 6
β’ (((π β§ π β β0) β§ Β¬
πΎ < π) β (π β§ π β
β0)) |
130 | | simpr 485 |
. . . . . . 7
β’ (((π β§ π β β0) β§ Β¬
πΎ < π) β Β¬ πΎ < π) |
131 | 129, 100,
114 | 3syl 18 |
. . . . . . . 8
β’ (((π β§ π β β0) β§ Β¬
πΎ < π) β π β β) |
132 | 76 | ad2antrr 724 |
. . . . . . . 8
β’ (((π β§ π β β0) β§ Β¬
πΎ < π) β πΎ β β) |
133 | 131, 132 | lenltd 11356 |
. . . . . . 7
β’ (((π β§ π β β0) β§ Β¬
πΎ < π) β (π β€ πΎ β Β¬ πΎ < π)) |
134 | 130, 133 | mpbird 256 |
. . . . . 6
β’ (((π β§ π β β0) β§ Β¬
πΎ < π) β π β€ πΎ) |
135 | | simpr 485 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β0) β§ π = πΎ) β π = πΎ) |
136 | 114 | ad2antlr 725 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π = πΎ) β π β β) |
137 | 76 | ad2antrr 724 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π = πΎ) β πΎ β β) |
138 | 136, 137 | lttri3d 11350 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β0) β§ π = πΎ) β (π = πΎ β (Β¬ π < πΎ β§ Β¬ πΎ < π))) |
139 | 135, 138 | mpbid 231 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β0) β§ π = πΎ) β (Β¬ π < πΎ β§ Β¬ πΎ < π)) |
140 | | simpr 485 |
. . . . . . . . . . . . 13
β’ ((Β¬
π < πΎ β§ Β¬ πΎ < π) β Β¬ πΎ < π) |
141 | 139, 140 | syl 17 |
. . . . . . . . . . . 12
β’ (((π β§ π β β0) β§ π = πΎ) β Β¬ πΎ < π) |
142 | 141 | iffalsed 4538 |
. . . . . . . . . . 11
β’ (((π β§ π β β0) β§ π = πΎ) β if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) = (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) |
143 | 142 | mpteq2dv 5249 |
. . . . . . . . . 10
β’ (((π β§ π β β0) β§ π = πΎ) β (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π₯ β π β¦ (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) |
144 | 143 | oveq2d 7421 |
. . . . . . . . 9
β’ (((π β§ π β β0) β§ π = πΎ) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π D (π₯ β π β¦ (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) |
145 | | oveq2 7413 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = πΎ β (πΎ β π) = (πΎ β πΎ)) |
146 | 145 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = πΎ β (!β(πΎ β π)) = (!β(πΎ β πΎ))) |
147 | 146 | adantl 482 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π = πΎ) β (!β(πΎ β π)) = (!β(πΎ β πΎ))) |
148 | 81 | subidd 11555 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (πΎ β πΎ) = 0) |
149 | 148 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (!β(πΎ β πΎ)) = (!β0)) |
150 | | fac0 14232 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(!β0) = 1 |
151 | 150 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π β (!β0) =
1) |
152 | 149, 151 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (!β(πΎ β πΎ)) = 1) |
153 | 152 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π = πΎ) β (!β(πΎ β πΎ)) = 1) |
154 | 147, 153 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π = πΎ) β (!β(πΎ β π)) = 1) |
155 | 154 | oveq2d 7421 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π = πΎ) β ((!βπΎ) / (!β(πΎ β π))) = ((!βπΎ) / 1)) |
156 | 87 | div1d 11978 |
. . . . . . . . . . . . . . . . . 18
β’ (π β ((!βπΎ) / 1) = (!βπΎ)) |
157 | 156 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π = πΎ) β ((!βπΎ) / 1) = (!βπΎ)) |
158 | 155, 157 | eqtrd 2772 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π = πΎ) β ((!βπΎ) / (!β(πΎ β π))) = (!βπΎ)) |
159 | 158 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π = πΎ) β§ π₯ β π) β ((!βπΎ) / (!β(πΎ β π))) = (!βπΎ)) |
160 | 145 | adantl 482 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π = πΎ) β (πΎ β π) = (πΎ β πΎ)) |
161 | 148 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ π = πΎ) β (πΎ β πΎ) = 0) |
162 | 160, 161 | eqtrd 2772 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ π = πΎ) β (πΎ β π) = 0) |
163 | 162 | oveq2d 7421 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π = πΎ) β ((π₯ + π΄)β(πΎ β π)) = ((π₯ + π΄)β0)) |
164 | 163 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π = πΎ) β§ π₯ β π) β ((π₯ + π΄)β(πΎ β π)) = ((π₯ + π΄)β0)) |
165 | 63 | exp0d 14101 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π₯ β π) β ((π₯ + π΄)β0) = 1) |
166 | 165 | adantlr 713 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π = πΎ) β§ π₯ β π) β ((π₯ + π΄)β0) = 1) |
167 | 164, 166 | eqtrd 2772 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π = πΎ) β§ π₯ β π) β ((π₯ + π΄)β(πΎ β π)) = 1) |
168 | 159, 167 | oveq12d 7423 |
. . . . . . . . . . . . . 14
β’ (((π β§ π = πΎ) β§ π₯ β π) β (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))) = ((!βπΎ) Β· 1)) |
169 | 87 | mulridd 11227 |
. . . . . . . . . . . . . . 15
β’ (π β ((!βπΎ) Β· 1) = (!βπΎ)) |
170 | 169 | ad2antrr 724 |
. . . . . . . . . . . . . 14
β’ (((π β§ π = πΎ) β§ π₯ β π) β ((!βπΎ) Β· 1) = (!βπΎ)) |
171 | 168, 170 | eqtrd 2772 |
. . . . . . . . . . . . 13
β’ (((π β§ π = πΎ) β§ π₯ β π) β (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))) = (!βπΎ)) |
172 | 171 | mpteq2dva 5247 |
. . . . . . . . . . . 12
β’ ((π β§ π = πΎ) β (π₯ β π β¦ (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) = (π₯ β π β¦ (!βπΎ))) |
173 | 172 | oveq2d 7421 |
. . . . . . . . . . 11
β’ ((π β§ π = πΎ) β (π D (π₯ β π β¦ (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π D (π₯ β π β¦ (!βπΎ)))) |
174 | 45, 50, 87 | dvmptconst 44617 |
. . . . . . . . . . . 12
β’ (π β (π D (π₯ β π β¦ (!βπΎ))) = (π₯ β π β¦ 0)) |
175 | 174 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π = πΎ) β (π D (π₯ β π β¦ (!βπΎ))) = (π₯ β π β¦ 0)) |
176 | 173, 175 | eqtrd 2772 |
. . . . . . . . . 10
β’ ((π β§ π = πΎ) β (π D (π₯ β π β¦ (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π₯ β π β¦ 0)) |
177 | 176 | adantlr 713 |
. . . . . . . . 9
β’ (((π β§ π β β0) β§ π = πΎ) β (π D (π₯ β π β¦ (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π₯ β π β¦ 0)) |
178 | 137 | ltp1d 12140 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β0) β§ π = πΎ) β πΎ < (πΎ + 1)) |
179 | | oveq1 7412 |
. . . . . . . . . . . . . . 15
β’ (π = πΎ β (π + 1) = (πΎ + 1)) |
180 | 179 | eqcomd 2738 |
. . . . . . . . . . . . . 14
β’ (π = πΎ β (πΎ + 1) = (π + 1)) |
181 | 180 | adantl 482 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β0) β§ π = πΎ) β (πΎ + 1) = (π + 1)) |
182 | 178, 181 | breqtrd 5173 |
. . . . . . . . . . . 12
β’ (((π β§ π β β0) β§ π = πΎ) β πΎ < (π + 1)) |
183 | 182 | iftrued 4535 |
. . . . . . . . . . 11
β’ (((π β§ π β β0) β§ π = πΎ) β if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))) = 0) |
184 | 183 | eqcomd 2738 |
. . . . . . . . . 10
β’ (((π β§ π β β0) β§ π = πΎ) β 0 = if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1)))))) |
185 | 184 | mpteq2dv 5249 |
. . . . . . . . 9
β’ (((π β§ π β β0) β§ π = πΎ) β (π₯ β π β¦ 0) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
186 | 144, 177,
185 | 3eqtrd 2776 |
. . . . . . . 8
β’ (((π β§ π β β0) β§ π = πΎ) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
187 | 186 | adantlr 713 |
. . . . . . 7
β’ ((((π β§ π β β0) β§ π β€ πΎ) β§ π = πΎ) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
188 | | simpll 765 |
. . . . . . . 8
β’ ((((π β§ π β β0) β§ π β€ πΎ) β§ Β¬ π = πΎ) β (π β§ π β
β0)) |
189 | 188, 100,
114 | 3syl 18 |
. . . . . . . . 9
β’ ((((π β§ π β β0) β§ π β€ πΎ) β§ Β¬ π = πΎ) β π β β) |
190 | 76 | ad3antrrr 728 |
. . . . . . . . 9
β’ ((((π β§ π β β0) β§ π β€ πΎ) β§ Β¬ π = πΎ) β πΎ β β) |
191 | | simplr 767 |
. . . . . . . . 9
β’ ((((π β§ π β β0) β§ π β€ πΎ) β§ Β¬ π = πΎ) β π β€ πΎ) |
192 | | neqne 2948 |
. . . . . . . . . . 11
β’ (Β¬
π = πΎ β π β πΎ) |
193 | 192 | necomd 2996 |
. . . . . . . . . 10
β’ (Β¬
π = πΎ β πΎ β π) |
194 | 193 | adantl 482 |
. . . . . . . . 9
β’ ((((π β§ π β β0) β§ π β€ πΎ) β§ Β¬ π = πΎ) β πΎ β π) |
195 | 189, 190,
191, 194 | leneltd 11364 |
. . . . . . . 8
β’ ((((π β§ π β β0) β§ π β€ πΎ) β§ Β¬ π = πΎ) β π < πΎ) |
196 | 114 | ad2antlr 725 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β0) β§ π < πΎ) β π β β) |
197 | 76 | ad2antrr 724 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β0) β§ π < πΎ) β πΎ β β) |
198 | | simpr 485 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β0) β§ π < πΎ) β π < πΎ) |
199 | 196, 197,
198 | ltled 11358 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β0) β§ π < πΎ) β π β€ πΎ) |
200 | 196, 197 | lenltd 11356 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β0) β§ π < πΎ) β (π β€ πΎ β Β¬ πΎ < π)) |
201 | 199, 200 | mpbid 231 |
. . . . . . . . . . . 12
β’ (((π β§ π β β0) β§ π < πΎ) β Β¬ πΎ < π) |
202 | 201 | iffalsed 4538 |
. . . . . . . . . . 11
β’ (((π β§ π β β0) β§ π < πΎ) β if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) = (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))) |
203 | 202 | mpteq2dv 5249 |
. . . . . . . . . 10
β’ (((π β§ π β β0) β§ π < πΎ) β (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π₯ β π β¦ (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) |
204 | 203 | oveq2d 7421 |
. . . . . . . . 9
β’ (((π β§ π β β0) β§ π < πΎ) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π D (π₯ β π β¦ (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) |
205 | 45 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β β0) β π β {β,
β}) |
206 | 205 | adantr 481 |
. . . . . . . . . 10
β’ (((π β§ π β β0) β§ π < πΎ) β π β {β, β}) |
207 | 87 | ad2antrr 724 |
. . . . . . . . . . . 12
β’ (((π β§ π β β0) β§ π < πΎ) β (!βπΎ) β β) |
208 | 100 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β π β β0) |
209 | 64 | ad2antrr 724 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β πΎ β
β0) |
210 | | nn0sub 12518 |
. . . . . . . . . . . . . . . 16
β’ ((π β β0
β§ πΎ β
β0) β (π β€ πΎ β (πΎ β π) β
β0)) |
211 | 208, 209,
210 | syl2anc 584 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π < πΎ) β (π β€ πΎ β (πΎ β π) β
β0)) |
212 | 199, 211 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β0) β§ π < πΎ) β (πΎ β π) β
β0) |
213 | | faccl 14239 |
. . . . . . . . . . . . . 14
β’ ((πΎ β π) β β0 β
(!β(πΎ β π)) β
β) |
214 | 212, 213 | syl 17 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β0) β§ π < πΎ) β (!β(πΎ β π)) β β) |
215 | 214 | nncnd 12224 |
. . . . . . . . . . . 12
β’ (((π β§ π β β0) β§ π < πΎ) β (!β(πΎ β π)) β β) |
216 | 214 | nnne0d 12258 |
. . . . . . . . . . . 12
β’ (((π β§ π β β0) β§ π < πΎ) β (!β(πΎ β π)) β 0) |
217 | 207, 215,
216 | divcld 11986 |
. . . . . . . . . . 11
β’ (((π β§ π β β0) β§ π < πΎ) β ((!βπΎ) / (!β(πΎ β π))) β β) |
218 | 217 | adantr 481 |
. . . . . . . . . 10
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((!βπΎ) / (!β(πΎ β π))) β β) |
219 | 75 | ad3antrrr 728 |
. . . . . . . . . 10
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β 0 β β) |
220 | 50 | adantr 481 |
. . . . . . . . . . . 12
β’ ((π β§ π β β0) β π β
((TopOpenββfld) βΎt π)) |
221 | 220 | adantr 481 |
. . . . . . . . . . 11
β’ (((π β§ π β β0) β§ π < πΎ) β π β
((TopOpenββfld) βΎt π)) |
222 | 206, 221,
217 | dvmptconst 44617 |
. . . . . . . . . 10
β’ (((π β§ π β β0) β§ π < πΎ) β (π D (π₯ β π β¦ ((!βπΎ) / (!β(πΎ β π))))) = (π₯ β π β¦ 0)) |
223 | 63 | adantlr 713 |
. . . . . . . . . . . 12
β’ (((π β§ π β β0) β§ π₯ β π) β (π₯ + π΄) β β) |
224 | 223 | adantlr 713 |
. . . . . . . . . . 11
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (π₯ + π΄) β β) |
225 | 212 | adantr 481 |
. . . . . . . . . . 11
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (πΎ β π) β
β0) |
226 | 224, 225 | expcld 14107 |
. . . . . . . . . 10
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((π₯ + π΄)β(πΎ β π)) β β) |
227 | 225 | nn0cnd 12530 |
. . . . . . . . . . 11
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (πΎ β π) β β) |
228 | 212 | nn0zd 12580 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β (πΎ β π) β β€) |
229 | 196, 197 | posdifd 11797 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β0) β§ π < πΎ) β (π < πΎ β 0 < (πΎ β π))) |
230 | 198, 229 | mpbid 231 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β 0 < (πΎ β π)) |
231 | 228, 230 | jca 512 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π < πΎ) β ((πΎ β π) β β€ β§ 0 < (πΎ β π))) |
232 | | elnnz 12564 |
. . . . . . . . . . . . . . 15
β’ ((πΎ β π) β β β ((πΎ β π) β β€ β§ 0 < (πΎ β π))) |
233 | 231, 232 | sylibr 233 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β0) β§ π < πΎ) β (πΎ β π) β β) |
234 | | nnm1nn0 12509 |
. . . . . . . . . . . . . 14
β’ ((πΎ β π) β β β ((πΎ β π) β 1) β
β0) |
235 | 233, 234 | syl 17 |
. . . . . . . . . . . . 13
β’ (((π β§ π β β0) β§ π < πΎ) β ((πΎ β π) β 1) β
β0) |
236 | 235 | adantr 481 |
. . . . . . . . . . . 12
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((πΎ β π) β 1) β
β0) |
237 | 224, 236 | expcld 14107 |
. . . . . . . . . . 11
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((π₯ + π΄)β((πΎ β π) β 1)) β
β) |
238 | 227, 237 | mulcld 11230 |
. . . . . . . . . 10
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) β
β) |
239 | 61 | ad2antrr 724 |
. . . . . . . . . . 11
β’ (((π β§ π β β0) β§ π < πΎ) β π΄ β β) |
240 | 206, 221,
239, 233 | dvxpaek 44642 |
. . . . . . . . . 10
β’ (((π β§ π β β0) β§ π < πΎ) β (π D (π₯ β π β¦ ((π₯ + π΄)β(πΎ β π)))) = (π₯ β π β¦ ((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))))) |
241 | 206, 218,
219, 222, 226, 238, 240 | dvmptmul 25469 |
. . . . . . . . 9
β’ (((π β§ π β β0) β§ π < πΎ) β (π D (π₯ β π β¦ (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π))))) = (π₯ β π β¦ ((0 Β· ((π₯ + π΄)β(πΎ β π))) + (((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) Β· ((!βπΎ) / (!β(πΎ β π))))))) |
242 | 226 | mul02d 11408 |
. . . . . . . . . . . 12
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (0 Β· ((π₯ + π΄)β(πΎ β π))) = 0) |
243 | 242 | oveq1d 7420 |
. . . . . . . . . . 11
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((0 Β· ((π₯ + π΄)β(πΎ β π))) + (((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) Β· ((!βπΎ) / (!β(πΎ β π))))) = (0 + (((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) Β· ((!βπΎ) / (!β(πΎ β π)))))) |
244 | 238, 218 | mulcld 11230 |
. . . . . . . . . . . 12
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) Β· ((!βπΎ) / (!β(πΎ β π)))) β β) |
245 | 244 | addlidd 11411 |
. . . . . . . . . . 11
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (0 + (((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) Β· ((!βπΎ) / (!β(πΎ β π))))) = (((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) Β· ((!βπΎ) / (!β(πΎ β π))))) |
246 | 120 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β0) β§ π < πΎ) β π β β€) |
247 | 119 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β0) β§ π < πΎ) β πΎ β β€) |
248 | | zltp1le 12608 |
. . . . . . . . . . . . . . . . 17
β’ ((π β β€ β§ πΎ β β€) β (π < πΎ β (π + 1) β€ πΎ)) |
249 | 246, 247,
248 | syl2anc 584 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β (π < πΎ β (π + 1) β€ πΎ)) |
250 | 198, 249 | mpbid 231 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π < πΎ) β (π + 1) β€ πΎ) |
251 | | peano2re 11383 |
. . . . . . . . . . . . . . . . 17
β’ (π β β β (π + 1) β
β) |
252 | 196, 251 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β (π + 1) β β) |
253 | 252, 197 | lenltd 11356 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π < πΎ) β ((π + 1) β€ πΎ β Β¬ πΎ < (π + 1))) |
254 | 250, 253 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ (((π β§ π β β0) β§ π < πΎ) β Β¬ πΎ < (π + 1)) |
255 | 254 | adantr 481 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β Β¬ πΎ < (π + 1)) |
256 | 255 | iffalsed 4538 |
. . . . . . . . . . . 12
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))) = (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))) |
257 | 218, 227,
237 | mulassd 11233 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((((!βπΎ) / (!β(πΎ β π))) Β· (πΎ β π)) Β· ((π₯ + π΄)β((πΎ β π) β 1))) = (((!βπΎ) / (!β(πΎ β π))) Β· ((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))))) |
258 | 257 | eqcomd 2738 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (((!βπΎ) / (!β(πΎ β π))) Β· ((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1)))) = ((((!βπΎ) / (!β(πΎ β π))) Β· (πΎ β π)) Β· ((π₯ + π΄)β((πΎ β π) β 1)))) |
259 | 233 | nncnd 12224 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β0) β§ π < πΎ) β (πΎ β π) β β) |
260 | 207, 215,
259, 216 | div32d 12009 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β (((!βπΎ) / (!β(πΎ β π))) Β· (πΎ β π)) = ((!βπΎ) Β· ((πΎ β π) / (!β(πΎ β π))))) |
261 | | facnn2 14238 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πΎ β π) β β β (!β(πΎ β π)) = ((!β((πΎ β π) β 1)) Β· (πΎ β π))) |
262 | 233, 261 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β0) β§ π < πΎ) β (!β(πΎ β π)) = ((!β((πΎ β π) β 1)) Β· (πΎ β π))) |
263 | 262 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β β0) β§ π < πΎ) β ((πΎ β π) / (!β(πΎ β π))) = ((πΎ β π) / ((!β((πΎ β π) β 1)) Β· (πΎ β π)))) |
264 | | faccl 14239 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((πΎ β π) β 1) β β0
β (!β((πΎ β
π) β 1)) β
β) |
265 | 234, 264 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πΎ β π) β β β (!β((πΎ β π) β 1)) β
β) |
266 | 265 | nncnd 12224 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πΎ β π) β β β (!β((πΎ β π) β 1)) β
β) |
267 | 233, 266 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β0) β§ π < πΎ) β (!β((πΎ β π) β 1)) β
β) |
268 | 235, 264 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ π β β0) β§ π < πΎ) β (!β((πΎ β π) β 1)) β
β) |
269 | | nnne0 12242 |
. . . . . . . . . . . . . . . . . . . 20
β’
((!β((πΎ
β π) β 1))
β β β (!β((πΎ β π) β 1)) β 0) |
270 | 268, 269 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β0) β§ π < πΎ) β (!β((πΎ β π) β 1)) β 0) |
271 | | nnne0 12242 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πΎ β π) β β β (πΎ β π) β 0) |
272 | 233, 271 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β0) β§ π < πΎ) β (πΎ β π) β 0) |
273 | 267, 259,
270, 272 | divcan8d 44008 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β β0) β§ π < πΎ) β ((πΎ β π) / ((!β((πΎ β π) β 1)) Β· (πΎ β π))) = (1 / (!β((πΎ β π) β 1)))) |
274 | 263, 273 | eqtrd 2772 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β0) β§ π < πΎ) β ((πΎ β π) / (!β(πΎ β π))) = (1 / (!β((πΎ β π) β 1)))) |
275 | 274 | oveq2d 7421 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β ((!βπΎ) Β· ((πΎ β π) / (!β(πΎ β π)))) = ((!βπΎ) Β· (1 / (!β((πΎ β π) β 1))))) |
276 | | eqidd 2733 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β ((!βπΎ) Β· (1 / (!β((πΎ β π) β 1)))) = ((!βπΎ) Β· (1 / (!β((πΎ β π) β 1))))) |
277 | 260, 275,
276 | 3eqtrd 2776 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π < πΎ) β (((!βπΎ) / (!β(πΎ β π))) Β· (πΎ β π)) = ((!βπΎ) Β· (1 / (!β((πΎ β π) β 1))))) |
278 | 277 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (((!βπΎ) / (!β(πΎ β π))) Β· (πΎ β π)) = ((!βπΎ) Β· (1 / (!β((πΎ β π) β 1))))) |
279 | 81 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β β0) β πΎ β
β) |
280 | 100 | nn0cnd 12530 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β β0) β π β
β) |
281 | | 1cnd 11205 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β β0) β 1 β
β) |
282 | 279, 280,
281 | subsub4d 11598 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β β0) β ((πΎ β π) β 1) = (πΎ β (π + 1))) |
283 | 282 | oveq2d 7421 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β β0) β ((π₯ + π΄)β((πΎ β π) β 1)) = ((π₯ + π΄)β(πΎ β (π + 1)))) |
284 | 283 | ad2antrr 724 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((π₯ + π΄)β((πΎ β π) β 1)) = ((π₯ + π΄)β(πΎ β (π + 1)))) |
285 | 278, 284 | oveq12d 7423 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((((!βπΎ) / (!β(πΎ β π))) Β· (πΎ β π)) Β· ((π₯ + π΄)β((πΎ β π) β 1))) = (((!βπΎ) Β· (1 / (!β((πΎ β π) β 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))) |
286 | 282 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π β β0) β§ π < πΎ) β ((πΎ β π) β 1) = (πΎ β (π + 1))) |
287 | 286 | eqcomd 2738 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π β β0) β§ π < πΎ) β (πΎ β (π + 1)) = ((πΎ β π) β 1)) |
288 | 287 | fveq2d 6892 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π β β0) β§ π < πΎ) β (!β(πΎ β (π + 1))) = (!β((πΎ β π) β 1))) |
289 | 288 | oveq2d 7421 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β ((!βπΎ) / (!β(πΎ β (π + 1)))) = ((!βπΎ) / (!β((πΎ β π) β 1)))) |
290 | 207, 267,
270 | divrecd 11989 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ π β β0) β§ π < πΎ) β ((!βπΎ) / (!β((πΎ β π) β 1))) = ((!βπΎ) Β· (1 / (!β((πΎ β π) β 1))))) |
291 | 289, 290 | eqtr2d 2773 |
. . . . . . . . . . . . . . 15
β’ (((π β§ π β β0) β§ π < πΎ) β ((!βπΎ) Β· (1 / (!β((πΎ β π) β 1)))) = ((!βπΎ) / (!β(πΎ β (π + 1))))) |
292 | 291 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((!βπΎ) Β· (1 / (!β((πΎ β π) β 1)))) = ((!βπΎ) / (!β(πΎ β (π + 1))))) |
293 | 292 | oveq1d 7420 |
. . . . . . . . . . . . 13
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (((!βπΎ) Β· (1 / (!β((πΎ β π) β 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1)))) = (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))) |
294 | 258, 285,
293 | 3eqtrrd 2777 |
. . . . . . . . . . . 12
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1)))) = (((!βπΎ) / (!β(πΎ β π))) Β· ((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))))) |
295 | 218, 238 | mulcomd 11231 |
. . . . . . . . . . . 12
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (((!βπΎ) / (!β(πΎ β π))) Β· ((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1)))) = (((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) Β· ((!βπΎ) / (!β(πΎ β π))))) |
296 | 256, 294,
295 | 3eqtrrd 2777 |
. . . . . . . . . . 11
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β (((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) Β· ((!βπΎ) / (!β(πΎ β π)))) = if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1)))))) |
297 | 243, 245,
296 | 3eqtrd 2776 |
. . . . . . . . . 10
β’ ((((π β§ π β β0) β§ π < πΎ) β§ π₯ β π) β ((0 Β· ((π₯ + π΄)β(πΎ β π))) + (((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) Β· ((!βπΎ) / (!β(πΎ β π))))) = if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1)))))) |
298 | 297 | mpteq2dva 5247 |
. . . . . . . . 9
β’ (((π β§ π β β0) β§ π < πΎ) β (π₯ β π β¦ ((0 Β· ((π₯ + π΄)β(πΎ β π))) + (((πΎ β π) Β· ((π₯ + π΄)β((πΎ β π) β 1))) Β· ((!βπΎ) / (!β(πΎ β π)))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
299 | 204, 241,
298 | 3eqtrd 2776 |
. . . . . . . 8
β’ (((π β§ π β β0) β§ π < πΎ) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
300 | 188, 195,
299 | syl2anc 584 |
. . . . . . 7
β’ ((((π β§ π β β0) β§ π β€ πΎ) β§ Β¬ π = πΎ) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
301 | 187, 300 | pm2.61dan 811 |
. . . . . 6
β’ (((π β§ π β β0) β§ π β€ πΎ) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
302 | 129, 134,
301 | syl2anc 584 |
. . . . 5
β’ (((π β§ π β β0) β§ Β¬
πΎ < π) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
303 | 128, 302 | pm2.61dan 811 |
. . . 4
β’ ((π β§ π β β0) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
304 | 303 | adantr 481 |
. . 3
β’ (((π β§ π β β0) β§ ((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) β (π D (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
305 | 103, 105,
304 | 3eqtrd 2776 |
. 2
β’ (((π β§ π β β0) β§ ((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) β ((π Dπ πΉ)β(π + 1)) = (π₯ β π β¦ if(πΎ < (π + 1), 0, (((!βπΎ) / (!β(πΎ β (π + 1)))) Β· ((π₯ + π΄)β(πΎ β (π + 1))))))) |
306 | 11, 22, 33, 44, 97, 305 | nn0indd 12655 |
1
β’ ((π β§ π β β0) β ((π Dπ πΉ)βπ) = (π₯ β π β¦ if(πΎ < π, 0, (((!βπΎ) / (!β(πΎ β π))) Β· ((π₯ + π΄)β(πΎ β π)))))) |