Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  stoweidlem26 Structured version   Visualization version   GIF version

Theorem stoweidlem26 44728
Description: This lemma is used to prove that there is a function 𝑔 as in the proof of [BrosowskiDeutsh] p. 92: this lemma proves that g(t) > ( j - 4 / 3 ) * Ξ΅. Here 𝐿 is used to represnt j in the paper, 𝐷 is used to represent A in the paper, 𝑆 is used to represent t, and 𝐸 is used to represent Ξ΅. (Contributed by Glauco Siliprandi, 20-Apr-2017.)
Hypotheses
Ref Expression
stoweidlem26.1 Ⅎ𝑑𝐹
stoweidlem26.2 β„²π‘—πœ‘
stoweidlem26.3 β„²π‘‘πœ‘
stoweidlem26.4 𝐷 = (𝑗 ∈ (0...𝑁) ↦ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ ((𝑗 βˆ’ (1 / 3)) Β· 𝐸)})
stoweidlem26.5 𝐡 = (𝑗 ∈ (0...𝑁) ↦ {𝑑 ∈ 𝑇 ∣ ((𝑗 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)})
stoweidlem26.6 (πœ‘ β†’ 𝑁 ∈ β„•)
stoweidlem26.7 (πœ‘ β†’ 𝑇 ∈ V)
stoweidlem26.8 (πœ‘ β†’ 𝐿 ∈ (1...𝑁))
stoweidlem26.9 (πœ‘ β†’ 𝑆 ∈ ((π·β€˜πΏ) βˆ– (π·β€˜(𝐿 βˆ’ 1))))
stoweidlem26.10 (πœ‘ β†’ 𝐹:π‘‡βŸΆβ„)
stoweidlem26.11 (πœ‘ β†’ 𝐸 ∈ ℝ+)
stoweidlem26.12 (πœ‘ β†’ 𝐸 < (1 / 3))
stoweidlem26.13 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ (π‘‹β€˜π‘–):π‘‡βŸΆβ„)
stoweidlem26.14 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑑 ∈ 𝑇) β†’ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘‘))
stoweidlem26.15 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑑 ∈ (π΅β€˜π‘–)) β†’ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘‘))
Assertion
Ref Expression
stoweidlem26 (πœ‘ β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < ((𝑑 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘‘)))β€˜π‘†))
Distinct variable groups:   𝑖,𝑗,𝑑,𝐸   𝑖,𝐿,𝑗,𝑑   𝑖,𝑁,𝑗,𝑑   𝑆,𝑖,𝑑   πœ‘,𝑖   𝑗,𝐹   𝑇,𝑗,𝑑   𝑑,𝑋
Allowed substitution hints:   πœ‘(𝑑,𝑗)   𝐡(𝑑,𝑖,𝑗)   𝐷(𝑑,𝑖,𝑗)   𝑆(𝑗)   𝑇(𝑖)   𝐹(𝑑,𝑖)   𝑋(𝑖,𝑗)

