Step | Hyp | Ref
| Expression |
1 | | stoweidlem20.2 |
. 2
β’ πΉ = (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) |
2 | | stoweidlem20.3 |
. . 3
β’ (π β π β β) |
3 | 2 | nnred 12223 |
. . . . 5
β’ (π β π β β) |
4 | 3 | leidd 11776 |
. . . 4
β’ (π β π β€ π) |
5 | 4 | ancli 549 |
. . 3
β’ (π β (π β§ π β€ π)) |
6 | | eleq1 2821 |
. . . . 5
β’ (π = π β (π β β β π β β)) |
7 | | breq1 5150 |
. . . . . . 7
β’ (π = π β (π β€ π β π β€ π)) |
8 | 7 | anbi2d 629 |
. . . . . 6
β’ (π = π β ((π β§ π β€ π) β (π β§ π β€ π))) |
9 | | oveq2 7413 |
. . . . . . . . 9
β’ (π = π β (1...π) = (1...π)) |
10 | 9 | sumeq1d 15643 |
. . . . . . . 8
β’ (π = π β Ξ£π β (1...π)((πΊβπ)βπ‘) = Ξ£π β (1...π)((πΊβπ)βπ‘)) |
11 | 10 | mpteq2dv 5249 |
. . . . . . 7
β’ (π = π β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) = (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘))) |
12 | 11 | eleq1d 2818 |
. . . . . 6
β’ (π = π β ((π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄ β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄)) |
13 | 8, 12 | imbi12d 344 |
. . . . 5
β’ (π = π β (((π β§ π β€ π) β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄) β ((π β§ π β€ π) β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄))) |
14 | 6, 13 | imbi12d 344 |
. . . 4
β’ (π = π β ((π β β β ((π β§ π β€ π) β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄)) β (π β β β ((π β§ π β€ π) β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄)))) |
15 | | breq1 5150 |
. . . . . . 7
β’ (π₯ = 1 β (π₯ β€ π β 1 β€ π)) |
16 | 15 | anbi2d 629 |
. . . . . 6
β’ (π₯ = 1 β ((π β§ π₯ β€ π) β (π β§ 1 β€ π))) |
17 | | oveq2 7413 |
. . . . . . . . 9
β’ (π₯ = 1 β (1...π₯) = (1...1)) |
18 | 17 | sumeq1d 15643 |
. . . . . . . 8
β’ (π₯ = 1 β Ξ£π β (1...π₯)((πΊβπ)βπ‘) = Ξ£π β (1...1)((πΊβπ)βπ‘)) |
19 | 18 | mpteq2dv 5249 |
. . . . . . 7
β’ (π₯ = 1 β (π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) = (π‘ β π β¦ Ξ£π β (1...1)((πΊβπ)βπ‘))) |
20 | 19 | eleq1d 2818 |
. . . . . 6
β’ (π₯ = 1 β ((π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) β π΄ β (π‘ β π β¦ Ξ£π β (1...1)((πΊβπ)βπ‘)) β π΄)) |
21 | 16, 20 | imbi12d 344 |
. . . . 5
β’ (π₯ = 1 β (((π β§ π₯ β€ π) β (π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) β π΄) β ((π β§ 1 β€ π) β (π‘ β π β¦ Ξ£π β (1...1)((πΊβπ)βπ‘)) β π΄))) |
22 | | breq1 5150 |
. . . . . . 7
β’ (π₯ = π¦ β (π₯ β€ π β π¦ β€ π)) |
23 | 22 | anbi2d 629 |
. . . . . 6
β’ (π₯ = π¦ β ((π β§ π₯ β€ π) β (π β§ π¦ β€ π))) |
24 | | oveq2 7413 |
. . . . . . . . 9
β’ (π₯ = π¦ β (1...π₯) = (1...π¦)) |
25 | 24 | sumeq1d 15643 |
. . . . . . . 8
β’ (π₯ = π¦ β Ξ£π β (1...π₯)((πΊβπ)βπ‘) = Ξ£π β (1...π¦)((πΊβπ)βπ‘)) |
26 | 25 | mpteq2dv 5249 |
. . . . . . 7
β’ (π₯ = π¦ β (π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) = (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))) |
27 | 26 | eleq1d 2818 |
. . . . . 6
β’ (π₯ = π¦ β ((π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) β π΄ β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄)) |
28 | 23, 27 | imbi12d 344 |
. . . . 5
β’ (π₯ = π¦ β (((π β§ π₯ β€ π) β (π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) β π΄) β ((π β§ π¦ β€ π) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄))) |
29 | | breq1 5150 |
. . . . . . 7
β’ (π₯ = (π¦ + 1) β (π₯ β€ π β (π¦ + 1) β€ π)) |
30 | 29 | anbi2d 629 |
. . . . . 6
β’ (π₯ = (π¦ + 1) β ((π β§ π₯ β€ π) β (π β§ (π¦ + 1) β€ π))) |
31 | | oveq2 7413 |
. . . . . . . . 9
β’ (π₯ = (π¦ + 1) β (1...π₯) = (1...(π¦ + 1))) |
32 | 31 | sumeq1d 15643 |
. . . . . . . 8
β’ (π₯ = (π¦ + 1) β Ξ£π β (1...π₯)((πΊβπ)βπ‘) = Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘)) |
33 | 32 | mpteq2dv 5249 |
. . . . . . 7
β’ (π₯ = (π¦ + 1) β (π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) = (π‘ β π β¦ Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘))) |
34 | 33 | eleq1d 2818 |
. . . . . 6
β’ (π₯ = (π¦ + 1) β ((π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) β π΄ β (π‘ β π β¦ Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘)) β π΄)) |
35 | 30, 34 | imbi12d 344 |
. . . . 5
β’ (π₯ = (π¦ + 1) β (((π β§ π₯ β€ π) β (π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) β π΄) β ((π β§ (π¦ + 1) β€ π) β (π‘ β π β¦ Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘)) β π΄))) |
36 | | breq1 5150 |
. . . . . . 7
β’ (π₯ = π β (π₯ β€ π β π β€ π)) |
37 | 36 | anbi2d 629 |
. . . . . 6
β’ (π₯ = π β ((π β§ π₯ β€ π) β (π β§ π β€ π))) |
38 | | oveq2 7413 |
. . . . . . . . 9
β’ (π₯ = π β (1...π₯) = (1...π)) |
39 | 38 | sumeq1d 15643 |
. . . . . . . 8
β’ (π₯ = π β Ξ£π β (1...π₯)((πΊβπ)βπ‘) = Ξ£π β (1...π)((πΊβπ)βπ‘)) |
40 | 39 | mpteq2dv 5249 |
. . . . . . 7
β’ (π₯ = π β (π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) = (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘))) |
41 | 40 | eleq1d 2818 |
. . . . . 6
β’ (π₯ = π β ((π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) β π΄ β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄)) |
42 | 37, 41 | imbi12d 344 |
. . . . 5
β’ (π₯ = π β (((π β§ π₯ β€ π) β (π‘ β π β¦ Ξ£π β (1...π₯)((πΊβπ)βπ‘)) β π΄) β ((π β§ π β€ π) β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄))) |
43 | | stoweidlem20.1 |
. . . . . . . . 9
β’
β²π‘π |
44 | | 1z 12588 |
. . . . . . . . . 10
β’ 1 β
β€ |
45 | | stoweidlem20.4 |
. . . . . . . . . . . . . 14
β’ (π β πΊ:(1...π)βΆπ΄) |
46 | | nnuz 12861 |
. . . . . . . . . . . . . . . 16
β’ β =
(β€β₯β1) |
47 | 2, 46 | eleqtrdi 2843 |
. . . . . . . . . . . . . . 15
β’ (π β π β
(β€β₯β1)) |
48 | | eluzfz1 13504 |
. . . . . . . . . . . . . . 15
β’ (π β
(β€β₯β1) β 1 β (1...π)) |
49 | 47, 48 | syl 17 |
. . . . . . . . . . . . . 14
β’ (π β 1 β (1...π)) |
50 | 45, 49 | ffvelcdmd 7084 |
. . . . . . . . . . . . 13
β’ (π β (πΊβ1) β π΄) |
51 | 50 | ancli 549 |
. . . . . . . . . . . . 13
β’ (π β (π β§ (πΊβ1) β π΄)) |
52 | | eleq1 2821 |
. . . . . . . . . . . . . . . 16
β’ (π = (πΊβ1) β (π β π΄ β (πΊβ1) β π΄)) |
53 | 52 | anbi2d 629 |
. . . . . . . . . . . . . . 15
β’ (π = (πΊβ1) β ((π β§ π β π΄) β (π β§ (πΊβ1) β π΄))) |
54 | | feq1 6695 |
. . . . . . . . . . . . . . 15
β’ (π = (πΊβ1) β (π:πβΆβ β (πΊβ1):πβΆβ)) |
55 | 53, 54 | imbi12d 344 |
. . . . . . . . . . . . . 14
β’ (π = (πΊβ1) β (((π β§ π β π΄) β π:πβΆβ) β ((π β§ (πΊβ1) β π΄) β (πΊβ1):πβΆβ))) |
56 | | stoweidlem20.6 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β π΄) β π:πβΆβ) |
57 | 55, 56 | vtoclg 3556 |
. . . . . . . . . . . . 13
β’ ((πΊβ1) β π΄ β ((π β§ (πΊβ1) β π΄) β (πΊβ1):πβΆβ)) |
58 | 50, 51, 57 | sylc 65 |
. . . . . . . . . . . 12
β’ (π β (πΊβ1):πβΆβ) |
59 | 58 | ffvelcdmda 7083 |
. . . . . . . . . . 11
β’ ((π β§ π‘ β π) β ((πΊβ1)βπ‘) β β) |
60 | 59 | recnd 11238 |
. . . . . . . . . 10
β’ ((π β§ π‘ β π) β ((πΊβ1)βπ‘) β β) |
61 | | fveq2 6888 |
. . . . . . . . . . . 12
β’ (π = 1 β (πΊβπ) = (πΊβ1)) |
62 | 61 | fveq1d 6890 |
. . . . . . . . . . 11
β’ (π = 1 β ((πΊβπ)βπ‘) = ((πΊβ1)βπ‘)) |
63 | 62 | fsum1 15689 |
. . . . . . . . . 10
β’ ((1
β β€ β§ ((πΊβ1)βπ‘) β β) β Ξ£π β (1...1)((πΊβπ)βπ‘) = ((πΊβ1)βπ‘)) |
64 | 44, 60, 63 | sylancr 587 |
. . . . . . . . 9
β’ ((π β§ π‘ β π) β Ξ£π β (1...1)((πΊβπ)βπ‘) = ((πΊβ1)βπ‘)) |
65 | 43, 64 | mpteq2da 5245 |
. . . . . . . 8
β’ (π β (π‘ β π β¦ Ξ£π β (1...1)((πΊβπ)βπ‘)) = (π‘ β π β¦ ((πΊβ1)βπ‘))) |
66 | 58 | feqmptd 6957 |
. . . . . . . 8
β’ (π β (πΊβ1) = (π‘ β π β¦ ((πΊβ1)βπ‘))) |
67 | 65, 66 | eqtr4d 2775 |
. . . . . . 7
β’ (π β (π‘ β π β¦ Ξ£π β (1...1)((πΊβπ)βπ‘)) = (πΊβ1)) |
68 | 67, 50 | eqeltrd 2833 |
. . . . . 6
β’ (π β (π‘ β π β¦ Ξ£π β (1...1)((πΊβπ)βπ‘)) β π΄) |
69 | 68 | adantr 481 |
. . . . 5
β’ ((π β§ 1 β€ π) β (π‘ β π β¦ Ξ£π β (1...1)((πΊβπ)βπ‘)) β π΄) |
70 | | simprl 769 |
. . . . . . 7
β’ (((π¦ β β β§ ((π β§ π¦ β€ π) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄)) β§ (π β§ (π¦ + 1) β€ π)) β π) |
71 | | simpll 765 |
. . . . . . 7
β’ (((π¦ β β β§ ((π β§ π¦ β€ π) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄)) β§ (π β§ (π¦ + 1) β€ π)) β π¦ β β) |
72 | | simprr 771 |
. . . . . . 7
β’ (((π¦ β β β§ ((π β§ π¦ β€ π) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄)) β§ (π β§ (π¦ + 1) β€ π)) β (π¦ + 1) β€ π) |
73 | | simp1 1136 |
. . . . . . . . . 10
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β π) |
74 | | nnre 12215 |
. . . . . . . . . . . 12
β’ (π¦ β β β π¦ β
β) |
75 | 74 | 3ad2ant2 1134 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β π¦ β β) |
76 | | 1red 11211 |
. . . . . . . . . . . 12
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β 1 β β) |
77 | 75, 76 | readdcld 11239 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β (π¦ + 1) β β) |
78 | 2 | 3ad2ant1 1133 |
. . . . . . . . . . . 12
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β π β β) |
79 | 78 | nnred 12223 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β π β β) |
80 | 75 | lep1d 12141 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β π¦ β€ (π¦ + 1)) |
81 | | simp3 1138 |
. . . . . . . . . . 11
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β (π¦ + 1) β€ π) |
82 | 75, 77, 79, 80, 81 | letrd 11367 |
. . . . . . . . . 10
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β π¦ β€ π) |
83 | 73, 82 | jca 512 |
. . . . . . . . 9
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β (π β§ π¦ β€ π)) |
84 | 70, 71, 72, 83 | syl3anc 1371 |
. . . . . . . 8
β’ (((π¦ β β β§ ((π β§ π¦ β€ π) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄)) β§ (π β§ (π¦ + 1) β€ π)) β (π β§ π¦ β€ π)) |
85 | | simplr 767 |
. . . . . . . 8
β’ (((π¦ β β β§ ((π β§ π¦ β€ π) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄)) β§ (π β§ (π¦ + 1) β€ π)) β ((π β§ π¦ β€ π) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄)) |
86 | 84, 85 | mpd 15 |
. . . . . . 7
β’ (((π¦ β β β§ ((π β§ π¦ β€ π) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄)) β§ (π β§ (π¦ + 1) β€ π)) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) |
87 | | nfv 1917 |
. . . . . . . . . . 11
β’
β²π‘ π¦ β β |
88 | | nfv 1917 |
. . . . . . . . . . 11
β’
β²π‘(π¦ + 1) β€ π |
89 | 43, 87, 88 | nf3an 1904 |
. . . . . . . . . 10
β’
β²π‘(π β§ π¦ β β β§ (π¦ + 1) β€ π) |
90 | | simpl2 1192 |
. . . . . . . . . . . . 13
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β π¦ β β) |
91 | 90, 46 | eleqtrdi 2843 |
. . . . . . . . . . . 12
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β π¦ β
(β€β₯β1)) |
92 | | simpll1 1212 |
. . . . . . . . . . . . 13
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β π) |
93 | | 1zzd 12589 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β 1 β
β€) |
94 | 2 | nnzd 12581 |
. . . . . . . . . . . . . . . 16
β’ (π β π β β€) |
95 | 94 | 3ad2ant1 1133 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β π β β€) |
96 | 95 | ad2antrr 724 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β π β β€) |
97 | | elfzelz 13497 |
. . . . . . . . . . . . . . 15
β’ (π β (1...(π¦ + 1)) β π β β€) |
98 | 97 | adantl 482 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β π β β€) |
99 | | elfzle1 13500 |
. . . . . . . . . . . . . . 15
β’ (π β (1...(π¦ + 1)) β 1 β€ π) |
100 | 99 | adantl 482 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β 1 β€ π) |
101 | 97 | zred 12662 |
. . . . . . . . . . . . . . . 16
β’ (π β (1...(π¦ + 1)) β π β β) |
102 | 101 | adantl 482 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β π β β) |
103 | 77 | ad2antrr 724 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β (π¦ + 1) β β) |
104 | 79 | ad2antrr 724 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β π β β) |
105 | | elfzle2 13501 |
. . . . . . . . . . . . . . . 16
β’ (π β (1...(π¦ + 1)) β π β€ (π¦ + 1)) |
106 | 105 | adantl 482 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β π β€ (π¦ + 1)) |
107 | | simpll3 1214 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β (π¦ + 1) β€ π) |
108 | 102, 103,
104, 106, 107 | letrd 11367 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β π β€ π) |
109 | 93, 96, 98, 100, 108 | elfzd 13488 |
. . . . . . . . . . . . 13
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β π β (1...π)) |
110 | | simplr 767 |
. . . . . . . . . . . . 13
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β π‘ β π) |
111 | 45 | ffvelcdmda 7083 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (1...π)) β (πΊβπ) β π΄) |
112 | 111 | 3adant3 1132 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (1...π) β§ π‘ β π) β (πΊβπ) β π΄) |
113 | | simp1 1136 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π β (1...π) β§ π‘ β π) β π) |
114 | 113, 112 | jca 512 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π β (1...π) β§ π‘ β π) β (π β§ (πΊβπ) β π΄)) |
115 | | eleq1 2821 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = (πΊβπ) β (π β π΄ β (πΊβπ) β π΄)) |
116 | 115 | anbi2d 629 |
. . . . . . . . . . . . . . . . . 18
β’ (π = (πΊβπ) β ((π β§ π β π΄) β (π β§ (πΊβπ) β π΄))) |
117 | | feq1 6695 |
. . . . . . . . . . . . . . . . . 18
β’ (π = (πΊβπ) β (π:πβΆβ β (πΊβπ):πβΆβ)) |
118 | 116, 117 | imbi12d 344 |
. . . . . . . . . . . . . . . . 17
β’ (π = (πΊβπ) β (((π β§ π β π΄) β π:πβΆβ) β ((π β§ (πΊβπ) β π΄) β (πΊβπ):πβΆβ))) |
119 | 118, 56 | vtoclg 3556 |
. . . . . . . . . . . . . . . 16
β’ ((πΊβπ) β π΄ β ((π β§ (πΊβπ) β π΄) β (πΊβπ):πβΆβ)) |
120 | 112, 114,
119 | sylc 65 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (1...π) β§ π‘ β π) β (πΊβπ):πβΆβ) |
121 | | simp3 1138 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π β (1...π) β§ π‘ β π) β π‘ β π) |
122 | 120, 121 | ffvelcdmd 7084 |
. . . . . . . . . . . . . 14
β’ ((π β§ π β (1...π) β§ π‘ β π) β ((πΊβπ)βπ‘) β β) |
123 | 122 | recnd 11238 |
. . . . . . . . . . . . 13
β’ ((π β§ π β (1...π) β§ π‘ β π) β ((πΊβπ)βπ‘) β β) |
124 | 92, 109, 110, 123 | syl3anc 1371 |
. . . . . . . . . . . 12
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...(π¦ + 1))) β ((πΊβπ)βπ‘) β β) |
125 | | fveq2 6888 |
. . . . . . . . . . . . 13
β’ (π = (π¦ + 1) β (πΊβπ) = (πΊβ(π¦ + 1))) |
126 | 125 | fveq1d 6890 |
. . . . . . . . . . . 12
β’ (π = (π¦ + 1) β ((πΊβπ)βπ‘) = ((πΊβ(π¦ + 1))βπ‘)) |
127 | 91, 124, 126 | fsump1 15698 |
. . . . . . . . . . 11
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘) = (Ξ£π β (1...π¦)((πΊβπ)βπ‘) + ((πΊβ(π¦ + 1))βπ‘))) |
128 | | simpr 485 |
. . . . . . . . . . . . 13
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β π‘ β π) |
129 | | fzfid 13934 |
. . . . . . . . . . . . . 14
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β (1...π¦) β Fin) |
130 | | simpll1 1212 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...π¦)) β π) |
131 | | 1zzd 12589 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...π¦)) β 1 β β€) |
132 | 95 | ad2antrr 724 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...π¦)) β π β β€) |
133 | | elfzelz 13497 |
. . . . . . . . . . . . . . . . 17
β’ (π β (1...π¦) β π β β€) |
134 | 133 | adantl 482 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...π¦)) β π β β€) |
135 | | elfzle1 13500 |
. . . . . . . . . . . . . . . . 17
β’ (π β (1...π¦) β 1 β€ π) |
136 | 135 | adantl 482 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...π¦)) β 1 β€ π) |
137 | 133 | zred 12662 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β (1...π¦) β π β β) |
138 | 137 | adantl 482 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π β (1...π¦)) β π β β) |
139 | 77 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π β (1...π¦)) β (π¦ + 1) β β) |
140 | 79 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π β (1...π¦)) β π β β) |
141 | 75 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π β (1...π¦)) β π¦ β β) |
142 | | elfzle2 13501 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (1...π¦) β π β€ π¦) |
143 | 142 | adantl 482 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π β (1...π¦)) β π β€ π¦) |
144 | | letrp1 12054 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β β§ π¦ β β β§ π β€ π¦) β π β€ (π¦ + 1)) |
145 | 138, 141,
143, 144 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π β (1...π¦)) β π β€ (π¦ + 1)) |
146 | | simpl3 1193 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π β (1...π¦)) β (π¦ + 1) β€ π) |
147 | 138, 139,
140, 145, 146 | letrd 11367 |
. . . . . . . . . . . . . . . . 17
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π β (1...π¦)) β π β€ π) |
148 | 147 | adantlr 713 |
. . . . . . . . . . . . . . . 16
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...π¦)) β π β€ π) |
149 | 131, 132,
134, 136, 148 | elfzd 13488 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...π¦)) β π β (1...π)) |
150 | | simplr 767 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...π¦)) β π‘ β π) |
151 | 130, 149,
150, 122 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ ((((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β§ π β (1...π¦)) β ((πΊβπ)βπ‘) β β) |
152 | 129, 151 | fsumrecl 15676 |
. . . . . . . . . . . . 13
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β Ξ£π β (1...π¦)((πΊβπ)βπ‘) β β) |
153 | | eqid 2732 |
. . . . . . . . . . . . . 14
β’ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) = (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) |
154 | 153 | fvmpt2 7006 |
. . . . . . . . . . . . 13
β’ ((π‘ β π β§ Ξ£π β (1...π¦)((πΊβπ)βπ‘) β β) β ((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) = Ξ£π β (1...π¦)((πΊβπ)βπ‘)) |
155 | 128, 152,
154 | syl2anc 584 |
. . . . . . . . . . . 12
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β ((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) = Ξ£π β (1...π¦)((πΊβπ)βπ‘)) |
156 | 155 | oveq1d 7420 |
. . . . . . . . . . 11
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((πΊβ(π¦ + 1))βπ‘)) = (Ξ£π β (1...π¦)((πΊβπ)βπ‘) + ((πΊβ(π¦ + 1))βπ‘))) |
157 | 127, 156 | eqtr4d 2775 |
. . . . . . . . . 10
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘) = (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((πΊβ(π¦ + 1))βπ‘))) |
158 | 89, 157 | mpteq2da 5245 |
. . . . . . . . 9
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β (π‘ β π β¦ Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘)) = (π‘ β π β¦ (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((πΊβ(π¦ + 1))βπ‘)))) |
159 | 158 | adantr 481 |
. . . . . . . 8
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) β (π‘ β π β¦ Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘)) = (π‘ β π β¦ (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((πΊβ(π¦ + 1))βπ‘)))) |
160 | | 1zzd 12589 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β 1 β β€) |
161 | | peano2nn 12220 |
. . . . . . . . . . . . . . . . . . 19
β’ (π¦ β β β (π¦ + 1) β
β) |
162 | 161 | nnzd 12581 |
. . . . . . . . . . . . . . . . . 18
β’ (π¦ β β β (π¦ + 1) β
β€) |
163 | 162 | 3ad2ant2 1134 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β (π¦ + 1) β β€) |
164 | 161 | nnge1d 12256 |
. . . . . . . . . . . . . . . . . 18
β’ (π¦ β β β 1 β€
(π¦ + 1)) |
165 | 164 | 3ad2ant2 1134 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β 1 β€ (π¦ + 1)) |
166 | 160, 95, 163, 165, 81 | elfzd 13488 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β (π¦ + 1) β (1...π)) |
167 | 45 | ffvelcdmda 7083 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π¦ + 1) β (1...π)) β (πΊβ(π¦ + 1)) β π΄) |
168 | 73, 166, 167 | syl2anc 584 |
. . . . . . . . . . . . . . 15
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β (πΊβ(π¦ + 1)) β π΄) |
169 | | eleq1 2821 |
. . . . . . . . . . . . . . . . . . 19
β’ (π = (πΊβ(π¦ + 1)) β (π β π΄ β (πΊβ(π¦ + 1)) β π΄)) |
170 | 169 | anbi2d 629 |
. . . . . . . . . . . . . . . . . 18
β’ (π = (πΊβ(π¦ + 1)) β ((π β§ π β π΄) β (π β§ (πΊβ(π¦ + 1)) β π΄))) |
171 | | feq1 6695 |
. . . . . . . . . . . . . . . . . 18
β’ (π = (πΊβ(π¦ + 1)) β (π:πβΆβ β (πΊβ(π¦ + 1)):πβΆβ)) |
172 | 170, 171 | imbi12d 344 |
. . . . . . . . . . . . . . . . 17
β’ (π = (πΊβ(π¦ + 1)) β (((π β§ π β π΄) β π:πβΆβ) β ((π β§ (πΊβ(π¦ + 1)) β π΄) β (πΊβ(π¦ + 1)):πβΆβ))) |
173 | 172, 56 | vtoclg 3556 |
. . . . . . . . . . . . . . . 16
β’ ((πΊβ(π¦ + 1)) β π΄ β ((π β§ (πΊβ(π¦ + 1)) β π΄) β (πΊβ(π¦ + 1)):πβΆβ)) |
174 | 173 | anabsi7 669 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (πΊβ(π¦ + 1)) β π΄) β (πΊβ(π¦ + 1)):πβΆβ) |
175 | 73, 168, 174 | syl2anc 584 |
. . . . . . . . . . . . . 14
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β (πΊβ(π¦ + 1)):πβΆβ) |
176 | 175 | ffvelcdmda 7083 |
. . . . . . . . . . . . 13
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β ((πΊβ(π¦ + 1))βπ‘) β β) |
177 | | eqid 2732 |
. . . . . . . . . . . . . 14
β’ (π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘)) = (π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘)) |
178 | 177 | fvmpt2 7006 |
. . . . . . . . . . . . 13
β’ ((π‘ β π β§ ((πΊβ(π¦ + 1))βπ‘) β β) β ((π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘))βπ‘) = ((πΊβ(π¦ + 1))βπ‘)) |
179 | 128, 176,
178 | syl2anc 584 |
. . . . . . . . . . . 12
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β ((π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘))βπ‘) = ((πΊβ(π¦ + 1))βπ‘)) |
180 | 179 | oveq2d 7421 |
. . . . . . . . . . 11
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ π‘ β π) β (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘))βπ‘)) = (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((πΊβ(π¦ + 1))βπ‘))) |
181 | 89, 180 | mpteq2da 5245 |
. . . . . . . . . 10
β’ ((π β§ π¦ β β β§ (π¦ + 1) β€ π) β (π‘ β π β¦ (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘))βπ‘))) = (π‘ β π β¦ (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((πΊβ(π¦ + 1))βπ‘)))) |
182 | 181 | adantr 481 |
. . . . . . . . 9
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) β (π‘ β π β¦ (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘))βπ‘))) = (π‘ β π β¦ (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((πΊβ(π¦ + 1))βπ‘)))) |
183 | | simpl1 1191 |
. . . . . . . . . 10
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) β π) |
184 | | simpr 485 |
. . . . . . . . . 10
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) |
185 | 166 | adantr 481 |
. . . . . . . . . . 11
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) β (π¦ + 1) β (1...π)) |
186 | 174 | feqmptd 6957 |
. . . . . . . . . . . . 13
β’ ((π β§ (πΊβ(π¦ + 1)) β π΄) β (πΊβ(π¦ + 1)) = (π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘))) |
187 | 167, 186 | syldan 591 |
. . . . . . . . . . . 12
β’ ((π β§ (π¦ + 1) β (1...π)) β (πΊβ(π¦ + 1)) = (π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘))) |
188 | 187, 167 | eqeltrrd 2834 |
. . . . . . . . . . 11
β’ ((π β§ (π¦ + 1) β (1...π)) β (π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘)) β π΄) |
189 | 183, 185,
188 | syl2anc 584 |
. . . . . . . . . 10
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) β (π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘)) β π΄) |
190 | | stoweidlem20.5 |
. . . . . . . . . . 11
β’ ((π β§ π β π΄ β§ π β π΄) β (π‘ β π β¦ ((πβπ‘) + (πβπ‘))) β π΄) |
191 | | nfmpt1 5255 |
. . . . . . . . . . 11
β’
β²π‘(π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) |
192 | | nfmpt1 5255 |
. . . . . . . . . . 11
β’
β²π‘(π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘)) |
193 | 190, 191,
192 | stoweidlem8 44710 |
. . . . . . . . . 10
β’ ((π β§ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄ β§ (π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘)) β π΄) β (π‘ β π β¦ (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘))βπ‘))) β π΄) |
194 | 183, 184,
189, 193 | syl3anc 1371 |
. . . . . . . . 9
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) β (π‘ β π β¦ (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((π‘ β π β¦ ((πΊβ(π¦ + 1))βπ‘))βπ‘))) β π΄) |
195 | 182, 194 | eqeltrrd 2834 |
. . . . . . . 8
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) β (π‘ β π β¦ (((π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘))βπ‘) + ((πΊβ(π¦ + 1))βπ‘))) β π΄) |
196 | 159, 195 | eqeltrd 2833 |
. . . . . . 7
β’ (((π β§ π¦ β β β§ (π¦ + 1) β€ π) β§ (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) β (π‘ β π β¦ Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘)) β π΄) |
197 | 70, 71, 72, 86, 196 | syl31anc 1373 |
. . . . . 6
β’ (((π¦ β β β§ ((π β§ π¦ β€ π) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄)) β§ (π β§ (π¦ + 1) β€ π)) β (π‘ β π β¦ Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘)) β π΄) |
198 | 197 | exp31 420 |
. . . . 5
β’ (π¦ β β β (((π β§ π¦ β€ π) β (π‘ β π β¦ Ξ£π β (1...π¦)((πΊβπ)βπ‘)) β π΄) β ((π β§ (π¦ + 1) β€ π) β (π‘ β π β¦ Ξ£π β (1...(π¦ + 1))((πΊβπ)βπ‘)) β π΄))) |
199 | 21, 28, 35, 42, 69, 198 | nnind 12226 |
. . . 4
β’ (π β β β ((π β§ π β€ π) β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄)) |
200 | 14, 199 | vtoclg 3556 |
. . 3
β’ (π β β β (π β β β ((π β§ π β€ π) β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄))) |
201 | 2, 2, 5, 200 | syl3c 66 |
. 2
β’ (π β (π‘ β π β¦ Ξ£π β (1...π)((πΊβπ)βπ‘)) β π΄) |
202 | 1, 201 | eqeltrid 2837 |
1
β’ (π β πΉ β π΄) |