Step | Hyp | Ref
| Expression |
1 | | eqid 2177 |
. 2
β’
(β€β₯β(π + 1)) =
(β€β₯β(π + 1)) |
2 | | clim2prod.1 |
. . . . 5
β’ π =
(β€β₯βπ) |
3 | | uzssz 9546 |
. . . . 5
β’
(β€β₯βπ) β β€ |
4 | 2, 3 | eqsstri 3187 |
. . . 4
β’ π β
β€ |
5 | | clim2prod.2 |
. . . 4
β’ (π β π β π) |
6 | 4, 5 | sselid 3153 |
. . 3
β’ (π β π β β€) |
7 | 6 | peano2zd 9377 |
. 2
β’ (π β (π + 1) β β€) |
8 | | clim2prod.4 |
. 2
β’ (π β seq(π + 1)( Β· , πΉ) β π΄) |
9 | 5, 2 | eleqtrdi 2270 |
. . . . 5
β’ (π β π β (β€β₯βπ)) |
10 | | eluzel2 9532 |
. . . . 5
β’ (π β
(β€β₯βπ) β π β β€) |
11 | 9, 10 | syl 14 |
. . . 4
β’ (π β π β β€) |
12 | | clim2prod.3 |
. . . 4
β’ ((π β§ π β π) β (πΉβπ) β β) |
13 | 2, 11, 12 | prodf 11545 |
. . 3
β’ (π β seqπ( Β· , πΉ):πβΆβ) |
14 | 13, 5 | ffvelcdmd 5652 |
. 2
β’ (π β (seqπ( Β· , πΉ)βπ) β β) |
15 | | seqex 10446 |
. . 3
β’ seqπ( Β· , πΉ) β V |
16 | 15 | a1i 9 |
. 2
β’ (π β seqπ( Β· , πΉ) β V) |
17 | | peano2uz 9582 |
. . . . . . . 8
β’ (π β
(β€β₯βπ) β (π + 1) β
(β€β₯βπ)) |
18 | | uzss 9547 |
. . . . . . . 8
β’ ((π + 1) β
(β€β₯βπ) β
(β€β₯β(π + 1)) β
(β€β₯βπ)) |
19 | 9, 17, 18 | 3syl 17 |
. . . . . . 7
β’ (π β
(β€β₯β(π + 1)) β
(β€β₯βπ)) |
20 | 19, 2 | sseqtrrdi 3204 |
. . . . . 6
β’ (π β
(β€β₯β(π + 1)) β π) |
21 | 20 | sselda 3155 |
. . . . 5
β’ ((π β§ π β (β€β₯β(π + 1))) β π β π) |
22 | 21, 12 | syldan 282 |
. . . 4
β’ ((π β§ π β (β€β₯β(π + 1))) β (πΉβπ) β β) |
23 | 1, 7, 22 | prodf 11545 |
. . 3
β’ (π β seq(π + 1)( Β· , πΉ):(β€β₯β(π +
1))βΆβ) |
24 | 23 | ffvelcdmda 5651 |
. 2
β’ ((π β§ π β (β€β₯β(π + 1))) β (seq(π + 1)( Β· , πΉ)βπ) β β) |
25 | | fveq2 5515 |
. . . . . 6
β’ (π₯ = (π + 1) β (seqπ( Β· , πΉ)βπ₯) = (seqπ( Β· , πΉ)β(π + 1))) |
26 | | fveq2 5515 |
. . . . . . 7
β’ (π₯ = (π + 1) β (seq(π + 1)( Β· , πΉ)βπ₯) = (seq(π + 1)( Β· , πΉ)β(π + 1))) |
27 | 26 | oveq2d 5890 |
. . . . . 6
β’ (π₯ = (π + 1) β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))) |
28 | 25, 27 | eqeq12d 2192 |
. . . . 5
β’ (π₯ = (π + 1) β ((seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))))) |
29 | 28 | imbi2d 230 |
. . . 4
β’ (π₯ = (π + 1) β ((π β (seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯))) β (π β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))))) |
30 | | fveq2 5515 |
. . . . . 6
β’ (π₯ = π β (seqπ( Β· , πΉ)βπ₯) = (seqπ( Β· , πΉ)βπ)) |
31 | | fveq2 5515 |
. . . . . . 7
β’ (π₯ = π β (seq(π + 1)( Β· , πΉ)βπ₯) = (seq(π + 1)( Β· , πΉ)βπ)) |
32 | 31 | oveq2d 5890 |
. . . . . 6
β’ (π₯ = π β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) |
33 | 30, 32 | eqeq12d 2192 |
. . . . 5
β’ (π₯ = π β ((seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)))) |
34 | 33 | imbi2d 230 |
. . . 4
β’ (π₯ = π β ((π β (seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯))) β (π β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))))) |
35 | | fveq2 5515 |
. . . . . 6
β’ (π₯ = (π + 1) β (seqπ( Β· , πΉ)βπ₯) = (seqπ( Β· , πΉ)β(π + 1))) |
36 | | fveq2 5515 |
. . . . . . 7
β’ (π₯ = (π + 1) β (seq(π + 1)( Β· , πΉ)βπ₯) = (seq(π + 1)( Β· , πΉ)β(π + 1))) |
37 | 36 | oveq2d 5890 |
. . . . . 6
β’ (π₯ = (π + 1) β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))) |
38 | 35, 37 | eqeq12d 2192 |
. . . . 5
β’ (π₯ = (π + 1) β ((seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))))) |
39 | 38 | imbi2d 230 |
. . . 4
β’ (π₯ = (π + 1) β ((π β (seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯))) β (π β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))))) |
40 | | fveq2 5515 |
. . . . . 6
β’ (π₯ = π β (seqπ( Β· , πΉ)βπ₯) = (seqπ( Β· , πΉ)βπ)) |
41 | | fveq2 5515 |
. . . . . . 7
β’ (π₯ = π β (seq(π + 1)( Β· , πΉ)βπ₯) = (seq(π + 1)( Β· , πΉ)βπ)) |
42 | 41 | oveq2d 5890 |
. . . . . 6
β’ (π₯ = π β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) |
43 | 40, 42 | eqeq12d 2192 |
. . . . 5
β’ (π₯ = π β ((seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)))) |
44 | 43 | imbi2d 230 |
. . . 4
β’ (π₯ = π β ((π β (seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯))) β (π β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))))) |
45 | 2 | eleq2i 2244 |
. . . . . . . 8
β’ (π β π β π β (β€β₯βπ)) |
46 | 45, 12 | sylan2br 288 |
. . . . . . 7
β’ ((π β§ π β (β€β₯βπ)) β (πΉβπ) β β) |
47 | | mulcl 7937 |
. . . . . . . 8
β’ ((π β β β§ π£ β β) β (π Β· π£) β β) |
48 | 47 | adantl 277 |
. . . . . . 7
β’ ((π β§ (π β β β§ π£ β β)) β (π Β· π£) β β) |
49 | 9, 46, 48 | seq3p1 10461 |
. . . . . 6
β’ (π β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
50 | 7, 22, 48 | seq3-1 10459 |
. . . . . . 7
β’ (π β (seq(π + 1)( Β· , πΉ)β(π + 1)) = (πΉβ(π + 1))) |
51 | 50 | oveq2d 5890 |
. . . . . 6
β’ (π β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
52 | 49, 51 | eqtr4d 2213 |
. . . . 5
β’ (π β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))) |
53 | 52 | a1i 9 |
. . . 4
β’ ((π + 1) β β€ β
(π β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))))) |
54 | 19 | sselda 3155 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯β(π + 1))) β π β
(β€β₯βπ)) |
55 | 46 | adantlr 477 |
. . . . . . . . . 10
β’ (((π β§ π β (β€β₯β(π + 1))) β§ π β (β€β₯βπ)) β (πΉβπ) β β) |
56 | 47 | adantl 277 |
. . . . . . . . . 10
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (π β β β§ π£ β β)) β (π Β· π£) β β) |
57 | 54, 55, 56 | seq3p1 10461 |
. . . . . . . . 9
β’ ((π β§ π β (β€β₯β(π + 1))) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
58 | 57 | adantr 276 |
. . . . . . . 8
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
59 | | oveq1 5881 |
. . . . . . . . 9
β’
((seqπ( Β· ,
πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) β ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1))) = (((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) Β· (πΉβ(π + 1)))) |
60 | 59 | adantl 277 |
. . . . . . . 8
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1))) = (((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) Β· (πΉβ(π + 1)))) |
61 | 14 | adantr 276 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β(π + 1))) β (seqπ( Β· , πΉ)βπ) β β) |
62 | 23 | ffvelcdmda 5651 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β(π + 1))) β (seq(π + 1)( Β· , πΉ)βπ) β β) |
63 | | peano2uz 9582 |
. . . . . . . . . . . . . 14
β’ (π β
(β€β₯βπ) β (π + 1) β
(β€β₯βπ)) |
64 | 63, 2 | eleqtrrdi 2271 |
. . . . . . . . . . . . 13
β’ (π β
(β€β₯βπ) β (π + 1) β π) |
65 | 54, 64 | syl 14 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯β(π + 1))) β (π + 1) β π) |
66 | 12 | ralrimiva 2550 |
. . . . . . . . . . . . 13
β’ (π β βπ β π (πΉβπ) β β) |
67 | | fveq2 5515 |
. . . . . . . . . . . . . . 15
β’ (π = (π + 1) β (πΉβπ) = (πΉβ(π + 1))) |
68 | 67 | eleq1d 2246 |
. . . . . . . . . . . . . 14
β’ (π = (π + 1) β ((πΉβπ) β β β (πΉβ(π + 1)) β β)) |
69 | 68 | rspcv 2837 |
. . . . . . . . . . . . 13
β’ ((π + 1) β π β (βπ β π (πΉβπ) β β β (πΉβ(π + 1)) β β)) |
70 | 66, 69 | mpan9 281 |
. . . . . . . . . . . 12
β’ ((π β§ (π + 1) β π) β (πΉβ(π + 1)) β β) |
71 | 65, 70 | syldan 282 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β(π + 1))) β (πΉβ(π + 1)) β β) |
72 | 61, 62, 71 | mulassd 7980 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯β(π + 1))) β (((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) Β· (πΉβ(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1))))) |
73 | 72 | adantr 276 |
. . . . . . . . 9
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β (((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) Β· (πΉβ(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1))))) |
74 | | simpr 110 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯β(π + 1))) β π β
(β€β₯β(π + 1))) |
75 | 22 | adantlr 477 |
. . . . . . . . . . . 12
β’ (((π β§ π β (β€β₯β(π + 1))) β§ π β (β€β₯β(π + 1))) β (πΉβπ) β β) |
76 | 74, 75, 56 | seq3p1 10461 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β(π + 1))) β (seq(π + 1)( Β· , πΉ)β(π + 1)) = ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
77 | 76 | oveq2d 5890 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯β(π + 1))) β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1))))) |
78 | 77 | adantr 276 |
. . . . . . . . 9
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1))))) |
79 | 73, 78 | eqtr4d 2213 |
. . . . . . . 8
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β (((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) Β· (πΉβ(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))) |
80 | 58, 60, 79 | 3eqtrd 2214 |
. . . . . . 7
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))) |
81 | 80 | exp31 364 |
. . . . . 6
β’ (π β (π β (β€β₯β(π + 1)) β ((seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))))) |
82 | 81 | com12 30 |
. . . . 5
β’ (π β
(β€β₯β(π + 1)) β (π β ((seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))))) |
83 | 82 | a2d 26 |
. . . 4
β’ (π β
(β€β₯β(π + 1)) β ((π β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β (π β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))))) |
84 | 29, 34, 39, 44, 53, 83 | uzind4 9587 |
. . 3
β’ (π β
(β€β₯β(π + 1)) β (π β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)))) |
85 | 84 | impcom 125 |
. 2
β’ ((π β§ π β (β€β₯β(π + 1))) β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) |
86 | 1, 7, 8, 14, 16, 24, 85 | climmulc2 11338 |
1
β’ (π β seqπ( Β· , πΉ) β ((seqπ( Β· , πΉ)βπ) Β· π΄)) |