Step | Hyp | Ref
| Expression |
1 | | eqid 2732 |
. 2
β’
(β€β₯β(π + 1)) =
(β€β₯β(π + 1)) |
2 | | clim2prod.1 |
. . . . 5
β’ π =
(β€β₯βπ) |
3 | | uzssz 12839 |
. . . . 5
β’
(β€β₯βπ) β β€ |
4 | 2, 3 | eqsstri 4015 |
. . . 4
β’ π β
β€ |
5 | | clim2prod.2 |
. . . 4
β’ (π β π β π) |
6 | 4, 5 | sselid 3979 |
. . 3
β’ (π β π β β€) |
7 | 6 | peano2zd 12665 |
. 2
β’ (π β (π + 1) β β€) |
8 | | clim2prod.4 |
. 2
β’ (π β seq(π + 1)( Β· , πΉ) β π΄) |
9 | 5, 2 | eleqtrdi 2843 |
. . . . 5
β’ (π β π β (β€β₯βπ)) |
10 | | eluzel2 12823 |
. . . . 5
β’ (π β
(β€β₯βπ) β π β β€) |
11 | 9, 10 | syl 17 |
. . . 4
β’ (π β π β β€) |
12 | | clim2prod.3 |
. . . 4
β’ ((π β§ π β π) β (πΉβπ) β β) |
13 | 2, 11, 12 | prodf 15829 |
. . 3
β’ (π β seqπ( Β· , πΉ):πβΆβ) |
14 | 13, 5 | ffvelcdmd 7084 |
. 2
β’ (π β (seqπ( Β· , πΉ)βπ) β β) |
15 | | seqex 13964 |
. . 3
β’ seqπ( Β· , πΉ) β V |
16 | 15 | a1i 11 |
. 2
β’ (π β seqπ( Β· , πΉ) β V) |
17 | | peano2uz 12881 |
. . . . . . . 8
β’ (π β
(β€β₯βπ) β (π + 1) β
(β€β₯βπ)) |
18 | | uzss 12841 |
. . . . . . . 8
β’ ((π + 1) β
(β€β₯βπ) β
(β€β₯β(π + 1)) β
(β€β₯βπ)) |
19 | 9, 17, 18 | 3syl 18 |
. . . . . . 7
β’ (π β
(β€β₯β(π + 1)) β
(β€β₯βπ)) |
20 | 19, 2 | sseqtrrdi 4032 |
. . . . . 6
β’ (π β
(β€β₯β(π + 1)) β π) |
21 | 20 | sselda 3981 |
. . . . 5
β’ ((π β§ π β (β€β₯β(π + 1))) β π β π) |
22 | 21, 12 | syldan 591 |
. . . 4
β’ ((π β§ π β (β€β₯β(π + 1))) β (πΉβπ) β β) |
23 | 1, 7, 22 | prodf 15829 |
. . 3
β’ (π β seq(π + 1)( Β· , πΉ):(β€β₯β(π +
1))βΆβ) |
24 | 23 | ffvelcdmda 7083 |
. 2
β’ ((π β§ π β (β€β₯β(π + 1))) β (seq(π + 1)( Β· , πΉ)βπ) β β) |
25 | | fveq2 6888 |
. . . . . 6
β’ (π₯ = (π + 1) β (seqπ( Β· , πΉ)βπ₯) = (seqπ( Β· , πΉ)β(π + 1))) |
26 | | fveq2 6888 |
. . . . . . 7
β’ (π₯ = (π + 1) β (seq(π + 1)( Β· , πΉ)βπ₯) = (seq(π + 1)( Β· , πΉ)β(π + 1))) |
27 | 26 | oveq2d 7421 |
. . . . . 6
β’ (π₯ = (π + 1) β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))) |
28 | 25, 27 | eqeq12d 2748 |
. . . . 5
β’ (π₯ = (π + 1) β ((seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))))) |
29 | 28 | imbi2d 340 |
. . . 4
β’ (π₯ = (π + 1) β ((π β (seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯))) β (π β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))))) |
30 | | fveq2 6888 |
. . . . . 6
β’ (π₯ = π β (seqπ( Β· , πΉ)βπ₯) = (seqπ( Β· , πΉ)βπ)) |
31 | | fveq2 6888 |
. . . . . . 7
β’ (π₯ = π β (seq(π + 1)( Β· , πΉ)βπ₯) = (seq(π + 1)( Β· , πΉ)βπ)) |
32 | 31 | oveq2d 7421 |
. . . . . 6
β’ (π₯ = π β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) |
33 | 30, 32 | eqeq12d 2748 |
. . . . 5
β’ (π₯ = π β ((seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)))) |
34 | 33 | imbi2d 340 |
. . . 4
β’ (π₯ = π β ((π β (seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯))) β (π β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))))) |
35 | | fveq2 6888 |
. . . . . 6
β’ (π₯ = (π + 1) β (seqπ( Β· , πΉ)βπ₯) = (seqπ( Β· , πΉ)β(π + 1))) |
36 | | fveq2 6888 |
. . . . . . 7
β’ (π₯ = (π + 1) β (seq(π + 1)( Β· , πΉ)βπ₯) = (seq(π + 1)( Β· , πΉ)β(π + 1))) |
37 | 36 | oveq2d 7421 |
. . . . . 6
β’ (π₯ = (π + 1) β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))) |
38 | 35, 37 | eqeq12d 2748 |
. . . . 5
β’ (π₯ = (π + 1) β ((seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))))) |
39 | 38 | imbi2d 340 |
. . . 4
β’ (π₯ = (π + 1) β ((π β (seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯))) β (π β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))))) |
40 | | fveq2 6888 |
. . . . . 6
β’ (π₯ = π β (seqπ( Β· , πΉ)βπ₯) = (seqπ( Β· , πΉ)βπ)) |
41 | | fveq2 6888 |
. . . . . . 7
β’ (π₯ = π β (seq(π + 1)( Β· , πΉ)βπ₯) = (seq(π + 1)( Β· , πΉ)βπ)) |
42 | 41 | oveq2d 7421 |
. . . . . 6
β’ (π₯ = π β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) |
43 | 40, 42 | eqeq12d 2748 |
. . . . 5
β’ (π₯ = π β ((seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯)) β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)))) |
44 | 43 | imbi2d 340 |
. . . 4
β’ (π₯ = π β ((π β (seqπ( Β· , πΉ)βπ₯) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ₯))) β (π β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))))) |
45 | 9 | adantr 481 |
. . . . . . 7
β’ ((π β§ (π + 1) β β€) β π β
(β€β₯βπ)) |
46 | | seqp1 13977 |
. . . . . . 7
β’ (π β
(β€β₯βπ) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
47 | 45, 46 | syl 17 |
. . . . . 6
β’ ((π β§ (π + 1) β β€) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
48 | | seq1 13975 |
. . . . . . . 8
β’ ((π + 1) β β€ β
(seq(π + 1)( Β· ,
πΉ)β(π + 1)) = (πΉβ(π + 1))) |
49 | 48 | adantl 482 |
. . . . . . 7
β’ ((π β§ (π + 1) β β€) β (seq(π + 1)( Β· , πΉ)β(π + 1)) = (πΉβ(π + 1))) |
50 | 49 | oveq2d 7421 |
. . . . . 6
β’ ((π β§ (π + 1) β β€) β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
51 | 47, 50 | eqtr4d 2775 |
. . . . 5
β’ ((π β§ (π + 1) β β€) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))) |
52 | 51 | expcom 414 |
. . . 4
β’ ((π + 1) β β€ β
(π β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))))) |
53 | 19 | sselda 3981 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯β(π + 1))) β π β
(β€β₯βπ)) |
54 | | seqp1 13977 |
. . . . . . . . . 10
β’ (π β
(β€β₯βπ) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
55 | 53, 54 | syl 17 |
. . . . . . . . 9
β’ ((π β§ π β (β€β₯β(π + 1))) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
56 | 55 | adantr 481 |
. . . . . . . 8
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
57 | | oveq1 7412 |
. . . . . . . . 9
β’
((seqπ( Β· ,
πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) β ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1))) = (((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) Β· (πΉβ(π + 1)))) |
58 | 57 | adantl 482 |
. . . . . . . 8
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β ((seqπ( Β· , πΉ)βπ) Β· (πΉβ(π + 1))) = (((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) Β· (πΉβ(π + 1)))) |
59 | 14 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β(π + 1))) β (seqπ( Β· , πΉ)βπ) β β) |
60 | 23 | ffvelcdmda 7083 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β(π + 1))) β (seq(π + 1)( Β· , πΉ)βπ) β β) |
61 | | peano2uz 12881 |
. . . . . . . . . . . . . 14
β’ (π β
(β€β₯βπ) β (π + 1) β
(β€β₯βπ)) |
62 | 61, 2 | eleqtrrdi 2844 |
. . . . . . . . . . . . 13
β’ (π β
(β€β₯βπ) β (π + 1) β π) |
63 | 53, 62 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β§ π β (β€β₯β(π + 1))) β (π + 1) β π) |
64 | 12 | ralrimiva 3146 |
. . . . . . . . . . . . 13
β’ (π β βπ β π (πΉβπ) β β) |
65 | | fveq2 6888 |
. . . . . . . . . . . . . . 15
β’ (π = (π + 1) β (πΉβπ) = (πΉβ(π + 1))) |
66 | 65 | eleq1d 2818 |
. . . . . . . . . . . . . 14
β’ (π = (π + 1) β ((πΉβπ) β β β (πΉβ(π + 1)) β β)) |
67 | 66 | rspcv 3608 |
. . . . . . . . . . . . 13
β’ ((π + 1) β π β (βπ β π (πΉβπ) β β β (πΉβ(π + 1)) β β)) |
68 | 64, 67 | mpan9 507 |
. . . . . . . . . . . 12
β’ ((π β§ (π + 1) β π) β (πΉβ(π + 1)) β β) |
69 | 63, 68 | syldan 591 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β(π + 1))) β (πΉβ(π + 1)) β β) |
70 | 59, 60, 69 | mulassd 11233 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯β(π + 1))) β (((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) Β· (πΉβ(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1))))) |
71 | 70 | adantr 481 |
. . . . . . . . 9
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β (((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) Β· (πΉβ(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1))))) |
72 | | seqp1 13977 |
. . . . . . . . . . . 12
β’ (π β
(β€β₯β(π + 1)) β (seq(π + 1)( Β· , πΉ)β(π + 1)) = ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
73 | 72 | adantl 482 |
. . . . . . . . . . 11
β’ ((π β§ π β (β€β₯β(π + 1))) β (seq(π + 1)( Β· , πΉ)β(π + 1)) = ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
74 | 73 | oveq2d 7421 |
. . . . . . . . . 10
β’ ((π β§ π β (β€β₯β(π + 1))) β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1))))) |
75 | 74 | adantr 481 |
. . . . . . . . 9
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· ((seq(π + 1)( Β· , πΉ)βπ) Β· (πΉβ(π + 1))))) |
76 | 71, 75 | eqtr4d 2775 |
. . . . . . . 8
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β (((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) Β· (πΉβ(π + 1))) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))) |
77 | 56, 58, 76 | 3eqtrd 2776 |
. . . . . . 7
β’ (((π β§ π β (β€β₯β(π + 1))) β§ (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))) |
78 | 77 | exp31 420 |
. . . . . 6
β’ (π β (π β (β€β₯β(π + 1)) β ((seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))))) |
79 | 78 | com12 32 |
. . . . 5
β’ (π β
(β€β₯β(π + 1)) β (π β ((seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)) β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))))) |
80 | 79 | a2d 29 |
. . . 4
β’ (π β
(β€β₯β(π + 1)) β ((π β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) β (π β (seqπ( Β· , πΉ)β(π + 1)) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)β(π + 1)))))) |
81 | 29, 34, 39, 44, 52, 80 | uzind4 12886 |
. . 3
β’ (π β
(β€β₯β(π + 1)) β (π β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ)))) |
82 | 81 | impcom 408 |
. 2
β’ ((π β§ π β (β€β₯β(π + 1))) β (seqπ( Β· , πΉ)βπ) = ((seqπ( Β· , πΉ)βπ) Β· (seq(π + 1)( Β· , πΉ)βπ))) |
83 | 1, 7, 8, 14, 16, 24, 82 | climmulc2 15577 |
1
β’ (π β seqπ( Β· , πΉ) β ((seqπ( Β· , πΉ)βπ) Β· π΄)) |