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

Theorem hoidmvlelem1 45796
Description: The supremum of π‘ˆ belongs to π‘ˆ. Step (c) in the proof of Lemma 115B of [Fremlin1] p. 29. (Contributed by Glauco Siliprandi, 21-Nov-2020.)
Hypotheses
Ref Expression
hoidmvlelem1.l 𝐿 = (π‘₯ ∈ Fin ↦ (π‘Ž ∈ (ℝ ↑m π‘₯), 𝑏 ∈ (ℝ ↑m π‘₯) ↦ if(π‘₯ = βˆ…, 0, βˆπ‘˜ ∈ π‘₯ (volβ€˜((π‘Žβ€˜π‘˜)[,)(π‘β€˜π‘˜))))))
hoidmvlelem1.x (πœ‘ β†’ 𝑋 ∈ Fin)
hoidmvlelem1.y (πœ‘ β†’ π‘Œ βŠ† 𝑋)
hoidmvlelem1.z (πœ‘ β†’ 𝑍 ∈ (𝑋 βˆ– π‘Œ))
hoidmvlelem1.w π‘Š = (π‘Œ βˆͺ {𝑍})
hoidmvlelem1.a (πœ‘ β†’ 𝐴:π‘ŠβŸΆβ„)
hoidmvlelem1.b (πœ‘ β†’ 𝐡:π‘ŠβŸΆβ„)
hoidmvlelem1.c (πœ‘ β†’ 𝐢:β„•βŸΆ(ℝ ↑m π‘Š))
hoidmvlelem1.d (πœ‘ β†’ 𝐷:β„•βŸΆ(ℝ ↑m π‘Š))
hoidmvlelem1.r (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)))) ∈ ℝ)
hoidmvlelem1.h 𝐻 = (π‘₯ ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑m π‘Š) ↦ (𝑗 ∈ π‘Š ↦ if(𝑗 ∈ π‘Œ, (π‘β€˜π‘—), if((π‘β€˜π‘—) ≀ π‘₯, (π‘β€˜π‘—), π‘₯)))))
hoidmvlelem1.g 𝐺 = ((𝐴 β†Ύ π‘Œ)(πΏβ€˜π‘Œ)(𝐡 β†Ύ π‘Œ))
hoidmvlelem1.e (πœ‘ β†’ 𝐸 ∈ ℝ+)
hoidmvlelem1.u π‘ˆ = {𝑧 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∣ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))))}
hoidmvlelem1.s 𝑆 = sup(π‘ˆ, ℝ, < )
hoidmvlelem1.ab (πœ‘ β†’ (π΄β€˜π‘) < (π΅β€˜π‘))
Assertion
Ref Expression
hoidmvlelem1 (πœ‘ β†’ 𝑆 ∈ π‘ˆ)
Distinct variable groups:   𝐴,π‘Ž,𝑏,𝑗,π‘˜,π‘₯   𝐴,𝑐,𝑗,π‘˜,π‘₯   𝑧,𝐴,𝑗   𝐡,π‘Ž,𝑏,π‘˜   𝐡,𝑐   𝑧,𝐡   𝐢,π‘Ž,𝑏,π‘˜   𝐢,𝑐   𝑧,𝐢   𝐷,π‘Ž,𝑏,π‘˜   𝐷,𝑐   𝑧,𝐷   𝐸,𝑐   𝑧,𝐸   𝐺,𝑐   𝑧,𝐺   𝐻,π‘Ž,𝑏,π‘˜   𝐻,𝑐   𝑧,𝐻   𝐿,𝑐   𝑧,𝐿   𝑆,π‘Ž,𝑏,𝑗,π‘˜,π‘₯   𝑆,𝑐   𝑧,𝑆   π‘ˆ,π‘Ž,𝑏,𝑗,π‘˜,π‘₯   π‘ˆ,𝑐   𝑧,π‘ˆ   π‘Š,π‘Ž,𝑏,𝑗,π‘˜,π‘₯   π‘Š,𝑐   𝑧,π‘Š   π‘Œ,π‘Ž,𝑏,𝑗,π‘˜,π‘₯   π‘Œ,𝑐   𝑍,π‘Ž,𝑏,𝑗,π‘˜,π‘₯   𝑍,𝑐   𝑧,𝑍   πœ‘,π‘Ž,𝑏,𝑗,π‘˜,π‘₯   πœ‘,𝑐
Allowed substitution hints:   πœ‘(𝑧)   𝐡(π‘₯,𝑗)   𝐢(π‘₯,𝑗)   𝐷(π‘₯,𝑗)   𝐸(π‘₯,𝑗,π‘˜,π‘Ž,𝑏)   𝐺(π‘₯,𝑗,π‘˜,π‘Ž,𝑏)   𝐻(π‘₯,𝑗)   𝐿(π‘₯,𝑗,π‘˜,π‘Ž,𝑏)   𝑋(π‘₯,𝑧,𝑗,π‘˜,π‘Ž,𝑏,𝑐)   π‘Œ(𝑧)

