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

Theorem fourierdlem79 44888
Description: 𝐸 projects every interval of the partition induced by 𝑆 on 𝐻 into a corresponding interval of the partition induced by 𝑄 on [𝐴, 𝐡]. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem79.t 𝑇 = (𝐡 βˆ’ 𝐴)
fourierdlem79.p 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = 𝐴 ∧ (π‘β€˜π‘š) = 𝐡) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
fourierdlem79.m (πœ‘ β†’ 𝑀 ∈ β„•)
fourierdlem79.q (πœ‘ β†’ 𝑄 ∈ (π‘ƒβ€˜π‘€))
fourierdlem79.c (πœ‘ β†’ 𝐢 ∈ ℝ)
fourierdlem79.d (πœ‘ β†’ 𝐷 ∈ ℝ)
fourierdlem79.cltd (πœ‘ β†’ 𝐢 < 𝐷)
fourierdlem79.o 𝑂 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = 𝐢 ∧ (π‘β€˜π‘š) = 𝐷) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
fourierdlem79.h 𝐻 = ({𝐢, 𝐷} βˆͺ {π‘₯ ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄})
fourierdlem79.n 𝑁 = ((β™―β€˜π») βˆ’ 1)
fourierdlem79.s 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻))
fourierdlem79.e 𝐸 = (π‘₯ ∈ ℝ ↦ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇)))
fourierdlem79.l 𝐿 = (𝑦 ∈ (𝐴(,]𝐡) ↦ if(𝑦 = 𝐡, 𝐴, 𝑦))
fourierdlem79.z 𝑍 = ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)))
fourierdlem79.i 𝐼 = (π‘₯ ∈ ℝ ↦ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ))
Assertion
Ref Expression
fourierdlem79 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))))
Distinct variable groups:   𝐴,𝑖,𝑗,π‘₯   𝐴,π‘š,𝑝,𝑖   𝑦,𝐴,𝑗,π‘₯   𝐡,𝑓   𝐡,𝑖,π‘˜,π‘₯   𝐡,π‘š,𝑝   𝑦,𝐡   𝐢,𝑖,π‘š,𝑝   π‘₯,𝐢   𝐷,𝑖,π‘š,𝑝   π‘₯,𝐷   𝑓,𝐸   𝑖,𝐸,π‘˜,π‘₯   𝑦,𝐸   𝑓,𝐻   π‘₯,𝐻   𝑓,𝐼   𝑖,𝐼,π‘˜,π‘₯   𝑖,𝐿,π‘₯   𝑖,𝑀,𝑗,π‘₯   π‘š,𝑀,𝑝   𝑓,𝑁   𝑖,𝑁,π‘˜,π‘₯   π‘š,𝑁,𝑝   𝑦,𝑁   𝑄,𝑓,𝑗   𝑄,𝑖,π‘˜,π‘₯,𝑗   𝑄,𝑝   𝑆,𝑓   𝑆,𝑖,π‘˜,π‘₯   𝑆,𝑝   𝑦,𝑆   𝑇,𝑖,π‘˜,π‘₯   π‘˜,𝑍,π‘₯   πœ‘,𝑓,𝑗   πœ‘,𝑖,π‘˜,π‘₯   πœ‘,𝑦
Allowed substitution hints:   πœ‘(π‘š,𝑝)   𝐴(𝑓,π‘˜)   𝐡(𝑗)   𝐢(𝑦,𝑓,𝑗,π‘˜)   𝐷(𝑦,𝑓,𝑗,π‘˜)   𝑃(π‘₯,𝑦,𝑓,𝑖,𝑗,π‘˜,π‘š,𝑝)   𝑄(𝑦,π‘š)   𝑆(𝑗,π‘š)   𝑇(𝑦,𝑓,𝑗,π‘š,𝑝)   𝐸(𝑗,π‘š,𝑝)   𝐻(𝑦,𝑖,𝑗,π‘˜,π‘š,𝑝)   𝐼(𝑦,𝑗,π‘š,𝑝)   𝐿(𝑦,𝑓,𝑗,π‘˜,π‘š,𝑝)   𝑀(𝑦,𝑓,π‘˜)   𝑁(𝑗)   𝑂(π‘₯,𝑦,𝑓,𝑖,𝑗,π‘˜,π‘š,𝑝)   𝑍(𝑦,𝑓,𝑖,𝑗,π‘š,𝑝)

