Step | Hyp | Ref
| Expression |
1 | | stoweidlem3.4 |
. . . 4
β’ (π β π β β) |
2 | | elnnuz 12863 |
. . . 4
β’ (π β β β π β
(β€β₯β1)) |
3 | 1, 2 | sylib 217 |
. . 3
β’ (π β π β
(β€β₯β1)) |
4 | | eluzfz2 13506 |
. . 3
β’ (π β
(β€β₯β1) β π β (1...π)) |
5 | 3, 4 | syl 17 |
. 2
β’ (π β π β (1...π)) |
6 | | oveq2 7414 |
. . . . 5
β’ (π = 1 β (π΄βπ) = (π΄β1)) |
7 | | fveq2 6889 |
. . . . 5
β’ (π = 1 β (πβπ) = (πβ1)) |
8 | 6, 7 | breq12d 5161 |
. . . 4
β’ (π = 1 β ((π΄βπ) < (πβπ) β (π΄β1) < (πβ1))) |
9 | 8 | imbi2d 341 |
. . 3
β’ (π = 1 β ((π β (π΄βπ) < (πβπ)) β (π β (π΄β1) < (πβ1)))) |
10 | | oveq2 7414 |
. . . . 5
β’ (π = π β (π΄βπ) = (π΄βπ)) |
11 | | fveq2 6889 |
. . . . 5
β’ (π = π β (πβπ) = (πβπ)) |
12 | 10, 11 | breq12d 5161 |
. . . 4
β’ (π = π β ((π΄βπ) < (πβπ) β (π΄βπ) < (πβπ))) |
13 | 12 | imbi2d 341 |
. . 3
β’ (π = π β ((π β (π΄βπ) < (πβπ)) β (π β (π΄βπ) < (πβπ)))) |
14 | | oveq2 7414 |
. . . . 5
β’ (π = (π + 1) β (π΄βπ) = (π΄β(π + 1))) |
15 | | fveq2 6889 |
. . . . 5
β’ (π = (π + 1) β (πβπ) = (πβ(π + 1))) |
16 | 14, 15 | breq12d 5161 |
. . . 4
β’ (π = (π + 1) β ((π΄βπ) < (πβπ) β (π΄β(π + 1)) < (πβ(π + 1)))) |
17 | 16 | imbi2d 341 |
. . 3
β’ (π = (π + 1) β ((π β (π΄βπ) < (πβπ)) β (π β (π΄β(π + 1)) < (πβ(π + 1))))) |
18 | | oveq2 7414 |
. . . . 5
β’ (π = π β (π΄βπ) = (π΄βπ)) |
19 | | fveq2 6889 |
. . . . 5
β’ (π = π β (πβπ) = (πβπ)) |
20 | 18, 19 | breq12d 5161 |
. . . 4
β’ (π = π β ((π΄βπ) < (πβπ) β (π΄βπ) < (πβπ))) |
21 | 20 | imbi2d 341 |
. . 3
β’ (π = π β ((π β (π΄βπ) < (πβπ)) β (π β (π΄βπ) < (πβπ)))) |
22 | | 1zzd 12590 |
. . . . . . 7
β’ (π β 1 β
β€) |
23 | 1 | nnzd 12582 |
. . . . . . 7
β’ (π β π β β€) |
24 | | 1le1 11839 |
. . . . . . . 8
β’ 1 β€
1 |
25 | 24 | a1i 11 |
. . . . . . 7
β’ (π β 1 β€ 1) |
26 | 1 | nnge1d 12257 |
. . . . . . 7
β’ (π β 1 β€ π) |
27 | 22, 23, 22, 25, 26 | elfzd 13489 |
. . . . . 6
β’ (π β 1 β (1...π)) |
28 | 27 | ancli 550 |
. . . . . 6
β’ (π β (π β§ 1 β (1...π))) |
29 | | stoweidlem3.2 |
. . . . . . . . 9
β’
β²ππ |
30 | | nfv 1918 |
. . . . . . . . 9
β’
β²π1 β
(1...π) |
31 | 29, 30 | nfan 1903 |
. . . . . . . 8
β’
β²π(π β§ 1 β (1...π)) |
32 | | nfcv 2904 |
. . . . . . . . 9
β’
β²ππ΄ |
33 | | nfcv 2904 |
. . . . . . . . 9
β’
β²π
< |
34 | | stoweidlem3.1 |
. . . . . . . . . 10
β’
β²ππΉ |
35 | | nfcv 2904 |
. . . . . . . . . 10
β’
β²π1 |
36 | 34, 35 | nffv 6899 |
. . . . . . . . 9
β’
β²π(πΉβ1) |
37 | 32, 33, 36 | nfbr 5195 |
. . . . . . . 8
β’
β²π π΄ < (πΉβ1) |
38 | 31, 37 | nfim 1900 |
. . . . . . 7
β’
β²π((π β§ 1 β (1...π)) β π΄ < (πΉβ1)) |
39 | | eleq1 2822 |
. . . . . . . . 9
β’ (π = 1 β (π β (1...π) β 1 β (1...π))) |
40 | 39 | anbi2d 630 |
. . . . . . . 8
β’ (π = 1 β ((π β§ π β (1...π)) β (π β§ 1 β (1...π)))) |
41 | | fveq2 6889 |
. . . . . . . . 9
β’ (π = 1 β (πΉβπ) = (πΉβ1)) |
42 | 41 | breq2d 5160 |
. . . . . . . 8
β’ (π = 1 β (π΄ < (πΉβπ) β π΄ < (πΉβ1))) |
43 | 40, 42 | imbi12d 345 |
. . . . . . 7
β’ (π = 1 β (((π β§ π β (1...π)) β π΄ < (πΉβπ)) β ((π β§ 1 β (1...π)) β π΄ < (πΉβ1)))) |
44 | | stoweidlem3.6 |
. . . . . . 7
β’ ((π β§ π β (1...π)) β π΄ < (πΉβπ)) |
45 | 38, 43, 44 | vtoclg1f 3556 |
. . . . . 6
β’ (1 β
(1...π) β ((π β§ 1 β (1...π)) β π΄ < (πΉβ1))) |
46 | 27, 28, 45 | sylc 65 |
. . . . 5
β’ (π β π΄ < (πΉβ1)) |
47 | | stoweidlem3.7 |
. . . . . . 7
β’ (π β π΄ β
β+) |
48 | 47 | rpcnd 13015 |
. . . . . 6
β’ (π β π΄ β β) |
49 | 48 | exp1d 14103 |
. . . . 5
β’ (π β (π΄β1) = π΄) |
50 | | stoweidlem3.3 |
. . . . . . . 8
β’ π = seq1( Β· , πΉ) |
51 | 50 | fveq1i 6890 |
. . . . . . 7
β’ (πβ1) = (seq1( Β· ,
πΉ)β1) |
52 | | 1z 12589 |
. . . . . . . 8
β’ 1 β
β€ |
53 | | seq1 13976 |
. . . . . . . 8
β’ (1 β
β€ β (seq1( Β· , πΉ)β1) = (πΉβ1)) |
54 | 52, 53 | ax-mp 5 |
. . . . . . 7
β’ (seq1(
Β· , πΉ)β1) =
(πΉβ1) |
55 | 51, 54 | eqtri 2761 |
. . . . . 6
β’ (πβ1) = (πΉβ1) |
56 | 55 | a1i 11 |
. . . . 5
β’ (π β (πβ1) = (πΉβ1)) |
57 | 46, 49, 56 | 3brtr4d 5180 |
. . . 4
β’ (π β (π΄β1) < (πβ1)) |
58 | 57 | a1i 11 |
. . 3
β’ (π β
(β€β₯β1) β (π β (π΄β1) < (πβ1))) |
59 | 47 | 3ad2ant3 1136 |
. . . . . . . 8
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β π΄ β
β+) |
60 | 59 | rpred 13013 |
. . . . . . 7
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β π΄ β β) |
61 | | elfzouz 13633 |
. . . . . . . . 9
β’ (π β (1..^π) β π β
(β€β₯β1)) |
62 | | elnnuz 12863 |
. . . . . . . . . 10
β’ (π β β β π β
(β€β₯β1)) |
63 | | nnnn0 12476 |
. . . . . . . . . 10
β’ (π β β β π β
β0) |
64 | 62, 63 | sylbir 234 |
. . . . . . . . 9
β’ (π β
(β€β₯β1) β π β β0) |
65 | 61, 64 | syl 17 |
. . . . . . . 8
β’ (π β (1..^π) β π β β0) |
66 | 65 | 3ad2ant1 1134 |
. . . . . . 7
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β π β β0) |
67 | 60, 66 | reexpcld 14125 |
. . . . . 6
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (π΄βπ) β β) |
68 | 50 | fveq1i 6890 |
. . . . . . . 8
β’ (πβπ) = (seq1( Β· , πΉ)βπ) |
69 | 61 | adantr 482 |
. . . . . . . . 9
β’ ((π β (1..^π) β§ π) β π β
(β€β₯β1)) |
70 | | nfv 1918 |
. . . . . . . . . . . . 13
β’
β²π π β (1..^π) |
71 | 70, 29 | nfan 1903 |
. . . . . . . . . . . 12
β’
β²π(π β (1..^π) β§ π) |
72 | | nfv 1918 |
. . . . . . . . . . . 12
β’
β²π π β (1...π) |
73 | 71, 72 | nfan 1903 |
. . . . . . . . . . 11
β’
β²π((π β (1..^π) β§ π) β§ π β (1...π)) |
74 | | nfcv 2904 |
. . . . . . . . . . . . 13
β’
β²ππ |
75 | 34, 74 | nffv 6899 |
. . . . . . . . . . . 12
β’
β²π(πΉβπ) |
76 | 75 | nfel1 2920 |
. . . . . . . . . . 11
β’
β²π(πΉβπ) β β |
77 | 73, 76 | nfim 1900 |
. . . . . . . . . 10
β’
β²π(((π β (1..^π) β§ π) β§ π β (1...π)) β (πΉβπ) β β) |
78 | | eleq1 2822 |
. . . . . . . . . . . 12
β’ (π = π β (π β (1...π) β π β (1...π))) |
79 | 78 | anbi2d 630 |
. . . . . . . . . . 11
β’ (π = π β (((π β (1..^π) β§ π) β§ π β (1...π)) β ((π β (1..^π) β§ π) β§ π β (1...π)))) |
80 | | fveq2 6889 |
. . . . . . . . . . . 12
β’ (π = π β (πΉβπ) = (πΉβπ)) |
81 | 80 | eleq1d 2819 |
. . . . . . . . . . 11
β’ (π = π β ((πΉβπ) β β β (πΉβπ) β β)) |
82 | 79, 81 | imbi12d 345 |
. . . . . . . . . 10
β’ (π = π β ((((π β (1..^π) β§ π) β§ π β (1...π)) β (πΉβπ) β β) β (((π β (1..^π) β§ π) β§ π β (1...π)) β (πΉβπ) β β))) |
83 | | stoweidlem3.5 |
. . . . . . . . . . . 12
β’ (π β πΉ:(1...π)βΆβ) |
84 | 83 | ad2antlr 726 |
. . . . . . . . . . 11
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β πΉ:(1...π)βΆβ) |
85 | | 1zzd 12590 |
. . . . . . . . . . . 12
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β 1 β β€) |
86 | 23 | ad2antlr 726 |
. . . . . . . . . . . 12
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β π β β€) |
87 | | elfzelz 13498 |
. . . . . . . . . . . . 13
β’ (π β (1...π) β π β β€) |
88 | 87 | adantl 483 |
. . . . . . . . . . . 12
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β π β β€) |
89 | | elfzle1 13501 |
. . . . . . . . . . . . 13
β’ (π β (1...π) β 1 β€ π) |
90 | 89 | adantl 483 |
. . . . . . . . . . . 12
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β 1 β€ π) |
91 | 87 | zred 12663 |
. . . . . . . . . . . . . 14
β’ (π β (1...π) β π β β) |
92 | 91 | adantl 483 |
. . . . . . . . . . . . 13
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β π β β) |
93 | | elfzoelz 13629 |
. . . . . . . . . . . . . . 15
β’ (π β (1..^π) β π β β€) |
94 | 93 | zred 12663 |
. . . . . . . . . . . . . 14
β’ (π β (1..^π) β π β β) |
95 | 94 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β π β β) |
96 | 1 | nnred 12224 |
. . . . . . . . . . . . . 14
β’ (π β π β β) |
97 | 96 | ad2antlr 726 |
. . . . . . . . . . . . 13
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β π β β) |
98 | | elfzle2 13502 |
. . . . . . . . . . . . . 14
β’ (π β (1...π) β π β€ π) |
99 | 98 | adantl 483 |
. . . . . . . . . . . . 13
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β π β€ π) |
100 | | elfzoel2 13628 |
. . . . . . . . . . . . . . . 16
β’ (π β (1..^π) β π β β€) |
101 | 100 | zred 12663 |
. . . . . . . . . . . . . . 15
β’ (π β (1..^π) β π β β) |
102 | | elfzolt2 13638 |
. . . . . . . . . . . . . . 15
β’ (π β (1..^π) β π < π) |
103 | 94, 101, 102 | ltled 11359 |
. . . . . . . . . . . . . 14
β’ (π β (1..^π) β π β€ π) |
104 | 103 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β π β€ π) |
105 | 92, 95, 97, 99, 104 | letrd 11368 |
. . . . . . . . . . . 12
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β π β€ π) |
106 | 85, 86, 88, 90, 105 | elfzd 13489 |
. . . . . . . . . . 11
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β π β (1...π)) |
107 | 84, 106 | ffvelcdmd 7085 |
. . . . . . . . . 10
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β (πΉβπ) β β) |
108 | 77, 82, 107 | chvarfv 2234 |
. . . . . . . . 9
β’ (((π β (1..^π) β§ π) β§ π β (1...π)) β (πΉβπ) β β) |
109 | | remulcl 11192 |
. . . . . . . . . 10
β’ ((π β β β§ π β β) β (π Β· π) β β) |
110 | 109 | adantl 483 |
. . . . . . . . 9
β’ (((π β (1..^π) β§ π) β§ (π β β β§ π β β)) β (π Β· π) β β) |
111 | 69, 108, 110 | seqcl 13985 |
. . . . . . . 8
β’ ((π β (1..^π) β§ π) β (seq1( Β· , πΉ)βπ) β β) |
112 | 68, 111 | eqeltrid 2838 |
. . . . . . 7
β’ ((π β (1..^π) β§ π) β (πβπ) β β) |
113 | 112 | 3adant2 1132 |
. . . . . 6
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (πβπ) β β) |
114 | 83 | 3ad2ant3 1136 |
. . . . . . 7
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β πΉ:(1...π)βΆβ) |
115 | | fzofzp1 13726 |
. . . . . . . 8
β’ (π β (1..^π) β (π + 1) β (1...π)) |
116 | 115 | 3ad2ant1 1134 |
. . . . . . 7
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (π + 1) β (1...π)) |
117 | 114, 116 | ffvelcdmd 7085 |
. . . . . 6
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (πΉβ(π + 1)) β β) |
118 | 47 | rpge0d 13017 |
. . . . . . . 8
β’ (π β 0 β€ π΄) |
119 | 118 | 3ad2ant3 1136 |
. . . . . . 7
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β 0 β€ π΄) |
120 | 60, 66, 119 | expge0d 14126 |
. . . . . 6
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β 0 β€ (π΄βπ)) |
121 | | simp3 1139 |
. . . . . . 7
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β π) |
122 | | simp2 1138 |
. . . . . . 7
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (π β (π΄βπ) < (πβπ))) |
123 | 121, 122 | mpd 15 |
. . . . . 6
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (π΄βπ) < (πβπ)) |
124 | 115 | adantr 482 |
. . . . . . . 8
β’ ((π β (1..^π) β§ π) β (π + 1) β (1...π)) |
125 | | simpr 486 |
. . . . . . . . 9
β’ ((π β (1..^π) β§ π) β π) |
126 | 125, 124 | jca 513 |
. . . . . . . 8
β’ ((π β (1..^π) β§ π) β (π β§ (π + 1) β (1...π))) |
127 | | nfv 1918 |
. . . . . . . . . . 11
β’
β²π(π + 1) β (1...π) |
128 | 29, 127 | nfan 1903 |
. . . . . . . . . 10
β’
β²π(π β§ (π + 1) β (1...π)) |
129 | | nfcv 2904 |
. . . . . . . . . . . 12
β’
β²π(π + 1) |
130 | 34, 129 | nffv 6899 |
. . . . . . . . . . 11
β’
β²π(πΉβ(π + 1)) |
131 | 32, 33, 130 | nfbr 5195 |
. . . . . . . . . 10
β’
β²π π΄ < (πΉβ(π + 1)) |
132 | 128, 131 | nfim 1900 |
. . . . . . . . 9
β’
β²π((π β§ (π + 1) β (1...π)) β π΄ < (πΉβ(π + 1))) |
133 | | eleq1 2822 |
. . . . . . . . . . 11
β’ (π = (π + 1) β (π β (1...π) β (π + 1) β (1...π))) |
134 | 133 | anbi2d 630 |
. . . . . . . . . 10
β’ (π = (π + 1) β ((π β§ π β (1...π)) β (π β§ (π + 1) β (1...π)))) |
135 | | fveq2 6889 |
. . . . . . . . . . 11
β’ (π = (π + 1) β (πΉβπ) = (πΉβ(π + 1))) |
136 | 135 | breq2d 5160 |
. . . . . . . . . 10
β’ (π = (π + 1) β (π΄ < (πΉβπ) β π΄ < (πΉβ(π + 1)))) |
137 | 134, 136 | imbi12d 345 |
. . . . . . . . 9
β’ (π = (π + 1) β (((π β§ π β (1...π)) β π΄ < (πΉβπ)) β ((π β§ (π + 1) β (1...π)) β π΄ < (πΉβ(π + 1))))) |
138 | 132, 137,
44 | vtoclg1f 3556 |
. . . . . . . 8
β’ ((π + 1) β (1...π) β ((π β§ (π + 1) β (1...π)) β π΄ < (πΉβ(π + 1)))) |
139 | 124, 126,
138 | sylc 65 |
. . . . . . 7
β’ ((π β (1..^π) β§ π) β π΄ < (πΉβ(π + 1))) |
140 | 139 | 3adant2 1132 |
. . . . . 6
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β π΄ < (πΉβ(π + 1))) |
141 | 67, 113, 60, 117, 120, 123, 119, 140 | ltmul12ad 12152 |
. . . . 5
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β ((π΄βπ) Β· π΄) < ((πβπ) Β· (πΉβ(π + 1)))) |
142 | 48 | 3ad2ant3 1136 |
. . . . . 6
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β π΄ β β) |
143 | 142, 66 | expp1d 14109 |
. . . . 5
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (π΄β(π + 1)) = ((π΄βπ) Β· π΄)) |
144 | 50 | fveq1i 6890 |
. . . . . . 7
β’ (πβ(π + 1)) = (seq1( Β· , πΉ)β(π + 1)) |
145 | 144 | a1i 11 |
. . . . . 6
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (πβ(π + 1)) = (seq1( Β· , πΉ)β(π + 1))) |
146 | 61 | 3ad2ant1 1134 |
. . . . . . 7
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β π β
(β€β₯β1)) |
147 | | seqp1 13978 |
. . . . . . 7
β’ (π β
(β€β₯β1) β (seq1( Β· , πΉ)β(π + 1)) = ((seq1( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
148 | 146, 147 | syl 17 |
. . . . . 6
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (seq1( Β· , πΉ)β(π + 1)) = ((seq1( Β· , πΉ)βπ) Β· (πΉβ(π + 1)))) |
149 | 68 | a1i 11 |
. . . . . . . 8
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (πβπ) = (seq1( Β· , πΉ)βπ)) |
150 | 149 | eqcomd 2739 |
. . . . . . 7
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (seq1( Β· , πΉ)βπ) = (πβπ)) |
151 | 150 | oveq1d 7421 |
. . . . . 6
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β ((seq1( Β· , πΉ)βπ) Β· (πΉβ(π + 1))) = ((πβπ) Β· (πΉβ(π + 1)))) |
152 | 145, 148,
151 | 3eqtrd 2777 |
. . . . 5
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (πβ(π + 1)) = ((πβπ) Β· (πΉβ(π + 1)))) |
153 | 141, 143,
152 | 3brtr4d 5180 |
. . . 4
β’ ((π β (1..^π) β§ (π β (π΄βπ) < (πβπ)) β§ π) β (π΄β(π + 1)) < (πβ(π + 1))) |
154 | 153 | 3exp 1120 |
. . 3
β’ (π β (1..^π) β ((π β (π΄βπ) < (πβπ)) β (π β (π΄β(π + 1)) < (πβ(π + 1))))) |
155 | 9, 13, 17, 21, 58, 154 | fzind2 13747 |
. 2
β’ (π β (1...π) β (π β (π΄βπ) < (πβπ))) |
156 | 5, 155 | mpcom 38 |
1
β’ (π β (π΄βπ) < (πβπ)) |