Proof of Theorem hoidmvlelem1
Dummy variables 𝑒 β„Ž π‘Ÿ 𝑠 𝑑 𝑣 𝑀 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hoidmvlelem1.s . . . . . 6 𝑆 = sup(π‘ˆ, ℝ, < )
21a1i 11 . . . . 5 (πœ‘ β†’ 𝑆 = sup(π‘ˆ, ℝ, < ))
3 hoidmvlelem1.a . . . . . . 7 (πœ‘ β†’ 𝐴:π‘ŠβŸΆβ„)
4 hoidmvlelem1.z . . . . . . . . . 10 (πœ‘ β†’ 𝑍 ∈ (𝑋 βˆ– π‘Œ))
5 snidg 4654 . . . . . . . . . 10 (𝑍 ∈ (𝑋 βˆ– π‘Œ) β†’ 𝑍 ∈ {𝑍})
64, 5syl 17 . . . . . . . . 9 (πœ‘ β†’ 𝑍 ∈ {𝑍})
7 elun2 4169 . . . . . . . . 9 (𝑍 ∈ {𝑍} β†’ 𝑍 ∈ (π‘Œ βˆͺ {𝑍}))
86, 7syl 17 . . . . . . . 8 (πœ‘ β†’ 𝑍 ∈ (π‘Œ βˆͺ {𝑍}))
9 hoidmvlelem1.w . . . . . . . 8 π‘Š = (π‘Œ βˆͺ {𝑍})
108, 9eleqtrrdi 2836 . . . . . . 7 (πœ‘ β†’ 𝑍 ∈ π‘Š)
113, 10ffvelcdmd 7077 . . . . . 6 (πœ‘ β†’ (π΄β€˜π‘) ∈ ℝ)
12 hoidmvlelem1.b . . . . . . 7 (πœ‘ β†’ 𝐡:π‘ŠβŸΆβ„)
1312, 10ffvelcdmd 7077 . . . . . 6 (πœ‘ β†’ (π΅β€˜π‘) ∈ ℝ)
14 hoidmvlelem1.u . . . . . . . 8 π‘ˆ = {𝑧 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∣ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))))}
15 ssrab2 4069 . . . . . . . 8 {𝑧 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∣ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))))} βŠ† ((π΄β€˜π‘)[,](π΅β€˜π‘))
1614, 15eqsstri 4008 . . . . . . 7 π‘ˆ βŠ† ((π΄β€˜π‘)[,](π΅β€˜π‘))
1716a1i 11 . . . . . 6 (πœ‘ β†’ π‘ˆ βŠ† ((π΄β€˜π‘)[,](π΅β€˜π‘)))
1811leidd 11777 . . . . . . . . . . 11 (πœ‘ β†’ (π΄β€˜π‘) ≀ (π΄β€˜π‘))
19 hoidmvlelem1.ab . . . . . . . . . . . 12 (πœ‘ β†’ (π΄β€˜π‘) < (π΅β€˜π‘))
2011, 13, 19ltled 11359 . . . . . . . . . . 11 (πœ‘ β†’ (π΄β€˜π‘) ≀ (π΅β€˜π‘))
2111, 13, 11, 18, 20eliccd 44702 . . . . . . . . . 10 (πœ‘ β†’ (π΄β€˜π‘) ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)))
2211recnd 11239 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π΄β€˜π‘) ∈ β„‚)
2322subidd 11556 . . . . . . . . . . . . 13 (πœ‘ β†’ ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘)) = 0)
2423oveq2d 7417 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐺 Β· ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘))) = (𝐺 Β· 0))
25 rge0ssre 13430 . . . . . . . . . . . . . . 15 (0[,)+∞) βŠ† ℝ
26 hoidmvlelem1.g . . . . . . . . . . . . . . . 16 𝐺 = ((𝐴 β†Ύ π‘Œ)(πΏβ€˜π‘Œ)(𝐡 β†Ύ π‘Œ))
27 hoidmvlelem1.l . . . . . . . . . . . . . . . . 17 𝐿 = (π‘₯ ∈ Fin ↦ (π‘Ž ∈ (ℝ ↑m π‘₯), 𝑏 ∈ (ℝ ↑m π‘₯) ↦ if(π‘₯ = βˆ…, 0, βˆπ‘˜ ∈ π‘₯ (volβ€˜((π‘Žβ€˜π‘˜)[,)(π‘β€˜π‘˜))))))
28 hoidmvlelem1.x . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑋 ∈ Fin)
29 hoidmvlelem1.y . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ π‘Œ βŠ† 𝑋)
3028, 29ssfid 9263 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ π‘Œ ∈ Fin)
31 ssun1 4164 . . . . . . . . . . . . . . . . . . . 20 π‘Œ βŠ† (π‘Œ βˆͺ {𝑍})
3231, 9sseqtrri 4011 . . . . . . . . . . . . . . . . . . 19 π‘Œ βŠ† π‘Š
3332a1i 11 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ π‘Œ βŠ† π‘Š)
343, 33fssresd 6748 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝐴 β†Ύ π‘Œ):π‘ŒβŸΆβ„)
3512, 33fssresd 6748 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝐡 β†Ύ π‘Œ):π‘ŒβŸΆβ„)
3627, 30, 34, 35hoidmvcl 45783 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((𝐴 β†Ύ π‘Œ)(πΏβ€˜π‘Œ)(𝐡 β†Ύ π‘Œ)) ∈ (0[,)+∞))
3726, 36eqeltrid 2829 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝐺 ∈ (0[,)+∞))
3825, 37sselid 3972 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐺 ∈ ℝ)
3938recnd 11239 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐺 ∈ β„‚)
4039mul01d 11410 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐺 Β· 0) = 0)
4124, 40eqtrd 2764 . . . . . . . . . . 11 (πœ‘ β†’ (𝐺 Β· ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘))) = 0)
42 1red 11212 . . . . . . . . . . . . 13 (πœ‘ β†’ 1 ∈ ℝ)
43 hoidmvlelem1.e . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐸 ∈ ℝ+)
4443rpred 13013 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐸 ∈ ℝ)
4542, 44readdcld 11240 . . . . . . . . . . . 12 (πœ‘ β†’ (1 + 𝐸) ∈ ℝ)
46 0red 11214 . . . . . . . . . . . . 13 (πœ‘ β†’ 0 ∈ ℝ)
47 0lt1 11733 . . . . . . . . . . . . . . 15 0 < 1
4847a1i 11 . . . . . . . . . . . . . 14 (πœ‘ β†’ 0 < 1)
4942, 43ltaddrpd 13046 . . . . . . . . . . . . . 14 (πœ‘ β†’ 1 < (1 + 𝐸))
5046, 42, 45, 48, 49lttrd 11372 . . . . . . . . . . . . 13 (πœ‘ β†’ 0 < (1 + 𝐸))
5146, 45, 50ltled 11359 . . . . . . . . . . . 12 (πœ‘ β†’ 0 ≀ (1 + 𝐸))
52 nnex 12215 . . . . . . . . . . . . . . 15 β„• ∈ V
5352a1i 11 . . . . . . . . . . . . . 14 (πœ‘ β†’ β„• ∈ V)
54 icossicc 13410 . . . . . . . . . . . . . . . 16 (0[,)+∞) βŠ† (0[,]+∞)
55 snfi 9040 . . . . . . . . . . . . . . . . . . . . 21 {𝑍} ∈ Fin
5655a1i 11 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ {𝑍} ∈ Fin)
57 unfi 9168 . . . . . . . . . . . . . . . . . . . 20 ((π‘Œ ∈ Fin ∧ {𝑍} ∈ Fin) β†’ (π‘Œ βˆͺ {𝑍}) ∈ Fin)
5830, 56, 57syl2anc 583 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (π‘Œ βˆͺ {𝑍}) ∈ Fin)
599, 58eqeltrid 2829 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ π‘Š ∈ Fin)
6059adantr 480 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ π‘Š ∈ Fin)
61 hoidmvlelem1.c . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝐢:β„•βŸΆ(ℝ ↑m π‘Š))
6261ffvelcdmda 7076 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (πΆβ€˜π‘—) ∈ (ℝ ↑m π‘Š))
63 elmapi 8839 . . . . . . . . . . . . . . . . . 18 ((πΆβ€˜π‘—) ∈ (ℝ ↑m π‘Š) β†’ (πΆβ€˜π‘—):π‘ŠβŸΆβ„)
6462, 63syl 17 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (πΆβ€˜π‘—):π‘ŠβŸΆβ„)
65 hoidmvlelem1.h . . . . . . . . . . . . . . . . . . 19 𝐻 = (π‘₯ ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑m π‘Š) ↦ (𝑗 ∈ π‘Š ↦ if(𝑗 ∈ π‘Œ, (π‘β€˜π‘—), if((π‘β€˜π‘—) ≀ π‘₯, (π‘β€˜π‘—), π‘₯)))))
66 eleq1w 2808 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 = β„Ž β†’ (𝑗 ∈ π‘Œ ↔ β„Ž ∈ π‘Œ))
67 fveq2 6881 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 = β„Ž β†’ (π‘β€˜π‘—) = (π‘β€˜β„Ž))
6867breq1d 5148 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑗 = β„Ž β†’ ((π‘β€˜π‘—) ≀ π‘₯ ↔ (π‘β€˜β„Ž) ≀ π‘₯))
6968, 67ifbieq1d 4544 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑗 = β„Ž β†’ if((π‘β€˜π‘—) ≀ π‘₯, (π‘β€˜π‘—), π‘₯) = if((π‘β€˜β„Ž) ≀ π‘₯, (π‘β€˜β„Ž), π‘₯))
7066, 67, 69ifbieq12d 4548 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗 = β„Ž β†’ if(𝑗 ∈ π‘Œ, (π‘β€˜π‘—), if((π‘β€˜π‘—) ≀ π‘₯, (π‘β€˜π‘—), π‘₯)) = if(β„Ž ∈ π‘Œ, (π‘β€˜β„Ž), if((π‘β€˜β„Ž) ≀ π‘₯, (π‘β€˜β„Ž), π‘₯)))
7170cbvmptv 5251 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ π‘Š ↦ if(𝑗 ∈ π‘Œ, (π‘β€˜π‘—), if((π‘β€˜π‘—) ≀ π‘₯, (π‘β€˜π‘—), π‘₯))) = (β„Ž ∈ π‘Š ↦ if(β„Ž ∈ π‘Œ, (π‘β€˜β„Ž), if((π‘β€˜β„Ž) ≀ π‘₯, (π‘β€˜β„Ž), π‘₯)))
7271mpteq2i 5243 . . . . . . . . . . . . . . . . . . . 20 (𝑐 ∈ (ℝ ↑m π‘Š) ↦ (𝑗 ∈ π‘Š ↦ if(𝑗 ∈ π‘Œ, (π‘β€˜π‘—), if((π‘β€˜π‘—) ≀ π‘₯, (π‘β€˜π‘—), π‘₯)))) = (𝑐 ∈ (ℝ ↑m π‘Š) ↦ (β„Ž ∈ π‘Š ↦ if(β„Ž ∈ π‘Œ, (π‘β€˜β„Ž), if((π‘β€˜β„Ž) ≀ π‘₯, (π‘β€˜β„Ž), π‘₯))))
7372mpteq2i 5243 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑m π‘Š) ↦ (𝑗 ∈ π‘Š ↦ if(𝑗 ∈ π‘Œ, (π‘β€˜π‘—), if((π‘β€˜π‘—) ≀ π‘₯, (π‘β€˜π‘—), π‘₯))))) = (π‘₯ ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑m π‘Š) ↦ (β„Ž ∈ π‘Š ↦ if(β„Ž ∈ π‘Œ, (π‘β€˜β„Ž), if((π‘β€˜β„Ž) ≀ π‘₯, (π‘β€˜β„Ž), π‘₯)))))
7465, 73eqtri 2752 . . . . . . . . . . . . . . . . . 18 𝐻 = (π‘₯ ∈ ℝ ↦ (𝑐 ∈ (ℝ ↑m π‘Š) ↦ (β„Ž ∈ π‘Š ↦ if(β„Ž ∈ π‘Œ, (π‘β€˜β„Ž), if((π‘β€˜β„Ž) ≀ π‘₯, (π‘β€˜β„Ž), π‘₯)))))
7511adantr 480 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (π΄β€˜π‘) ∈ ℝ)
76 hoidmvlelem1.d . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝐷:β„•βŸΆ(ℝ ↑m π‘Š))
7776ffvelcdmda 7076 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (π·β€˜π‘—) ∈ (ℝ ↑m π‘Š))
78 elmapi 8839 . . . . . . . . . . . . . . . . . . 19 ((π·β€˜π‘—) ∈ (ℝ ↑m π‘Š) β†’ (π·β€˜π‘—):π‘ŠβŸΆβ„)
7977, 78syl 17 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ (π·β€˜π‘—):π‘ŠβŸΆβ„)
8074, 75, 60, 79hsphoif 45777 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—)):π‘ŠβŸΆβ„)
8127, 60, 64, 80hoidmvcl 45783 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))) ∈ (0[,)+∞))
8254, 81sselid 3972 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))) ∈ (0[,]+∞))
8382fmpttd 7106 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—)))):β„•βŸΆ(0[,]+∞))
8453, 83sge0cl 45582 . . . . . . . . . . . . 13 (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))) ∈ (0[,]+∞))
8553, 83sge0xrcl 45586 . . . . . . . . . . . . . 14 (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))) ∈ ℝ*)
86 pnfxr 11265 . . . . . . . . . . . . . . 15 +∞ ∈ ℝ*
8786a1i 11 . . . . . . . . . . . . . 14 (πœ‘ β†’ +∞ ∈ ℝ*)
88 hoidmvlelem1.r . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)))) ∈ ℝ)
8988rexrd 11261 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)))) ∈ ℝ*)
90 nfv 1909 . . . . . . . . . . . . . . . 16 β„²π‘—πœ‘
9127, 60, 64, 79hoidmvcl 45783 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)) ∈ (0[,)+∞))
9254, 91sselid 3972 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)) ∈ (0[,]+∞))
934eldifbd 3953 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ Β¬ 𝑍 ∈ π‘Œ)
9410, 93eldifd 3951 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑍 ∈ (π‘Š βˆ– π‘Œ))
9594adantr 480 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 𝑍 ∈ (π‘Š βˆ– π‘Œ))
9627, 60, 95, 9, 75, 74, 64, 79hsphoidmvle 45787 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))) ≀ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)))
9790, 53, 82, 92, 96sge0lempt 45611 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))) ≀ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)))))
9888ltpnfd 13098 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)))) < +∞)
9985, 89, 87, 97, 98xrlelttrd 13136 . . . . . . . . . . . . . 14 (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))) < +∞)
10085, 87, 99xrltned 44552 . . . . . . . . . . . . 13 (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))) β‰  +∞)
101 ge0xrre 44729 . . . . . . . . . . . . 13 (((Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))) ∈ (0[,]+∞) ∧ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))) β‰  +∞) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))) ∈ ℝ)
10284, 100, 101syl2anc 583 . . . . . . . . . . . 12 (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))) ∈ ℝ)
10353, 83sge0ge0 45585 . . . . . . . . . . . 12 (πœ‘ β†’ 0 ≀ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))))
104 mulge0 11729 . . . . . . . . . . . 12 ((((1 + 𝐸) ∈ ℝ ∧ 0 ≀ (1 + 𝐸)) ∧ ((Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))) ∈ ℝ ∧ 0 ≀ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))))) β†’ 0 ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—)))))))
10545, 51, 102, 103, 104syl22anc 836 . . . . . . . . . . 11 (πœ‘ β†’ 0 ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—)))))))
10641, 105eqbrtrd 5160 . . . . . . . . . 10 (πœ‘ β†’ (𝐺 Β· ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—)))))))
10721, 106jca 511 . . . . . . . . 9 (πœ‘ β†’ ((π΄β€˜π‘) ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∧ (𝐺 Β· ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))))))
108 oveq1 7408 . . . . . . . . . . . 12 (𝑧 = (π΄β€˜π‘) β†’ (𝑧 βˆ’ (π΄β€˜π‘)) = ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘)))
109108oveq2d 7417 . . . . . . . . . . 11 (𝑧 = (π΄β€˜π‘) β†’ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) = (𝐺 Β· ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘))))
110 fveq2 6881 . . . . . . . . . . . . . . . 16 (𝑧 = (π΄β€˜π‘) β†’ (π»β€˜π‘§) = (π»β€˜(π΄β€˜π‘)))
111110fveq1d 6883 . . . . . . . . . . . . . . 15 (𝑧 = (π΄β€˜π‘) β†’ ((π»β€˜π‘§)β€˜(π·β€˜π‘—)) = ((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—)))
112111oveq2d 7417 . . . . . . . . . . . . . 14 (𝑧 = (π΄β€˜π‘) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))) = ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))
113112mpteq2dv 5240 . . . . . . . . . . . . 13 (𝑧 = (π΄β€˜π‘) β†’ (𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—)))) = (𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—)))))
114113fveq2d 6885 . . . . . . . . . . . 12 (𝑧 = (π΄β€˜π‘) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))) = (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))))
115114oveq2d 7417 . . . . . . . . . . 11 (𝑧 = (π΄β€˜π‘) β†’ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—)))))) = ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—)))))))
116109, 115breq12d 5151 . . . . . . . . . 10 (𝑧 = (π΄β€˜π‘) β†’ ((𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—)))))) ↔ (𝐺 Β· ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))))))
117116elrab 3675 . . . . . . . . 9 ((π΄β€˜π‘) ∈ {𝑧 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∣ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))))} ↔ ((π΄β€˜π‘) ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∧ (𝐺 Β· ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜(π΄β€˜π‘))β€˜(π·β€˜π‘—))))))))
118107, 117sylibr 233 . . . . . . . 8 (πœ‘ β†’ (π΄β€˜π‘) ∈ {𝑧 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∣ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))))})
119118, 14eleqtrrdi 2836 . . . . . . 7 (πœ‘ β†’ (π΄β€˜π‘) ∈ π‘ˆ)
120 ne0i 4326 . . . . . . 7 ((π΄β€˜π‘) ∈ π‘ˆ β†’ π‘ˆ β‰  βˆ…)
121119, 120syl 17 . . . . . 6 (πœ‘ β†’ π‘ˆ β‰  βˆ…)
12211, 13, 17, 121supicc 13475 . . . . 5 (πœ‘ β†’ sup(π‘ˆ, ℝ, < ) ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)))
1232, 122eqeltrd 2825 . . . 4 (πœ‘ β†’ 𝑆 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)))
1242oveq1d 7416 . . . . . . 7 (πœ‘ β†’ (𝑆 βˆ’ (π΄β€˜π‘)) = (sup(π‘ˆ, ℝ, < ) βˆ’ (π΄β€˜π‘)))
125124oveq2d 7417 . . . . . 6 (πœ‘ β†’ (𝐺 Β· (𝑆 βˆ’ (π΄β€˜π‘))) = (𝐺 Β· (sup(π‘ˆ, ℝ, < ) βˆ’ (π΄β€˜π‘))))
12611, 13iccssred 13408 . . . . . . . . 9 (πœ‘ β†’ ((π΄β€˜π‘)[,](π΅β€˜π‘)) βŠ† ℝ)
12717, 126sstrd 3984 . . . . . . . 8 (πœ‘ β†’ π‘ˆ βŠ† ℝ)
12811, 13jca 511 . . . . . . . . . 10 (πœ‘ β†’ ((π΄β€˜π‘) ∈ ℝ ∧ (π΅β€˜π‘) ∈ ℝ))
129 iccsupr 13416 . . . . . . . . . 10 ((((π΄β€˜π‘) ∈ ℝ ∧ (π΅β€˜π‘) ∈ ℝ) ∧ π‘ˆ βŠ† ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∧ (π΄β€˜π‘) ∈ π‘ˆ) β†’ (π‘ˆ βŠ† ℝ ∧ π‘ˆ β‰  βˆ… ∧ βˆƒπ‘¦ ∈ ℝ βˆ€π‘§ ∈ π‘ˆ 𝑧 ≀ 𝑦))
130128, 17, 119, 129syl3anc 1368 . . . . . . . . 9 (πœ‘ β†’ (π‘ˆ βŠ† ℝ ∧ π‘ˆ β‰  βˆ… ∧ βˆƒπ‘¦ ∈ ℝ βˆ€π‘§ ∈ π‘ˆ 𝑧 ≀ 𝑦))
131130simp3d 1141 . . . . . . . 8 (πœ‘ β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘§ ∈ π‘ˆ 𝑧 ≀ 𝑦)
132 eqid 2724 . . . . . . . 8 {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} = {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}
133127, 121, 131, 11, 132supsubc 44548 . . . . . . 7 (πœ‘ β†’ (sup(π‘ˆ, ℝ, < ) βˆ’ (π΄β€˜π‘)) = sup({𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}, ℝ, < ))
134133oveq2d 7417 . . . . . 6 (πœ‘ β†’ (𝐺 Β· (sup(π‘ˆ, ℝ, < ) βˆ’ (π΄β€˜π‘))) = (𝐺 Β· sup({𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}, ℝ, < )))
13546rexrd 11261 . . . . . . . 8 (πœ‘ β†’ 0 ∈ ℝ*)
136 icogelb 13372 . . . . . . . 8 ((0 ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ 𝐺 ∈ (0[,)+∞)) β†’ 0 ≀ 𝐺)
137135, 87, 37, 136syl3anc 1368 . . . . . . 7 (πœ‘ β†’ 0 ≀ 𝐺)
138 vex 3470 . . . . . . . . . . . 12 π‘Ÿ ∈ V
139 eqeq1 2728 . . . . . . . . . . . . 13 (𝑀 = π‘Ÿ β†’ (𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) ↔ π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘))))
140139rexbidv 3170 . . . . . . . . . . . 12 (𝑀 = π‘Ÿ β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) ↔ βˆƒπ‘’ ∈ π‘ˆ π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘))))
141138, 140elab 3660 . . . . . . . . . . 11 (π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} ↔ βˆƒπ‘’ ∈ π‘ˆ π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘)))
142141biimpi 215 . . . . . . . . . 10 (π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β†’ βˆƒπ‘’ ∈ π‘ˆ π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘)))
143142adantl 481 . . . . . . . . 9 ((πœ‘ ∧ π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ βˆƒπ‘’ ∈ π‘ˆ π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘)))
144 nfv 1909 . . . . . . . . . . 11 β„²π‘’πœ‘
145 nfcv 2895 . . . . . . . . . . . 12 β„²π‘’π‘Ÿ
146 nfre1 3274 . . . . . . . . . . . . 13 β„²π‘’βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))
147146nfab 2901 . . . . . . . . . . . 12 Ⅎ𝑒{𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}
148145, 147nfel 2909 . . . . . . . . . . 11 Ⅎ𝑒 π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}
149144, 148nfan 1894 . . . . . . . . . 10 Ⅎ𝑒(πœ‘ ∧ π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))})
150 nfv 1909 . . . . . . . . . 10 Ⅎ𝑒0 ≀ π‘Ÿ
15111rexrd 11261 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (π΄β€˜π‘) ∈ ℝ*)
152151adantr 480 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (π΄β€˜π‘) ∈ ℝ*)
15313rexrd 11261 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (π΅β€˜π‘) ∈ ℝ*)
154153adantr 480 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (π΅β€˜π‘) ∈ ℝ*)
15517sselda 3974 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ 𝑒 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)))
156 iccgelb 13377 . . . . . . . . . . . . . . . 16 (((π΄β€˜π‘) ∈ ℝ* ∧ (π΅β€˜π‘) ∈ ℝ* ∧ 𝑒 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘))) β†’ (π΄β€˜π‘) ≀ 𝑒)
157152, 154, 155, 156syl3anc 1368 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (π΄β€˜π‘) ≀ 𝑒)
158127sselda 3974 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ 𝑒 ∈ ℝ)
15911adantr 480 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (π΄β€˜π‘) ∈ ℝ)
160158, 159subge0d 11801 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (0 ≀ (𝑒 βˆ’ (π΄β€˜π‘)) ↔ (π΄β€˜π‘) ≀ 𝑒))
161157, 160mpbird 257 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ 0 ≀ (𝑒 βˆ’ (π΄β€˜π‘)))
1621613adant3 1129 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 0 ≀ (𝑒 βˆ’ (π΄β€˜π‘)))
163 id 22 . . . . . . . . . . . . . . 15 (π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘)))
164163eqcomd 2730 . . . . . . . . . . . . . 14 (π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ (𝑒 βˆ’ (π΄β€˜π‘)) = π‘Ÿ)
1651643ad2ant3 1132 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ (𝑒 βˆ’ (π΄β€˜π‘)) = π‘Ÿ)
166162, 165breqtrd 5164 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 0 ≀ π‘Ÿ)
1671663exp 1116 . . . . . . . . . . 11 (πœ‘ β†’ (𝑒 ∈ π‘ˆ β†’ (π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 0 ≀ π‘Ÿ)))
168167adantr 480 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ (𝑒 ∈ π‘ˆ β†’ (π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 0 ≀ π‘Ÿ)))
169149, 150, 168rexlimd 3255 . . . . . . . . 9 ((πœ‘ ∧ π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ (βˆƒπ‘’ ∈ π‘ˆ π‘Ÿ = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 0 ≀ π‘Ÿ))
170143, 169mpd 15 . . . . . . . 8 ((πœ‘ ∧ π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ 0 ≀ π‘Ÿ)
171170ralrimiva 3138 . . . . . . 7 (πœ‘ β†’ βˆ€π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}0 ≀ π‘Ÿ)
172 simp3 1135 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)))
173158, 159resubcld 11639 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (𝑒 βˆ’ (π΄β€˜π‘)) ∈ ℝ)
1741733adant3 1129 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ (𝑒 βˆ’ (π΄β€˜π‘)) ∈ ℝ)
175172, 174eqeltrd 2825 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑀 ∈ ℝ)
1761753exp 1116 . . . . . . . . . 10 (πœ‘ β†’ (𝑒 ∈ π‘ˆ β†’ (𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 𝑀 ∈ ℝ)))
177176rexlimdv 3145 . . . . . . . . 9 (πœ‘ β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 𝑀 ∈ ℝ))
178177alrimiv 1922 . . . . . . . 8 (πœ‘ β†’ βˆ€π‘€(βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 𝑀 ∈ ℝ))
179 abss 4049 . . . . . . . 8 ({𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} βŠ† ℝ ↔ βˆ€π‘€(βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 𝑀 ∈ ℝ))
180178, 179sylibr 233 . . . . . . 7 (πœ‘ β†’ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} βŠ† ℝ)
18123eqcomd 2730 . . . . . . . . . 10 (πœ‘ β†’ 0 = ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘)))
182 oveq1 7408 . . . . . . . . . . 11 (𝑒 = (π΄β€˜π‘) β†’ (𝑒 βˆ’ (π΄β€˜π‘)) = ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘)))
183182rspceeqv 3625 . . . . . . . . . 10 (((π΄β€˜π‘) ∈ π‘ˆ ∧ 0 = ((π΄β€˜π‘) βˆ’ (π΄β€˜π‘))) β†’ βˆƒπ‘’ ∈ π‘ˆ 0 = (𝑒 βˆ’ (π΄β€˜π‘)))
184119, 181, 183syl2anc 583 . . . . . . . . 9 (πœ‘ β†’ βˆƒπ‘’ ∈ π‘ˆ 0 = (𝑒 βˆ’ (π΄β€˜π‘)))
185 eqeq1 2728 . . . . . . . . . 10 (𝑀 = 0 β†’ (𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) ↔ 0 = (𝑒 βˆ’ (π΄β€˜π‘))))
186185rexbidv 3170 . . . . . . . . 9 (𝑀 = 0 β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) ↔ βˆƒπ‘’ ∈ π‘ˆ 0 = (𝑒 βˆ’ (π΄β€˜π‘))))
18746, 184, 186elabd 3663 . . . . . . . 8 (πœ‘ β†’ 0 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))})
188 ne0i 4326 . . . . . . . 8 (0 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β†’ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β‰  βˆ…)
189187, 188syl 17 . . . . . . 7 (πœ‘ β†’ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β‰  βˆ…)
19013, 11resubcld 11639 . . . . . . . 8 (πœ‘ β†’ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)) ∈ ℝ)
191 vex 3470 . . . . . . . . . . . . 13 𝑠 ∈ V
192 eqeq1 2728 . . . . . . . . . . . . . 14 (𝑀 = 𝑠 β†’ (𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) ↔ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘))))
193192rexbidv 3170 . . . . . . . . . . . . 13 (𝑀 = 𝑠 β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) ↔ βˆƒπ‘’ ∈ π‘ˆ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘))))
194191, 193elab 3660 . . . . . . . . . . . 12 (𝑠 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} ↔ βˆƒπ‘’ ∈ π‘ˆ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘)))
195194biimpi 215 . . . . . . . . . . 11 (𝑠 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘)))
196195adantl 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘)))
197 nfcv 2895 . . . . . . . . . . . . 13 Ⅎ𝑒𝑠
198197, 147nfel 2909 . . . . . . . . . . . 12 Ⅎ𝑒 𝑠 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}
199144, 198nfan 1894 . . . . . . . . . . 11 Ⅎ𝑒(πœ‘ ∧ 𝑠 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))})
200 nfv 1909 . . . . . . . . . . 11 Ⅎ𝑒 𝑠 ≀ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))
201 simp3 1135 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘)))
2021593adant3 1129 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ (π΄β€˜π‘) ∈ ℝ)
203133ad2ant1 1130 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ (π΅β€˜π‘) ∈ ℝ)
2041553adant3 1129 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑒 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)))
205213ad2ant1 1130 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ (π΄β€˜π‘) ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)))
206202, 203, 204, 205iccsuble 44717 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ (𝑒 βˆ’ (π΄β€˜π‘)) ≀ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)))
207201, 206eqbrtrd 5160 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑠 ≀ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)))
2082073exp 1116 . . . . . . . . . . . 12 (πœ‘ β†’ (𝑒 ∈ π‘ˆ β†’ (𝑠 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 𝑠 ≀ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)))))
209208adantr 480 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ (𝑒 ∈ π‘ˆ β†’ (𝑠 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 𝑠 ≀ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)))))
210199, 200, 209rexlimd 3255 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑠 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 𝑠 ≀ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))))
211196, 210mpd 15 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ 𝑠 ≀ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)))
212211ralrimiva 3138 . . . . . . . 8 (πœ‘ β†’ βˆ€π‘  ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑠 ≀ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)))
213 brralrspcev 5198 . . . . . . . 8 ((((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)) ∈ ℝ ∧ βˆ€π‘  ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑠 ≀ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))) β†’ βˆƒπ‘Ÿ ∈ ℝ βˆ€π‘  ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑠 ≀ π‘Ÿ)
214190, 212, 213syl2anc 583 . . . . . . 7 (πœ‘ β†’ βˆƒπ‘Ÿ ∈ ℝ βˆ€π‘  ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑠 ≀ π‘Ÿ)
215 eqid 2724 . . . . . . . 8 {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} = {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}
216 biid 261 . . . . . . . 8 (((𝐺 ∈ ℝ ∧ 0 ≀ 𝐺 ∧ βˆ€π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}0 ≀ π‘Ÿ) ∧ ({𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} βŠ† ℝ ∧ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β‰  βˆ… ∧ βˆƒπ‘Ÿ ∈ ℝ βˆ€π‘  ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑠 ≀ π‘Ÿ)) ↔ ((𝐺 ∈ ℝ ∧ 0 ≀ 𝐺 ∧ βˆ€π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}0 ≀ π‘Ÿ) ∧ ({𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} βŠ† ℝ ∧ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β‰  βˆ… ∧ βˆƒπ‘Ÿ ∈ ℝ βˆ€π‘  ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑠 ≀ π‘Ÿ)))
217215, 216supmul1 12180 . . . . . . 7 (((𝐺 ∈ ℝ ∧ 0 ≀ 𝐺 ∧ βˆ€π‘Ÿ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}0 ≀ π‘Ÿ) ∧ ({𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} βŠ† ℝ ∧ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β‰  βˆ… ∧ βˆƒπ‘Ÿ ∈ ℝ βˆ€π‘  ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑠 ≀ π‘Ÿ)) β†’ (𝐺 Β· sup({𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}, ℝ, < )) = sup({𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}, ℝ, < ))
21838, 137, 171, 180, 189, 214, 217syl33anc 1382 . . . . . 6 (πœ‘ β†’ (𝐺 Β· sup({𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}, ℝ, < )) = sup({𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}, ℝ, < ))
219125, 134, 2183eqtrd 2768 . . . . 5 (πœ‘ β†’ (𝐺 Β· (𝑆 βˆ’ (π΄β€˜π‘))) = sup({𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}, ℝ, < ))
220 vex 3470 . . . . . . . . . . . 12 𝑐 ∈ V
221 eqeq1 2728 . . . . . . . . . . . . 13 (𝑣 = 𝑐 β†’ (𝑣 = (𝐺 Β· 𝑑) ↔ 𝑐 = (𝐺 Β· 𝑑)))
222221rexbidv 3170 . . . . . . . . . . . 12 (𝑣 = 𝑐 β†’ (βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑) ↔ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑐 = (𝐺 Β· 𝑑)))
223220, 222elab 3660 . . . . . . . . . . 11 (𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} ↔ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑐 = (𝐺 Β· 𝑑))
224223biimpi 215 . . . . . . . . . 10 (𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} β†’ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑐 = (𝐺 Β· 𝑑))
225 nfv 1909 . . . . . . . . . . . 12 β„²π‘‘βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))
226 vex 3470 . . . . . . . . . . . . . . . . 17 𝑑 ∈ V
227 eqeq1 2728 . . . . . . . . . . . . . . . . . 18 (𝑀 = 𝑑 β†’ (𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) ↔ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))))
228227rexbidv 3170 . . . . . . . . . . . . . . . . 17 (𝑀 = 𝑑 β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘)) ↔ βˆƒπ‘’ ∈ π‘ˆ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))))
229226, 228elab 3660 . . . . . . . . . . . . . . . 16 (𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} ↔ βˆƒπ‘’ ∈ π‘ˆ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)))
230229biimpi 215 . . . . . . . . . . . . . . 15 (𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)))
231230adantr 480 . . . . . . . . . . . . . 14 ((𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} ∧ 𝑐 = (𝐺 Β· 𝑑)) β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)))
232 simpl 482 . . . . . . . . . . . . . . . . . 18 ((𝑐 = (𝐺 Β· 𝑑) ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑐 = (𝐺 Β· 𝑑))
233 oveq2 7409 . . . . . . . . . . . . . . . . . . 19 (𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ (𝐺 Β· 𝑑) = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))))
234233adantl 481 . . . . . . . . . . . . . . . . . 18 ((𝑐 = (𝐺 Β· 𝑑) ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ (𝐺 Β· 𝑑) = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))))
235232, 234eqtrd 2764 . . . . . . . . . . . . . . . . 17 ((𝑐 = (𝐺 Β· 𝑑) ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))))
236235ex 412 . . . . . . . . . . . . . . . 16 (𝑐 = (𝐺 Β· 𝑑) β†’ (𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))))
237236reximdv 3162 . . . . . . . . . . . . . . 15 (𝑐 = (𝐺 Β· 𝑑) β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))))
238237adantl 481 . . . . . . . . . . . . . 14 ((𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} ∧ 𝑐 = (𝐺 Β· 𝑑)) β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))))
239231, 238mpd 15 . . . . . . . . . . . . 13 ((𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} ∧ 𝑐 = (𝐺 Β· 𝑑)) β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))))
240239ex 412 . . . . . . . . . . . 12 (𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β†’ (𝑐 = (𝐺 Β· 𝑑) β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))))
241225, 240rexlimi 3248 . . . . . . . . . . 11 (βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑐 = (𝐺 Β· 𝑑) β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))))
242241a1i 11 . . . . . . . . . 10 (𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} β†’ (βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑐 = (𝐺 Β· 𝑑) β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))))
243224, 242mpd 15 . . . . . . . . 9 (𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))))
244243adantl 481 . . . . . . . 8 ((πœ‘ ∧ 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}) β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))))
245 simp3 1135 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))) β†’ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))))
24638adantr 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ 𝐺 ∈ ℝ)
247246, 173remulcld 11241 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) ∈ ℝ)
24845adantr 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (1 + 𝐸) ∈ ℝ)
24952a1i 11 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ β„• ∈ V)
25060adantlr 712 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ π‘Š ∈ Fin)
25164adantlr 712 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ (πΆβ€˜π‘—):π‘ŠβŸΆβ„)
252158adantr 480 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ 𝑒 ∈ ℝ)
25379adantlr 712 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ (π·β€˜π‘—):π‘ŠβŸΆβ„)
25474, 252, 250, 253hsphoif 45777 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ ((π»β€˜π‘’)β€˜(π·β€˜π‘—)):π‘ŠβŸΆβ„)
25527, 250, 251, 254hoidmvcl 45783 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))) ∈ (0[,)+∞))
25654, 255sselid 3972 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))) ∈ (0[,]+∞))
257256fmpttd 7106 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—)))):β„•βŸΆ(0[,]+∞))
258249, 257sge0cl 45582 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))) ∈ (0[,]+∞))
259249, 257sge0xrcl 45586 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))) ∈ ℝ*)
26086a1i 11 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ +∞ ∈ ℝ*)
26189adantr 480 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)))) ∈ ℝ*)
262 nfv 1909 . . . . . . . . . . . . . . . . . . 19 Ⅎ𝑗(πœ‘ ∧ 𝑒 ∈ π‘ˆ)
26392adantlr 712 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)) ∈ (0[,]+∞))
26495adantlr 712 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ 𝑍 ∈ (π‘Š βˆ– π‘Œ))
26527, 250, 264, 9, 252, 74, 251, 253hsphoidmvle 45787 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))) ≀ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)))
266262, 249, 256, 263, 265sge0lempt 45611 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))) ≀ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)))))
26798adantr 480 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)(π·β€˜π‘—)))) < +∞)
268259, 261, 260, 266, 267xrlelttrd 13136 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))) < +∞)
269259, 260, 268xrltned 44552 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))) β‰  +∞)
270 ge0xrre 44729 . . . . . . . . . . . . . . . 16 (((Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))) ∈ (0[,]+∞) ∧ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))) β‰  +∞) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))) ∈ ℝ)
271258, 269, 270syl2anc 583 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))) ∈ ℝ)
272248, 271remulcld 11241 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—)))))) ∈ ℝ)
273126, 123sseldd 3975 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝑆 ∈ ℝ)
27427, 30, 94, 9, 61, 76, 88, 65, 273sge0hsphoire 45790 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))) ∈ ℝ)
27545, 274remulcld 11241 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))) ∈ ℝ)
276275adantr 480 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))) ∈ ℝ)
27714eleq2i 2817 . . . . . . . . . . . . . . . . . 18 (𝑒 ∈ π‘ˆ ↔ 𝑒 ∈ {𝑧 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∣ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))))})
278277biimpi 215 . . . . . . . . . . . . . . . . 17 (𝑒 ∈ π‘ˆ β†’ 𝑒 ∈ {𝑧 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∣ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))))})
279 oveq1 7408 . . . . . . . . . . . . . . . . . . . 20 (𝑧 = 𝑒 β†’ (𝑧 βˆ’ (π΄β€˜π‘)) = (𝑒 βˆ’ (π΄β€˜π‘)))
280279oveq2d 7417 . . . . . . . . . . . . . . . . . . 19 (𝑧 = 𝑒 β†’ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))))
281 fveq2 6881 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑧 = 𝑒 β†’ (π»β€˜π‘§) = (π»β€˜π‘’))
282281fveq1d 6883 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑧 = 𝑒 β†’ ((π»β€˜π‘§)β€˜(π·β€˜π‘—)) = ((π»β€˜π‘’)β€˜(π·β€˜π‘—)))
283282oveq2d 7417 . . . . . . . . . . . . . . . . . . . . . 22 (𝑧 = 𝑒 β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))) = ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))
284283mpteq2dv 5240 . . . . . . . . . . . . . . . . . . . . 21 (𝑧 = 𝑒 β†’ (𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—)))) = (𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—)))))
285284fveq2d 6885 . . . . . . . . . . . . . . . . . . . 20 (𝑧 = 𝑒 β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))) = (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))))
286285oveq2d 7417 . . . . . . . . . . . . . . . . . . 19 (𝑧 = 𝑒 β†’ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—)))))) = ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—)))))))
287280, 286breq12d 5151 . . . . . . . . . . . . . . . . . 18 (𝑧 = 𝑒 β†’ ((𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—)))))) ↔ (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))))))
288287elrab 3675 . . . . . . . . . . . . . . . . 17 (𝑒 ∈ {𝑧 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∣ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))))} ↔ (𝑒 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∧ (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))))))
289278, 288sylib 217 . . . . . . . . . . . . . . . 16 (𝑒 ∈ π‘ˆ β†’ (𝑒 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∧ (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))))))
290289simprd 495 . . . . . . . . . . . . . . 15 (𝑒 ∈ π‘ˆ β†’ (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—)))))))
291290adantl 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—)))))))
292274adantr 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))) ∈ ℝ)
29351adantr 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ 0 ≀ (1 + 𝐸))
294273adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ 𝑆 ∈ ℝ)
29574, 294, 60, 79hsphoif 45777 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((π»β€˜π‘†)β€˜(π·β€˜π‘—)):π‘ŠβŸΆβ„)
29627, 60, 64, 295hoidmvcl 45783 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))) ∈ (0[,)+∞))
29754, 296sselid 3972 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))) ∈ (0[,]+∞))
298297adantlr 712 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))) ∈ (0[,]+∞))
299294adantlr 712 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ 𝑆 ∈ ℝ)
300127adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ π‘ˆ βŠ† ℝ)
301121adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ π‘ˆ β‰  βˆ…)
302131adantr 480 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘§ ∈ π‘ˆ 𝑧 ≀ 𝑦)
303 simpr 484 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ 𝑒 ∈ π‘ˆ)
304 suprub 12172 . . . . . . . . . . . . . . . . . . . 20 (((π‘ˆ βŠ† ℝ ∧ π‘ˆ β‰  βˆ… ∧ βˆƒπ‘¦ ∈ ℝ βˆ€π‘§ ∈ π‘ˆ 𝑧 ≀ 𝑦) ∧ 𝑒 ∈ π‘ˆ) β†’ 𝑒 ≀ sup(π‘ˆ, ℝ, < ))
305300, 301, 302, 303, 304syl31anc 1370 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ 𝑒 ≀ sup(π‘ˆ, ℝ, < ))
306305, 1breqtrrdi 5180 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ 𝑒 ≀ 𝑆)
307306adantr 480 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ 𝑒 ≀ 𝑆)
30827, 250, 264, 9, 252, 299, 307, 74, 251, 253hsphoidmvle2 45786 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ) ∧ 𝑗 ∈ β„•) β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))) ≀ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))
309262, 249, 256, 298, 308sge0lempt 45611 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—))))) ≀ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))))
310271, 292, 248, 293, 309lemul2ad 12151 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘’)β€˜(π·β€˜π‘—)))))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))))
311247, 272, 276, 291, 310letrd 11368 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))))
3123113adant3 1129 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))) β†’ (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))))
313245, 312eqbrtrd 5160 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))) β†’ 𝑐 ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))))
3143133exp 1116 . . . . . . . . . 10 (πœ‘ β†’ (𝑒 ∈ π‘ˆ β†’ (𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑐 ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))))))
315314rexlimdv 3145 . . . . . . . . 9 (πœ‘ β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑐 ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))))))
316315adantr 480 . . . . . . . 8 ((πœ‘ ∧ 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}) β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑐 ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))))))
317244, 316mpd 15 . . . . . . 7 ((πœ‘ ∧ 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}) β†’ 𝑐 ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))))
318317ralrimiva 3138 . . . . . 6 (πœ‘ β†’ βˆ€π‘ ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}𝑐 ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))))
319224adantl 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}) β†’ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑐 = (𝐺 Β· 𝑑))
320 nfv 1909 . . . . . . . . . . . 12 β„²π‘‘πœ‘
321 nfcv 2895 . . . . . . . . . . . . 13 Ⅎ𝑑𝑐
322 nfre1 3274 . . . . . . . . . . . . . 14 β„²π‘‘βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)
323322nfab 2901 . . . . . . . . . . . . 13 Ⅎ𝑑{𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}
324321, 323nfel 2909 . . . . . . . . . . . 12 Ⅎ𝑑 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}
325320, 324nfan 1894 . . . . . . . . . . 11 Ⅎ𝑑(πœ‘ ∧ 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)})
326 nfv 1909 . . . . . . . . . . 11 Ⅎ𝑑 𝑐 ∈ ℝ
327230adantl 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ βˆƒπ‘’ ∈ π‘ˆ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)))
328 simpr 484 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) ∧ 𝑐 = (𝐺 Β· 𝑑)) β†’ 𝑐 = (𝐺 Β· 𝑑))
3292463adant3 1129 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝐺 ∈ ℝ)
330 simp3 1135 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)))
3311733adant3 1129 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ (𝑒 βˆ’ (π΄β€˜π‘)) ∈ ℝ)
332330, 331eqeltrd 2825 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑑 ∈ ℝ)
333329, 332remulcld 11241 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ (𝐺 Β· 𝑑) ∈ ℝ)
334333adantr 480 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) ∧ 𝑐 = (𝐺 Β· 𝑑)) β†’ (𝐺 Β· 𝑑) ∈ ℝ)
335328, 334eqeltrd 2825 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) ∧ 𝑐 = (𝐺 Β· 𝑑)) β†’ 𝑐 ∈ ℝ)
336335ex 412 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘))) β†’ (𝑐 = (𝐺 Β· 𝑑) β†’ 𝑐 ∈ ℝ))
3373363exp 1116 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝑒 ∈ π‘ˆ β†’ (𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ (𝑐 = (𝐺 Β· 𝑑) β†’ 𝑐 ∈ ℝ))))
338337rexlimdv 3145 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ (𝑐 = (𝐺 Β· 𝑑) β†’ 𝑐 ∈ ℝ)))
339338adantr 480 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑑 = (𝑒 βˆ’ (π΄β€˜π‘)) β†’ (𝑐 = (𝐺 Β· 𝑑) β†’ 𝑐 ∈ ℝ)))
340327, 339mpd 15 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}) β†’ (𝑐 = (𝐺 Β· 𝑑) β†’ 𝑐 ∈ ℝ))
341340ex 412 . . . . . . . . . . . 12 (πœ‘ β†’ (𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β†’ (𝑐 = (𝐺 Β· 𝑑) β†’ 𝑐 ∈ ℝ)))
342341adantr 480 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}) β†’ (𝑑 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} β†’ (𝑐 = (𝐺 Β· 𝑑) β†’ 𝑐 ∈ ℝ)))
343325, 326, 342rexlimd 3255 . . . . . . . . . 10 ((πœ‘ ∧ 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}) β†’ (βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑐 = (𝐺 Β· 𝑑) β†’ 𝑐 ∈ ℝ))
344319, 343mpd 15 . . . . . . . . 9 ((πœ‘ ∧ 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}) β†’ 𝑐 ∈ ℝ)
345344ralrimiva 3138 . . . . . . . 8 (πœ‘ β†’ βˆ€π‘ ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}𝑐 ∈ ℝ)
346 dfss3 3962 . . . . . . . 8 ({𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} βŠ† ℝ ↔ βˆ€π‘ ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}𝑐 ∈ ℝ)
347345, 346sylibr 233 . . . . . . 7 (πœ‘ β†’ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} βŠ† ℝ)
34840eqcomd 2730 . . . . . . . . . 10 (πœ‘ β†’ 0 = (𝐺 Β· 0))
349 oveq2 7409 . . . . . . . . . . 11 (𝑑 = 0 β†’ (𝐺 Β· 𝑑) = (𝐺 Β· 0))
350349rspceeqv 3625 . . . . . . . . . 10 ((0 ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))} ∧ 0 = (𝐺 Β· 0)) β†’ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}0 = (𝐺 Β· 𝑑))
351187, 348, 350syl2anc 583 . . . . . . . . 9 (πœ‘ β†’ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}0 = (𝐺 Β· 𝑑))
352 eqeq1 2728 . . . . . . . . . 10 (𝑣 = 0 β†’ (𝑣 = (𝐺 Β· 𝑑) ↔ 0 = (𝐺 Β· 𝑑)))
353352rexbidv 3170 . . . . . . . . 9 (𝑣 = 0 β†’ (βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑) ↔ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}0 = (𝐺 Β· 𝑑)))
35446, 351, 353elabd 3663 . . . . . . . 8 (πœ‘ β†’ 0 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)})
355 ne0i 4326 . . . . . . . 8 (0 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} β†’ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} β‰  βˆ…)
356354, 355syl 17 . . . . . . 7 (πœ‘ β†’ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} β‰  βˆ…)
35738, 190remulcld 11241 . . . . . . . 8 (πœ‘ β†’ (𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))) ∈ ℝ)
358190adantr 480 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)) ∈ ℝ)
359137adantr 480 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ 0 ≀ 𝐺)
36013adantr 480 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (π΅β€˜π‘) ∈ ℝ)
361 iccleub 13376 . . . . . . . . . . . . . . . . . 18 (((π΄β€˜π‘) ∈ ℝ* ∧ (π΅β€˜π‘) ∈ ℝ* ∧ 𝑒 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘))) β†’ 𝑒 ≀ (π΅β€˜π‘))
362152, 154, 155, 361syl3anc 1368 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ 𝑒 ≀ (π΅β€˜π‘))
363158, 360, 159, 362lesub1dd 11827 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (𝑒 βˆ’ (π΄β€˜π‘)) ≀ ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)))
364173, 358, 246, 359, 363lemul2ad 12151 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ) β†’ (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) ≀ (𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))))
3653643adant3 1129 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))) β†’ (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) ≀ (𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))))
366245, 365eqbrtrd 5160 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑒 ∈ π‘ˆ ∧ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘)))) β†’ 𝑐 ≀ (𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))))
3673663exp 1116 . . . . . . . . . . . 12 (πœ‘ β†’ (𝑒 ∈ π‘ˆ β†’ (𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑐 ≀ (𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))))))
368367rexlimdv 3145 . . . . . . . . . . 11 (πœ‘ β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑐 ≀ (𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)))))
369368adantr 480 . . . . . . . . . 10 ((πœ‘ ∧ 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}) β†’ (βˆƒπ‘’ ∈ π‘ˆ 𝑐 = (𝐺 Β· (𝑒 βˆ’ (π΄β€˜π‘))) β†’ 𝑐 ≀ (𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)))))
370244, 369mpd 15 . . . . . . . . 9 ((πœ‘ ∧ 𝑐 ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}) β†’ 𝑐 ≀ (𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))))
371370ralrimiva 3138 . . . . . . . 8 (πœ‘ β†’ βˆ€π‘ ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}𝑐 ≀ (𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))))
372 brralrspcev 5198 . . . . . . . 8 (((𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘))) ∈ ℝ ∧ βˆ€π‘ ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}𝑐 ≀ (𝐺 Β· ((π΅β€˜π‘) βˆ’ (π΄β€˜π‘)))) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘ ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}𝑐 ≀ 𝑦)
373357, 371, 372syl2anc 583 . . . . . . 7 (πœ‘ β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘ ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}𝑐 ≀ 𝑦)
374 suprleub 12177 . . . . . . 7 ((({𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} βŠ† ℝ ∧ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)} β‰  βˆ… ∧ βˆƒπ‘¦ ∈ ℝ βˆ€π‘ ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}𝑐 ≀ 𝑦) ∧ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))) ∈ ℝ) β†’ (sup({𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}, ℝ, < ) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))) ↔ βˆ€π‘ ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}𝑐 ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))))))
375347, 356, 373, 275, 374syl31anc 1370 . . . . . 6 (πœ‘ β†’ (sup({𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}, ℝ, < ) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))) ↔ βˆ€π‘ ∈ {𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}𝑐 ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))))))
376318, 375mpbird 257 . . . . 5 (πœ‘ β†’ sup({𝑣 ∣ βˆƒπ‘‘ ∈ {𝑀 ∣ βˆƒπ‘’ ∈ π‘ˆ 𝑀 = (𝑒 βˆ’ (π΄β€˜π‘))}𝑣 = (𝐺 Β· 𝑑)}, ℝ, < ) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))))
377219, 376eqbrtrd 5160 . . . 4 (πœ‘ β†’ (𝐺 Β· (𝑆 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))))
378123, 377jca 511 . . 3 (πœ‘ β†’ (𝑆 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∧ (𝐺 Β· (𝑆 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))))))
379 oveq1 7408 . . . . . 6 (𝑧 = 𝑆 β†’ (𝑧 βˆ’ (π΄β€˜π‘)) = (𝑆 βˆ’ (π΄β€˜π‘)))
380379oveq2d 7417 . . . . 5 (𝑧 = 𝑆 β†’ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) = (𝐺 Β· (𝑆 βˆ’ (π΄β€˜π‘))))
381 fveq2 6881 . . . . . . . . . 10 (𝑧 = 𝑆 β†’ (π»β€˜π‘§) = (π»β€˜π‘†))
382381fveq1d 6883 . . . . . . . . 9 (𝑧 = 𝑆 β†’ ((π»β€˜π‘§)β€˜(π·β€˜π‘—)) = ((π»β€˜π‘†)β€˜(π·β€˜π‘—)))
383382oveq2d 7417 . . . . . . . 8 (𝑧 = 𝑆 β†’ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))) = ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))
384383mpteq2dv 5240 . . . . . . 7 (𝑧 = 𝑆 β†’ (𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—)))) = (𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))
385384fveq2d 6885 . . . . . 6 (𝑧 = 𝑆 β†’ (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))) = (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))))
386385oveq2d 7417 . . . . 5 (𝑧 = 𝑆 β†’ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—)))))) = ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—)))))))
387380, 386breq12d 5151 . . . 4 (𝑧 = 𝑆 β†’ ((𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—)))))) ↔ (𝐺 Β· (𝑆 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))))))
388387elrab 3675 . . 3 (𝑆 ∈ {𝑧 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∣ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))))} ↔ (𝑆 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∧ (𝐺 Β· (𝑆 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘†)β€˜(π·β€˜π‘—))))))))
389378, 388sylibr 233 . 2 (πœ‘ β†’ 𝑆 ∈ {𝑧 ∈ ((π΄β€˜π‘)[,](π΅β€˜π‘)) ∣ (𝐺 Β· (𝑧 βˆ’ (π΄β€˜π‘))) ≀ ((1 + 𝐸) Β· (Ξ£^β€˜(𝑗 ∈ β„• ↦ ((πΆβ€˜π‘—)(πΏβ€˜π‘Š)((π»β€˜π‘§)β€˜(π·β€˜π‘—))))))})
390389, 14eleqtrrdi 2836 1 (πœ‘ β†’ 𝑆 ∈ π‘ˆ)
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∧ w3a 1084  βˆ€wal 1531   = wceq 1533   ∈ wcel 2098  {cab 2701   β‰  wne 2932  βˆ€wral 3053  βˆƒwrex 3062  {crab 3424  Vcvv 3466   βˆ– cdif 3937   βˆͺ cun 3938   βŠ† wss 3940  βˆ…c0 4314  ifcif 4520  {csn 4620   class class class wbr 5138   ↦ cmpt 5221   β†Ύ cres 5668  βŸΆwf 6529  β€˜cfv 6533  (class class class)co 7401   ∈ cmpo 7403   ↑m cmap 8816  Fincfn 8935  supcsup 9431  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111  +∞cpnf 11242  β„*cxr 11244   < clt 11245   ≀ cle 11246   βˆ’ cmin 11441  β„•cn 12209  β„+crp 12971  [,)cico 13323  [,]cicc 13324  βˆcprod 15846  volcvol 25314  Ξ£^csumge0 45563
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5275  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3959  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-op 4627  df-uni 4900  df-int 4941  df-iun 4989  df-br 5139  df-opab 5201  df-mpt 5222  df-tr 5256  df-id 5564  df-eprel 5570  df-po 5578  df-so 5579  df-fr 5621  df-se 5622  df-we 5623  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6290  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7357  df-ov 7404  df-oprab 7405  df-mpo 7406  df-of 7663  df-om 7849  df-1st 7968  df-2nd 7969  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-2o 8462  df-er 8699  df-map 8818  df-pm 8819  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-dju 9892  df-card 9930  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-z 12556  df-uz 12820  df-q 12930  df-rp 12972  df-xneg 13089  df-xadd 13090  df-xmul 13091  df-ioo 13325  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-clim 15429  df-rlim 15430  df-sum 15630  df-prod 15847  df-rest 17367  df-topgen 17388  df-psmet 21220  df-xmet 21221  df-met 21222  df-bl 21223  df-mopn 21224  df-top 22718  df-topon 22735  df-bases 22771  df-cmp 23213  df-ovol 25315  df-vol 25316  df-sumge0 45564
This theorem is referenced by:  hoidmvlelem4  45799
  Copyright terms: Public domain W3C validator