Proof of Theorem fourierdlem79
Dummy variable 𝑙 is distinct from all other variables.
StepHypRef Expression
1 fourierdlem79.q . . . . . . . 8 (πœ‘ β†’ 𝑄 ∈ (π‘ƒβ€˜π‘€))
2 fourierdlem79.m . . . . . . . . 9 (πœ‘ β†’ 𝑀 ∈ β„•)
3 fourierdlem79.p . . . . . . . . . 10 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = 𝐴 ∧ (π‘β€˜π‘š) = 𝐡) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
43fourierdlem2 44812 . . . . . . . . 9 (𝑀 ∈ β„• β†’ (𝑄 ∈ (π‘ƒβ€˜π‘€) ↔ (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘„β€˜0) = 𝐴 ∧ (π‘„β€˜π‘€) = 𝐡) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1))))))
52, 4syl 17 . . . . . . . 8 (πœ‘ β†’ (𝑄 ∈ (π‘ƒβ€˜π‘€) ↔ (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘„β€˜0) = 𝐴 ∧ (π‘„β€˜π‘€) = 𝐡) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1))))))
61, 5mpbid 231 . . . . . . 7 (πœ‘ β†’ (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘„β€˜0) = 𝐴 ∧ (π‘„β€˜π‘€) = 𝐡) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))))
76simpld 496 . . . . . 6 (πœ‘ β†’ 𝑄 ∈ (ℝ ↑m (0...𝑀)))
8 elmapi 8840 . . . . . 6 (𝑄 ∈ (ℝ ↑m (0...𝑀)) β†’ 𝑄:(0...𝑀)βŸΆβ„)
97, 8syl 17 . . . . 5 (πœ‘ β†’ 𝑄:(0...𝑀)βŸΆβ„)
109adantr 482 . . . 4 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑄:(0...𝑀)βŸΆβ„)
11 fourierdlem79.t . . . . . . . . 9 𝑇 = (𝐡 βˆ’ 𝐴)
12 fourierdlem79.e . . . . . . . . 9 𝐸 = (π‘₯ ∈ ℝ ↦ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇)))
13 fourierdlem79.l . . . . . . . . 9 𝐿 = (𝑦 ∈ (𝐴(,]𝐡) ↦ if(𝑦 = 𝐡, 𝐴, 𝑦))
14 fourierdlem79.i . . . . . . . . 9 𝐼 = (π‘₯ ∈ ℝ ↦ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ))
153, 2, 1, 11, 12, 13, 14fourierdlem37 44847 . . . . . . . 8 (πœ‘ β†’ (𝐼:β„βŸΆ(0..^𝑀) ∧ (π‘₯ ∈ ℝ β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))})))
1615simpld 496 . . . . . . 7 (πœ‘ β†’ 𝐼:β„βŸΆ(0..^𝑀))
17 fzossfz 13648 . . . . . . . 8 (0..^𝑀) βŠ† (0...𝑀)
1817a1i 11 . . . . . . 7 (πœ‘ β†’ (0..^𝑀) βŠ† (0...𝑀))
1916, 18fssd 6733 . . . . . 6 (πœ‘ β†’ 𝐼:β„βŸΆ(0...𝑀))
2019adantr 482 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝐼:β„βŸΆ(0...𝑀))
21 fourierdlem79.c . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐢 ∈ ℝ)
22 fourierdlem79.d . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐷 ∈ ℝ)
23 fourierdlem79.cltd . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐢 < 𝐷)
24 fourierdlem79.o . . . . . . . . . . . . 13 𝑂 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = 𝐢 ∧ (π‘β€˜π‘š) = 𝐷) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
25 fourierdlem79.h . . . . . . . . . . . . 13 𝐻 = ({𝐢, 𝐷} βˆͺ {π‘₯ ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄})
26 fourierdlem79.n . . . . . . . . . . . . 13 𝑁 = ((β™―β€˜π») βˆ’ 1)
27 fourierdlem79.s . . . . . . . . . . . . 13 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻))
2811, 3, 2, 1, 21, 22, 23, 24, 25, 26, 27fourierdlem54 44863 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝑁 ∈ β„• ∧ 𝑆 ∈ (π‘‚β€˜π‘)) ∧ 𝑆 Isom < , < ((0...𝑁), 𝐻)))
2928simpld 496 . . . . . . . . . . 11 (πœ‘ β†’ (𝑁 ∈ β„• ∧ 𝑆 ∈ (π‘‚β€˜π‘)))
3029simprd 497 . . . . . . . . . 10 (πœ‘ β†’ 𝑆 ∈ (π‘‚β€˜π‘))
3130adantr 482 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑆 ∈ (π‘‚β€˜π‘))
3229simpld 496 . . . . . . . . . . 11 (πœ‘ β†’ 𝑁 ∈ β„•)
3332adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑁 ∈ β„•)
3424fourierdlem2 44812 . . . . . . . . . 10 (𝑁 ∈ β„• β†’ (𝑆 ∈ (π‘‚β€˜π‘) ↔ (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((π‘†β€˜0) = 𝐢 ∧ (π‘†β€˜π‘) = 𝐷) ∧ βˆ€π‘– ∈ (0..^𝑁)(π‘†β€˜π‘–) < (π‘†β€˜(𝑖 + 1))))))
3533, 34syl 17 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝑆 ∈ (π‘‚β€˜π‘) ↔ (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((π‘†β€˜0) = 𝐢 ∧ (π‘†β€˜π‘) = 𝐷) ∧ βˆ€π‘– ∈ (0..^𝑁)(π‘†β€˜π‘–) < (π‘†β€˜(𝑖 + 1))))))
3631, 35mpbid 231 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((π‘†β€˜0) = 𝐢 ∧ (π‘†β€˜π‘) = 𝐷) ∧ βˆ€π‘– ∈ (0..^𝑁)(π‘†β€˜π‘–) < (π‘†β€˜(𝑖 + 1)))))
3736simpld 496 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑆 ∈ (ℝ ↑m (0...𝑁)))
38 elmapi 8840 . . . . . . 7 (𝑆 ∈ (ℝ ↑m (0...𝑁)) β†’ 𝑆:(0...𝑁)βŸΆβ„)
3937, 38syl 17 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑆:(0...𝑁)βŸΆβ„)
40 elfzofz 13645 . . . . . . 7 (𝑗 ∈ (0..^𝑁) β†’ 𝑗 ∈ (0...𝑁))
4140adantl 483 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑗 ∈ (0...𝑁))
4239, 41ffvelcdmd 7085 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜π‘—) ∈ ℝ)
4320, 42ffvelcdmd 7085 . . . 4 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) ∈ (0...𝑀))
4410, 43ffvelcdmd 7085 . . 3 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—))) ∈ ℝ)
4544rexrd 11261 . 2 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—))) ∈ ℝ*)
4616adantr 482 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝐼:β„βŸΆ(0..^𝑀))
4746, 42ffvelcdmd 7085 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) ∈ (0..^𝑀))
48 fzofzp1 13726 . . . . 5 ((πΌβ€˜(π‘†β€˜π‘—)) ∈ (0..^𝑀) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ (0...𝑀))
4947, 48syl 17 . . . 4 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ (0...𝑀))
5010, 49ffvelcdmd 7085 . . 3 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ∈ ℝ)
5150rexrd 11261 . 2 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ∈ ℝ*)
5214a1i 11 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝐼 = (π‘₯ ∈ ℝ ↦ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < )))
53 fveq2 6889 . . . . . . . . . 10 (π‘₯ = (π‘†β€˜π‘—) β†’ (πΈβ€˜π‘₯) = (πΈβ€˜(π‘†β€˜π‘—)))
5453fveq2d 6893 . . . . . . . . 9 (π‘₯ = (π‘†β€˜π‘—) β†’ (πΏβ€˜(πΈβ€˜π‘₯)) = (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))))
5554breq2d 5160 . . . . . . . 8 (π‘₯ = (π‘†β€˜π‘—) β†’ ((π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯)) ↔ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))))
5655rabbidv 3441 . . . . . . 7 (π‘₯ = (π‘†β€˜π‘—) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))} = {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))})
5756supeq1d 9438 . . . . . 6 (π‘₯ = (π‘†β€˜π‘—) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ) = sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ))
5857adantl 483 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ π‘₯ = (π‘†β€˜π‘—)) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ) = sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ))
59 ltso 11291 . . . . . . 7 < Or ℝ
6059supex 9455 . . . . . 6 sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) ∈ V
6160a1i 11 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) ∈ V)
6252, 58, 42, 61fvmptd 7003 . . . 4 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) = sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ))
6362fveq2d 6893 . . 3 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—))) = (π‘„β€˜sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < )))
64 simpl 484 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ πœ‘)
6564, 42jca 513 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πœ‘ ∧ (π‘†β€˜π‘—) ∈ ℝ))
66 eleq1 2822 . . . . . . . . 9 (π‘₯ = (π‘†β€˜π‘—) β†’ (π‘₯ ∈ ℝ ↔ (π‘†β€˜π‘—) ∈ ℝ))
6766anbi2d 630 . . . . . . . 8 (π‘₯ = (π‘†β€˜π‘—) β†’ ((πœ‘ ∧ π‘₯ ∈ ℝ) ↔ (πœ‘ ∧ (π‘†β€˜π‘—) ∈ ℝ)))
6857, 56eleq12d 2828 . . . . . . . 8 (π‘₯ = (π‘†β€˜π‘—) β†’ (sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))} ↔ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}))
6967, 68imbi12d 345 . . . . . . 7 (π‘₯ = (π‘†β€˜π‘—) β†’ (((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}) ↔ ((πœ‘ ∧ (π‘†β€˜π‘—) ∈ ℝ) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))})))
7015simprd 497 . . . . . . . 8 (πœ‘ β†’ (π‘₯ ∈ ℝ β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}))
7170imp 408 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))})
7269, 71vtoclg 3557 . . . . . 6 ((π‘†β€˜π‘—) ∈ ℝ β†’ ((πœ‘ ∧ (π‘†β€˜π‘—) ∈ ℝ) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}))
7342, 65, 72sylc 65 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))})
74 nfrab1 3452 . . . . . . 7 Ⅎ𝑖{𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}
75 nfcv 2904 . . . . . . 7 Ⅎ𝑖ℝ
76 nfcv 2904 . . . . . . 7 Ⅎ𝑖 <
7774, 75, 76nfsup 9443 . . . . . 6 Ⅎ𝑖sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < )
78 nfcv 2904 . . . . . 6 Ⅎ𝑖(0..^𝑀)
79 nfcv 2904 . . . . . . . 8 Ⅎ𝑖𝑄
8079, 77nffv 6899 . . . . . . 7 Ⅎ𝑖(π‘„β€˜sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ))
81 nfcv 2904 . . . . . . 7 Ⅎ𝑖 ≀
82 nfcv 2904 . . . . . . 7 Ⅎ𝑖(πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))
8380, 81, 82nfbr 5195 . . . . . 6 Ⅎ𝑖(π‘„β€˜sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < )) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))
84 fveq2 6889 . . . . . . 7 (𝑖 = sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) β†’ (π‘„β€˜π‘–) = (π‘„β€˜sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < )))
8584breq1d 5158 . . . . . 6 (𝑖 = sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) β†’ ((π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) ↔ (π‘„β€˜sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < )) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))))
8677, 78, 83, 85elrabf 3679 . . . . 5 (sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} ↔ (sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) ∈ (0..^𝑀) ∧ (π‘„β€˜sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < )) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))))
8773, 86sylib 217 . . . 4 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) ∈ (0..^𝑀) ∧ (π‘„β€˜sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < )) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))))
8887simprd 497 . . 3 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘„β€˜sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < )) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))))
8963, 88eqbrtrd 5170 . 2 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—))) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))))
902ad2antrr 725 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝑀 ∈ β„•)
911ad2antrr 725 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝑄 ∈ (π‘ƒβ€˜π‘€))
9221ad2antrr 725 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝐢 ∈ ℝ)
9322ad2antrr 725 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝐷 ∈ ℝ)
9423ad2antrr 725 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝐢 < 𝐷)
95 0zd 12567 . . . . . . 7 (πœ‘ β†’ 0 ∈ β„€)
962nnzd 12582 . . . . . . 7 (πœ‘ β†’ 𝑀 ∈ β„€)
97 1zzd 12590 . . . . . . 7 (πœ‘ β†’ 1 ∈ β„€)
98 0le1 11734 . . . . . . . 8 0 ≀ 1
9998a1i 11 . . . . . . 7 (πœ‘ β†’ 0 ≀ 1)
1002nnge1d 12257 . . . . . . 7 (πœ‘ β†’ 1 ≀ 𝑀)
10195, 96, 97, 99, 100elfzd 13489 . . . . . 6 (πœ‘ β†’ 1 ∈ (0...𝑀))
102101ad2antrr 725 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 1 ∈ (0...𝑀))
103 simplr 768 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝑗 ∈ (0..^𝑁))
104 fourierdlem79.z . . . . . . . 8 𝑍 = ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)))
105 fzofzp1 13726 . . . . . . . . . . . . . 14 (𝑗 ∈ (0..^𝑁) β†’ (𝑗 + 1) ∈ (0...𝑁))
106105adantl 483 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝑗 + 1) ∈ (0...𝑁))
10739, 106ffvelcdmd 7085 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜(𝑗 + 1)) ∈ ℝ)
108107, 42resubcld 11639 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) ∈ ℝ)
109108rehalfcld 12456 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2) ∈ ℝ)
1109, 101ffvelcdmd 7085 . . . . . . . . . . . . 13 (πœ‘ β†’ (π‘„β€˜1) ∈ ℝ)
1113, 2, 1fourierdlem11 44821 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝐴 ∈ ℝ ∧ 𝐡 ∈ ℝ ∧ 𝐴 < 𝐡))
112111simp1d 1143 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐴 ∈ ℝ)
113110, 112resubcld 11639 . . . . . . . . . . . 12 (πœ‘ β†’ ((π‘„β€˜1) βˆ’ 𝐴) ∈ ℝ)
114113rehalfcld 12456 . . . . . . . . . . 11 (πœ‘ β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ∈ ℝ)
115114adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ∈ ℝ)
116109, 115ifcld 4574 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ∈ ℝ)
11742, 116readdcld 11240 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) ∈ ℝ)
118104, 117eqeltrid 2838 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑍 ∈ ℝ)
119 2re 12283 . . . . . . . . . . . . . 14 2 ∈ ℝ
120119a1i 11 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 2 ∈ ℝ)
121 elfzoelz 13629 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ (0..^𝑁) β†’ 𝑗 ∈ β„€)
122121zred 12663 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ (0..^𝑁) β†’ 𝑗 ∈ ℝ)
123122ltp1d 12141 . . . . . . . . . . . . . . . 16 (𝑗 ∈ (0..^𝑁) β†’ 𝑗 < (𝑗 + 1))
124123adantl 483 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑗 < (𝑗 + 1))
12528simprd 497 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝑆 Isom < , < ((0...𝑁), 𝐻))
126125adantr 482 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑆 Isom < , < ((0...𝑁), 𝐻))
127 isorel 7320 . . . . . . . . . . . . . . . 16 ((𝑆 Isom < , < ((0...𝑁), 𝐻) ∧ (𝑗 ∈ (0...𝑁) ∧ (𝑗 + 1) ∈ (0...𝑁))) β†’ (𝑗 < (𝑗 + 1) ↔ (π‘†β€˜π‘—) < (π‘†β€˜(𝑗 + 1))))
128126, 41, 106, 127syl12anc 836 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝑗 < (𝑗 + 1) ↔ (π‘†β€˜π‘—) < (π‘†β€˜(𝑗 + 1))))
129124, 128mpbid 231 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜π‘—) < (π‘†β€˜(𝑗 + 1)))
13042, 107posdifd 11798 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) < (π‘†β€˜(𝑗 + 1)) ↔ 0 < ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—))))
131129, 130mpbid 231 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 0 < ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)))
132 2pos 12312 . . . . . . . . . . . . . 14 0 < 2
133132a1i 11 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 0 < 2)
134108, 120, 131, 133divgt0d 12146 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 0 < (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2))
135109, 134elrpd 13010 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2) ∈ ℝ+)
136119a1i 11 . . . . . . . . . . . . . 14 (πœ‘ β†’ 2 ∈ ℝ)
1372nngt0d 12258 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 0 < 𝑀)
138 fzolb 13635 . . . . . . . . . . . . . . . . . 18 (0 ∈ (0..^𝑀) ↔ (0 ∈ β„€ ∧ 𝑀 ∈ β„€ ∧ 0 < 𝑀))
13995, 96, 137, 138syl3anbrc 1344 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 0 ∈ (0..^𝑀))
140 0re 11213 . . . . . . . . . . . . . . . . . 18 0 ∈ ℝ
141 eleq1 2822 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 0 β†’ (𝑖 ∈ (0..^𝑀) ↔ 0 ∈ (0..^𝑀)))
142141anbi2d 630 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 0 β†’ ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ↔ (πœ‘ ∧ 0 ∈ (0..^𝑀))))
143 fveq2 6889 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 0 β†’ (π‘„β€˜π‘–) = (π‘„β€˜0))
144 oveq1 7413 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 0 β†’ (𝑖 + 1) = (0 + 1))
145144fveq2d 6893 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 0 β†’ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜(0 + 1)))
146143, 145breq12d 5161 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 0 β†’ ((π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)) ↔ (π‘„β€˜0) < (π‘„β€˜(0 + 1))))
147142, 146imbi12d 345 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 0 β†’ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1))) ↔ ((πœ‘ ∧ 0 ∈ (0..^𝑀)) β†’ (π‘„β€˜0) < (π‘„β€˜(0 + 1)))))
1486simprd 497 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (((π‘„β€˜0) = 𝐴 ∧ (π‘„β€˜π‘€) = 𝐡) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1))))
149148simprd 497 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ βˆ€π‘– ∈ (0..^𝑀)(π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
150149r19.21bi 3249 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
151147, 150vtoclg 3557 . . . . . . . . . . . . . . . . . 18 (0 ∈ ℝ β†’ ((πœ‘ ∧ 0 ∈ (0..^𝑀)) β†’ (π‘„β€˜0) < (π‘„β€˜(0 + 1))))
152140, 151ax-mp 5 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 0 ∈ (0..^𝑀)) β†’ (π‘„β€˜0) < (π‘„β€˜(0 + 1)))
153139, 152mpdan 686 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (π‘„β€˜0) < (π‘„β€˜(0 + 1)))
154148simpld 496 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((π‘„β€˜0) = 𝐴 ∧ (π‘„β€˜π‘€) = 𝐡))
155154simpld 496 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (π‘„β€˜0) = 𝐴)
156 0p1e1 12331 . . . . . . . . . . . . . . . . . 18 (0 + 1) = 1
157156fveq2i 6892 . . . . . . . . . . . . . . . . 17 (π‘„β€˜(0 + 1)) = (π‘„β€˜1)
158157a1i 11 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (π‘„β€˜(0 + 1)) = (π‘„β€˜1))
159153, 155, 1583brtr3d 5179 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝐴 < (π‘„β€˜1))
160112, 110posdifd 11798 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐴 < (π‘„β€˜1) ↔ 0 < ((π‘„β€˜1) βˆ’ 𝐴)))
161159, 160mpbid 231 . . . . . . . . . . . . . 14 (πœ‘ β†’ 0 < ((π‘„β€˜1) βˆ’ 𝐴))
162132a1i 11 . . . . . . . . . . . . . 14 (πœ‘ β†’ 0 < 2)
163113, 136, 161, 162divgt0d 12146 . . . . . . . . . . . . 13 (πœ‘ β†’ 0 < (((π‘„β€˜1) βˆ’ 𝐴) / 2))
164114, 163elrpd 13010 . . . . . . . . . . . 12 (πœ‘ β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ∈ ℝ+)
165164adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ∈ ℝ+)
166135, 165ifcld 4574 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ∈ ℝ+)
16742, 166ltaddrpd 13046 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜π‘—) < ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))))
16842, 117, 167ltled 11359 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜π‘—) ≀ ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))))
169168, 104breqtrrdi 5190 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜π‘—) ≀ 𝑍)
17042, 109readdcld 11240 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) ∈ ℝ)
171 iftrue 4534 . . . . . . . . . . . . 13 (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2))
172171adantl 483 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2))
173109leidd 11777 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2) ≀ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2))
174173adantr 482 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2) ≀ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2))
175172, 174eqbrtrd 5170 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ≀ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2))
176 iffalse 4537 . . . . . . . . . . . . 13 (Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = (((π‘„β€˜1) βˆ’ 𝐴) / 2))
177176adantl 483 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = (((π‘„β€˜1) βˆ’ 𝐴) / 2))
178113ad2antrr 725 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ ((π‘„β€˜1) βˆ’ 𝐴) ∈ ℝ)
179108adantr 482 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) ∈ ℝ)
180 2rp 12976 . . . . . . . . . . . . . 14 2 ∈ ℝ+
181180a1i 11 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ 2 ∈ ℝ+)
182 simpr 486 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴))
183178, 179, 182nltled 11361 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ ((π‘„β€˜1) βˆ’ 𝐴) ≀ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)))
184178, 179, 181, 183lediv1dd 13071 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ≀ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2))
185177, 184eqbrtrd 5170 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ≀ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2))
186175, 185pm2.61dan 812 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ≀ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2))
187116, 109, 42, 186leadd2dd 11826 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) ≀ ((π‘†β€˜π‘—) + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)))
18842recnd 11239 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜π‘—) ∈ β„‚)
189107recnd 11239 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜(𝑗 + 1)) ∈ β„‚)
190188, 189addcomd 11413 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) = ((π‘†β€˜(𝑗 + 1)) + (π‘†β€˜π‘—)))
191190oveq1d 7421 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) = (((π‘†β€˜(𝑗 + 1)) + (π‘†β€˜π‘—)) / 2))
192191oveq1d 7421 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) βˆ’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) = ((((π‘†β€˜(𝑗 + 1)) + (π‘†β€˜π‘—)) / 2) βˆ’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)))
193 halfaddsub 12442 . . . . . . . . . . . . . . 15 (((π‘†β€˜(𝑗 + 1)) ∈ β„‚ ∧ (π‘†β€˜π‘—) ∈ β„‚) β†’ (((((π‘†β€˜(𝑗 + 1)) + (π‘†β€˜π‘—)) / 2) + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) = (π‘†β€˜(𝑗 + 1)) ∧ ((((π‘†β€˜(𝑗 + 1)) + (π‘†β€˜π‘—)) / 2) βˆ’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) = (π‘†β€˜π‘—)))
194189, 188, 193syl2anc 585 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((((π‘†β€˜(𝑗 + 1)) + (π‘†β€˜π‘—)) / 2) + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) = (π‘†β€˜(𝑗 + 1)) ∧ ((((π‘†β€˜(𝑗 + 1)) + (π‘†β€˜π‘—)) / 2) βˆ’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) = (π‘†β€˜π‘—)))
195194simprd 497 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((((π‘†β€˜(𝑗 + 1)) + (π‘†β€˜π‘—)) / 2) βˆ’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) = (π‘†β€˜π‘—))
196192, 195eqtrd 2773 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) βˆ’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) = (π‘†β€˜π‘—))
197188, 189addcld 11230 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) ∈ β„‚)
198197halfcld 12454 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) ∈ β„‚)
199109recnd 11239 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2) ∈ β„‚)
200198, 199, 188subsub23d 43984 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) βˆ’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) = (π‘†β€˜π‘—) ↔ ((((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) βˆ’ (π‘†β€˜π‘—)) = (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)))
201196, 200mpbid 231 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) βˆ’ (π‘†β€˜π‘—)) = (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2))
202198, 188, 199subaddd 11586 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) βˆ’ (π‘†β€˜π‘—)) = (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2) ↔ ((π‘†β€˜π‘—) + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) = (((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2)))
203201, 202mpbid 231 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) = (((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2))
204 avglt2 12448 . . . . . . . . . . . 12 (((π‘†β€˜π‘—) ∈ ℝ ∧ (π‘†β€˜(𝑗 + 1)) ∈ ℝ) β†’ ((π‘†β€˜π‘—) < (π‘†β€˜(𝑗 + 1)) ↔ (((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) < (π‘†β€˜(𝑗 + 1))))
20542, 107, 204syl2anc 585 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) < (π‘†β€˜(𝑗 + 1)) ↔ (((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) < (π‘†β€˜(𝑗 + 1))))
206129, 205mpbid 231 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘†β€˜π‘—) + (π‘†β€˜(𝑗 + 1))) / 2) < (π‘†β€˜(𝑗 + 1)))
207203, 206eqbrtrd 5170 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) < (π‘†β€˜(𝑗 + 1)))
208117, 170, 107, 187, 207lelttrd 11369 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) < (π‘†β€˜(𝑗 + 1)))
209104, 208eqbrtrid 5183 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑍 < (π‘†β€˜(𝑗 + 1)))
210107rexrd 11261 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜(𝑗 + 1)) ∈ ℝ*)
211 elico2 13385 . . . . . . . 8 (((π‘†β€˜π‘—) ∈ ℝ ∧ (π‘†β€˜(𝑗 + 1)) ∈ ℝ*) β†’ (𝑍 ∈ ((π‘†β€˜π‘—)[,)(π‘†β€˜(𝑗 + 1))) ↔ (𝑍 ∈ ℝ ∧ (π‘†β€˜π‘—) ≀ 𝑍 ∧ 𝑍 < (π‘†β€˜(𝑗 + 1)))))
21242, 210, 211syl2anc 585 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝑍 ∈ ((π‘†β€˜π‘—)[,)(π‘†β€˜(𝑗 + 1))) ↔ (𝑍 ∈ ℝ ∧ (π‘†β€˜π‘—) ≀ 𝑍 ∧ 𝑍 < (π‘†β€˜(𝑗 + 1)))))
213118, 169, 209, 212mpbir3and 1343 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑍 ∈ ((π‘†β€˜π‘—)[,)(π‘†β€˜(𝑗 + 1))))
214213adantr 482 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝑍 ∈ ((π‘†β€˜π‘—)[,)(π‘†β€˜(𝑗 + 1))))
215112ad2antrr 725 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝐴 ∈ ℝ)
216111simp2d 1144 . . . . . . . . 9 (πœ‘ β†’ 𝐡 ∈ ℝ)
217216ad2antrr 725 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝐡 ∈ ℝ)
218111simp3d 1145 . . . . . . . . 9 (πœ‘ β†’ 𝐴 < 𝐡)
219218ad2antrr 725 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝐴 < 𝐡)
22042adantr 482 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (π‘†β€˜π‘—) ∈ ℝ)
221 simpr 486 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡)
222167, 104breqtrrdi 5190 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜π‘—) < 𝑍)
223216, 112resubcld 11639 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝐡 βˆ’ 𝐴) ∈ ℝ)
22411, 223eqeltrid 2838 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑇 ∈ ℝ)
225224adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑇 ∈ ℝ)
226109adantr 482 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2) ∈ ℝ)
227114ad2antrr 725 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ∈ ℝ)
228108adantr 482 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) ∈ ℝ)
229113ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ ((π‘„β€˜1) βˆ’ 𝐴) ∈ ℝ)
230180a1i 11 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ 2 ∈ ℝ+)
231 simpr 486 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴))
232228, 229, 230, 231ltdiv1dd 13070 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2) < (((π‘„β€˜1) βˆ’ 𝐴) / 2))
233226, 227, 232ltled 11359 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2) ≀ (((π‘„β€˜1) βˆ’ 𝐴) / 2))
234172, 233eqbrtrd 5170 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ≀ (((π‘„β€˜1) βˆ’ 𝐴) / 2))
235176adantl 483 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = (((π‘„β€˜1) βˆ’ 𝐴) / 2))
236114leidd 11777 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ≀ (((π‘„β€˜1) βˆ’ 𝐴) / 2))
237236adantr 482 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ≀ (((π‘„β€˜1) βˆ’ 𝐴) / 2))
238235, 237eqbrtrd 5170 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ≀ (((π‘„β€˜1) βˆ’ 𝐴) / 2))
239238adantlr 714 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ≀ (((π‘„β€˜1) βˆ’ 𝐴) / 2))
240234, 239pm2.61dan 812 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ≀ (((π‘„β€˜1) βˆ’ 𝐴) / 2))
241223rehalfcld 12456 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((𝐡 βˆ’ 𝐴) / 2) ∈ ℝ)
242180a1i 11 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 2 ∈ ℝ+)
243112rexrd 11261 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝐴 ∈ ℝ*)
244216rexrd 11261 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝐡 ∈ ℝ*)
2453, 2, 1fourierdlem15 44825 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝑄:(0...𝑀)⟢(𝐴[,]𝐡))
246245, 101ffvelcdmd 7085 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (π‘„β€˜1) ∈ (𝐴[,]𝐡))
247 iccleub 13376 . . . . . . . . . . . . . . . . . . 19 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ* ∧ (π‘„β€˜1) ∈ (𝐴[,]𝐡)) β†’ (π‘„β€˜1) ≀ 𝐡)
248243, 244, 246, 247syl3anc 1372 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (π‘„β€˜1) ≀ 𝐡)
249110, 216, 112, 248lesub1dd 11827 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((π‘„β€˜1) βˆ’ 𝐴) ≀ (𝐡 βˆ’ 𝐴))
250113, 223, 242, 249lediv1dd 13071 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ≀ ((𝐡 βˆ’ 𝐴) / 2))
25111eqcomi 2742 . . . . . . . . . . . . . . . . . 18 (𝐡 βˆ’ 𝐴) = 𝑇
252251oveq1i 7416 . . . . . . . . . . . . . . . . 17 ((𝐡 βˆ’ 𝐴) / 2) = (𝑇 / 2)
253112, 216posdifd 11798 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (𝐴 < 𝐡 ↔ 0 < (𝐡 βˆ’ 𝐴)))
254218, 253mpbid 231 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 0 < (𝐡 βˆ’ 𝐴))
255254, 11breqtrrdi 5190 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 0 < 𝑇)
256224, 255elrpd 13010 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑇 ∈ ℝ+)
257 rphalflt 13000 . . . . . . . . . . . . . . . . . 18 (𝑇 ∈ ℝ+ β†’ (𝑇 / 2) < 𝑇)
258256, 257syl 17 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑇 / 2) < 𝑇)
259252, 258eqbrtrid 5183 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((𝐡 βˆ’ 𝐴) / 2) < 𝑇)
260114, 241, 224, 250, 259lelttrd 11369 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) < 𝑇)
261114, 224, 260ltled 11359 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ≀ 𝑇)
262261adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ≀ 𝑇)
263116, 115, 225, 240, 262letrd 11368 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ≀ 𝑇)
264116, 225, 42, 263leadd2dd 11826 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) ≀ ((π‘†β€˜π‘—) + 𝑇))
265104, 264eqbrtrid 5183 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑍 ≀ ((π‘†β€˜π‘—) + 𝑇))
26642rexrd 11261 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜π‘—) ∈ ℝ*)
26742, 225readdcld 11240 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) + 𝑇) ∈ ℝ)
268 elioc2 13384 . . . . . . . . . . 11 (((π‘†β€˜π‘—) ∈ ℝ* ∧ ((π‘†β€˜π‘—) + 𝑇) ∈ ℝ) β†’ (𝑍 ∈ ((π‘†β€˜π‘—)(,]((π‘†β€˜π‘—) + 𝑇)) ↔ (𝑍 ∈ ℝ ∧ (π‘†β€˜π‘—) < 𝑍 ∧ 𝑍 ≀ ((π‘†β€˜π‘—) + 𝑇))))
269266, 267, 268syl2anc 585 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝑍 ∈ ((π‘†β€˜π‘—)(,]((π‘†β€˜π‘—) + 𝑇)) ↔ (𝑍 ∈ ℝ ∧ (π‘†β€˜π‘—) < 𝑍 ∧ 𝑍 ≀ ((π‘†β€˜π‘—) + 𝑇))))
270118, 222, 265, 269mpbir3and 1343 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑍 ∈ ((π‘†β€˜π‘—)(,]((π‘†β€˜π‘—) + 𝑇)))
271270adantr 482 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝑍 ∈ ((π‘†β€˜π‘—)(,]((π‘†β€˜π‘—) + 𝑇)))
272215, 217, 219, 11, 12, 220, 221, 271fourierdlem26 44836 . . . . . . 7 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜π‘) = (𝐴 + (𝑍 βˆ’ (π‘†β€˜π‘—))))
273104a1i 11 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑍 = ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))))
274273oveq1d 7421 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝑍 βˆ’ (π‘†β€˜π‘—)) = (((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) βˆ’ (π‘†β€˜π‘—)))
275274oveq2d 7422 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝐴 + (𝑍 βˆ’ (π‘†β€˜π‘—))) = (𝐴 + (((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) βˆ’ (π‘†β€˜π‘—))))
276275adantr 482 . . . . . . 7 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (𝐴 + (𝑍 βˆ’ (π‘†β€˜π‘—))) = (𝐴 + (((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) βˆ’ (π‘†β€˜π‘—))))
277116recnd 11239 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ∈ β„‚)
278188, 277pncan2d 11570 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) βˆ’ (π‘†β€˜π‘—)) = if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)))
279278oveq2d 7422 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝐴 + (((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) βˆ’ (π‘†β€˜π‘—))) = (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))))
280279adantr 482 . . . . . . 7 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (𝐴 + (((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) βˆ’ (π‘†β€˜π‘—))) = (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))))
281272, 276, 2803eqtrd 2777 . . . . . 6 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜π‘) = (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))))
282171oveq2d 7422 . . . . . . . . . 10 (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴) β†’ (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) = (𝐴 + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)))
283282adantl 483 . . . . . . . . 9 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) = (𝐴 + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)))
284112adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝐴 ∈ ℝ)
285284, 109readdcld 11240 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝐴 + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) ∈ ℝ)
286285adantr 482 . . . . . . . . . 10 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (𝐴 + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) ∈ ℝ)
287284, 115readdcld 11240 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝐴 + (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ∈ ℝ)
288287adantr 482 . . . . . . . . . 10 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (𝐴 + (((π‘„β€˜1) βˆ’ 𝐴) / 2)) ∈ ℝ)
289110ad2antrr 725 . . . . . . . . . 10 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (π‘„β€˜1) ∈ ℝ)
290112ad2antrr 725 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ 𝐴 ∈ ℝ)
291226, 227, 290, 232ltadd2dd 11370 . . . . . . . . . 10 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (𝐴 + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) < (𝐴 + (((π‘„β€˜1) βˆ’ 𝐴) / 2)))
292110recnd 11239 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (π‘„β€˜1) ∈ β„‚)
293112recnd 11239 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝐴 ∈ β„‚)
294 halfaddsub 12442 . . . . . . . . . . . . . . . 16 (((π‘„β€˜1) ∈ β„‚ ∧ 𝐴 ∈ β„‚) β†’ (((((π‘„β€˜1) + 𝐴) / 2) + (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = (π‘„β€˜1) ∧ ((((π‘„β€˜1) + 𝐴) / 2) βˆ’ (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = 𝐴))
295292, 293, 294syl2anc 585 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (((((π‘„β€˜1) + 𝐴) / 2) + (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = (π‘„β€˜1) ∧ ((((π‘„β€˜1) + 𝐴) / 2) βˆ’ (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = 𝐴))
296295simprd 497 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((((π‘„β€˜1) + 𝐴) / 2) βˆ’ (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = 𝐴)
297296oveq1d 7421 . . . . . . . . . . . . 13 (πœ‘ β†’ (((((π‘„β€˜1) + 𝐴) / 2) βˆ’ (((π‘„β€˜1) βˆ’ 𝐴) / 2)) + (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = (𝐴 + (((π‘„β€˜1) βˆ’ 𝐴) / 2)))
298110, 112readdcld 11240 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((π‘„β€˜1) + 𝐴) ∈ ℝ)
299298rehalfcld 12456 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (((π‘„β€˜1) + 𝐴) / 2) ∈ ℝ)
300299recnd 11239 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((π‘„β€˜1) + 𝐴) / 2) ∈ β„‚)
301114recnd 11239 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((π‘„β€˜1) βˆ’ 𝐴) / 2) ∈ β„‚)
302300, 301npcand 11572 . . . . . . . . . . . . 13 (πœ‘ β†’ (((((π‘„β€˜1) + 𝐴) / 2) βˆ’ (((π‘„β€˜1) βˆ’ 𝐴) / 2)) + (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = (((π‘„β€˜1) + 𝐴) / 2))
303297, 302eqtr3d 2775 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐴 + (((π‘„β€˜1) βˆ’ 𝐴) / 2)) = (((π‘„β€˜1) + 𝐴) / 2))
304110, 110readdcld 11240 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((π‘„β€˜1) + (π‘„β€˜1)) ∈ ℝ)
305112, 110, 110, 159ltadd2dd 11370 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((π‘„β€˜1) + 𝐴) < ((π‘„β€˜1) + (π‘„β€˜1)))
306298, 304, 242, 305ltdiv1dd 13070 . . . . . . . . . . . . 13 (πœ‘ β†’ (((π‘„β€˜1) + 𝐴) / 2) < (((π‘„β€˜1) + (π‘„β€˜1)) / 2))
3072922timesd 12452 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (2 Β· (π‘„β€˜1)) = ((π‘„β€˜1) + (π‘„β€˜1)))
308307eqcomd 2739 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((π‘„β€˜1) + (π‘„β€˜1)) = (2 Β· (π‘„β€˜1)))
309308oveq1d 7421 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((π‘„β€˜1) + (π‘„β€˜1)) / 2) = ((2 Β· (π‘„β€˜1)) / 2))
310 2cnd 12287 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 2 ∈ β„‚)
311 2ne0 12313 . . . . . . . . . . . . . . . 16 2 β‰  0
312311a1i 11 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 2 β‰  0)
313292, 310, 312divcan3d 11992 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((2 Β· (π‘„β€˜1)) / 2) = (π‘„β€˜1))
314309, 313eqtrd 2773 . . . . . . . . . . . . 13 (πœ‘ β†’ (((π‘„β€˜1) + (π‘„β€˜1)) / 2) = (π‘„β€˜1))
315306, 314breqtrd 5174 . . . . . . . . . . . 12 (πœ‘ β†’ (((π‘„β€˜1) + 𝐴) / 2) < (π‘„β€˜1))
316303, 315eqbrtrd 5170 . . . . . . . . . . 11 (πœ‘ β†’ (𝐴 + (((π‘„β€˜1) βˆ’ 𝐴) / 2)) < (π‘„β€˜1))
317316ad2antrr 725 . . . . . . . . . 10 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (𝐴 + (((π‘„β€˜1) βˆ’ 𝐴) / 2)) < (π‘„β€˜1))
318286, 288, 289, 291, 317lttrd 11372 . . . . . . . . 9 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (𝐴 + (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2)) < (π‘„β€˜1))
319283, 318eqbrtrd 5170 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) < (π‘„β€˜1))
320176oveq2d 7422 . . . . . . . . . 10 (Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴) β†’ (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) = (𝐴 + (((π‘„β€˜1) βˆ’ 𝐴) / 2)))
321320adantl 483 . . . . . . . . 9 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) = (𝐴 + (((π‘„β€˜1) βˆ’ 𝐴) / 2)))
322316ad2antrr 725 . . . . . . . . 9 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (𝐴 + (((π‘„β€˜1) βˆ’ 𝐴) / 2)) < (π‘„β€˜1))
323321, 322eqbrtrd 5170 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴)) β†’ (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) < (π‘„β€˜1))
324319, 323pm2.61dan 812 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) < (π‘„β€˜1))
325324adantr 482 . . . . . 6 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (𝐴 + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) < (π‘„β€˜1))
326281, 325eqbrtrd 5170 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜π‘) < (π‘„β€˜1))
327 eqid 2733 . . . . 5 ((π‘„β€˜1) βˆ’ ((πΈβ€˜π‘) βˆ’ 𝑍)) = ((π‘„β€˜1) βˆ’ ((πΈβ€˜π‘) βˆ’ 𝑍))
32811, 3, 90, 91, 92, 93, 94, 24, 25, 26, 27, 12, 102, 103, 214, 326, 327fourierdlem63 44872 . . . 4 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜(π‘†β€˜(𝑗 + 1))) ≀ (π‘„β€˜1))
32914a1i 11 . . . . . . . . 9 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝐼 = (π‘₯ ∈ ℝ ↦ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < )))
33057adantl 483 . . . . . . . . 9 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) ∧ π‘₯ = (π‘†β€˜π‘—)) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ) = sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ))
33160a1i 11 . . . . . . . . 9 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) ∈ V)
332329, 330, 220, 331fvmptd 7003 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΌβ€˜(π‘†β€˜π‘—)) = sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ))
333 fveq2 6889 . . . . . . . . . . . . 13 ((πΈβ€˜(π‘†β€˜π‘—)) = 𝐡 β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) = (πΏβ€˜π΅))
33413a1i 11 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐿 = (𝑦 ∈ (𝐴(,]𝐡) ↦ if(𝑦 = 𝐡, 𝐴, 𝑦)))
335 iftrue 4534 . . . . . . . . . . . . . . 15 (𝑦 = 𝐡 β†’ if(𝑦 = 𝐡, 𝐴, 𝑦) = 𝐴)
336335adantl 483 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑦 = 𝐡) β†’ if(𝑦 = 𝐡, 𝐴, 𝑦) = 𝐴)
337 ubioc1 13374 . . . . . . . . . . . . . . 15 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ* ∧ 𝐴 < 𝐡) β†’ 𝐡 ∈ (𝐴(,]𝐡))
338243, 244, 218, 337syl3anc 1372 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐡 ∈ (𝐴(,]𝐡))
339334, 336, 338, 112fvmptd 7003 . . . . . . . . . . . . 13 (πœ‘ β†’ (πΏβ€˜π΅) = 𝐴)
340333, 339sylan9eqr 2795 . . . . . . . . . . . 12 ((πœ‘ ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) = 𝐴)
341340breq2d 5160 . . . . . . . . . . 11 ((πœ‘ ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ ((π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) ↔ (π‘„β€˜π‘–) ≀ 𝐴))
342341rabbidv 3441 . . . . . . . . . 10 ((πœ‘ ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} = {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴})
343342supeq1d 9438 . . . . . . . . 9 ((πœ‘ ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) = sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}, ℝ, < ))
344343adantlr 714 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) = sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}, ℝ, < ))
345 simpl 484 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}) β†’ πœ‘)
346 elrabi 3677 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴} β†’ 𝑗 ∈ (0..^𝑀))
347346adantl 483 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}) β†’ 𝑗 ∈ (0..^𝑀))
348 fveq2 6889 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 β†’ (π‘„β€˜π‘–) = (π‘„β€˜π‘—))
349348breq1d 5158 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 β†’ ((π‘„β€˜π‘–) ≀ 𝐴 ↔ (π‘„β€˜π‘—) ≀ 𝐴))
350349elrab 3683 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴} ↔ (𝑗 ∈ (0..^𝑀) ∧ (π‘„β€˜π‘—) ≀ 𝐴))
351350simprbi 498 . . . . . . . . . . . . . . . . 17 (𝑗 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴} β†’ (π‘„β€˜π‘—) ≀ 𝐴)
352351adantl 483 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}) β†’ (π‘„β€˜π‘—) ≀ 𝐴)
353 simp3 1139 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀) ∧ (π‘„β€˜π‘—) ≀ 𝐴) β†’ (π‘„β€˜π‘—) ≀ 𝐴)
354112ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 𝐴 ∈ ℝ)
355110ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ (π‘„β€˜1) ∈ ℝ)
3569adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) β†’ 𝑄:(0...𝑀)βŸΆβ„)
35718sselda 3982 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) β†’ 𝑗 ∈ (0...𝑀))
358356, 357ffvelcdmd 7085 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘—) ∈ ℝ)
359358adantr 482 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ (π‘„β€˜π‘—) ∈ ℝ)
360159ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 𝐴 < (π‘„β€˜1))
361 1zzd 12590 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 1 ∈ β„€)
362 elfzoelz 13629 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑗 ∈ (0..^𝑀) β†’ 𝑗 ∈ β„€)
363362ad2antlr 726 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 𝑗 ∈ β„€)
364 1e0p1 12716 . . . . . . . . . . . . . . . . . . . . . . . . 25 1 = (0 + 1)
365 simpr 486 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ Β¬ 𝑗 ≀ 0)
366 0red 11214 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 0 ∈ ℝ)
367363zred 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 𝑗 ∈ ℝ)
368366, 367ltnled 11358 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ (0 < 𝑗 ↔ Β¬ 𝑗 ≀ 0))
369365, 368mpbird 257 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 0 < 𝑗)
370 0zd 12567 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 0 ∈ β„€)
371 zltp1le 12609 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((0 ∈ β„€ ∧ 𝑗 ∈ β„€) β†’ (0 < 𝑗 ↔ (0 + 1) ≀ 𝑗))
372370, 363, 371syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ (0 < 𝑗 ↔ (0 + 1) ≀ 𝑗))
373369, 372mpbid 231 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ (0 + 1) ≀ 𝑗)
374364, 373eqbrtrid 5183 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 1 ≀ 𝑗)
375 eluz2 12825 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 ∈ (β„€β‰₯β€˜1) ↔ (1 ∈ β„€ ∧ 𝑗 ∈ β„€ ∧ 1 ≀ 𝑗))
376361, 363, 374, 375syl3anbrc 1344 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 𝑗 ∈ (β„€β‰₯β€˜1))
3779ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑄:(0...𝑀)βŸΆβ„)
378 0zd 12567 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 0 ∈ β„€)
37996ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑀 ∈ β„€)
380 elfzelz 13498 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑙 ∈ (1...𝑗) β†’ 𝑙 ∈ β„€)
381380adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑙 ∈ β„€)
382 0red 11214 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑙 ∈ (1...𝑗) β†’ 0 ∈ ℝ)
383380zred 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑙 ∈ (1...𝑗) β†’ 𝑙 ∈ ℝ)
384 1red 11212 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑙 ∈ (1...𝑗) β†’ 1 ∈ ℝ)
385 0lt1 11733 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 0 < 1
386385a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑙 ∈ (1...𝑗) β†’ 0 < 1)
387 elfzle1 13501 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑙 ∈ (1...𝑗) β†’ 1 ≀ 𝑙)
388382, 384, 383, 386, 387ltletrd 11371 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑙 ∈ (1...𝑗) β†’ 0 < 𝑙)
389382, 383, 388ltled 11359 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑙 ∈ (1...𝑗) β†’ 0 ≀ 𝑙)
390389adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 0 ≀ 𝑙)
391383adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑙 ∈ ℝ)
39296zred 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ 𝑀 ∈ ℝ)
393392ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑀 ∈ ℝ)
394362zred 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (0..^𝑀) β†’ 𝑗 ∈ ℝ)
395394ad2antlr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑗 ∈ ℝ)
396 elfzle2 13502 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑙 ∈ (1...𝑗) β†’ 𝑙 ≀ 𝑗)
397396adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑙 ≀ 𝑗)
398 elfzolt2 13638 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (0..^𝑀) β†’ 𝑗 < 𝑀)
399398ad2antlr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑗 < 𝑀)
400391, 395, 393, 397, 399lelttrd 11369 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑙 < 𝑀)
401391, 393, 400ltled 11359 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑙 ≀ 𝑀)
402378, 379, 381, 390, 401elfzd 13489 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ 𝑙 ∈ (0...𝑀))
403377, 402ffvelcdmd 7085 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...𝑗)) β†’ (π‘„β€˜π‘™) ∈ ℝ)
404403adantlr 714 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) ∧ 𝑙 ∈ (1...𝑗)) β†’ (π‘„β€˜π‘™) ∈ ℝ)
4059ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑄:(0...𝑀)βŸΆβ„)
406 0zd 12567 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 0 ∈ β„€)
40796ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑀 ∈ β„€)
408 elfzelz 13498 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 𝑙 ∈ β„€)
409408adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 ∈ β„€)
410 0red 11214 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 0 ∈ ℝ)
411408zred 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 𝑙 ∈ ℝ)
412 1red 11212 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 1 ∈ ℝ)
413385a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 0 < 1)
414 elfzle1 13501 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 1 ≀ 𝑙)
415410, 412, 411, 413, 414ltletrd 11371 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 0 < 𝑙)
416410, 411, 415ltled 11359 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 0 ≀ 𝑙)
417416adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 0 ≀ 𝑙)
418409zred 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 ∈ ℝ)
419392ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑀 ∈ ℝ)
420394ad2antlr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑗 ∈ ℝ)
421411adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 ∈ ℝ)
422 peano2rem 11524 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑗 ∈ ℝ β†’ (𝑗 βˆ’ 1) ∈ ℝ)
423394, 422syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑗 ∈ (0..^𝑀) β†’ (𝑗 βˆ’ 1) ∈ ℝ)
424423adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (𝑗 βˆ’ 1) ∈ ℝ)
425394adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑗 ∈ ℝ)
426 elfzle2 13502 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 𝑙 ≀ (𝑗 βˆ’ 1))
427426adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 ≀ (𝑗 βˆ’ 1))
428425ltm1d 12143 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (𝑗 βˆ’ 1) < 𝑗)
429421, 424, 425, 427, 428lelttrd 11369 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 < 𝑗)
430429adantll 713 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 < 𝑗)
431398ad2antlr 726 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑗 < 𝑀)
432418, 420, 419, 430, 431lttrd 11372 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 < 𝑀)
433418, 419, 432ltled 11359 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 ≀ 𝑀)
434406, 407, 409, 417, 433elfzd 13489 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 ∈ (0...𝑀))
435405, 434ffvelcdmd 7085 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (π‘„β€˜π‘™) ∈ ℝ)
436409peano2zd 12666 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (𝑙 + 1) ∈ β„€)
437411, 412readdcld 11240 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ (𝑙 + 1) ∈ ℝ)
438411, 412, 415, 413addgt0d 11786 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 0 < (𝑙 + 1))
439410, 437, 438ltled 11359 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 0 ≀ (𝑙 + 1))
440439adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 0 ≀ (𝑙 + 1))
441437adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (𝑙 + 1) ∈ ℝ)
442437recnd 11239 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ (𝑙 + 1) ∈ β„‚)
443 1cnd 11206 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ 1 ∈ β„‚)
444442, 443npcand 11572 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ (((𝑙 + 1) βˆ’ 1) + 1) = (𝑙 + 1))
445444eqcomd 2739 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ (𝑙 + 1) = (((𝑙 + 1) βˆ’ 1) + 1))
446445adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (𝑙 + 1) = (((𝑙 + 1) βˆ’ 1) + 1))
447 peano2re 11384 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑙 ∈ ℝ β†’ (𝑙 + 1) ∈ ℝ)
448 peano2rem 11524 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑙 + 1) ∈ ℝ β†’ ((𝑙 + 1) βˆ’ 1) ∈ ℝ)
449421, 447, 4483syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ ((𝑙 + 1) βˆ’ 1) ∈ ℝ)
450 peano2re 11384 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑗 βˆ’ 1) ∈ ℝ β†’ ((𝑗 βˆ’ 1) + 1) ∈ ℝ)
451 peano2rem 11524 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝑗 βˆ’ 1) + 1) ∈ ℝ β†’ (((𝑗 βˆ’ 1) + 1) βˆ’ 1) ∈ ℝ)
452424, 450, 4513syl 18 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (((𝑗 βˆ’ 1) + 1) βˆ’ 1) ∈ ℝ)
453 1red 11212 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 1 ∈ ℝ)
454 elfzel2 13496 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ (𝑗 βˆ’ 1) ∈ β„€)
455454zred 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ (𝑗 βˆ’ 1) ∈ ℝ)
456455, 412readdcld 11240 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ ((𝑗 βˆ’ 1) + 1) ∈ ℝ)
457411, 455, 412, 426leadd1dd 11825 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ (𝑙 + 1) ≀ ((𝑗 βˆ’ 1) + 1))
458437, 456, 412, 457lesub1dd 11827 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑙 ∈ (1...(𝑗 βˆ’ 1)) β†’ ((𝑙 + 1) βˆ’ 1) ≀ (((𝑗 βˆ’ 1) + 1) βˆ’ 1))
459458adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ ((𝑙 + 1) βˆ’ 1) ≀ (((𝑗 βˆ’ 1) + 1) βˆ’ 1))
460449, 452, 453, 459leadd1dd 11825 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (((𝑙 + 1) βˆ’ 1) + 1) ≀ ((((𝑗 βˆ’ 1) + 1) βˆ’ 1) + 1))
461 peano2zm 12602 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 (𝑗 ∈ β„€ β†’ (𝑗 βˆ’ 1) ∈ β„€)
462362, 461syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 (𝑗 ∈ (0..^𝑀) β†’ (𝑗 βˆ’ 1) ∈ β„€)
463462peano2zd 12666 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 (𝑗 ∈ (0..^𝑀) β†’ ((𝑗 βˆ’ 1) + 1) ∈ β„€)
464463zcnd 12664 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑗 ∈ (0..^𝑀) β†’ ((𝑗 βˆ’ 1) + 1) ∈ β„‚)
465 1cnd 11206 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑗 ∈ (0..^𝑀) β†’ 1 ∈ β„‚)
466464, 465npcand 11572 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑗 ∈ (0..^𝑀) β†’ ((((𝑗 βˆ’ 1) + 1) βˆ’ 1) + 1) = ((𝑗 βˆ’ 1) + 1))
467394recnd 11239 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑗 ∈ (0..^𝑀) β†’ 𝑗 ∈ β„‚)
468467, 465npcand 11572 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (𝑗 ∈ (0..^𝑀) β†’ ((𝑗 βˆ’ 1) + 1) = 𝑗)
469466, 468eqtrd 2773 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (𝑗 ∈ (0..^𝑀) β†’ ((((𝑗 βˆ’ 1) + 1) βˆ’ 1) + 1) = 𝑗)
470469adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ ((((𝑗 βˆ’ 1) + 1) βˆ’ 1) + 1) = 𝑗)
471460, 470breqtrd 5174 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (((𝑙 + 1) βˆ’ 1) + 1) ≀ 𝑗)
472446, 471eqbrtrd 5170 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (𝑙 + 1) ≀ 𝑗)
473472adantll 713 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (𝑙 + 1) ≀ 𝑗)
474441, 420, 419, 473, 431lelttrd 11369 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (𝑙 + 1) < 𝑀)
475441, 419, 474ltled 11359 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (𝑙 + 1) ≀ 𝑀)
476406, 407, 436, 440, 475elfzd 13489 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (𝑙 + 1) ∈ (0...𝑀))
477405, 476ffvelcdmd 7085 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (π‘„β€˜(𝑙 + 1)) ∈ ℝ)
478 simpll 766 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ πœ‘)
479 0zd 12567 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 0 ∈ β„€)
480408adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 ∈ β„€)
481416adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 0 ≀ 𝑙)
482 eluz2 12825 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑙 ∈ (β„€β‰₯β€˜0) ↔ (0 ∈ β„€ ∧ 𝑙 ∈ β„€ ∧ 0 ≀ 𝑙))
483479, 480, 481, 482syl3anbrc 1344 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 ∈ (β„€β‰₯β€˜0))
484 elfzoel2 13628 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑗 ∈ (0..^𝑀) β†’ 𝑀 ∈ β„€)
485484adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑀 ∈ β„€)
486485zred 12663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑀 ∈ ℝ)
487398adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑗 < 𝑀)
488421, 425, 486, 429, 487lttrd 11372 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 < 𝑀)
489 elfzo2 13632 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑙 ∈ (0..^𝑀) ↔ (𝑙 ∈ (β„€β‰₯β€˜0) ∧ 𝑀 ∈ β„€ ∧ 𝑙 < 𝑀))
490483, 485, 488, 489syl3anbrc 1344 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑗 ∈ (0..^𝑀) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 ∈ (0..^𝑀))
491490adantll 713 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ 𝑙 ∈ (0..^𝑀))
492 eleq1 2822 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑖 = 𝑙 β†’ (𝑖 ∈ (0..^𝑀) ↔ 𝑙 ∈ (0..^𝑀)))
493492anbi2d 630 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑖 = 𝑙 β†’ ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ↔ (πœ‘ ∧ 𝑙 ∈ (0..^𝑀))))
494 fveq2 6889 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑖 = 𝑙 β†’ (π‘„β€˜π‘–) = (π‘„β€˜π‘™))
495 oveq1 7413 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑖 = 𝑙 β†’ (𝑖 + 1) = (𝑙 + 1))
496495fveq2d 6893 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑖 = 𝑙 β†’ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜(𝑙 + 1)))
497494, 496breq12d 5161 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑖 = 𝑙 β†’ ((π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)) ↔ (π‘„β€˜π‘™) < (π‘„β€˜(𝑙 + 1))))
498493, 497imbi12d 345 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑖 = 𝑙 β†’ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1))) ↔ ((πœ‘ ∧ 𝑙 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘™) < (π‘„β€˜(𝑙 + 1)))))
499498, 150chvarvv 2003 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑙 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘™) < (π‘„β€˜(𝑙 + 1)))
500478, 491, 499syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (π‘„β€˜π‘™) < (π‘„β€˜(𝑙 + 1)))
501435, 477, 500ltled 11359 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (π‘„β€˜π‘™) ≀ (π‘„β€˜(𝑙 + 1)))
502501adantlr 714 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) ∧ 𝑙 ∈ (1...(𝑗 βˆ’ 1))) β†’ (π‘„β€˜π‘™) ≀ (π‘„β€˜(𝑙 + 1)))
503376, 404, 502monoord 13995 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ (π‘„β€˜1) ≀ (π‘„β€˜π‘—))
504354, 355, 359, 360, 503ltletrd 11371 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ 𝐴 < (π‘„β€˜π‘—))
505354, 359ltnled 11358 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ (𝐴 < (π‘„β€˜π‘—) ↔ Β¬ (π‘„β€˜π‘—) ≀ 𝐴))
506504, 505mpbid 231 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) ∧ Β¬ 𝑗 ≀ 0) β†’ Β¬ (π‘„β€˜π‘—) ≀ 𝐴)
507506ex 414 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀)) β†’ (Β¬ 𝑗 ≀ 0 β†’ Β¬ (π‘„β€˜π‘—) ≀ 𝐴))
5085073adant3 1133 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀) ∧ (π‘„β€˜π‘—) ≀ 𝐴) β†’ (Β¬ 𝑗 ≀ 0 β†’ Β¬ (π‘„β€˜π‘—) ≀ 𝐴))
509353, 508mt4d 117 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀) ∧ (π‘„β€˜π‘—) ≀ 𝐴) β†’ 𝑗 ≀ 0)
510 elfzole1 13637 . . . . . . . . . . . . . . . . . 18 (𝑗 ∈ (0..^𝑀) β†’ 0 ≀ 𝑗)
5115103ad2ant2 1135 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀) ∧ (π‘„β€˜π‘—) ≀ 𝐴) β†’ 0 ≀ 𝑗)
5123943ad2ant2 1135 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀) ∧ (π‘„β€˜π‘—) ≀ 𝐴) β†’ 𝑗 ∈ ℝ)
513 0red 11214 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀) ∧ (π‘„β€˜π‘—) ≀ 𝐴) β†’ 0 ∈ ℝ)
514512, 513letri3d 11353 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀) ∧ (π‘„β€˜π‘—) ≀ 𝐴) β†’ (𝑗 = 0 ↔ (𝑗 ≀ 0 ∧ 0 ≀ 𝑗)))
515509, 511, 514mpbir2and 712 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑀) ∧ (π‘„β€˜π‘—) ≀ 𝐴) β†’ 𝑗 = 0)
516345, 347, 352, 515syl3anc 1372 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}) β†’ 𝑗 = 0)
517 velsn 4644 . . . . . . . . . . . . . . 15 (𝑗 ∈ {0} ↔ 𝑗 = 0)
518516, 517sylibr 233 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑗 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}) β†’ 𝑗 ∈ {0})
519518ralrimiva 3147 . . . . . . . . . . . . 13 (πœ‘ β†’ βˆ€π‘— ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}𝑗 ∈ {0})
520 dfss3 3970 . . . . . . . . . . . . 13 ({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴} βŠ† {0} ↔ βˆ€π‘— ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}𝑗 ∈ {0})
521519, 520sylibr 233 . . . . . . . . . . . 12 (πœ‘ β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴} βŠ† {0})
522155, 112eqeltrd 2834 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘„β€˜0) ∈ ℝ)
523522, 155eqled 11314 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘„β€˜0) ≀ 𝐴)
524143breq1d 5158 . . . . . . . . . . . . . . 15 (𝑖 = 0 β†’ ((π‘„β€˜π‘–) ≀ 𝐴 ↔ (π‘„β€˜0) ≀ 𝐴))
525524elrab 3683 . . . . . . . . . . . . . 14 (0 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴} ↔ (0 ∈ (0..^𝑀) ∧ (π‘„β€˜0) ≀ 𝐴))
526139, 523, 525sylanbrc 584 . . . . . . . . . . . . 13 (πœ‘ β†’ 0 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴})
527526snssd 4812 . . . . . . . . . . . 12 (πœ‘ β†’ {0} βŠ† {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴})
528521, 527eqssd 3999 . . . . . . . . . . 11 (πœ‘ β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴} = {0})
529528supeq1d 9438 . . . . . . . . . 10 (πœ‘ β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}, ℝ, < ) = sup({0}, ℝ, < ))
530 supsn 9464 . . . . . . . . . . . 12 (( < Or ℝ ∧ 0 ∈ ℝ) β†’ sup({0}, ℝ, < ) = 0)
53159, 140, 530mp2an 691 . . . . . . . . . . 11 sup({0}, ℝ, < ) = 0
532531a1i 11 . . . . . . . . . 10 (πœ‘ β†’ sup({0}, ℝ, < ) = 0)
533529, 532eqtrd 2773 . . . . . . . . 9 (πœ‘ β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}, ℝ, < ) = 0)
534533ad2antrr 725 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ 𝐴}, ℝ, < ) = 0)
535332, 344, 5343eqtrd 2777 . . . . . . 7 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΌβ€˜(π‘†β€˜π‘—)) = 0)
536535oveq1d 7421 . . . . . 6 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) = (0 + 1))
537536fveq2d 6893 . . . . 5 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) = (π‘„β€˜(0 + 1)))
538537, 157eqtr2di 2790 . . . 4 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (π‘„β€˜1) = (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
539328, 538breqtrd 5174 . . 3 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜(π‘†β€˜(𝑗 + 1))) ≀ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
54065adantr 482 . . . 4 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πœ‘ ∧ (π‘†β€˜π‘—) ∈ ℝ))
541 simplr 768 . . . 4 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝑗 ∈ (0..^𝑁))
54213a1i 11 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝐿 = (𝑦 ∈ (𝐴(,]𝐡) ↦ if(𝑦 = 𝐡, 𝐴, 𝑦)))
543 simpr 486 . . . . . . . . . . . . . . . 16 ((Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡 ∧ 𝑦 = (πΈβ€˜(π‘†β€˜π‘—))) β†’ 𝑦 = (πΈβ€˜(π‘†β€˜π‘—)))
544 neqne 2949 . . . . . . . . . . . . . . . . 17 (Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡 β†’ (πΈβ€˜(π‘†β€˜π‘—)) β‰  𝐡)
545544adantr 482 . . . . . . . . . . . . . . . 16 ((Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡 ∧ 𝑦 = (πΈβ€˜(π‘†β€˜π‘—))) β†’ (πΈβ€˜(π‘†β€˜π‘—)) β‰  𝐡)
546543, 545eqnetrd 3009 . . . . . . . . . . . . . . 15 ((Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡 ∧ 𝑦 = (πΈβ€˜(π‘†β€˜π‘—))) β†’ 𝑦 β‰  𝐡)
547546neneqd 2946 . . . . . . . . . . . . . 14 ((Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡 ∧ 𝑦 = (πΈβ€˜(π‘†β€˜π‘—))) β†’ Β¬ 𝑦 = 𝐡)
548547iffalsed 4539 . . . . . . . . . . . . 13 ((Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡 ∧ 𝑦 = (πΈβ€˜(π‘†β€˜π‘—))) β†’ if(𝑦 = 𝐡, 𝐴, 𝑦) = 𝑦)
549548, 543eqtrd 2773 . . . . . . . . . . . 12 ((Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡 ∧ 𝑦 = (πΈβ€˜(π‘†β€˜π‘—))) β†’ if(𝑦 = 𝐡, 𝐴, 𝑦) = (πΈβ€˜(π‘†β€˜π‘—)))
550549adantll 713 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) ∧ 𝑦 = (πΈβ€˜(π‘†β€˜π‘—))) β†’ if(𝑦 = 𝐡, 𝐴, 𝑦) = (πΈβ€˜(π‘†β€˜π‘—)))
551112, 216, 218, 11, 12fourierdlem4 44814 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐸:β„βŸΆ(𝐴(,]𝐡))
552551adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝐸:β„βŸΆ(𝐴(,]𝐡))
553552, 42ffvelcdmd 7085 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΈβ€˜(π‘†β€˜π‘—)) ∈ (𝐴(,]𝐡))
554553adantr 482 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜(π‘†β€˜π‘—)) ∈ (𝐴(,]𝐡))
555542, 550, 554, 554fvmptd 7003 . . . . . . . . . 10 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) = (πΈβ€˜(π‘†β€˜π‘—)))
556555eqcomd 2739 . . . . . . . . 9 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜(π‘†β€˜π‘—)) = (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))))
557112, 216, 218, 13fourierdlem17 44827 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐿:(𝐴(,]𝐡)⟢(𝐴[,]𝐡))
558557adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝐿:(𝐴(,]𝐡)⟢(𝐴[,]𝐡))
559112, 216iccssred 13408 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐴[,]𝐡) βŠ† ℝ)
560559adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (𝐴[,]𝐡) βŠ† ℝ)
561558, 560fssd 6733 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝐿:(𝐴(,]𝐡)βŸΆβ„)
562561, 553ffvelcdmd 7085 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) ∈ ℝ)
563562adantr 482 . . . . . . . . 9 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) ∈ ℝ)
564556, 563eqeltrd 2834 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜(π‘†β€˜π‘—)) ∈ ℝ)
565216ad2antrr 725 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝐡 ∈ ℝ)
566243adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝐴 ∈ ℝ*)
567216adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝐡 ∈ ℝ)
568 elioc2 13384 . . . . . . . . . . . 12 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ) β†’ ((πΈβ€˜(π‘†β€˜π‘—)) ∈ (𝐴(,]𝐡) ↔ ((πΈβ€˜(π‘†β€˜π‘—)) ∈ ℝ ∧ 𝐴 < (πΈβ€˜(π‘†β€˜π‘—)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) ≀ 𝐡)))
569566, 567, 568syl2anc 585 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜π‘—)) ∈ (𝐴(,]𝐡) ↔ ((πΈβ€˜(π‘†β€˜π‘—)) ∈ ℝ ∧ 𝐴 < (πΈβ€˜(π‘†β€˜π‘—)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) ≀ 𝐡)))
570553, 569mpbid 231 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜π‘—)) ∈ ℝ ∧ 𝐴 < (πΈβ€˜(π‘†β€˜π‘—)) ∧ (πΈβ€˜(π‘†β€˜π‘—)) ≀ 𝐡))
571570simp3d 1145 . . . . . . . . 9 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΈβ€˜(π‘†β€˜π‘—)) ≀ 𝐡)
572571adantr 482 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜(π‘†β€˜π‘—)) ≀ 𝐡)
573544necomd 2997 . . . . . . . . 9 (Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡 β†’ 𝐡 β‰  (πΈβ€˜(π‘†β€˜π‘—)))
574573adantl 483 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ 𝐡 β‰  (πΈβ€˜(π‘†β€˜π‘—)))
575564, 565, 572, 574leneltd 11365 . . . . . . 7 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜(π‘†β€˜π‘—)) < 𝐡)
576575adantr 482 . . . . . 6 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) ∧ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (πΈβ€˜(π‘†β€˜π‘—)) < 𝐡)
577 oveq1 7413 . . . . . . . . . . 11 ((πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) = ((𝑀 βˆ’ 1) + 1))
5782nncnd 12225 . . . . . . . . . . . 12 (πœ‘ β†’ 𝑀 ∈ β„‚)
579 1cnd 11206 . . . . . . . . . . . 12 (πœ‘ β†’ 1 ∈ β„‚)
580578, 579npcand 11572 . . . . . . . . . . 11 (πœ‘ β†’ ((𝑀 βˆ’ 1) + 1) = 𝑀)
581577, 580sylan9eqr 2795 . . . . . . . . . 10 ((πœ‘ ∧ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) = 𝑀)
582581fveq2d 6893 . . . . . . . . 9 ((πœ‘ ∧ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) = (π‘„β€˜π‘€))
583154simprd 497 . . . . . . . . . 10 (πœ‘ β†’ (π‘„β€˜π‘€) = 𝐡)
584583adantr 482 . . . . . . . . 9 ((πœ‘ ∧ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (π‘„β€˜π‘€) = 𝐡)
585582, 584eqtr2d 2774 . . . . . . . 8 ((πœ‘ ∧ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ 𝐡 = (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
586585adantlr 714 . . . . . . 7 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ 𝐡 = (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
587586adantlr 714 . . . . . 6 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) ∧ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ 𝐡 = (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
588576, 587breqtrd 5174 . . . . 5 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) ∧ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
589556adantr 482 . . . . . 6 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (πΈβ€˜(π‘†β€˜π‘—)) = (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))))
590 ssrab2 4077 . . . . . . . . . . . . 13 {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} βŠ† (0..^𝑀)
591 fzssz 13500 . . . . . . . . . . . . . . 15 (0...𝑀) βŠ† β„€
59217, 591sstri 3991 . . . . . . . . . . . . . 14 (0..^𝑀) βŠ† β„€
593 zssre 12562 . . . . . . . . . . . . . 14 β„€ βŠ† ℝ
594592, 593sstri 3991 . . . . . . . . . . . . 13 (0..^𝑀) βŠ† ℝ
595590, 594sstri 3991 . . . . . . . . . . . 12 {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} βŠ† ℝ
596595a1i 11 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} βŠ† ℝ)
59756neeq1d 3001 . . . . . . . . . . . . . . 15 (π‘₯ = (π‘†β€˜π‘—) β†’ ({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))} β‰  βˆ… ↔ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} β‰  βˆ…))
59867, 597imbi12d 345 . . . . . . . . . . . . . 14 (π‘₯ = (π‘†β€˜π‘—) β†’ (((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))} β‰  βˆ…) ↔ ((πœ‘ ∧ (π‘†β€˜π‘—) ∈ ℝ) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} β‰  βˆ…)))
599139adantr 482 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ 0 ∈ (0..^𝑀))
600523ad2antrr 725 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘₯ ∈ ℝ) ∧ (πΈβ€˜π‘₯) = 𝐡) β†’ (π‘„β€˜0) ≀ 𝐴)
601 iftrue 4534 . . . . . . . . . . . . . . . . . . . . 21 ((πΈβ€˜π‘₯) = 𝐡 β†’ if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)) = 𝐴)
602601eqcomd 2739 . . . . . . . . . . . . . . . . . . . 20 ((πΈβ€˜π‘₯) = 𝐡 β†’ 𝐴 = if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)))
603602adantl 483 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘₯ ∈ ℝ) ∧ (πΈβ€˜π‘₯) = 𝐡) β†’ 𝐴 = if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)))
604600, 603breqtrd 5174 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ π‘₯ ∈ ℝ) ∧ (πΈβ€˜π‘₯) = 𝐡) β†’ (π‘„β€˜0) ≀ if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)))
605522adantr 482 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (π‘„β€˜0) ∈ ℝ)
606112adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ 𝐴 ∈ ℝ)
607606rexrd 11261 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ 𝐴 ∈ ℝ*)
608216adantr 482 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ 𝐡 ∈ ℝ)
609 iocssre 13401 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ) β†’ (𝐴(,]𝐡) βŠ† ℝ)
610607, 608, 609syl2anc 585 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (𝐴(,]𝐡) βŠ† ℝ)
611551ffvelcdmda 7084 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (πΈβ€˜π‘₯) ∈ (𝐴(,]𝐡))
612610, 611sseldd 3983 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (πΈβ€˜π‘₯) ∈ ℝ)
613155adantr 482 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (π‘„β€˜0) = 𝐴)
614 elioc2 13384 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ) β†’ ((πΈβ€˜π‘₯) ∈ (𝐴(,]𝐡) ↔ ((πΈβ€˜π‘₯) ∈ ℝ ∧ 𝐴 < (πΈβ€˜π‘₯) ∧ (πΈβ€˜π‘₯) ≀ 𝐡)))
615607, 608, 614syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ ((πΈβ€˜π‘₯) ∈ (𝐴(,]𝐡) ↔ ((πΈβ€˜π‘₯) ∈ ℝ ∧ 𝐴 < (πΈβ€˜π‘₯) ∧ (πΈβ€˜π‘₯) ≀ 𝐡)))
616611, 615mpbid 231 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ ((πΈβ€˜π‘₯) ∈ ℝ ∧ 𝐴 < (πΈβ€˜π‘₯) ∧ (πΈβ€˜π‘₯) ≀ 𝐡))
617616simp2d 1144 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ 𝐴 < (πΈβ€˜π‘₯))
618613, 617eqbrtrd 5170 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (π‘„β€˜0) < (πΈβ€˜π‘₯))
619605, 612, 618ltled 11359 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (π‘„β€˜0) ≀ (πΈβ€˜π‘₯))
620619adantr 482 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘₯ ∈ ℝ) ∧ Β¬ (πΈβ€˜π‘₯) = 𝐡) β†’ (π‘„β€˜0) ≀ (πΈβ€˜π‘₯))
621 iffalse 4537 . . . . . . . . . . . . . . . . . . . . 21 (Β¬ (πΈβ€˜π‘₯) = 𝐡 β†’ if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)) = (πΈβ€˜π‘₯))
622621eqcomd 2739 . . . . . . . . . . . . . . . . . . . 20 (Β¬ (πΈβ€˜π‘₯) = 𝐡 β†’ (πΈβ€˜π‘₯) = if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)))
623622adantl 483 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘₯ ∈ ℝ) ∧ Β¬ (πΈβ€˜π‘₯) = 𝐡) β†’ (πΈβ€˜π‘₯) = if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)))
624620, 623breqtrd 5174 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ π‘₯ ∈ ℝ) ∧ Β¬ (πΈβ€˜π‘₯) = 𝐡) β†’ (π‘„β€˜0) ≀ if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)))
625604, 624pm2.61dan 812 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (π‘„β€˜0) ≀ if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)))
62613a1i 11 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ 𝐿 = (𝑦 ∈ (𝐴(,]𝐡) ↦ if(𝑦 = 𝐡, 𝐴, 𝑦)))
627 eqeq1 2737 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (πΈβ€˜π‘₯) β†’ (𝑦 = 𝐡 ↔ (πΈβ€˜π‘₯) = 𝐡))
628 id 22 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (πΈβ€˜π‘₯) β†’ 𝑦 = (πΈβ€˜π‘₯))
629627, 628ifbieq2d 4554 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (πΈβ€˜π‘₯) β†’ if(𝑦 = 𝐡, 𝐴, 𝑦) = if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)))
630629adantl 483 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ π‘₯ ∈ ℝ) ∧ 𝑦 = (πΈβ€˜π‘₯)) β†’ if(𝑦 = 𝐡, 𝐴, 𝑦) = if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)))
631606, 612ifcld 4574 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)) ∈ ℝ)
632626, 630, 611, 631fvmptd 7003 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (πΏβ€˜(πΈβ€˜π‘₯)) = if((πΈβ€˜π‘₯) = 𝐡, 𝐴, (πΈβ€˜π‘₯)))
633625, 632breqtrrd 5176 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (π‘„β€˜0) ≀ (πΏβ€˜(πΈβ€˜π‘₯)))
634143breq1d 5158 . . . . . . . . . . . . . . . . 17 (𝑖 = 0 β†’ ((π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯)) ↔ (π‘„β€˜0) ≀ (πΏβ€˜(πΈβ€˜π‘₯))))
635634elrab 3683 . . . . . . . . . . . . . . . 16 (0 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))} ↔ (0 ∈ (0..^𝑀) ∧ (π‘„β€˜0) ≀ (πΏβ€˜(πΈβ€˜π‘₯))))
636599, 633, 635sylanbrc 584 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ 0 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))})
637 ne0i 4334 . . . . . . . . . . . . . . 15 (0 ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))} β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))} β‰  βˆ…)
638636, 637syl 17 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))} β‰  βˆ…)
639598, 638vtoclg 3557 . . . . . . . . . . . . 13 ((π‘†β€˜π‘—) ∈ ℝ β†’ ((πœ‘ ∧ (π‘†β€˜π‘—) ∈ ℝ) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} β‰  βˆ…))
64042, 65, 639sylc 65 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} β‰  βˆ…)
641640ad2antrr 725 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} β‰  βˆ…)
642595a1i 11 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} βŠ† ℝ)
643 fzofi 13936 . . . . . . . . . . . . . . 15 (0..^𝑀) ∈ Fin
644 ssfi 9170 . . . . . . . . . . . . . . 15 (((0..^𝑀) ∈ Fin ∧ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} βŠ† (0..^𝑀)) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} ∈ Fin)
645643, 590, 644mp2an 691 . . . . . . . . . . . . . 14 {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} ∈ Fin
646645a1i 11 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} ∈ Fin)
647 fimaxre2 12156 . . . . . . . . . . . . 13 (({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} βŠ† ℝ ∧ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} ∈ Fin) β†’ βˆƒπ‘₯ ∈ ℝ βˆ€π‘™ ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}𝑙 ≀ π‘₯)
648642, 646, 647syl2anc 585 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ βˆƒπ‘₯ ∈ ℝ βˆ€π‘™ ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}𝑙 ≀ π‘₯)
649648ad2antrr 725 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) β†’ βˆƒπ‘₯ ∈ ℝ βˆ€π‘™ ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}𝑙 ≀ π‘₯)
650 0red 11214 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 0 ∈ ℝ)
651594, 47sselid 3980 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) ∈ ℝ)
652 1red 11212 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 1 ∈ ℝ)
653651, 652readdcld 11240 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ ℝ)
654 elfzouz 13633 . . . . . . . . . . . . . . . . . 18 ((πΌβ€˜(π‘†β€˜π‘—)) ∈ (0..^𝑀) β†’ (πΌβ€˜(π‘†β€˜π‘—)) ∈ (β„€β‰₯β€˜0))
655 eluzle 12832 . . . . . . . . . . . . . . . . . 18 ((πΌβ€˜(π‘†β€˜π‘—)) ∈ (β„€β‰₯β€˜0) β†’ 0 ≀ (πΌβ€˜(π‘†β€˜π‘—)))
65647, 654, 6553syl 18 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 0 ≀ (πΌβ€˜(π‘†β€˜π‘—)))
657385a1i 11 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 0 < 1)
658651, 652, 656, 657addgegt0d 11784 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 0 < ((πΌβ€˜(π‘†β€˜π‘—)) + 1))
659650, 653, 658ltled 11359 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 0 ≀ ((πΌβ€˜(π‘†β€˜π‘—)) + 1))
660659adantr 482 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ 0 ≀ ((πΌβ€˜(π‘†β€˜π‘—)) + 1))
661651adantr 482 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) ∈ ℝ)
662 1red 11212 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 1 ∈ ℝ)
663392, 662resubcld 11639 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑀 βˆ’ 1) ∈ ℝ)
664663ad2antrr 725 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (𝑀 βˆ’ 1) ∈ ℝ)
665 1red 11212 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ 1 ∈ ℝ)
666 elfzolt2 13638 . . . . . . . . . . . . . . . . . . . 20 ((πΌβ€˜(π‘†β€˜π‘—)) ∈ (0..^𝑀) β†’ (πΌβ€˜(π‘†β€˜π‘—)) < 𝑀)
66747, 666syl 17 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) < 𝑀)
66843elfzelzd 13499 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) ∈ β„€)
66996adantr 482 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ 𝑀 ∈ β„€)
670 zltlem1 12612 . . . . . . . . . . . . . . . . . . . 20 (((πΌβ€˜(π‘†β€˜π‘—)) ∈ β„€ ∧ 𝑀 ∈ β„€) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) < 𝑀 ↔ (πΌβ€˜(π‘†β€˜π‘—)) ≀ (𝑀 βˆ’ 1)))
671668, 669, 670syl2anc 585 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) < 𝑀 ↔ (πΌβ€˜(π‘†β€˜π‘—)) ≀ (𝑀 βˆ’ 1)))
672667, 671mpbid 231 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) ≀ (𝑀 βˆ’ 1))
673672adantr 482 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) ≀ (𝑀 βˆ’ 1))
674 neqne 2949 . . . . . . . . . . . . . . . . . . 19 (Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1) β†’ (πΌβ€˜(π‘†β€˜π‘—)) β‰  (𝑀 βˆ’ 1))
675674necomd 2997 . . . . . . . . . . . . . . . . . 18 (Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1) β†’ (𝑀 βˆ’ 1) β‰  (πΌβ€˜(π‘†β€˜π‘—)))
676675adantl 483 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (𝑀 βˆ’ 1) β‰  (πΌβ€˜(π‘†β€˜π‘—)))
677661, 664, 673, 676leneltd 11365 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) < (𝑀 βˆ’ 1))
678661, 664, 665, 677ltadd1dd 11822 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) < ((𝑀 βˆ’ 1) + 1))
679580ad2antrr 725 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ ((𝑀 βˆ’ 1) + 1) = 𝑀)
680678, 679breqtrd 5174 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) < 𝑀)
68149elfzelzd 13499 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ β„€)
682681adantr 482 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ β„€)
683 0zd 12567 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ 0 ∈ β„€)
68496ad2antrr 725 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ 𝑀 ∈ β„€)
685 elfzo 13631 . . . . . . . . . . . . . . 15 ((((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ β„€ ∧ 0 ∈ β„€ ∧ 𝑀 ∈ β„€) β†’ (((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ (0..^𝑀) ↔ (0 ≀ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∧ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) < 𝑀)))
686682, 683, 684, 685syl3anc 1372 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ (0..^𝑀) ↔ (0 ≀ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∧ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) < 𝑀)))
687660, 680, 686mpbir2and 712 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ (0..^𝑀))
688687adantr 482 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ (0..^𝑀))
689 simpr 486 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) β†’ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))))
690 fveq2 6889 . . . . . . . . . . . . . 14 (𝑖 = ((πΌβ€˜(π‘†β€˜π‘—)) + 1) β†’ (π‘„β€˜π‘–) = (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
691690breq1d 5158 . . . . . . . . . . . . 13 (𝑖 = ((πΌβ€˜(π‘†β€˜π‘—)) + 1) β†’ ((π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) ↔ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))))
692691elrab 3683 . . . . . . . . . . . 12 (((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} ↔ (((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ (0..^𝑀) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))))
693688, 689, 692sylanbrc 584 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))})
694 suprub 12172 . . . . . . . . . . 11 ((({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} βŠ† ℝ ∧ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))} β‰  βˆ… ∧ βˆƒπ‘₯ ∈ ℝ βˆ€π‘™ ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}𝑙 ≀ π‘₯) ∧ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ≀ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ))
695596, 641, 649, 693, 694syl31anc 1374 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ≀ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ))
69662eqcomd 2739 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) = (πΌβ€˜(π‘†β€˜π‘—)))
697696ad2antrr 725 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))}, ℝ, < ) = (πΌβ€˜(π‘†β€˜π‘—)))
698695, 697breqtrd 5174 . . . . . . . . 9 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ≀ (πΌβ€˜(π‘†β€˜π‘—)))
699651ltp1d 12141 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΌβ€˜(π‘†β€˜π‘—)) < ((πΌβ€˜(π‘†β€˜π‘—)) + 1))
700651, 653ltnled 11358 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) < ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ↔ Β¬ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ≀ (πΌβ€˜(π‘†β€˜π‘—))))
701699, 700mpbid 231 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ Β¬ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ≀ (πΌβ€˜(π‘†β€˜π‘—)))
702701ad2antrr 725 . . . . . . . . 9 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) β†’ Β¬ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ≀ (πΌβ€˜(π‘†β€˜π‘—)))
703698, 702pm2.65da 816 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ Β¬ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))))
704562adantr 482 . . . . . . . . 9 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) ∈ ℝ)
70550adantr 482 . . . . . . . . 9 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ∈ ℝ)
706704, 705ltnled 11358 . . . . . . . 8 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ↔ Β¬ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))))
707703, 706mpbird 257 . . . . . . 7 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
708707adantlr 714 . . . . . 6 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
709589, 708eqbrtrd 5170 . . . . 5 ((((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) ∧ Β¬ (πΌβ€˜(π‘†β€˜π‘—)) = (𝑀 βˆ’ 1)) β†’ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
710588, 709pm2.61dan 812 . . . 4 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
71123ad2ant1 1134 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ 𝑀 ∈ β„•)
71213ad2ant1 1134 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ 𝑄 ∈ (π‘ƒβ€˜π‘€))
713213ad2ant1 1134 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ 𝐢 ∈ ℝ)
714223ad2ant1 1134 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ 𝐷 ∈ ℝ)
715233ad2ant1 1134 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ 𝐢 < 𝐷)
716493adant3 1133 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) ∈ (0...𝑀))
717 simp2 1138 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ 𝑗 ∈ (0..^𝑁))
71842leidd 11777 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜π‘—) ≀ (π‘†β€˜π‘—))
719 elico2 13385 . . . . . . . . 9 (((π‘†β€˜π‘—) ∈ ℝ ∧ (π‘†β€˜(𝑗 + 1)) ∈ ℝ*) β†’ ((π‘†β€˜π‘—) ∈ ((π‘†β€˜π‘—)[,)(π‘†β€˜(𝑗 + 1))) ↔ ((π‘†β€˜π‘—) ∈ ℝ ∧ (π‘†β€˜π‘—) ≀ (π‘†β€˜π‘—) ∧ (π‘†β€˜π‘—) < (π‘†β€˜(𝑗 + 1)))))
72042, 210, 719syl2anc 585 . . . . . . . 8 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((π‘†β€˜π‘—) ∈ ((π‘†β€˜π‘—)[,)(π‘†β€˜(𝑗 + 1))) ↔ ((π‘†β€˜π‘—) ∈ ℝ ∧ (π‘†β€˜π‘—) ≀ (π‘†β€˜π‘—) ∧ (π‘†β€˜π‘—) < (π‘†β€˜(𝑗 + 1)))))
72142, 718, 129, 720mpbir3and 1343 . . . . . . 7 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (π‘†β€˜π‘—) ∈ ((π‘†β€˜π‘—)[,)(π‘†β€˜(𝑗 + 1))))
7227213adant3 1133 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ (π‘†β€˜π‘—) ∈ ((π‘†β€˜π‘—)[,)(π‘†β€˜(𝑗 + 1))))
723 simp3 1139 . . . . . 6 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
724 eqid 2733 . . . . . 6 ((π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) βˆ’ ((πΈβ€˜(π‘†β€˜π‘—)) βˆ’ (π‘†β€˜π‘—))) = ((π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) βˆ’ ((πΈβ€˜(π‘†β€˜π‘—)) βˆ’ (π‘†β€˜π‘—)))
72511, 3, 711, 712, 713, 714, 715, 24, 25, 26, 27, 12, 716, 717, 722, 723, 724fourierdlem63 44872 . . . . 5 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ (πΈβ€˜(π‘†β€˜(𝑗 + 1))) ≀ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
7267253adant1r 1178 . . . 4 (((πœ‘ ∧ (π‘†β€˜π‘—) ∈ ℝ) ∧ 𝑗 ∈ (0..^𝑁) ∧ (πΈβ€˜(π‘†β€˜π‘—)) < (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) β†’ (πΈβ€˜(π‘†β€˜(𝑗 + 1))) ≀ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
727540, 541, 710, 726syl3anc 1372 . . 3 (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ∧ Β¬ (πΈβ€˜(π‘†β€˜π‘—)) = 𝐡) β†’ (πΈβ€˜(π‘†β€˜(𝑗 + 1))) ≀ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
728539, 727pm2.61dan 812 . 2 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ (πΈβ€˜(π‘†β€˜(𝑗 + 1))) ≀ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))
729 ioossioo 13415 . 2 ((((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—))) ∈ ℝ* ∧ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) ∈ ℝ*) ∧ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—))) ≀ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) ∧ (πΈβ€˜(π‘†β€˜(𝑗 + 1))) ≀ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))))
73045, 51, 89, 728, 729syl22anc 838 1 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107   β‰  wne 2941  βˆ€wral 3062  βˆƒwrex 3071  {crab 3433  Vcvv 3475   βˆͺ cun 3946   βŠ† wss 3948  βˆ…c0 4322  ifcif 4528  {csn 4628  {cpr 4630   class class class wbr 5148   ↦ cmpt 5231   Or wor 5587  ran crn 5677  β„©cio 6491  βŸΆwf 6537  β€˜cfv 6541   Isom wiso 6542  (class class class)co 7406   ↑m cmap 8817  Fincfn 8936  supcsup 9432  β„‚cc 11105  β„cr 11106  0cc0 11107  1c1 11108   + caddc 11110   Β· cmul 11112  β„*cxr 11244   < clt 11245   ≀ cle 11246   βˆ’ cmin 11441   / cdiv 11868  β„•cn 12209  2c2 12264  β„€cz 12555  β„€β‰₯cuz 12819  β„+crp 12971  (,)cioo 13321  (,]cioc 13322  [,)cico 13323  [,]cicc 13324  ...cfz 13481  ..^cfzo 13624  βŒŠcfl 13752  β™―chash 14287
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-inf2 9633  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-pre-sup 11185
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-om 7853  df-1st 7972  df-2nd 7973  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-oadd 8467  df-er 8700  df-map 8819  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-fi 9403  df-sup 9434  df-inf 9435  df-oi 9502  df-dju 9893  df-card 9931  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-3 12273  df-n0 12470  df-xnn0 12542  df-z 12556  df-uz 12820  df-q 12930  df-rp 12972  df-xneg 13089  df-xadd 13090  df-xmul 13091  df-ioo 13325  df-ioc 13326  df-ico 13327  df-icc 13328  df-fz 13482  df-fzo 13625  df-fl 13754  df-seq 13964  df-exp 14025  df-hash 14288  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  df-rest 17365  df-topgen 17386  df-psmet 20929  df-xmet 20930  df-met 20931  df-bl 20932  df-mopn 20933  df-top 22388  df-topon 22405  df-bases 22441  df-cld 22515  df-ntr 22516  df-cls 22517  df-nei 22594  df-lp 22632  df-cmp 22883
This theorem is referenced by:  fourierdlem89  44898  fourierdlem90  44899  fourierdlem91  44900
  Copyright terms: Public domain W3C validator