Proof of Theorem stoweidlem26
StepHypRef Expression
1 1re 11210 . . . . . . . 8 1 ∈ ℝ
2 eleq1 2821 . . . . . . . 8 (𝐿 = 1 β†’ (𝐿 ∈ ℝ ↔ 1 ∈ ℝ))
31, 2mpbiri 257 . . . . . . 7 (𝐿 = 1 β†’ 𝐿 ∈ ℝ)
43adantl 482 . . . . . 6 ((πœ‘ ∧ 𝐿 = 1) β†’ 𝐿 ∈ ℝ)
5 4re 12292 . . . . . . . 8 4 ∈ ℝ
65a1i 11 . . . . . . 7 ((πœ‘ ∧ 𝐿 = 1) β†’ 4 ∈ ℝ)
7 3re 12288 . . . . . . . 8 3 ∈ ℝ
87a1i 11 . . . . . . 7 ((πœ‘ ∧ 𝐿 = 1) β†’ 3 ∈ ℝ)
9 3ne0 12314 . . . . . . . 8 3 β‰  0
109a1i 11 . . . . . . 7 ((πœ‘ ∧ 𝐿 = 1) β†’ 3 β‰  0)
116, 8, 10redivcld 12038 . . . . . 6 ((πœ‘ ∧ 𝐿 = 1) β†’ (4 / 3) ∈ ℝ)
124, 11resubcld 11638 . . . . 5 ((πœ‘ ∧ 𝐿 = 1) β†’ (𝐿 βˆ’ (4 / 3)) ∈ ℝ)
13 stoweidlem26.11 . . . . . . 7 (πœ‘ β†’ 𝐸 ∈ ℝ+)
1413rpred 13012 . . . . . 6 (πœ‘ β†’ 𝐸 ∈ ℝ)
1514adantr 481 . . . . 5 ((πœ‘ ∧ 𝐿 = 1) β†’ 𝐸 ∈ ℝ)
1612, 15remulcld 11240 . . . 4 ((πœ‘ ∧ 𝐿 = 1) β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) ∈ ℝ)
17 0red 11213 . . . 4 ((πœ‘ ∧ 𝐿 = 1) β†’ 0 ∈ ℝ)
18 fzfid 13934 . . . . . 6 (πœ‘ β†’ (0...𝑁) ∈ Fin)
1914adantr 481 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 𝐸 ∈ ℝ)
20 stoweidlem26.13 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ (π‘‹β€˜π‘–):π‘‡βŸΆβ„)
21 stoweidlem26.9 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑆 ∈ ((π·β€˜πΏ) βˆ– (π·β€˜(𝐿 βˆ’ 1))))
22 eldif 3957 . . . . . . . . . . . . . 14 (𝑆 ∈ ((π·β€˜πΏ) βˆ– (π·β€˜(𝐿 βˆ’ 1))) ↔ (𝑆 ∈ (π·β€˜πΏ) ∧ Β¬ 𝑆 ∈ (π·β€˜(𝐿 βˆ’ 1))))
2321, 22sylib 217 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑆 ∈ (π·β€˜πΏ) ∧ Β¬ 𝑆 ∈ (π·β€˜(𝐿 βˆ’ 1))))
2423simpld 495 . . . . . . . . . . . 12 (πœ‘ β†’ 𝑆 ∈ (π·β€˜πΏ))
25 stoweidlem26.4 . . . . . . . . . . . . 13 𝐷 = (𝑗 ∈ (0...𝑁) ↦ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ ((𝑗 βˆ’ (1 / 3)) Β· 𝐸)})
26 oveq1 7412 . . . . . . . . . . . . . . . 16 (𝑗 = 𝐿 β†’ (𝑗 βˆ’ (1 / 3)) = (𝐿 βˆ’ (1 / 3)))
2726oveq1d 7420 . . . . . . . . . . . . . . 15 (𝑗 = 𝐿 β†’ ((𝑗 βˆ’ (1 / 3)) Β· 𝐸) = ((𝐿 βˆ’ (1 / 3)) Β· 𝐸))
2827breq2d 5159 . . . . . . . . . . . . . 14 (𝑗 = 𝐿 β†’ ((πΉβ€˜π‘‘) ≀ ((𝑗 βˆ’ (1 / 3)) Β· 𝐸) ↔ (πΉβ€˜π‘‘) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)))
2928rabbidv 3440 . . . . . . . . . . . . 13 (𝑗 = 𝐿 β†’ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ ((𝑗 βˆ’ (1 / 3)) Β· 𝐸)} = {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)})
30 fz1ssfz0 13593 . . . . . . . . . . . . . 14 (1...𝑁) βŠ† (0...𝑁)
31 stoweidlem26.8 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐿 ∈ (1...𝑁))
3230, 31sselid 3979 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐿 ∈ (0...𝑁))
33 stoweidlem26.7 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑇 ∈ V)
34 rabexg 5330 . . . . . . . . . . . . . 14 (𝑇 ∈ V β†’ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)} ∈ V)
3533, 34syl 17 . . . . . . . . . . . . 13 (πœ‘ β†’ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)} ∈ V)
3625, 29, 32, 35fvmptd3 7018 . . . . . . . . . . . 12 (πœ‘ β†’ (π·β€˜πΏ) = {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)})
3724, 36eleqtrd 2835 . . . . . . . . . . 11 (πœ‘ β†’ 𝑆 ∈ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)})
38 nfcv 2903 . . . . . . . . . . . 12 Ⅎ𝑑𝑆
39 nfcv 2903 . . . . . . . . . . . 12 Ⅎ𝑑𝑇
40 stoweidlem26.1 . . . . . . . . . . . . . 14 Ⅎ𝑑𝐹
4140, 38nffv 6898 . . . . . . . . . . . . 13 Ⅎ𝑑(πΉβ€˜π‘†)
42 nfcv 2903 . . . . . . . . . . . . 13 Ⅎ𝑑 ≀
43 nfcv 2903 . . . . . . . . . . . . 13 Ⅎ𝑑((𝐿 βˆ’ (1 / 3)) Β· 𝐸)
4441, 42, 43nfbr 5194 . . . . . . . . . . . 12 Ⅎ𝑑(πΉβ€˜π‘†) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)
45 fveq2 6888 . . . . . . . . . . . . 13 (𝑑 = 𝑆 β†’ (πΉβ€˜π‘‘) = (πΉβ€˜π‘†))
4645breq1d 5157 . . . . . . . . . . . 12 (𝑑 = 𝑆 β†’ ((πΉβ€˜π‘‘) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸) ↔ (πΉβ€˜π‘†) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)))
4738, 39, 44, 46elrabf 3678 . . . . . . . . . . 11 (𝑆 ∈ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)} ↔ (𝑆 ∈ 𝑇 ∧ (πΉβ€˜π‘†) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)))
4837, 47sylib 217 . . . . . . . . . 10 (πœ‘ β†’ (𝑆 ∈ 𝑇 ∧ (πΉβ€˜π‘†) ≀ ((𝐿 βˆ’ (1 / 3)) Β· 𝐸)))
4948simpld 495 . . . . . . . . 9 (πœ‘ β†’ 𝑆 ∈ 𝑇)
5049adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 𝑆 ∈ 𝑇)
5120, 50ffvelcdmd 7084 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ ((π‘‹β€˜π‘–)β€˜π‘†) ∈ ℝ)
5219, 51remulcld 11240 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
5318, 52fsumrecl 15676 . . . . 5 (πœ‘ β†’ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
5453adantr 481 . . . 4 ((πœ‘ ∧ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
555, 7, 9redivcli 11977 . . . . . . 7 (4 / 3) ∈ ℝ
5655a1i 11 . . . . . 6 ((πœ‘ ∧ 𝐿 = 1) β†’ (4 / 3) ∈ ℝ)
574, 56resubcld 11638 . . . . 5 ((πœ‘ ∧ 𝐿 = 1) β†’ (𝐿 βˆ’ (4 / 3)) ∈ ℝ)
584recnd 11238 . . . . . . . 8 ((πœ‘ ∧ 𝐿 = 1) β†’ 𝐿 ∈ β„‚)
5958subid1d 11556 . . . . . . 7 ((πœ‘ ∧ 𝐿 = 1) β†’ (𝐿 βˆ’ 0) = 𝐿)
60 3cn 12289 . . . . . . . . . 10 3 ∈ β„‚
6160, 9dividi 11943 . . . . . . . . 9 (3 / 3) = 1
62 3lt4 12382 . . . . . . . . . 10 3 < 4
63 3pos 12313 . . . . . . . . . . 11 0 < 3
647, 5, 7, 63ltdiv1ii 12139 . . . . . . . . . 10 (3 < 4 ↔ (3 / 3) < (4 / 3))
6562, 64mpbi 229 . . . . . . . . 9 (3 / 3) < (4 / 3)
6661, 65eqbrtrri 5170 . . . . . . . 8 1 < (4 / 3)
67 breq1 5150 . . . . . . . . 9 (𝐿 = 1 β†’ (𝐿 < (4 / 3) ↔ 1 < (4 / 3)))
6867adantl 482 . . . . . . . 8 ((πœ‘ ∧ 𝐿 = 1) β†’ (𝐿 < (4 / 3) ↔ 1 < (4 / 3)))
6966, 68mpbiri 257 . . . . . . 7 ((πœ‘ ∧ 𝐿 = 1) β†’ 𝐿 < (4 / 3))
7059, 69eqbrtrd 5169 . . . . . 6 ((πœ‘ ∧ 𝐿 = 1) β†’ (𝐿 βˆ’ 0) < (4 / 3))
714, 17, 56, 70ltsub23d 11815 . . . . 5 ((πœ‘ ∧ 𝐿 = 1) β†’ (𝐿 βˆ’ (4 / 3)) < 0)
7213rpgt0d 13015 . . . . . 6 (πœ‘ β†’ 0 < 𝐸)
7372adantr 481 . . . . 5 ((πœ‘ ∧ 𝐿 = 1) β†’ 0 < 𝐸)
74 mulltgt0 43691 . . . . 5 ((((𝐿 βˆ’ (4 / 3)) ∈ ℝ ∧ (𝐿 βˆ’ (4 / 3)) < 0) ∧ (𝐸 ∈ ℝ ∧ 0 < 𝐸)) β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < 0)
7557, 71, 15, 73, 74syl22anc 837 . . . 4 ((πœ‘ ∧ 𝐿 = 1) β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < 0)
76 0cn 11202 . . . . . . . 8 0 ∈ β„‚
77 fsumconst 15732 . . . . . . . 8 (((0...𝑁) ∈ Fin ∧ 0 ∈ β„‚) β†’ Σ𝑖 ∈ (0...𝑁)0 = ((β™―β€˜(0...𝑁)) Β· 0))
7818, 76, 77sylancl 586 . . . . . . 7 (πœ‘ β†’ Σ𝑖 ∈ (0...𝑁)0 = ((β™―β€˜(0...𝑁)) Β· 0))
79 hashcl 14312 . . . . . . . . 9 ((0...𝑁) ∈ Fin β†’ (β™―β€˜(0...𝑁)) ∈ β„•0)
80 nn0cn 12478 . . . . . . . . 9 ((β™―β€˜(0...𝑁)) ∈ β„•0 β†’ (β™―β€˜(0...𝑁)) ∈ β„‚)
8118, 79, 803syl 18 . . . . . . . 8 (πœ‘ β†’ (β™―β€˜(0...𝑁)) ∈ β„‚)
8281mul01d 11409 . . . . . . 7 (πœ‘ β†’ ((β™―β€˜(0...𝑁)) Β· 0) = 0)
8378, 82eqtrd 2772 . . . . . 6 (πœ‘ β†’ Σ𝑖 ∈ (0...𝑁)0 = 0)
8483adantr 481 . . . . 5 ((πœ‘ ∧ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...𝑁)0 = 0)
85 0red 11213 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 0 ∈ ℝ)
8613rpge0d 13016 . . . . . . . . 9 (πœ‘ β†’ 0 ≀ 𝐸)
8786adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 0 ≀ 𝐸)
88 stoweidlem26.3 . . . . . . . . . . . 12 β„²π‘‘πœ‘
89 nfv 1917 . . . . . . . . . . . 12 Ⅎ𝑑 𝑖 ∈ (0...𝑁)
9088, 89nfan 1902 . . . . . . . . . . 11 Ⅎ𝑑(πœ‘ ∧ 𝑖 ∈ (0...𝑁))
91 nfv 1917 . . . . . . . . . . 11 Ⅎ𝑑0 ≀ ((π‘‹β€˜π‘–)β€˜π‘†)
9290, 91nfim 1899 . . . . . . . . . 10 Ⅎ𝑑((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘†))
93 fveq2 6888 . . . . . . . . . . . 12 (𝑑 = 𝑆 β†’ ((π‘‹β€˜π‘–)β€˜π‘‘) = ((π‘‹β€˜π‘–)β€˜π‘†))
9493breq2d 5159 . . . . . . . . . . 11 (𝑑 = 𝑆 β†’ (0 ≀ ((π‘‹β€˜π‘–)β€˜π‘‘) ↔ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘†)))
9594imbi2d 340 . . . . . . . . . 10 (𝑑 = 𝑆 β†’ (((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘‘)) ↔ ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘†))))
96 stoweidlem26.14 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑑 ∈ 𝑇) β†’ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘‘))
97963expia 1121 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ (𝑑 ∈ 𝑇 β†’ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘‘)))
9897com12 32 . . . . . . . . . 10 (𝑑 ∈ 𝑇 β†’ ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘‘)))
9938, 92, 95, 98vtoclgaf 3564 . . . . . . . . 9 (𝑆 ∈ 𝑇 β†’ ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘†)))
10050, 99mpcom 38 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘†))
10119, 51, 87, 100mulge0d 11787 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 0 ≀ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
10218, 85, 52, 101fsumle 15741 . . . . . 6 (πœ‘ β†’ Σ𝑖 ∈ (0...𝑁)0 ≀ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
103102adantr 481 . . . . 5 ((πœ‘ ∧ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...𝑁)0 ≀ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
10484, 103eqbrtrrd 5171 . . . 4 ((πœ‘ ∧ 𝐿 = 1) β†’ 0 ≀ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
10516, 17, 54, 75, 104ltletrd 11370 . . 3 ((πœ‘ ∧ 𝐿 = 1) β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
106 elfzelz 13497 . . . . . . . . 9 (𝐿 ∈ (1...𝑁) β†’ 𝐿 ∈ β„€)
107 zre 12558 . . . . . . . . 9 (𝐿 ∈ β„€ β†’ 𝐿 ∈ ℝ)
10831, 106, 1073syl 18 . . . . . . . 8 (πœ‘ β†’ 𝐿 ∈ ℝ)
1095a1i 11 . . . . . . . . 9 (πœ‘ β†’ 4 ∈ ℝ)
1107a1i 11 . . . . . . . . 9 (πœ‘ β†’ 3 ∈ ℝ)
1119a1i 11 . . . . . . . . 9 (πœ‘ β†’ 3 β‰  0)
112109, 110, 111redivcld 12038 . . . . . . . 8 (πœ‘ β†’ (4 / 3) ∈ ℝ)
113108, 112resubcld 11638 . . . . . . 7 (πœ‘ β†’ (𝐿 βˆ’ (4 / 3)) ∈ ℝ)
114113, 14remulcld 11240 . . . . . 6 (πœ‘ β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) ∈ ℝ)
115114adantr 481 . . . . 5 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) ∈ ℝ)
1161a1i 11 . . . . . . . . 9 (πœ‘ β†’ 1 ∈ ℝ)
117 stoweidlem26.6 . . . . . . . . . 10 (πœ‘ β†’ 𝑁 ∈ β„•)
11814, 117nndivred 12262 . . . . . . . . 9 (πœ‘ β†’ (𝐸 / 𝑁) ∈ ℝ)
119116, 118resubcld 11638 . . . . . . . 8 (πœ‘ β†’ (1 βˆ’ (𝐸 / 𝑁)) ∈ ℝ)
120108, 116resubcld 11638 . . . . . . . 8 (πœ‘ β†’ (𝐿 βˆ’ 1) ∈ ℝ)
121119, 120remulcld 11240 . . . . . . 7 (πœ‘ β†’ ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)) ∈ ℝ)
12214, 121remulcld 11240 . . . . . 6 (πœ‘ β†’ (𝐸 Β· ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1))) ∈ ℝ)
123122adantr 481 . . . . 5 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (𝐸 Β· ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1))) ∈ ℝ)
124 fzfid 13934 . . . . . . . 8 (πœ‘ β†’ (0...(𝐿 βˆ’ 2)) ∈ Fin)
12531elfzelzd 13498 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐿 ∈ β„€)
126 2z 12590 . . . . . . . . . . . . . . 15 2 ∈ β„€
127126a1i 11 . . . . . . . . . . . . . 14 (πœ‘ β†’ 2 ∈ β„€)
128125, 127zsubcld 12667 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐿 βˆ’ 2) ∈ β„€)
129117nnzd 12581 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑁 ∈ β„€)
130125zred 12662 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝐿 ∈ ℝ)
131 2re 12282 . . . . . . . . . . . . . . . 16 2 ∈ ℝ
132131a1i 11 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 2 ∈ ℝ)
133130, 132resubcld 11638 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝐿 βˆ’ 2) ∈ ℝ)
134117nnred 12223 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑁 ∈ ℝ)
135 0le2 12310 . . . . . . . . . . . . . . . 16 0 ≀ 2
136 0red 11213 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 0 ∈ ℝ)
137136, 132, 130lesub2d 11818 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (0 ≀ 2 ↔ (𝐿 βˆ’ 2) ≀ (𝐿 βˆ’ 0)))
138135, 137mpbii 232 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐿 βˆ’ 2) ≀ (𝐿 βˆ’ 0))
139125zcnd 12663 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝐿 ∈ β„‚)
140139subid1d 11556 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐿 βˆ’ 0) = 𝐿)
141138, 140breqtrd 5173 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝐿 βˆ’ 2) ≀ 𝐿)
142 elfzle2 13501 . . . . . . . . . . . . . . 15 (𝐿 ∈ (1...𝑁) β†’ 𝐿 ≀ 𝑁)
14331, 142syl 17 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐿 ≀ 𝑁)
144133, 130, 134, 141, 143letrd 11367 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐿 βˆ’ 2) ≀ 𝑁)
145128, 129, 1443jca 1128 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐿 βˆ’ 2) ∈ β„€ ∧ 𝑁 ∈ β„€ ∧ (𝐿 βˆ’ 2) ≀ 𝑁))
146 eluz2 12824 . . . . . . . . . . . 12 (𝑁 ∈ (β„€β‰₯β€˜(𝐿 βˆ’ 2)) ↔ ((𝐿 βˆ’ 2) ∈ β„€ ∧ 𝑁 ∈ β„€ ∧ (𝐿 βˆ’ 2) ≀ 𝑁))
147145, 146sylibr 233 . . . . . . . . . . 11 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝐿 βˆ’ 2)))
148 fzss2 13537 . . . . . . . . . . 11 (𝑁 ∈ (β„€β‰₯β€˜(𝐿 βˆ’ 2)) β†’ (0...(𝐿 βˆ’ 2)) βŠ† (0...𝑁))
149147, 148syl 17 . . . . . . . . . 10 (πœ‘ β†’ (0...(𝐿 βˆ’ 2)) βŠ† (0...𝑁))
150149sselda 3981 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑖 ∈ (0...𝑁))
151150, 51syldan 591 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ ((π‘‹β€˜π‘–)β€˜π‘†) ∈ ℝ)
152124, 151fsumrecl 15676 . . . . . . 7 (πœ‘ β†’ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†) ∈ ℝ)
15314, 152remulcld 11240 . . . . . 6 (πœ‘ β†’ (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
154153adantr 481 . . . . 5 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
15514, 120remulcld 11240 . . . . . . . . 9 (πœ‘ β†’ (𝐸 Β· (𝐿 βˆ’ 1)) ∈ ℝ)
15614, 14remulcld 11240 . . . . . . . . 9 (πœ‘ β†’ (𝐸 Β· 𝐸) ∈ ℝ)
157155, 156resubcld 11638 . . . . . . . 8 (πœ‘ β†’ ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ (𝐸 Β· 𝐸)) ∈ ℝ)
158120, 117nndivred 12262 . . . . . . . . . 10 (πœ‘ β†’ ((𝐿 βˆ’ 1) / 𝑁) ∈ ℝ)
159156, 158remulcld 11240 . . . . . . . . 9 (πœ‘ β†’ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁)) ∈ ℝ)
160155, 159resubcld 11638 . . . . . . . 8 (πœ‘ β†’ ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁))) ∈ ℝ)
161120, 14resubcld 11638 . . . . . . . . . 10 (πœ‘ β†’ ((𝐿 βˆ’ 1) βˆ’ 𝐸) ∈ ℝ)
162116, 14readdcld 11239 . . . . . . . . . . . 12 (πœ‘ β†’ (1 + 𝐸) ∈ ℝ)
1631, 7, 9redivcli 11977 . . . . . . . . . . . . . . 15 (1 / 3) ∈ ℝ
164163a1i 11 . . . . . . . . . . . . . 14 (πœ‘ β†’ (1 / 3) ∈ ℝ)
165 stoweidlem26.12 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐸 < (1 / 3))
16614, 164, 116, 165ltadd2dd 11369 . . . . . . . . . . . . 13 (πœ‘ β†’ (1 + 𝐸) < (1 + (1 / 3)))
167 ax-1cn 11164 . . . . . . . . . . . . . . 15 1 ∈ β„‚
16860, 167, 60, 9divdiri 11967 . . . . . . . . . . . . . 14 ((3 + 1) / 3) = ((3 / 3) + (1 / 3))
169 3p1e4 12353 . . . . . . . . . . . . . . 15 (3 + 1) = 4
170169oveq1i 7415 . . . . . . . . . . . . . 14 ((3 + 1) / 3) = (4 / 3)
17161oveq1i 7415 . . . . . . . . . . . . . 14 ((3 / 3) + (1 / 3)) = (1 + (1 / 3))
172168, 170, 1713eqtr3ri 2769 . . . . . . . . . . . . 13 (1 + (1 / 3)) = (4 / 3)
173166, 172breqtrdi 5188 . . . . . . . . . . . 12 (πœ‘ β†’ (1 + 𝐸) < (4 / 3))
174162, 112, 108, 173ltsub2dd 11823 . . . . . . . . . . 11 (πœ‘ β†’ (𝐿 βˆ’ (4 / 3)) < (𝐿 βˆ’ (1 + 𝐸)))
175167a1i 11 . . . . . . . . . . . 12 (πœ‘ β†’ 1 ∈ β„‚)
17613rpcnd 13014 . . . . . . . . . . . 12 (πœ‘ β†’ 𝐸 ∈ β„‚)
177139, 175, 176subsub4d 11598 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐿 βˆ’ 1) βˆ’ 𝐸) = (𝐿 βˆ’ (1 + 𝐸)))
178174, 177breqtrrd 5175 . . . . . . . . . 10 (πœ‘ β†’ (𝐿 βˆ’ (4 / 3)) < ((𝐿 βˆ’ 1) βˆ’ 𝐸))
179113, 161, 13, 178ltmul1dd 13067 . . . . . . . . 9 (πœ‘ β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < (((𝐿 βˆ’ 1) βˆ’ 𝐸) Β· 𝐸))
180139, 175subcld 11567 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐿 βˆ’ 1) ∈ β„‚)
181180, 176subcld 11567 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐿 βˆ’ 1) βˆ’ 𝐸) ∈ β„‚)
182176, 181mulcomd 11231 . . . . . . . . . 10 (πœ‘ β†’ (𝐸 Β· ((𝐿 βˆ’ 1) βˆ’ 𝐸)) = (((𝐿 βˆ’ 1) βˆ’ 𝐸) Β· 𝐸))
183176, 180, 176subdid 11666 . . . . . . . . . 10 (πœ‘ β†’ (𝐸 Β· ((𝐿 βˆ’ 1) βˆ’ 𝐸)) = ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ (𝐸 Β· 𝐸)))
184182, 183eqtr3d 2774 . . . . . . . . 9 (πœ‘ β†’ (((𝐿 βˆ’ 1) βˆ’ 𝐸) Β· 𝐸) = ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ (𝐸 Β· 𝐸)))
185179, 184breqtrd 5173 . . . . . . . 8 (πœ‘ β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ (𝐸 Β· 𝐸)))
186 1zzd 12589 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 1 ∈ β„€)
187 elfz 13486 . . . . . . . . . . . . . . . . 17 ((𝐿 ∈ β„€ ∧ 1 ∈ β„€ ∧ 𝑁 ∈ β„€) β†’ (𝐿 ∈ (1...𝑁) ↔ (1 ≀ 𝐿 ∧ 𝐿 ≀ 𝑁)))
188125, 186, 129, 187syl3anc 1371 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝐿 ∈ (1...𝑁) ↔ (1 ≀ 𝐿 ∧ 𝐿 ≀ 𝑁)))
18931, 188mpbid 231 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (1 ≀ 𝐿 ∧ 𝐿 ≀ 𝑁))
190189simprd 496 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐿 ≀ 𝑁)
191 zlem1lt 12610 . . . . . . . . . . . . . . 15 ((𝐿 ∈ β„€ ∧ 𝑁 ∈ β„€) β†’ (𝐿 ≀ 𝑁 ↔ (𝐿 βˆ’ 1) < 𝑁))
192125, 129, 191syl2anc 584 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝐿 ≀ 𝑁 ↔ (𝐿 βˆ’ 1) < 𝑁))
193190, 192mpbid 231 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐿 βˆ’ 1) < 𝑁)
194117nngt0d 12257 . . . . . . . . . . . . . 14 (πœ‘ β†’ 0 < 𝑁)
195 ltdiv1 12074 . . . . . . . . . . . . . 14 (((𝐿 βˆ’ 1) ∈ ℝ ∧ 𝑁 ∈ ℝ ∧ (𝑁 ∈ ℝ ∧ 0 < 𝑁)) β†’ ((𝐿 βˆ’ 1) < 𝑁 ↔ ((𝐿 βˆ’ 1) / 𝑁) < (𝑁 / 𝑁)))
196120, 134, 134, 194, 195syl112anc 1374 . . . . . . . . . . . . 13 (πœ‘ β†’ ((𝐿 βˆ’ 1) < 𝑁 ↔ ((𝐿 βˆ’ 1) / 𝑁) < (𝑁 / 𝑁)))
197193, 196mpbid 231 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐿 βˆ’ 1) / 𝑁) < (𝑁 / 𝑁))
198117nncnd 12224 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑁 ∈ β„‚)
199117nnne0d 12258 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑁 β‰  0)
200198, 199dividd 11984 . . . . . . . . . . . 12 (πœ‘ β†’ (𝑁 / 𝑁) = 1)
201197, 200breqtrd 5173 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐿 βˆ’ 1) / 𝑁) < 1)
20214, 14, 72, 72mulgt0d 11365 . . . . . . . . . . . 12 (πœ‘ β†’ 0 < (𝐸 Β· 𝐸))
203 ltmul2 12061 . . . . . . . . . . . 12 ((((𝐿 βˆ’ 1) / 𝑁) ∈ ℝ ∧ 1 ∈ ℝ ∧ ((𝐸 Β· 𝐸) ∈ ℝ ∧ 0 < (𝐸 Β· 𝐸))) β†’ (((𝐿 βˆ’ 1) / 𝑁) < 1 ↔ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁)) < ((𝐸 Β· 𝐸) Β· 1)))
204158, 116, 156, 202, 203syl112anc 1374 . . . . . . . . . . 11 (πœ‘ β†’ (((𝐿 βˆ’ 1) / 𝑁) < 1 ↔ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁)) < ((𝐸 Β· 𝐸) Β· 1)))
205201, 204mpbid 231 . . . . . . . . . 10 (πœ‘ β†’ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁)) < ((𝐸 Β· 𝐸) Β· 1))
206176, 176mulcld 11230 . . . . . . . . . . 11 (πœ‘ β†’ (𝐸 Β· 𝐸) ∈ β„‚)
207206mulridd 11227 . . . . . . . . . 10 (πœ‘ β†’ ((𝐸 Β· 𝐸) Β· 1) = (𝐸 Β· 𝐸))
208205, 207breqtrd 5173 . . . . . . . . 9 (πœ‘ β†’ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁)) < (𝐸 Β· 𝐸))
209159, 156, 155, 208ltsub2dd 11823 . . . . . . . 8 (πœ‘ β†’ ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ (𝐸 Β· 𝐸)) < ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁))))
210114, 157, 160, 185, 209lttrd 11371 . . . . . . 7 (πœ‘ β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁))))
211176, 198, 199divcld 11986 . . . . . . . . . . 11 (πœ‘ β†’ (𝐸 / 𝑁) ∈ β„‚)
212175, 211, 180subdird 11667 . . . . . . . . . 10 (πœ‘ β†’ ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)) = ((1 Β· (𝐿 βˆ’ 1)) βˆ’ ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1))))
213180mullidd 11228 . . . . . . . . . . 11 (πœ‘ β†’ (1 Β· (𝐿 βˆ’ 1)) = (𝐿 βˆ’ 1))
214213oveq1d 7420 . . . . . . . . . 10 (πœ‘ β†’ ((1 Β· (𝐿 βˆ’ 1)) βˆ’ ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1))) = ((𝐿 βˆ’ 1) βˆ’ ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1))))
215212, 214eqtrd 2772 . . . . . . . . 9 (πœ‘ β†’ ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)) = ((𝐿 βˆ’ 1) βˆ’ ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1))))
216215oveq2d 7421 . . . . . . . 8 (πœ‘ β†’ (𝐸 Β· ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1))) = (𝐸 Β· ((𝐿 βˆ’ 1) βˆ’ ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1)))))
217211, 180mulcld 11230 . . . . . . . . 9 (πœ‘ β†’ ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1)) ∈ β„‚)
218176, 180, 217subdid 11666 . . . . . . . 8 (πœ‘ β†’ (𝐸 Β· ((𝐿 βˆ’ 1) βˆ’ ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1)))) = ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ (𝐸 Β· ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1)))))
219176, 198, 180, 199div32d 12009 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1)) = (𝐸 Β· ((𝐿 βˆ’ 1) / 𝑁)))
220219oveq2d 7421 . . . . . . . . . 10 (πœ‘ β†’ (𝐸 Β· ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1))) = (𝐸 Β· (𝐸 Β· ((𝐿 βˆ’ 1) / 𝑁))))
221180, 198, 199divcld 11986 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐿 βˆ’ 1) / 𝑁) ∈ β„‚)
222176, 176, 221mulassd 11233 . . . . . . . . . 10 (πœ‘ β†’ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁)) = (𝐸 Β· (𝐸 Β· ((𝐿 βˆ’ 1) / 𝑁))))
223220, 222eqtr4d 2775 . . . . . . . . 9 (πœ‘ β†’ (𝐸 Β· ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1))) = ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁)))
224223oveq2d 7421 . . . . . . . 8 (πœ‘ β†’ ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ (𝐸 Β· ((𝐸 / 𝑁) Β· (𝐿 βˆ’ 1)))) = ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁))))
225216, 218, 2243eqtrd 2776 . . . . . . 7 (πœ‘ β†’ (𝐸 Β· ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1))) = ((𝐸 Β· (𝐿 βˆ’ 1)) βˆ’ ((𝐸 Β· 𝐸) Β· ((𝐿 βˆ’ 1) / 𝑁))))
226210, 225breqtrrd 5175 . . . . . 6 (πœ‘ β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < (𝐸 Β· ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1))))
227226adantr 481 . . . . 5 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < (𝐸 Β· ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1))))
228175, 211subcld 11567 . . . . . . . . . 10 (πœ‘ β†’ (1 βˆ’ (𝐸 / 𝑁)) ∈ β„‚)
229 fsumconst 15732 . . . . . . . . . 10 (((0...(𝐿 βˆ’ 2)) ∈ Fin ∧ (1 βˆ’ (𝐸 / 𝑁)) ∈ β„‚) β†’ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(1 βˆ’ (𝐸 / 𝑁)) = ((β™―β€˜(0...(𝐿 βˆ’ 2))) Β· (1 βˆ’ (𝐸 / 𝑁))))
230124, 228, 229syl2anc 584 . . . . . . . . 9 (πœ‘ β†’ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(1 βˆ’ (𝐸 / 𝑁)) = ((β™―β€˜(0...(𝐿 βˆ’ 2))) Β· (1 βˆ’ (𝐸 / 𝑁))))
231230adantr 481 . . . . . . . 8 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(1 βˆ’ (𝐸 / 𝑁)) = ((β™―β€˜(0...(𝐿 βˆ’ 2))) Β· (1 βˆ’ (𝐸 / 𝑁))))
232 0zd 12566 . . . . . . . . . . . . 13 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 0 ∈ β„€)
23331adantr 481 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 𝐿 ∈ (1...𝑁))
234233elfzelzd 13498 . . . . . . . . . . . . . 14 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 𝐿 ∈ β„€)
235126a1i 11 . . . . . . . . . . . . . 14 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 2 ∈ β„€)
236234, 235zsubcld 12667 . . . . . . . . . . . . 13 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (𝐿 βˆ’ 2) ∈ β„€)
237 elnnuz 12862 . . . . . . . . . . . . . . . . . . . 20 (𝑁 ∈ β„• ↔ 𝑁 ∈ (β„€β‰₯β€˜1))
238117, 237sylib 217 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑁 ∈ (β„€β‰₯β€˜1))
239 elfzp12 13576 . . . . . . . . . . . . . . . . . . 19 (𝑁 ∈ (β„€β‰₯β€˜1) β†’ (𝐿 ∈ (1...𝑁) ↔ (𝐿 = 1 ∨ 𝐿 ∈ ((1 + 1)...𝑁))))
240238, 239syl 17 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (𝐿 ∈ (1...𝑁) ↔ (𝐿 = 1 ∨ 𝐿 ∈ ((1 + 1)...𝑁))))
24131, 240mpbid 231 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝐿 = 1 ∨ 𝐿 ∈ ((1 + 1)...𝑁)))
242241orcanai 1001 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 𝐿 ∈ ((1 + 1)...𝑁))
243 1p1e2 12333 . . . . . . . . . . . . . . . . . 18 (1 + 1) = 2
244243a1i 11 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (1 + 1) = 2)
245244oveq1d 7420 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((1 + 1)...𝑁) = (2...𝑁))
246242, 245eleqtrd 2835 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 𝐿 ∈ (2...𝑁))
247 elfzle1 13500 . . . . . . . . . . . . . . 15 (𝐿 ∈ (2...𝑁) β†’ 2 ≀ 𝐿)
248246, 247syl 17 . . . . . . . . . . . . . 14 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 2 ≀ 𝐿)
249108adantr 481 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 𝐿 ∈ ℝ)
250131a1i 11 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 2 ∈ ℝ)
251249, 250subge0d 11800 . . . . . . . . . . . . . 14 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (0 ≀ (𝐿 βˆ’ 2) ↔ 2 ≀ 𝐿))
252248, 251mpbird 256 . . . . . . . . . . . . 13 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 0 ≀ (𝐿 βˆ’ 2))
253232, 236, 2523jca 1128 . . . . . . . . . . . 12 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (0 ∈ β„€ ∧ (𝐿 βˆ’ 2) ∈ β„€ ∧ 0 ≀ (𝐿 βˆ’ 2)))
254 eluz2 12824 . . . . . . . . . . . 12 ((𝐿 βˆ’ 2) ∈ (β„€β‰₯β€˜0) ↔ (0 ∈ β„€ ∧ (𝐿 βˆ’ 2) ∈ β„€ ∧ 0 ≀ (𝐿 βˆ’ 2)))
255253, 254sylibr 233 . . . . . . . . . . 11 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (𝐿 βˆ’ 2) ∈ (β„€β‰₯β€˜0))
256 hashfz 14383 . . . . . . . . . . 11 ((𝐿 βˆ’ 2) ∈ (β„€β‰₯β€˜0) β†’ (β™―β€˜(0...(𝐿 βˆ’ 2))) = (((𝐿 βˆ’ 2) βˆ’ 0) + 1))
257255, 256syl 17 . . . . . . . . . 10 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (β™―β€˜(0...(𝐿 βˆ’ 2))) = (((𝐿 βˆ’ 2) βˆ’ 0) + 1))
258 2cn 12283 . . . . . . . . . . . . . . . 16 2 ∈ β„‚
259258a1i 11 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 2 ∈ β„‚)
260139, 259subcld 11567 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝐿 βˆ’ 2) ∈ β„‚)
261260subid1d 11556 . . . . . . . . . . . . 13 (πœ‘ β†’ ((𝐿 βˆ’ 2) βˆ’ 0) = (𝐿 βˆ’ 2))
262261oveq1d 7420 . . . . . . . . . . . 12 (πœ‘ β†’ (((𝐿 βˆ’ 2) βˆ’ 0) + 1) = ((𝐿 βˆ’ 2) + 1))
263139, 259, 175subadd23d 11589 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝐿 βˆ’ 2) + 1) = (𝐿 + (1 βˆ’ 2)))
264258, 167negsubdi2i 11542 . . . . . . . . . . . . . . . 16 -(2 βˆ’ 1) = (1 βˆ’ 2)
265 2m1e1 12334 . . . . . . . . . . . . . . . . 17 (2 βˆ’ 1) = 1
266265negeqi 11449 . . . . . . . . . . . . . . . 16 -(2 βˆ’ 1) = -1
267264, 266eqtr3i 2762 . . . . . . . . . . . . . . 15 (1 βˆ’ 2) = -1
268267a1i 11 . . . . . . . . . . . . . 14 (πœ‘ β†’ (1 βˆ’ 2) = -1)
269268oveq2d 7421 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐿 + (1 βˆ’ 2)) = (𝐿 + -1))
270139, 175negsubd 11573 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐿 + -1) = (𝐿 βˆ’ 1))
271269, 270eqtrd 2772 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐿 + (1 βˆ’ 2)) = (𝐿 βˆ’ 1))
272262, 263, 2713eqtrd 2776 . . . . . . . . . . 11 (πœ‘ β†’ (((𝐿 βˆ’ 2) βˆ’ 0) + 1) = (𝐿 βˆ’ 1))
273272adantr 481 . . . . . . . . . 10 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (((𝐿 βˆ’ 2) βˆ’ 0) + 1) = (𝐿 βˆ’ 1))
274257, 273eqtrd 2772 . . . . . . . . 9 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (β™―β€˜(0...(𝐿 βˆ’ 2))) = (𝐿 βˆ’ 1))
275274oveq1d 7420 . . . . . . . 8 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((β™―β€˜(0...(𝐿 βˆ’ 2))) Β· (1 βˆ’ (𝐸 / 𝑁))) = ((𝐿 βˆ’ 1) Β· (1 βˆ’ (𝐸 / 𝑁))))
276180, 228mulcomd 11231 . . . . . . . . 9 (πœ‘ β†’ ((𝐿 βˆ’ 1) Β· (1 βˆ’ (𝐸 / 𝑁))) = ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)))
277276adantr 481 . . . . . . . 8 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((𝐿 βˆ’ 1) Β· (1 βˆ’ (𝐸 / 𝑁))) = ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)))
278231, 275, 2773eqtrd 2776 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(1 βˆ’ (𝐸 / 𝑁)) = ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)))
279 fzfid 13934 . . . . . . . 8 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (0...(𝐿 βˆ’ 2)) ∈ Fin)
280 fzn0 13511 . . . . . . . . 9 ((0...(𝐿 βˆ’ 2)) β‰  βˆ… ↔ (𝐿 βˆ’ 2) ∈ (β„€β‰₯β€˜0))
281255, 280sylibr 233 . . . . . . . 8 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (0...(𝐿 βˆ’ 2)) β‰  βˆ…)
282119ad2antrr 724 . . . . . . . 8 (((πœ‘ ∧ Β¬ 𝐿 = 1) ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (1 βˆ’ (𝐸 / 𝑁)) ∈ ℝ)
283 simpll 765 . . . . . . . . 9 (((πœ‘ ∧ Β¬ 𝐿 = 1) ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ πœ‘)
284150adantlr 713 . . . . . . . . 9 (((πœ‘ ∧ Β¬ 𝐿 = 1) ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑖 ∈ (0...𝑁))
285283, 284, 51syl2anc 584 . . . . . . . 8 (((πœ‘ ∧ Β¬ 𝐿 = 1) ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ ((π‘‹β€˜π‘–)β€˜π‘†) ∈ ℝ)
28649adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑆 ∈ 𝑇)
287 elfzelz 13497 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (0...(𝐿 βˆ’ 2)) β†’ 𝑖 ∈ β„€)
288287zred 12662 . . . . . . . . . . . . . . . 16 (𝑖 ∈ (0...(𝐿 βˆ’ 2)) β†’ 𝑖 ∈ ℝ)
289288adantl 482 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑖 ∈ ℝ)
290163a1i 11 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (1 / 3) ∈ ℝ)
291289, 290readdcld 11239 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝑖 + (1 / 3)) ∈ ℝ)
29214adantr 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝐸 ∈ ℝ)
293291, 292remulcld 11240 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ ((𝑖 + (1 / 3)) Β· 𝐸) ∈ ℝ)
294108adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝐿 ∈ ℝ)
295131a1i 11 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ 2 ∈ ℝ)
296294, 295resubcld 11638 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐿 βˆ’ 2) ∈ ℝ)
297296, 290readdcld 11239 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ ((𝐿 βˆ’ 2) + (1 / 3)) ∈ ℝ)
298297, 292remulcld 11240 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (((𝐿 βˆ’ 2) + (1 / 3)) Β· 𝐸) ∈ ℝ)
299 stoweidlem26.10 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝐹:π‘‡βŸΆβ„)
300299, 49jca 512 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐹:π‘‡βŸΆβ„ ∧ 𝑆 ∈ 𝑇))
301300adantr 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐹:π‘‡βŸΆβ„ ∧ 𝑆 ∈ 𝑇))
302 ffvelcdm 7080 . . . . . . . . . . . . . 14 ((𝐹:π‘‡βŸΆβ„ ∧ 𝑆 ∈ 𝑇) β†’ (πΉβ€˜π‘†) ∈ ℝ)
303301, 302syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (πΉβ€˜π‘†) ∈ ℝ)
304 elfzle2 13501 . . . . . . . . . . . . . . . 16 (𝑖 ∈ (0...(𝐿 βˆ’ 2)) β†’ 𝑖 ≀ (𝐿 βˆ’ 2))
305304adantl 482 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑖 ≀ (𝐿 βˆ’ 2))
306289, 296, 290, 305leadd1dd 11824 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝑖 + (1 / 3)) ≀ ((𝐿 βˆ’ 2) + (1 / 3)))
30714, 72jca 512 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝐸 ∈ ℝ ∧ 0 < 𝐸))
308307adantr 481 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐸 ∈ ℝ ∧ 0 < 𝐸))
309 lemul1 12062 . . . . . . . . . . . . . . 15 (((𝑖 + (1 / 3)) ∈ ℝ ∧ ((𝐿 βˆ’ 2) + (1 / 3)) ∈ ℝ ∧ (𝐸 ∈ ℝ ∧ 0 < 𝐸)) β†’ ((𝑖 + (1 / 3)) ≀ ((𝐿 βˆ’ 2) + (1 / 3)) ↔ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (((𝐿 βˆ’ 2) + (1 / 3)) Β· 𝐸)))
310291, 297, 308, 309syl3anc 1371 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ ((𝑖 + (1 / 3)) ≀ ((𝐿 βˆ’ 2) + (1 / 3)) ↔ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (((𝐿 βˆ’ 2) + (1 / 3)) Β· 𝐸)))
311306, 310mpbid 231 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (((𝐿 βˆ’ 2) + (1 / 3)) Β· 𝐸))
312108, 132resubcld 11638 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝐿 βˆ’ 2) ∈ ℝ)
313312, 164readdcld 11239 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((𝐿 βˆ’ 2) + (1 / 3)) ∈ ℝ)
314313, 14remulcld 11240 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (((𝐿 βˆ’ 2) + (1 / 3)) Β· 𝐸) ∈ ℝ)
315299, 49ffvelcdmd 7084 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (πΉβ€˜π‘†) ∈ ℝ)
316120, 164resubcld 11638 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((𝐿 βˆ’ 1) βˆ’ (1 / 3)) ∈ ℝ)
317316, 14remulcld 11240 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∈ ℝ)
318 addrid 11390 . . . . . . . . . . . . . . . . . . . . . . . . 25 (1 ∈ β„‚ β†’ (1 + 0) = 1)
319318eqcomd 2738 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 ∈ β„‚ β†’ 1 = (1 + 0))
320167, 319mp1i 13 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ 1 = (1 + 0))
321175subidd 11555 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ (1 βˆ’ 1) = 0)
322321eqcomd 2738 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ 0 = (1 βˆ’ 1))
323322oveq2d 7421 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ (1 + 0) = (1 + (1 βˆ’ 1)))
324 addsubass 11466 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((1 ∈ β„‚ ∧ 1 ∈ β„‚ ∧ 1 ∈ β„‚) β†’ ((1 + 1) βˆ’ 1) = (1 + (1 βˆ’ 1)))
325324eqcomd 2738 . . . . . . . . . . . . . . . . . . . . . . . 24 ((1 ∈ β„‚ ∧ 1 ∈ β„‚ ∧ 1 ∈ β„‚) β†’ (1 + (1 βˆ’ 1)) = ((1 + 1) βˆ’ 1))
326175, 175, 175, 325syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ (1 + (1 βˆ’ 1)) = ((1 + 1) βˆ’ 1))
327320, 323, 3263eqtrd 2776 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ 1 = ((1 + 1) βˆ’ 1))
328327oveq2d 7421 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (𝐿 βˆ’ 1) = (𝐿 βˆ’ ((1 + 1) βˆ’ 1)))
329243a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ (1 + 1) = 2)
330329oveq1d 7420 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ ((1 + 1) βˆ’ 1) = (2 βˆ’ 1))
331330oveq2d 7421 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (𝐿 βˆ’ ((1 + 1) βˆ’ 1)) = (𝐿 βˆ’ (2 βˆ’ 1)))
332139, 259, 175subsubd 11595 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (𝐿 βˆ’ (2 βˆ’ 1)) = ((𝐿 βˆ’ 2) + 1))
333328, 331, 3323eqtrd 2776 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝐿 βˆ’ 1) = ((𝐿 βˆ’ 2) + 1))
334333oveq1d 7420 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((𝐿 βˆ’ 1) βˆ’ (2 / 3)) = (((𝐿 βˆ’ 2) + 1) βˆ’ (2 / 3)))
335258, 60, 9divcli 11952 . . . . . . . . . . . . . . . . . . . . 21 (2 / 3) ∈ β„‚
336335a1i 11 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (2 / 3) ∈ β„‚)
337260, 175, 336addsubassd 11587 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (((𝐿 βˆ’ 2) + 1) βˆ’ (2 / 3)) = ((𝐿 βˆ’ 2) + (1 βˆ’ (2 / 3))))
338167, 60, 9divcli 11952 . . . . . . . . . . . . . . . . . . . . . 22 (1 / 3) ∈ β„‚
339 df-3 12272 . . . . . . . . . . . . . . . . . . . . . . . 24 3 = (2 + 1)
340339oveq1i 7415 . . . . . . . . . . . . . . . . . . . . . . 23 (3 / 3) = ((2 + 1) / 3)
341258, 167, 60, 9divdiri 11967 . . . . . . . . . . . . . . . . . . . . . . 23 ((2 + 1) / 3) = ((2 / 3) + (1 / 3))
342340, 61, 3413eqtr3ri 2769 . . . . . . . . . . . . . . . . . . . . . 22 ((2 / 3) + (1 / 3)) = 1
343167, 335, 338, 342subaddrii 11545 . . . . . . . . . . . . . . . . . . . . 21 (1 βˆ’ (2 / 3)) = (1 / 3)
344343a1i 11 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (1 βˆ’ (2 / 3)) = (1 / 3))
345344oveq2d 7421 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((𝐿 βˆ’ 2) + (1 βˆ’ (2 / 3))) = ((𝐿 βˆ’ 2) + (1 / 3)))
346334, 337, 3453eqtrd 2776 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ ((𝐿 βˆ’ 1) βˆ’ (2 / 3)) = ((𝐿 βˆ’ 2) + (1 / 3)))
347131, 7, 9redivcli 11977 . . . . . . . . . . . . . . . . . . . 20 (2 / 3) ∈ ℝ
348347a1i 11 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (2 / 3) ∈ ℝ)
349 1lt2 12379 . . . . . . . . . . . . . . . . . . . 20 1 < 2
3507, 63pm3.2i 471 . . . . . . . . . . . . . . . . . . . . . 22 (3 ∈ ℝ ∧ 0 < 3)
3511, 131, 3503pm3.2i 1339 . . . . . . . . . . . . . . . . . . . . 21 (1 ∈ ℝ ∧ 2 ∈ ℝ ∧ (3 ∈ ℝ ∧ 0 < 3))
352 ltdiv1 12074 . . . . . . . . . . . . . . . . . . . . 21 ((1 ∈ ℝ ∧ 2 ∈ ℝ ∧ (3 ∈ ℝ ∧ 0 < 3)) β†’ (1 < 2 ↔ (1 / 3) < (2 / 3)))
353351, 352mp1i 13 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (1 < 2 ↔ (1 / 3) < (2 / 3)))
354349, 353mpbii 232 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (1 / 3) < (2 / 3))
355164, 348, 120, 354ltsub2dd 11823 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ ((𝐿 βˆ’ 1) βˆ’ (2 / 3)) < ((𝐿 βˆ’ 1) βˆ’ (1 / 3)))
356346, 355eqbrtrrd 5171 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((𝐿 βˆ’ 2) + (1 / 3)) < ((𝐿 βˆ’ 1) βˆ’ (1 / 3)))
357313, 316, 13, 356ltmul1dd 13067 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (((𝐿 βˆ’ 2) + (1 / 3)) Β· 𝐸) < (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸))
35823simprd 496 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ Β¬ 𝑆 ∈ (π·β€˜(𝐿 βˆ’ 1)))
359 oveq1 7412 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑗 = (𝐿 βˆ’ 1) β†’ (𝑗 βˆ’ (1 / 3)) = ((𝐿 βˆ’ 1) βˆ’ (1 / 3)))
360359oveq1d 7420 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑗 = (𝐿 βˆ’ 1) β†’ ((𝑗 βˆ’ (1 / 3)) Β· 𝐸) = (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸))
361360breq2d 5159 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 = (𝐿 βˆ’ 1) β†’ ((πΉβ€˜π‘‘) ≀ ((𝑗 βˆ’ (1 / 3)) Β· 𝐸) ↔ (πΉβ€˜π‘‘) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)))
362361rabbidv 3440 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 = (𝐿 βˆ’ 1) β†’ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ ((𝑗 βˆ’ (1 / 3)) Β· 𝐸)} = {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)})
363129peano2zd 12665 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ (𝑁 + 1) ∈ β„€)
364189simpld 495 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ 1 ≀ 𝐿)
365134, 116readdcld 11239 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ (𝑁 + 1) ∈ ℝ)
366134lep1d 12141 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ 𝑁 ≀ (𝑁 + 1))
367108, 134, 365, 190, 366letrd 11367 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ 𝐿 ≀ (𝑁 + 1))
368186, 363, 125, 364, 367elfzd 13488 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ 𝐿 ∈ (1...(𝑁 + 1)))
369139, 175npcand 11571 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ ((𝐿 βˆ’ 1) + 1) = 𝐿)
370 0p1e1 12330 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (0 + 1) = 1
371370a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ (0 + 1) = 1)
372371oveq1d 7420 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ ((0 + 1)...(𝑁 + 1)) = (1...(𝑁 + 1)))
373368, 369, 3723eltr4d 2848 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ ((𝐿 βˆ’ 1) + 1) ∈ ((0 + 1)...(𝑁 + 1)))
374 0zd 12566 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ 0 ∈ β„€)
375125, 186zsubcld 12667 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (πœ‘ β†’ (𝐿 βˆ’ 1) ∈ β„€)
376 fzaddel 13531 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((0 ∈ β„€ ∧ 𝑁 ∈ β„€) ∧ ((𝐿 βˆ’ 1) ∈ β„€ ∧ 1 ∈ β„€)) β†’ ((𝐿 βˆ’ 1) ∈ (0...𝑁) ↔ ((𝐿 βˆ’ 1) + 1) ∈ ((0 + 1)...(𝑁 + 1))))
377374, 129, 375, 186, 376syl22anc 837 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ ((𝐿 βˆ’ 1) ∈ (0...𝑁) ↔ ((𝐿 βˆ’ 1) + 1) ∈ ((0 + 1)...(𝑁 + 1))))
378373, 377mpbird 256 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ (𝐿 βˆ’ 1) ∈ (0...𝑁))
379 rabexg 5330 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑇 ∈ V β†’ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)} ∈ V)
38033, 379syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)} ∈ V)
38125, 362, 378, 380fvmptd3 7018 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ (π·β€˜(𝐿 βˆ’ 1)) = {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)})
382358, 381neleqtrd 2855 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ Β¬ 𝑆 ∈ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)})
383 nfcv 2903 . . . . . . . . . . . . . . . . . . . . . . . 24 Ⅎ𝑑(((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)
38441, 42, 383nfbr 5194 . . . . . . . . . . . . . . . . . . . . . . 23 Ⅎ𝑑(πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)
38545breq1d 5157 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑑 = 𝑆 β†’ ((πΉβ€˜π‘‘) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ↔ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)))
38638, 39, 384, 385elrabf 3678 . . . . . . . . . . . . . . . . . . . . . 22 (𝑆 ∈ {𝑑 ∈ 𝑇 ∣ (πΉβ€˜π‘‘) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)} ↔ (𝑆 ∈ 𝑇 ∧ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)))
387382, 386sylnib 327 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ Β¬ (𝑆 ∈ 𝑇 ∧ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)))
388 ianor 980 . . . . . . . . . . . . . . . . . . . . 21 (Β¬ (𝑆 ∈ 𝑇 ∧ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)) ↔ (Β¬ 𝑆 ∈ 𝑇 ∨ Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)))
389387, 388sylib 217 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (Β¬ 𝑆 ∈ 𝑇 ∨ Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)))
390 olc 866 . . . . . . . . . . . . . . . . . . . . 21 (𝑆 ∈ 𝑇 β†’ (Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ 𝑆 ∈ 𝑇))
391390anim1i 615 . . . . . . . . . . . . . . . . . . . 20 ((𝑆 ∈ 𝑇 ∧ (Β¬ 𝑆 ∈ 𝑇 ∨ Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸))) β†’ ((Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ 𝑆 ∈ 𝑇) ∧ (Β¬ 𝑆 ∈ 𝑇 ∨ Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸))))
39249, 389, 391syl2anc 584 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ 𝑆 ∈ 𝑇) ∧ (Β¬ 𝑆 ∈ 𝑇 ∨ Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸))))
393 orcom 868 . . . . . . . . . . . . . . . . . . . 20 ((Β¬ 𝑆 ∈ 𝑇 ∨ Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)) ↔ (Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ Β¬ 𝑆 ∈ 𝑇))
394393anbi2i 623 . . . . . . . . . . . . . . . . . . 19 (((Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ 𝑆 ∈ 𝑇) ∧ (Β¬ 𝑆 ∈ 𝑇 ∨ Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸))) ↔ ((Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ 𝑆 ∈ 𝑇) ∧ (Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ Β¬ 𝑆 ∈ 𝑇)))
395392, 394sylib 217 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ ((Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ 𝑆 ∈ 𝑇) ∧ (Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ Β¬ 𝑆 ∈ 𝑇)))
396 pm4.43 1021 . . . . . . . . . . . . . . . . . 18 (Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ↔ ((Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ 𝑆 ∈ 𝑇) ∧ (Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) ∨ Β¬ 𝑆 ∈ 𝑇)))
397395, 396sylibr 233 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸))
398317, 315ltnled 11357 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) < (πΉβ€˜π‘†) ↔ Β¬ (πΉβ€˜π‘†) ≀ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸)))
399397, 398mpbird 256 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (((𝐿 βˆ’ 1) βˆ’ (1 / 3)) Β· 𝐸) < (πΉβ€˜π‘†))
400314, 317, 315, 357, 399lttrd 11371 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (((𝐿 βˆ’ 2) + (1 / 3)) Β· 𝐸) < (πΉβ€˜π‘†))
401314, 315, 400ltled 11358 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((𝐿 βˆ’ 2) + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘†))
402401adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (((𝐿 βˆ’ 2) + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘†))
403293, 298, 303, 311, 402letrd 11367 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘†))
404 nfcv 2903 . . . . . . . . . . . . . 14 Ⅎ𝑑((𝑖 + (1 / 3)) Β· 𝐸)
405404, 42, 41nfbr 5194 . . . . . . . . . . . . 13 Ⅎ𝑑((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘†)
40645breq2d 5159 . . . . . . . . . . . . 13 (𝑑 = 𝑆 β†’ (((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘) ↔ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘†)))
40738, 39, 405, 406elrabf 3678 . . . . . . . . . . . 12 (𝑆 ∈ {𝑑 ∈ 𝑇 ∣ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)} ↔ (𝑆 ∈ 𝑇 ∧ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘†)))
408286, 403, 407sylanbrc 583 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑆 ∈ {𝑑 ∈ 𝑇 ∣ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)})
409 stoweidlem26.5 . . . . . . . . . . . 12 𝐡 = (𝑗 ∈ (0...𝑁) ↦ {𝑑 ∈ 𝑇 ∣ ((𝑗 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)})
410 oveq1 7412 . . . . . . . . . . . . . . 15 (𝑗 = 𝑖 β†’ (𝑗 + (1 / 3)) = (𝑖 + (1 / 3)))
411410oveq1d 7420 . . . . . . . . . . . . . 14 (𝑗 = 𝑖 β†’ ((𝑗 + (1 / 3)) Β· 𝐸) = ((𝑖 + (1 / 3)) Β· 𝐸))
412411breq1d 5157 . . . . . . . . . . . . 13 (𝑗 = 𝑖 β†’ (((𝑗 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘) ↔ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)))
413412rabbidv 3440 . . . . . . . . . . . 12 (𝑗 = 𝑖 β†’ {𝑑 ∈ 𝑇 ∣ ((𝑗 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)} = {𝑑 ∈ 𝑇 ∣ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)})
414 rabexg 5330 . . . . . . . . . . . . . 14 (𝑇 ∈ V β†’ {𝑑 ∈ 𝑇 ∣ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)} ∈ V)
41533, 414syl 17 . . . . . . . . . . . . 13 (πœ‘ β†’ {𝑑 ∈ 𝑇 ∣ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)} ∈ V)
416415adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ {𝑑 ∈ 𝑇 ∣ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)} ∈ V)
417409, 413, 150, 416fvmptd3 7018 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (π΅β€˜π‘–) = {𝑑 ∈ 𝑇 ∣ ((𝑖 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)})
418408, 417eleqtrrd 2836 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑆 ∈ (π΅β€˜π‘–))
4191453ad2ant1 1133 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2)) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ ((𝐿 βˆ’ 2) ∈ β„€ ∧ 𝑁 ∈ β„€ ∧ (𝐿 βˆ’ 2) ≀ 𝑁))
420419, 146sylibr 233 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2)) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ 𝑁 ∈ (β„€β‰₯β€˜(𝐿 βˆ’ 2)))
421420, 148syl 17 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2)) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ (0...(𝐿 βˆ’ 2)) βŠ† (0...𝑁))
422 simp2 1137 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2)) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ 𝑖 ∈ (0...(𝐿 βˆ’ 2)))
423421, 422sseldd 3982 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2)) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ 𝑖 ∈ (0...𝑁))
424 elex 3492 . . . . . . . . . . . . 13 (𝑆 ∈ (π΅β€˜π‘–) β†’ 𝑆 ∈ V)
4254243ad2ant3 1135 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ 𝑆 ∈ V)
426 nfcv 2903 . . . . . . . . . . . . . . . . . . 19 Ⅎ𝑑(0...𝑁)
427 nfrab1 3451 . . . . . . . . . . . . . . . . . . 19 Ⅎ𝑑{𝑑 ∈ 𝑇 ∣ ((𝑗 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)}
428426, 427nfmpt 5254 . . . . . . . . . . . . . . . . . 18 Ⅎ𝑑(𝑗 ∈ (0...𝑁) ↦ {𝑑 ∈ 𝑇 ∣ ((𝑗 + (1 / 3)) Β· 𝐸) ≀ (πΉβ€˜π‘‘)})
429409, 428nfcxfr 2901 . . . . . . . . . . . . . . . . 17 Ⅎ𝑑𝐡
430 nfcv 2903 . . . . . . . . . . . . . . . . 17 Ⅎ𝑑𝑖
431429, 430nffv 6898 . . . . . . . . . . . . . . . 16 Ⅎ𝑑(π΅β€˜π‘–)
432431nfel2 2921 . . . . . . . . . . . . . . 15 Ⅎ𝑑 𝑆 ∈ (π΅β€˜π‘–)
43388, 89, 432nf3an 1904 . . . . . . . . . . . . . 14 Ⅎ𝑑(πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑆 ∈ (π΅β€˜π‘–))
434 nfv 1917 . . . . . . . . . . . . . 14 Ⅎ𝑑(1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘†)
435433, 434nfim 1899 . . . . . . . . . . . . 13 Ⅎ𝑑((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘†))
436 eleq1 2821 . . . . . . . . . . . . . . 15 (𝑑 = 𝑆 β†’ (𝑑 ∈ (π΅β€˜π‘–) ↔ 𝑆 ∈ (π΅β€˜π‘–)))
4374363anbi3d 1442 . . . . . . . . . . . . . 14 (𝑑 = 𝑆 β†’ ((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑑 ∈ (π΅β€˜π‘–)) ↔ (πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑆 ∈ (π΅β€˜π‘–))))
43893breq2d 5159 . . . . . . . . . . . . . 14 (𝑑 = 𝑆 β†’ ((1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘‘) ↔ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘†)))
439437, 438imbi12d 344 . . . . . . . . . . . . 13 (𝑑 = 𝑆 β†’ (((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑑 ∈ (π΅β€˜π‘–)) β†’ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘‘)) ↔ ((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘†))))
440 stoweidlem26.15 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑑 ∈ (π΅β€˜π‘–)) β†’ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘‘))
441435, 439, 440vtoclg1f 3555 . . . . . . . . . . . 12 (𝑆 ∈ V β†’ ((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘†)))
442425, 441mpcom 38 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘†))
443423, 442syld3an2 1411 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2)) ∧ 𝑆 ∈ (π΅β€˜π‘–)) β†’ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘†))
444418, 443mpd3an3 1462 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘†))
445444adantlr 713 . . . . . . . 8 (((πœ‘ ∧ Β¬ 𝐿 = 1) ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (1 βˆ’ (𝐸 / 𝑁)) < ((π‘‹β€˜π‘–)β€˜π‘†))
446279, 281, 282, 285, 445fsumlt 15742 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(1 βˆ’ (𝐸 / 𝑁)) < Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†))
447278, 446eqbrtrrd 5171 . . . . . 6 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)) < Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†))
448121adantr 481 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)) ∈ ℝ)
449152adantr 481 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†) ∈ ℝ)
450307adantr 481 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (𝐸 ∈ ℝ ∧ 0 < 𝐸))
451 ltmul2 12061 . . . . . . 7 ((((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)) ∈ ℝ ∧ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†) ∈ ℝ ∧ (𝐸 ∈ ℝ ∧ 0 < 𝐸)) β†’ (((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)) < Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†) ↔ (𝐸 Β· ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1))) < (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†))))
452448, 449, 450, 451syl3anc 1371 . . . . . 6 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1)) < Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†) ↔ (𝐸 Β· ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1))) < (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†))))
453447, 452mpbid 231 . . . . 5 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (𝐸 Β· ((1 βˆ’ (𝐸 / 𝑁)) Β· (𝐿 βˆ’ 1))) < (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)))
454115, 123, 154, 227, 453lttrd 11371 . . . 4 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)))
455150, 52syldan 591 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
456455adantlr 713 . . . . . . . . 9 (((πœ‘ ∧ Β¬ 𝐿 = 1) ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
457456recnd 11238 . . . . . . . 8 (((πœ‘ ∧ Β¬ 𝐿 = 1) ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ β„‚)
458279, 457fsumcl 15675 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ β„‚)
459458addridd 11410 . . . . . 6 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) + 0) = Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
460 0red 11213 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 0 ∈ ℝ)
461 fzfid 13934 . . . . . . . 8 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((𝐿 βˆ’ 1)...𝑁) ∈ Fin)
46214adantr 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 𝐸 ∈ ℝ)
463 0zd 12566 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 0 ∈ β„€)
464129adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 𝑁 ∈ β„€)
465 elfzelz 13497 . . . . . . . . . . . . 13 (𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁) β†’ 𝑖 ∈ β„€)
466465adantl 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 𝑖 ∈ β„€)
467 0red 11213 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 0 ∈ ℝ)
468120adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ (𝐿 βˆ’ 1) ∈ ℝ)
469465zred 12662 . . . . . . . . . . . . . 14 (𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁) β†’ 𝑖 ∈ ℝ)
470469adantl 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 𝑖 ∈ ℝ)
471 1m1e0 12280 . . . . . . . . . . . . . . 15 (1 βˆ’ 1) = 0
472116, 108, 116, 364lesub1dd 11826 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (1 βˆ’ 1) ≀ (𝐿 βˆ’ 1))
473471, 472eqbrtrrid 5183 . . . . . . . . . . . . . 14 (πœ‘ β†’ 0 ≀ (𝐿 βˆ’ 1))
474473adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 0 ≀ (𝐿 βˆ’ 1))
475 simpr 485 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁))
476375adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ (𝐿 βˆ’ 1) ∈ β„€)
477 elfz 13486 . . . . . . . . . . . . . . . 16 ((𝑖 ∈ β„€ ∧ (𝐿 βˆ’ 1) ∈ β„€ ∧ 𝑁 ∈ β„€) β†’ (𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁) ↔ ((𝐿 βˆ’ 1) ≀ 𝑖 ∧ 𝑖 ≀ 𝑁)))
478466, 476, 464, 477syl3anc 1371 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ (𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁) ↔ ((𝐿 βˆ’ 1) ≀ 𝑖 ∧ 𝑖 ≀ 𝑁)))
479475, 478mpbid 231 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ ((𝐿 βˆ’ 1) ≀ 𝑖 ∧ 𝑖 ≀ 𝑁))
480479simpld 495 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ (𝐿 βˆ’ 1) ≀ 𝑖)
481467, 468, 470, 474, 480letrd 11367 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 0 ≀ 𝑖)
482 elfzle2 13501 . . . . . . . . . . . . 13 (𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁) β†’ 𝑖 ≀ 𝑁)
483482adantl 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 𝑖 ≀ 𝑁)
484463, 464, 466, 481, 483elfzd 13488 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 𝑖 ∈ (0...𝑁))
485484, 51syldan 591 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ ((π‘‹β€˜π‘–)β€˜π‘†) ∈ ℝ)
486462, 485remulcld 11240 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
487486adantlr 713 . . . . . . . 8 (((πœ‘ ∧ Β¬ 𝐿 = 1) ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
488461, 487fsumrecl 15676 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ Σ𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
489279, 456fsumrecl 15676 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ)
490 fzfid 13934 . . . . . . . . 9 (πœ‘ β†’ ((𝐿 βˆ’ 1)...𝑁) ∈ Fin)
491176adantr 481 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 𝐸 ∈ β„‚)
492491mul01d 11409 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ (𝐸 Β· 0) = 0)
493484, 100syldan 591 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 0 ≀ ((π‘‹β€˜π‘–)β€˜π‘†))
494307adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ (𝐸 ∈ ℝ ∧ 0 < 𝐸))
495 lemul2 12063 . . . . . . . . . . . 12 ((0 ∈ ℝ ∧ ((π‘‹β€˜π‘–)β€˜π‘†) ∈ ℝ ∧ (𝐸 ∈ ℝ ∧ 0 < 𝐸)) β†’ (0 ≀ ((π‘‹β€˜π‘–)β€˜π‘†) ↔ (𝐸 Β· 0) ≀ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†))))
496467, 485, 494, 495syl3anc 1371 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ (0 ≀ ((π‘‹β€˜π‘–)β€˜π‘†) ↔ (𝐸 Β· 0) ≀ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†))))
497493, 496mpbid 231 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ (𝐸 Β· 0) ≀ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
498492, 497eqbrtrrd 5171 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)) β†’ 0 ≀ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
499490, 486, 498fsumge0 15737 . . . . . . . 8 (πœ‘ β†’ 0 ≀ Σ𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
500499adantr 481 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ 0 ≀ Σ𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
501460, 488, 489, 500leadd2dd 11825 . . . . . 6 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) + 0) ≀ (Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) + Σ𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†))))
502459, 501eqbrtrrd 5171 . . . . 5 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ≀ (Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) + Σ𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†))))
503151recnd 11238 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0...(𝐿 βˆ’ 2))) β†’ ((π‘‹β€˜π‘–)β€˜π‘†) ∈ β„‚)
504124, 176, 503fsummulc2 15726 . . . . . 6 (πœ‘ β†’ (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) = Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
505504adantr 481 . . . . 5 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) = Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
506 stoweidlem26.2 . . . . . . . . 9 β„²π‘—πœ‘
507 elfzelz 13497 . . . . . . . . . . . . . . . 16 (𝑗 ∈ (0...(𝐿 βˆ’ 2)) β†’ 𝑗 ∈ β„€)
508507adantl 482 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑗 ∈ β„€)
509508zred 12662 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑗 ∈ ℝ)
510312adantr 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐿 βˆ’ 2) ∈ ℝ)
511120adantr 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐿 βˆ’ 1) ∈ ℝ)
512 simpr 485 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑗 ∈ (0...(𝐿 βˆ’ 2)))
513 0zd 12566 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ 0 ∈ β„€)
514128adantr 481 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐿 βˆ’ 2) ∈ β„€)
515 elfz 13486 . . . . . . . . . . . . . . . . 17 ((𝑗 ∈ β„€ ∧ 0 ∈ β„€ ∧ (𝐿 βˆ’ 2) ∈ β„€) β†’ (𝑗 ∈ (0...(𝐿 βˆ’ 2)) ↔ (0 ≀ 𝑗 ∧ 𝑗 ≀ (𝐿 βˆ’ 2))))
516508, 513, 514, 515syl3anc 1371 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝑗 ∈ (0...(𝐿 βˆ’ 2)) ↔ (0 ≀ 𝑗 ∧ 𝑗 ≀ (𝐿 βˆ’ 2))))
517512, 516mpbid 231 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ (0 ≀ 𝑗 ∧ 𝑗 ≀ (𝐿 βˆ’ 2)))
518517simprd 496 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑗 ≀ (𝐿 βˆ’ 2))
519116, 132, 108ltsub2d 11820 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (1 < 2 ↔ (𝐿 βˆ’ 2) < (𝐿 βˆ’ 1)))
520349, 519mpbii 232 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐿 βˆ’ 2) < (𝐿 βˆ’ 1))
521520adantr 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐿 βˆ’ 2) < (𝐿 βˆ’ 1))
522509, 510, 511, 518, 521lelttrd 11368 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑗 < (𝐿 βˆ’ 1))
523509, 511ltnled 11357 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝑗 < (𝐿 βˆ’ 1) ↔ Β¬ (𝐿 βˆ’ 1) ≀ 𝑗))
524522, 523mpbid 231 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ Β¬ (𝐿 βˆ’ 1) ≀ 𝑗)
525524intnanrd 490 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ Β¬ ((𝐿 βˆ’ 1) ≀ 𝑗 ∧ 𝑗 ≀ 𝑁))
526375adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝐿 βˆ’ 1) ∈ β„€)
527129adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ 𝑁 ∈ β„€)
528 elfz 13486 . . . . . . . . . . . 12 ((𝑗 ∈ β„€ ∧ (𝐿 βˆ’ 1) ∈ β„€ ∧ 𝑁 ∈ β„€) β†’ (𝑗 ∈ ((𝐿 βˆ’ 1)...𝑁) ↔ ((𝐿 βˆ’ 1) ≀ 𝑗 ∧ 𝑗 ≀ 𝑁)))
529508, 526, 527, 528syl3anc 1371 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ (𝑗 ∈ ((𝐿 βˆ’ 1)...𝑁) ↔ ((𝐿 βˆ’ 1) ≀ 𝑗 ∧ 𝑗 ≀ 𝑁)))
530525, 529mtbird 324 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0...(𝐿 βˆ’ 2))) β†’ Β¬ 𝑗 ∈ ((𝐿 βˆ’ 1)...𝑁))
531530ex 413 . . . . . . . . 9 (πœ‘ β†’ (𝑗 ∈ (0...(𝐿 βˆ’ 2)) β†’ Β¬ 𝑗 ∈ ((𝐿 βˆ’ 1)...𝑁)))
532506, 531ralrimi 3254 . . . . . . . 8 (πœ‘ β†’ βˆ€π‘— ∈ (0...(𝐿 βˆ’ 2)) Β¬ 𝑗 ∈ ((𝐿 βˆ’ 1)...𝑁))
533 disj 4446 . . . . . . . 8 (((0...(𝐿 βˆ’ 2)) ∩ ((𝐿 βˆ’ 1)...𝑁)) = βˆ… ↔ βˆ€π‘— ∈ (0...(𝐿 βˆ’ 2)) Β¬ 𝑗 ∈ ((𝐿 βˆ’ 1)...𝑁))
534532, 533sylibr 233 . . . . . . 7 (πœ‘ β†’ ((0...(𝐿 βˆ’ 2)) ∩ ((𝐿 βˆ’ 1)...𝑁)) = βˆ…)
535534adantr 481 . . . . . 6 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((0...(𝐿 βˆ’ 2)) ∩ ((𝐿 βˆ’ 1)...𝑁)) = βˆ…)
536144adantr 481 . . . . . . . . 9 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (𝐿 βˆ’ 2) ≀ 𝑁)
537128, 374, 1293jca 1128 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐿 βˆ’ 2) ∈ β„€ ∧ 0 ∈ β„€ ∧ 𝑁 ∈ β„€))
538537adantr 481 . . . . . . . . . 10 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((𝐿 βˆ’ 2) ∈ β„€ ∧ 0 ∈ β„€ ∧ 𝑁 ∈ β„€))
539 elfz 13486 . . . . . . . . . 10 (((𝐿 βˆ’ 2) ∈ β„€ ∧ 0 ∈ β„€ ∧ 𝑁 ∈ β„€) β†’ ((𝐿 βˆ’ 2) ∈ (0...𝑁) ↔ (0 ≀ (𝐿 βˆ’ 2) ∧ (𝐿 βˆ’ 2) ≀ 𝑁)))
540538, 539syl 17 . . . . . . . . 9 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((𝐿 βˆ’ 2) ∈ (0...𝑁) ↔ (0 ≀ (𝐿 βˆ’ 2) ∧ (𝐿 βˆ’ 2) ≀ 𝑁)))
541252, 536, 540mpbir2and 711 . . . . . . . 8 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (𝐿 βˆ’ 2) ∈ (0...𝑁))
542 fzsplit 13523 . . . . . . . 8 ((𝐿 βˆ’ 2) ∈ (0...𝑁) β†’ (0...𝑁) = ((0...(𝐿 βˆ’ 2)) βˆͺ (((𝐿 βˆ’ 2) + 1)...𝑁)))
543541, 542syl 17 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (0...𝑁) = ((0...(𝐿 βˆ’ 2)) βˆͺ (((𝐿 βˆ’ 2) + 1)...𝑁)))
544263, 269, 2703eqtrd 2776 . . . . . . . . . 10 (πœ‘ β†’ ((𝐿 βˆ’ 2) + 1) = (𝐿 βˆ’ 1))
545544oveq1d 7420 . . . . . . . . 9 (πœ‘ β†’ (((𝐿 βˆ’ 2) + 1)...𝑁) = ((𝐿 βˆ’ 1)...𝑁))
546545uneq2d 4162 . . . . . . . 8 (πœ‘ β†’ ((0...(𝐿 βˆ’ 2)) βˆͺ (((𝐿 βˆ’ 2) + 1)...𝑁)) = ((0...(𝐿 βˆ’ 2)) βˆͺ ((𝐿 βˆ’ 1)...𝑁)))
547546adantr 481 . . . . . . 7 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((0...(𝐿 βˆ’ 2)) βˆͺ (((𝐿 βˆ’ 2) + 1)...𝑁)) = ((0...(𝐿 βˆ’ 2)) βˆͺ ((𝐿 βˆ’ 1)...𝑁)))
548543, 547eqtrd 2772 . . . . . 6 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (0...𝑁) = ((0...(𝐿 βˆ’ 2)) βˆͺ ((𝐿 βˆ’ 1)...𝑁)))
549 fzfid 13934 . . . . . 6 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (0...𝑁) ∈ Fin)
550176adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ 𝐸 ∈ β„‚)
55151recnd 11238 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ ((π‘‹β€˜π‘–)β€˜π‘†) ∈ β„‚)
552550, 551mulcld 11230 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0...𝑁)) β†’ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ β„‚)
553552adantlr 713 . . . . . 6 (((πœ‘ ∧ Β¬ 𝐿 = 1) ∧ 𝑖 ∈ (0...𝑁)) β†’ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ β„‚)
554535, 548, 549, 553fsumsplit 15683 . . . . 5 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) = (Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) + Σ𝑖 ∈ ((𝐿 βˆ’ 1)...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†))))
555502, 505, 5543brtr4d 5179 . . . 4 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) ≀ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
556114, 153, 533jca 1128 . . . . . 6 (πœ‘ β†’ (((𝐿 βˆ’ (4 / 3)) Β· 𝐸) ∈ ℝ ∧ (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ ∧ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ))
557556adantr 481 . . . . 5 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ (((𝐿 βˆ’ (4 / 3)) Β· 𝐸) ∈ ℝ ∧ (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ ∧ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ))
558 ltletr 11302 . . . . 5 ((((𝐿 βˆ’ (4 / 3)) Β· 𝐸) ∈ ℝ ∧ (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ ∧ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ ℝ) β†’ ((((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) ∧ (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) ≀ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†))) β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†))))
559557, 558syl 17 . . . 4 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) ∧ (𝐸 Β· Σ𝑖 ∈ (0...(𝐿 βˆ’ 2))((π‘‹β€˜π‘–)β€˜π‘†)) ≀ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†))) β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†))))
560454, 555, 559mp2and 697 . . 3 ((πœ‘ ∧ Β¬ 𝐿 = 1) β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
561105, 560pm2.61dan 811 . 2 (πœ‘ β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
562 sumex 15630 . . 3 Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ V
56393oveq2d 7421 . . . . 5 (𝑑 = 𝑆 β†’ (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘‘)) = (𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
564563sumeq2sdv 15646 . . . 4 (𝑑 = 𝑆 β†’ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘‘)) = Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
565 eqid 2732 . . . 4 (𝑑 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘‘))) = (𝑑 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘‘)))
566564, 565fvmptg 6993 . . 3 ((𝑆 ∈ 𝑇 ∧ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)) ∈ V) β†’ ((𝑑 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘‘)))β€˜π‘†) = Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
56749, 562, 566sylancl 586 . 2 (πœ‘ β†’ ((𝑑 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘‘)))β€˜π‘†) = Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘†)))
568561, 567breqtrrd 5175 1 (πœ‘ β†’ ((𝐿 βˆ’ (4 / 3)) Β· 𝐸) < ((𝑑 ∈ 𝑇 ↦ Σ𝑖 ∈ (0...𝑁)(𝐸 Β· ((π‘‹β€˜π‘–)β€˜π‘‘)))β€˜π‘†))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 845   ∧ w3a 1087   = wceq 1541  β„²wnf 1785   ∈ wcel 2106  β„²wnfc 2883   β‰  wne 2940  βˆ€wral 3061  {crab 3432  Vcvv 3474   βˆ– cdif 3944   βˆͺ cun 3945   ∩ cin 3946   βŠ† wss 3947  βˆ…c0 4321   class class class wbr 5147   ↦ cmpt 5230  βŸΆwf 6536  β€˜cfv 6540  (class class class)co 7405  Fincfn 8935  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111   < clt 11244   ≀ cle 11245   βˆ’ cmin 11440  -cneg 11441   / cdiv 11867  β„•cn 12208  2c2 12263  3c3 12264  4c4 12265  β„•0cn0 12468  β„€cz 12554  β„€β‰₯cuz 12818  β„+crp 12970  ...cfz 13480  β™―chash 14286  Ξ£csu 15628
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-om 7852  df-1st 7971  df-2nd 7972  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8699  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-sup 9433  df-oi 9501  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-n0 12469  df-z 12555  df-uz 12819  df-rp 12971  df-ico 13326  df-fz 13481  df-fzo 13624  df-seq 13963  df-exp 14024  df-hash 14287  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-clim 15428  df-sum 15629
This theorem is referenced by:  stoweidlem34  44736
  Copyright terms: Public domain W3C validator