Step | Hyp | Ref
| Expression |
1 | | fprodefsum.2 |
. . . 4
β’ (π β π β π) |
2 | | fprodefsum.1 |
. . . 4
β’ π =
(β€β₯βπ) |
3 | 1, 2 | eleqtrdi 2844 |
. . 3
β’ (π β π β (β€β₯βπ)) |
4 | | oveq2 7414 |
. . . . . . 7
β’ (π = π β (π...π) = (π...π)) |
5 | 4 | prodeq1d 15862 |
. . . . . 6
β’ (π = π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = βπ β (π...π)((π β π β¦ (expβπ΄))βπ)) |
6 | 4 | sumeq1d 15644 |
. . . . . . 7
β’ (π = π β Ξ£π β (π...π)((π β π β¦ π΄)βπ) = Ξ£π β (π...π)((π β π β¦ π΄)βπ)) |
7 | 6 | fveq2d 6893 |
. . . . . 6
β’ (π = π β (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) |
8 | 5, 7 | eqeq12d 2749 |
. . . . 5
β’ (π = π β (βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)))) |
9 | 8 | imbi2d 341 |
. . . 4
β’ (π = π β ((π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β (π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))))) |
10 | | oveq2 7414 |
. . . . . . 7
β’ (π = π β (π...π) = (π...π)) |
11 | 10 | prodeq1d 15862 |
. . . . . 6
β’ (π = π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = βπ β (π...π)((π β π β¦ (expβπ΄))βπ)) |
12 | 10 | sumeq1d 15644 |
. . . . . . 7
β’ (π = π β Ξ£π β (π...π)((π β π β¦ π΄)βπ) = Ξ£π β (π...π)((π β π β¦ π΄)βπ)) |
13 | 12 | fveq2d 6893 |
. . . . . 6
β’ (π = π β (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) |
14 | 11, 13 | eqeq12d 2749 |
. . . . 5
β’ (π = π β (βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)))) |
15 | 14 | imbi2d 341 |
. . . 4
β’ (π = π β ((π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β (π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))))) |
16 | | oveq2 7414 |
. . . . . . 7
β’ (π = (π + 1) β (π...π) = (π...(π + 1))) |
17 | 16 | prodeq1d 15862 |
. . . . . 6
β’ (π = (π + 1) β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = βπ β (π...(π + 1))((π β π β¦ (expβπ΄))βπ)) |
18 | 16 | sumeq1d 15644 |
. . . . . . 7
β’ (π = (π + 1) β Ξ£π β (π...π)((π β π β¦ π΄)βπ) = Ξ£π β (π...(π + 1))((π β π β¦ π΄)βπ)) |
19 | 18 | fveq2d 6893 |
. . . . . 6
β’ (π = (π + 1) β (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) = (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ))) |
20 | 17, 19 | eqeq12d 2749 |
. . . . 5
β’ (π = (π + 1) β (βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) β βπ β (π...(π + 1))((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ)))) |
21 | 20 | imbi2d 341 |
. . . 4
β’ (π = (π + 1) β ((π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β (π β βπ β (π...(π + 1))((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ))))) |
22 | | oveq2 7414 |
. . . . . . 7
β’ (π = π β (π...π) = (π...π)) |
23 | 22 | prodeq1d 15862 |
. . . . . 6
β’ (π = π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = βπ β (π...π)((π β π β¦ (expβπ΄))βπ)) |
24 | 22 | sumeq1d 15644 |
. . . . . . 7
β’ (π = π β Ξ£π β (π...π)((π β π β¦ π΄)βπ) = Ξ£π β (π...π)((π β π β¦ π΄)βπ)) |
25 | 24 | fveq2d 6893 |
. . . . . 6
β’ (π = π β (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) |
26 | 23, 25 | eqeq12d 2749 |
. . . . 5
β’ (π = π β (βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)))) |
27 | 26 | imbi2d 341 |
. . . 4
β’ (π = π β ((π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β (π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))))) |
28 | | fzsn 13540 |
. . . . . . . . 9
β’ (π β β€ β (π...π) = {π}) |
29 | 28 | adantl 483 |
. . . . . . . 8
β’ ((π β§ π β β€) β (π...π) = {π}) |
30 | 29 | prodeq1d 15862 |
. . . . . . 7
β’ ((π β§ π β β€) β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = βπ β {π} ((π β π β¦ (expβπ΄))βπ)) |
31 | | simpr 486 |
. . . . . . . 8
β’ ((π β§ π β β€) β π β β€) |
32 | | uzid 12834 |
. . . . . . . . . 10
β’ (π β β€ β π β
(β€β₯βπ)) |
33 | 32, 2 | eleqtrrdi 2845 |
. . . . . . . . 9
β’ (π β β€ β π β π) |
34 | | fprodefsum.3 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β π΄ β β) |
35 | | efcl 16023 |
. . . . . . . . . . . 12
β’ (π΄ β β β
(expβπ΄) β
β) |
36 | 34, 35 | syl 17 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β (expβπ΄) β β) |
37 | 36 | fmpttd 7112 |
. . . . . . . . . 10
β’ (π β (π β π β¦ (expβπ΄)):πβΆβ) |
38 | 37 | ffvelcdmda 7084 |
. . . . . . . . 9
β’ ((π β§ π β π) β ((π β π β¦ (expβπ΄))βπ) β β) |
39 | 33, 38 | sylan2 594 |
. . . . . . . 8
β’ ((π β§ π β β€) β ((π β π β¦ (expβπ΄))βπ) β β) |
40 | | fveq2 6889 |
. . . . . . . . 9
β’ (π = π β ((π β π β¦ (expβπ΄))βπ) = ((π β π β¦ (expβπ΄))βπ)) |
41 | 40 | prodsn 15903 |
. . . . . . . 8
β’ ((π β β€ β§ ((π β π β¦ (expβπ΄))βπ) β β) β βπ β {π} ((π β π β¦ (expβπ΄))βπ) = ((π β π β¦ (expβπ΄))βπ)) |
42 | 31, 39, 41 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ π β β€) β βπ β {π} ((π β π β¦ (expβπ΄))βπ) = ((π β π β¦ (expβπ΄))βπ)) |
43 | 33 | adantl 483 |
. . . . . . . 8
β’ ((π β§ π β β€) β π β π) |
44 | | fvex 6902 |
. . . . . . . 8
β’
(expββ¦π / πβ¦π΄) β V |
45 | | nfcv 2904 |
. . . . . . . . 9
β’
β²ππ |
46 | | nfcv 2904 |
. . . . . . . . . 10
β’
β²πexp |
47 | | nfcsb1v 3918 |
. . . . . . . . . 10
β’
β²πβ¦π / πβ¦π΄ |
48 | 46, 47 | nffv 6899 |
. . . . . . . . 9
β’
β²π(expββ¦π / πβ¦π΄) |
49 | | csbeq1a 3907 |
. . . . . . . . . 10
β’ (π = π β π΄ = β¦π / πβ¦π΄) |
50 | 49 | fveq2d 6893 |
. . . . . . . . 9
β’ (π = π β (expβπ΄) = (expββ¦π / πβ¦π΄)) |
51 | | eqid 2733 |
. . . . . . . . 9
β’ (π β π β¦ (expβπ΄)) = (π β π β¦ (expβπ΄)) |
52 | 45, 48, 50, 51 | fvmptf 7017 |
. . . . . . . 8
β’ ((π β π β§ (expββ¦π / πβ¦π΄) β V) β ((π β π β¦ (expβπ΄))βπ) = (expββ¦π / πβ¦π΄)) |
53 | 43, 44, 52 | sylancl 587 |
. . . . . . 7
β’ ((π β§ π β β€) β ((π β π β¦ (expβπ΄))βπ) = (expββ¦π / πβ¦π΄)) |
54 | 30, 42, 53 | 3eqtrd 2777 |
. . . . . 6
β’ ((π β§ π β β€) β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expββ¦π / πβ¦π΄)) |
55 | 29 | sumeq1d 15644 |
. . . . . . . 8
β’ ((π β§ π β β€) β Ξ£π β (π...π)((π β π β¦ π΄)βπ) = Ξ£π β {π} ((π β π β¦ π΄)βπ)) |
56 | 34 | fmpttd 7112 |
. . . . . . . . . . 11
β’ (π β (π β π β¦ π΄):πβΆβ) |
57 | 56 | ffvelcdmda 7084 |
. . . . . . . . . 10
β’ ((π β§ π β π) β ((π β π β¦ π΄)βπ) β β) |
58 | 33, 57 | sylan2 594 |
. . . . . . . . 9
β’ ((π β§ π β β€) β ((π β π β¦ π΄)βπ) β β) |
59 | | fveq2 6889 |
. . . . . . . . . 10
β’ (π = π β ((π β π β¦ π΄)βπ) = ((π β π β¦ π΄)βπ)) |
60 | 59 | sumsn 15689 |
. . . . . . . . 9
β’ ((π β β€ β§ ((π β π β¦ π΄)βπ) β β) β Ξ£π β {π} ((π β π β¦ π΄)βπ) = ((π β π β¦ π΄)βπ)) |
61 | 31, 58, 60 | syl2anc 585 |
. . . . . . . 8
β’ ((π β§ π β β€) β Ξ£π β {π} ((π β π β¦ π΄)βπ) = ((π β π β¦ π΄)βπ)) |
62 | 34 | ralrimiva 3147 |
. . . . . . . . . 10
β’ (π β βπ β π π΄ β β) |
63 | 47 | nfel1 2920 |
. . . . . . . . . . . 12
β’
β²πβ¦π / πβ¦π΄ β β |
64 | 49 | eleq1d 2819 |
. . . . . . . . . . . 12
β’ (π = π β (π΄ β β β β¦π / πβ¦π΄ β β)) |
65 | 63, 64 | rspc 3601 |
. . . . . . . . . . 11
β’ (π β π β (βπ β π π΄ β β β β¦π / πβ¦π΄ β β)) |
66 | 65 | impcom 409 |
. . . . . . . . . 10
β’
((βπ β
π π΄ β β β§ π β π) β β¦π / πβ¦π΄ β β) |
67 | 62, 33, 66 | syl2an 597 |
. . . . . . . . 9
β’ ((π β§ π β β€) β β¦π / πβ¦π΄ β β) |
68 | | eqid 2733 |
. . . . . . . . . 10
β’ (π β π β¦ π΄) = (π β π β¦ π΄) |
69 | 68 | fvmpts 6999 |
. . . . . . . . 9
β’ ((π β π β§ β¦π / πβ¦π΄ β β) β ((π β π β¦ π΄)βπ) = β¦π / πβ¦π΄) |
70 | 43, 67, 69 | syl2anc 585 |
. . . . . . . 8
β’ ((π β§ π β β€) β ((π β π β¦ π΄)βπ) = β¦π / πβ¦π΄) |
71 | 55, 61, 70 | 3eqtrd 2777 |
. . . . . . 7
β’ ((π β§ π β β€) β Ξ£π β (π...π)((π β π β¦ π΄)βπ) = β¦π / πβ¦π΄) |
72 | 71 | fveq2d 6893 |
. . . . . 6
β’ ((π β§ π β β€) β
(expβΞ£π β
(π...π)((π β π β¦ π΄)βπ)) = (expββ¦π / πβ¦π΄)) |
73 | 54, 72 | eqtr4d 2776 |
. . . . 5
β’ ((π β§ π β β€) β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) |
74 | 73 | expcom 415 |
. . . 4
β’ (π β β€ β (π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)))) |
75 | | simp3 1139 |
. . . . . . . . . 10
β’ ((π β§ π β π β§ βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) |
76 | 2 | peano2uzs 12883 |
. . . . . . . . . . . 12
β’ (π β π β (π + 1) β π) |
77 | | simpr 486 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π + 1) β π) β (π + 1) β π) |
78 | | nfcsb1v 3918 |
. . . . . . . . . . . . . . . . . 18
β’
β²πβ¦(π + 1) / πβ¦π΄ |
79 | 78 | nfel1 2920 |
. . . . . . . . . . . . . . . . 17
β’
β²πβ¦(π + 1) / πβ¦π΄ β β |
80 | | csbeq1a 3907 |
. . . . . . . . . . . . . . . . . 18
β’ (π = (π + 1) β π΄ = β¦(π + 1) / πβ¦π΄) |
81 | 80 | eleq1d 2819 |
. . . . . . . . . . . . . . . . 17
β’ (π = (π + 1) β (π΄ β β β β¦(π + 1) / πβ¦π΄ β β)) |
82 | 79, 81 | rspc 3601 |
. . . . . . . . . . . . . . . 16
β’ ((π + 1) β π β (βπ β π π΄ β β β β¦(π + 1) / πβ¦π΄ β β)) |
83 | 62, 82 | mpan9 508 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π + 1) β π) β β¦(π + 1) / πβ¦π΄ β β) |
84 | | efcl 16023 |
. . . . . . . . . . . . . . 15
β’
(β¦(π +
1) / πβ¦π΄ β β β
(expββ¦(π + 1) / πβ¦π΄) β β) |
85 | 83, 84 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π + 1) β π) β (expββ¦(π + 1) / πβ¦π΄) β β) |
86 | | nfcv 2904 |
. . . . . . . . . . . . . . 15
β’
β²π(π + 1) |
87 | 46, 78 | nffv 6899 |
. . . . . . . . . . . . . . 15
β’
β²π(expββ¦(π + 1) / πβ¦π΄) |
88 | 80 | fveq2d 6893 |
. . . . . . . . . . . . . . 15
β’ (π = (π + 1) β (expβπ΄) = (expββ¦(π + 1) / πβ¦π΄)) |
89 | 86, 87, 88, 51 | fvmptf 7017 |
. . . . . . . . . . . . . 14
β’ (((π + 1) β π β§ (expββ¦(π + 1) / πβ¦π΄) β β) β ((π β π β¦ (expβπ΄))β(π + 1)) = (expββ¦(π + 1) / πβ¦π΄)) |
90 | 77, 85, 89 | syl2anc 585 |
. . . . . . . . . . . . 13
β’ ((π β§ (π + 1) β π) β ((π β π β¦ (expβπ΄))β(π + 1)) = (expββ¦(π + 1) / πβ¦π΄)) |
91 | 68 | fvmpts 6999 |
. . . . . . . . . . . . . . 15
β’ (((π + 1) β π β§ β¦(π + 1) / πβ¦π΄ β β) β ((π β π β¦ π΄)β(π + 1)) = β¦(π + 1) / πβ¦π΄) |
92 | 77, 83, 91 | syl2anc 585 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π + 1) β π) β ((π β π β¦ π΄)β(π + 1)) = β¦(π + 1) / πβ¦π΄) |
93 | 92 | fveq2d 6893 |
. . . . . . . . . . . . 13
β’ ((π β§ (π + 1) β π) β (expβ((π β π β¦ π΄)β(π + 1))) = (expββ¦(π + 1) / πβ¦π΄)) |
94 | 90, 93 | eqtr4d 2776 |
. . . . . . . . . . . 12
β’ ((π β§ (π + 1) β π) β ((π β π β¦ (expβπ΄))β(π + 1)) = (expβ((π β π β¦ π΄)β(π + 1)))) |
95 | 76, 94 | sylan2 594 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β ((π β π β¦ (expβπ΄))β(π + 1)) = (expβ((π β π β¦ π΄)β(π + 1)))) |
96 | 95 | 3adant3 1133 |
. . . . . . . . . 10
β’ ((π β§ π β π β§ βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β ((π β π β¦ (expβπ΄))β(π + 1)) = (expβ((π β π β¦ π΄)β(π + 1)))) |
97 | 75, 96 | oveq12d 7424 |
. . . . . . . . 9
β’ ((π β§ π β π β§ βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β (βπ β (π...π)((π β π β¦ (expβπ΄))βπ) Β· ((π β π β¦ (expβπ΄))β(π + 1))) = ((expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) Β· (expβ((π β π β¦ π΄)β(π + 1))))) |
98 | | simpr 486 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β π β π) |
99 | 98, 2 | eleqtrdi 2844 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β π β (β€β₯βπ)) |
100 | | elfzuz 13494 |
. . . . . . . . . . . . . 14
β’ (π β (π...(π + 1)) β π β (β€β₯βπ)) |
101 | 100, 2 | eleqtrrdi 2845 |
. . . . . . . . . . . . 13
β’ (π β (π...(π + 1)) β π β π) |
102 | 37 | ffvelcdmda 7084 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β ((π β π β¦ (expβπ΄))βπ) β β) |
103 | 101, 102 | sylan2 594 |
. . . . . . . . . . . 12
β’ ((π β§ π β (π...(π + 1))) β ((π β π β¦ (expβπ΄))βπ) β β) |
104 | 103 | adantlr 714 |
. . . . . . . . . . 11
β’ (((π β§ π β π) β§ π β (π...(π + 1))) β ((π β π β¦ (expβπ΄))βπ) β β) |
105 | | fveq2 6889 |
. . . . . . . . . . 11
β’ (π = (π + 1) β ((π β π β¦ (expβπ΄))βπ) = ((π β π β¦ (expβπ΄))β(π + 1))) |
106 | 99, 104, 105 | fprodp1 15910 |
. . . . . . . . . 10
β’ ((π β§ π β π) β βπ β (π...(π + 1))((π β π β¦ (expβπ΄))βπ) = (βπ β (π...π)((π β π β¦ (expβπ΄))βπ) Β· ((π β π β¦ (expβπ΄))β(π + 1)))) |
107 | 106 | 3adant3 1133 |
. . . . . . . . 9
β’ ((π β§ π β π β§ βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β βπ β (π...(π + 1))((π β π β¦ (expβπ΄))βπ) = (βπ β (π...π)((π β π β¦ (expβπ΄))βπ) Β· ((π β π β¦ (expβπ΄))β(π + 1)))) |
108 | 56 | ffvelcdmda 7084 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β π) β ((π β π β¦ π΄)βπ) β β) |
109 | 101, 108 | sylan2 594 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (π...(π + 1))) β ((π β π β¦ π΄)βπ) β β) |
110 | 109 | adantlr 714 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π) β§ π β (π...(π + 1))) β ((π β π β¦ π΄)βπ) β β) |
111 | | fveq2 6889 |
. . . . . . . . . . . . 13
β’ (π = (π + 1) β ((π β π β¦ π΄)βπ) = ((π β π β¦ π΄)β(π + 1))) |
112 | 99, 110, 111 | fsump1 15699 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β Ξ£π β (π...(π + 1))((π β π β¦ π΄)βπ) = (Ξ£π β (π...π)((π β π β¦ π΄)βπ) + ((π β π β¦ π΄)β(π + 1)))) |
113 | 112 | fveq2d 6893 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ)) = (expβ(Ξ£π β (π...π)((π β π β¦ π΄)βπ) + ((π β π β¦ π΄)β(π + 1))))) |
114 | | fzfid 13935 |
. . . . . . . . . . . . 13
β’ ((π β§ π β π) β (π...π) β Fin) |
115 | | elfzuz 13494 |
. . . . . . . . . . . . . . . 16
β’ (π β (π...π) β π β (β€β₯βπ)) |
116 | 115, 2 | eleqtrrdi 2845 |
. . . . . . . . . . . . . . 15
β’ (π β (π...π) β π β π) |
117 | 116, 108 | sylan2 594 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (π...π)) β ((π β π β¦ π΄)βπ) β β) |
118 | 117 | adantlr 714 |
. . . . . . . . . . . . 13
β’ (((π β§ π β π) β§ π β (π...π)) β ((π β π β¦ π΄)βπ) β β) |
119 | 114, 118 | fsumcl 15676 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β Ξ£π β (π...π)((π β π β¦ π΄)βπ) β β) |
120 | 56 | ffvelcdmda 7084 |
. . . . . . . . . . . . 13
β’ ((π β§ (π + 1) β π) β ((π β π β¦ π΄)β(π + 1)) β β) |
121 | 76, 120 | sylan2 594 |
. . . . . . . . . . . 12
β’ ((π β§ π β π) β ((π β π β¦ π΄)β(π + 1)) β β) |
122 | | efadd 16034 |
. . . . . . . . . . . 12
β’
((Ξ£π β
(π...π)((π β π β¦ π΄)βπ) β β β§ ((π β π β¦ π΄)β(π + 1)) β β) β
(expβ(Ξ£π β
(π...π)((π β π β¦ π΄)βπ) + ((π β π β¦ π΄)β(π + 1)))) = ((expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) Β· (expβ((π β π β¦ π΄)β(π + 1))))) |
123 | 119, 121,
122 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β§ π β π) β (expβ(Ξ£π β (π...π)((π β π β¦ π΄)βπ) + ((π β π β¦ π΄)β(π + 1)))) = ((expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) Β· (expβ((π β π β¦ π΄)β(π + 1))))) |
124 | 113, 123 | eqtrd 2773 |
. . . . . . . . . 10
β’ ((π β§ π β π) β (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ)) = ((expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) Β· (expβ((π β π β¦ π΄)β(π + 1))))) |
125 | 124 | 3adant3 1133 |
. . . . . . . . 9
β’ ((π β§ π β π β§ βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ)) = ((expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) Β· (expβ((π β π β¦ π΄)β(π + 1))))) |
126 | 97, 107, 125 | 3eqtr4d 2783 |
. . . . . . . 8
β’ ((π β§ π β π β§ βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β βπ β (π...(π + 1))((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ))) |
127 | 126 | 3exp 1120 |
. . . . . . 7
β’ (π β (π β π β (βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) β βπ β (π...(π + 1))((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ))))) |
128 | 127 | com12 32 |
. . . . . 6
β’ (π β π β (π β (βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)) β βπ β (π...(π + 1))((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ))))) |
129 | 128 | a2d 29 |
. . . . 5
β’ (π β π β ((π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β (π β βπ β (π...(π + 1))((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ))))) |
130 | 2 | eqcomi 2742 |
. . . . 5
β’
(β€β₯βπ) = π |
131 | 129, 130 | eleq2s 2852 |
. . . 4
β’ (π β
(β€β₯βπ) β ((π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) β (π β βπ β (π...(π + 1))((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...(π + 1))((π β π β¦ π΄)βπ))))) |
132 | 9, 15, 21, 27, 74, 131 | uzind4 12887 |
. . 3
β’ (π β
(β€β₯βπ) β (π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ)))) |
133 | 3, 132 | mpcom 38 |
. 2
β’ (π β βπ β (π...π)((π β π β¦ (expβπ΄))βπ) = (expβΞ£π β (π...π)((π β π β¦ π΄)βπ))) |
134 | | fvres 6908 |
. . . . 5
β’ (π β (π...π) β (((π β π β¦ (expβπ΄)) βΎ (π...π))βπ) = ((π β π β¦ (expβπ΄))βπ)) |
135 | | fzssuz 13539 |
. . . . . . . 8
β’ (π...π) β
(β€β₯βπ) |
136 | 135, 2 | sseqtrri 4019 |
. . . . . . 7
β’ (π...π) β π |
137 | | resmpt 6036 |
. . . . . . 7
β’ ((π...π) β π β ((π β π β¦ (expβπ΄)) βΎ (π...π)) = (π β (π...π) β¦ (expβπ΄))) |
138 | 136, 137 | ax-mp 5 |
. . . . . 6
β’ ((π β π β¦ (expβπ΄)) βΎ (π...π)) = (π β (π...π) β¦ (expβπ΄)) |
139 | 138 | fveq1i 6890 |
. . . . 5
β’ (((π β π β¦ (expβπ΄)) βΎ (π...π))βπ) = ((π β (π...π) β¦ (expβπ΄))βπ) |
140 | 134, 139 | eqtr3di 2788 |
. . . 4
β’ (π β (π...π) β ((π β π β¦ (expβπ΄))βπ) = ((π β (π...π) β¦ (expβπ΄))βπ)) |
141 | 140 | prodeq2i 15860 |
. . 3
β’
βπ β
(π...π)((π β π β¦ (expβπ΄))βπ) = βπ β (π...π)((π β (π...π) β¦ (expβπ΄))βπ) |
142 | | prodfc 15886 |
. . 3
β’
βπ β
(π...π)((π β (π...π) β¦ (expβπ΄))βπ) = βπ β (π...π)(expβπ΄) |
143 | 141, 142 | eqtri 2761 |
. 2
β’
βπ β
(π...π)((π β π β¦ (expβπ΄))βπ) = βπ β (π...π)(expβπ΄) |
144 | | fvres 6908 |
. . . . . 6
β’ (π β (π...π) β (((π β π β¦ π΄) βΎ (π...π))βπ) = ((π β π β¦ π΄)βπ)) |
145 | | resmpt 6036 |
. . . . . . . 8
β’ ((π...π) β π β ((π β π β¦ π΄) βΎ (π...π)) = (π β (π...π) β¦ π΄)) |
146 | 136, 145 | ax-mp 5 |
. . . . . . 7
β’ ((π β π β¦ π΄) βΎ (π...π)) = (π β (π...π) β¦ π΄) |
147 | 146 | fveq1i 6890 |
. . . . . 6
β’ (((π β π β¦ π΄) βΎ (π...π))βπ) = ((π β (π...π) β¦ π΄)βπ) |
148 | 144, 147 | eqtr3di 2788 |
. . . . 5
β’ (π β (π...π) β ((π β π β¦ π΄)βπ) = ((π β (π...π) β¦ π΄)βπ)) |
149 | 148 | sumeq2i 15642 |
. . . 4
β’
Ξ£π β
(π...π)((π β π β¦ π΄)βπ) = Ξ£π β (π...π)((π β (π...π) β¦ π΄)βπ) |
150 | | sumfc 15652 |
. . . 4
β’
Ξ£π β
(π...π)((π β (π...π) β¦ π΄)βπ) = Ξ£π β (π...π)π΄ |
151 | 149, 150 | eqtri 2761 |
. . 3
β’
Ξ£π β
(π...π)((π β π β¦ π΄)βπ) = Ξ£π β (π...π)π΄ |
152 | 151 | fveq2i 6892 |
. 2
β’
(expβΞ£π
β (π...π)((π β π β¦ π΄)βπ)) = (expβΞ£π β (π...π)π΄) |
153 | 133, 143,
152 | 3eqtr3g 2796 |
1
β’ (π β βπ β (π...π)(expβπ΄) = (expβΞ£π β (π...π)π΄)) |