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

Theorem fourierdlem61 44873
Description: Given a differentiable function 𝐹, with finite limit of the derivative at 𝐴 the derived function 𝐻 has a limit at 0. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem61.a (πœ‘ β†’ 𝐴 ∈ ℝ)
fourierdlem61.b (πœ‘ β†’ 𝐡 ∈ ℝ)
fourierdlem61.altb (πœ‘ β†’ 𝐴 < 𝐡)
fourierdlem61.f (πœ‘ β†’ 𝐹:(𝐴(,)𝐡)βŸΆβ„)
fourierdlem61.y (πœ‘ β†’ π‘Œ ∈ (𝐹 limβ„‚ 𝐴))
fourierdlem61.g 𝐺 = (ℝ D 𝐹)
fourierdlem61.domg (πœ‘ β†’ dom 𝐺 = (𝐴(,)𝐡))
fourierdlem61.e (πœ‘ β†’ 𝐸 ∈ (𝐺 limβ„‚ 𝐴))
fourierdlem61.h 𝐻 = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ) / 𝑠))
fourierdlem61.n 𝑁 = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ))
fourierdlem61.d 𝐷 = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝑠)
Assertion
Ref Expression
fourierdlem61 (πœ‘ β†’ 𝐸 ∈ (𝐻 limβ„‚ 0))
Distinct variable groups:   𝐴,𝑠   𝐡,𝑠   𝐷,𝑠   𝐸,𝑠   𝐹,𝑠   𝐺,𝑠   𝑁,𝑠   π‘Œ,𝑠   πœ‘,𝑠
Allowed substitution hint:   𝐻(𝑠)

Proof of Theorem fourierdlem61
Dummy variable π‘₯ is distinct from all other variables.
StepHypRef Expression
1 0red 11216 . . 3 (πœ‘ β†’ 0 ∈ ℝ)
2 fourierdlem61.b . . . . 5 (πœ‘ β†’ 𝐡 ∈ ℝ)
3 fourierdlem61.a . . . . 5 (πœ‘ β†’ 𝐴 ∈ ℝ)
42, 3resubcld 11641 . . . 4 (πœ‘ β†’ (𝐡 βˆ’ 𝐴) ∈ ℝ)
54rexrd 11263 . . 3 (πœ‘ β†’ (𝐡 βˆ’ 𝐴) ∈ ℝ*)
6 fourierdlem61.altb . . . 4 (πœ‘ β†’ 𝐴 < 𝐡)
73, 2posdifd 11800 . . . 4 (πœ‘ β†’ (𝐴 < 𝐡 ↔ 0 < (𝐡 βˆ’ 𝐴)))
86, 7mpbid 231 . . 3 (πœ‘ β†’ 0 < (𝐡 βˆ’ 𝐴))
9 fourierdlem61.f . . . . . . 7 (πœ‘ β†’ 𝐹:(𝐴(,)𝐡)βŸΆβ„)
109adantr 481 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝐹:(𝐴(,)𝐡)βŸΆβ„)
113rexrd 11263 . . . . . . . 8 (πœ‘ β†’ 𝐴 ∈ ℝ*)
1211adantr 481 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝐴 ∈ ℝ*)
132rexrd 11263 . . . . . . . 8 (πœ‘ β†’ 𝐡 ∈ ℝ*)
1413adantr 481 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝐡 ∈ ℝ*)
153adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝐴 ∈ ℝ)
16 elioore 13353 . . . . . . . . 9 (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) β†’ 𝑠 ∈ ℝ)
1716adantl 482 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝑠 ∈ ℝ)
1815, 17readdcld 11242 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐴 + 𝑠) ∈ ℝ)
193recnd 11241 . . . . . . . . . . 11 (πœ‘ β†’ 𝐴 ∈ β„‚)
2019addridd 11413 . . . . . . . . . 10 (πœ‘ β†’ (𝐴 + 0) = 𝐴)
2120eqcomd 2738 . . . . . . . . 9 (πœ‘ β†’ 𝐴 = (𝐴 + 0))
2221adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝐴 = (𝐴 + 0))
23 0red 11216 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 0 ∈ ℝ)
24 0xr 11260 . . . . . . . . . . 11 0 ∈ ℝ*
2524a1i 11 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 0 ∈ ℝ*)
265adantr 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐡 βˆ’ 𝐴) ∈ ℝ*)
27 simpr 485 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)))
2825, 26, 27ioogtlbd 44253 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 0 < 𝑠)
2923, 17, 15, 28ltadd2dd 11372 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐴 + 0) < (𝐴 + 𝑠))
3022, 29eqbrtrd 5170 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝐴 < (𝐴 + 𝑠))
314adantr 481 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐡 βˆ’ 𝐴) ∈ ℝ)
3225, 26, 27iooltubd 44247 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝑠 < (𝐡 βˆ’ 𝐴))
3317, 31, 15, 32ltadd2dd 11372 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐴 + 𝑠) < (𝐴 + (𝐡 βˆ’ 𝐴)))
342recnd 11241 . . . . . . . . . 10 (πœ‘ β†’ 𝐡 ∈ β„‚)
3519, 34pncan3d 11573 . . . . . . . . 9 (πœ‘ β†’ (𝐴 + (𝐡 βˆ’ 𝐴)) = 𝐡)
3635adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐴 + (𝐡 βˆ’ 𝐴)) = 𝐡)
3733, 36breqtrd 5174 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐴 + 𝑠) < 𝐡)
3812, 14, 18, 30, 37eliood 44201 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐴 + 𝑠) ∈ (𝐴(,)𝐡))
3910, 38ffvelcdmd 7087 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (πΉβ€˜(𝐴 + 𝑠)) ∈ ℝ)
40 ioossre 13384 . . . . . . . . 9 (𝐴(,)𝐡) βŠ† ℝ
4140a1i 11 . . . . . . . 8 (πœ‘ β†’ (𝐴(,)𝐡) βŠ† ℝ)
42 ax-resscn 11166 . . . . . . . 8 ℝ βŠ† β„‚
4341, 42sstrdi 3994 . . . . . . 7 (πœ‘ β†’ (𝐴(,)𝐡) βŠ† β„‚)
44 eqid 2732 . . . . . . . 8 (TopOpenβ€˜β„‚fld) = (TopOpenβ€˜β„‚fld)
4544, 13, 3, 6lptioo1cn 44352 . . . . . . 7 (πœ‘ β†’ 𝐴 ∈ ((limPtβ€˜(TopOpenβ€˜β„‚fld))β€˜(𝐴(,)𝐡)))
46 fourierdlem61.y . . . . . . 7 (πœ‘ β†’ π‘Œ ∈ (𝐹 limβ„‚ 𝐴))
479, 43, 45, 46limcrecl 44335 . . . . . 6 (πœ‘ β†’ π‘Œ ∈ ℝ)
4847adantr 481 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ π‘Œ ∈ ℝ)
4939, 48resubcld 11641 . . . 4 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ) ∈ ℝ)
50 fourierdlem61.n . . . 4 𝑁 = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ))
5149, 50fmptd 7113 . . 3 (πœ‘ β†’ 𝑁:(0(,)(𝐡 βˆ’ 𝐴))βŸΆβ„)
52 fourierdlem61.d . . . 4 𝐷 = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝑠)
5317, 52fmptd 7113 . . 3 (πœ‘ β†’ 𝐷:(0(,)(𝐡 βˆ’ 𝐴))βŸΆβ„)
5450oveq2i 7419 . . . . . 6 (ℝ D 𝑁) = (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ)))
5554a1i 11 . . . . 5 (πœ‘ β†’ (ℝ D 𝑁) = (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ))))
5655dmeqd 5905 . . . 4 (πœ‘ β†’ dom (ℝ D 𝑁) = dom (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ))))
57 reelprrecn 11201 . . . . . . . 8 ℝ ∈ {ℝ, β„‚}
5857a1i 11 . . . . . . 7 (πœ‘ β†’ ℝ ∈ {ℝ, β„‚})
5939recnd 11241 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (πΉβ€˜(𝐴 + 𝑠)) ∈ β„‚)
60 dvfre 25467 . . . . . . . . . . 11 ((𝐹:(𝐴(,)𝐡)βŸΆβ„ ∧ (𝐴(,)𝐡) βŠ† ℝ) β†’ (ℝ D 𝐹):dom (ℝ D 𝐹)βŸΆβ„)
619, 41, 60syl2anc 584 . . . . . . . . . 10 (πœ‘ β†’ (ℝ D 𝐹):dom (ℝ D 𝐹)βŸΆβ„)
62 fourierdlem61.g . . . . . . . . . . . 12 𝐺 = (ℝ D 𝐹)
6362a1i 11 . . . . . . . . . . 11 (πœ‘ β†’ 𝐺 = (ℝ D 𝐹))
6463feq1d 6702 . . . . . . . . . 10 (πœ‘ β†’ (𝐺:dom (ℝ D 𝐹)βŸΆβ„ ↔ (ℝ D 𝐹):dom (ℝ D 𝐹)βŸΆβ„))
6561, 64mpbird 256 . . . . . . . . 9 (πœ‘ β†’ 𝐺:dom (ℝ D 𝐹)βŸΆβ„)
6665adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝐺:dom (ℝ D 𝐹)βŸΆβ„)
6763eqcomd 2738 . . . . . . . . . . . 12 (πœ‘ β†’ (ℝ D 𝐹) = 𝐺)
6867dmeqd 5905 . . . . . . . . . . 11 (πœ‘ β†’ dom (ℝ D 𝐹) = dom 𝐺)
69 fourierdlem61.domg . . . . . . . . . . 11 (πœ‘ β†’ dom 𝐺 = (𝐴(,)𝐡))
7068, 69eqtr2d 2773 . . . . . . . . . 10 (πœ‘ β†’ (𝐴(,)𝐡) = dom (ℝ D 𝐹))
7170adantr 481 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐴(,)𝐡) = dom (ℝ D 𝐹))
7238, 71eleqtrd 2835 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐴 + 𝑠) ∈ dom (ℝ D 𝐹))
7366, 72ffvelcdmd 7087 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (πΊβ€˜(𝐴 + 𝑠)) ∈ ℝ)
74 1red 11214 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 1 ∈ ℝ)
759ffvelcdmda 7086 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ (𝐴(,)𝐡)) β†’ (πΉβ€˜π‘₯) ∈ ℝ)
7675recnd 11241 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (𝐴(,)𝐡)) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
7770feq2d 6703 . . . . . . . . . . 11 (πœ‘ β†’ (𝐺:(𝐴(,)𝐡)βŸΆβ„ ↔ 𝐺:dom (ℝ D 𝐹)βŸΆβ„))
7865, 77mpbird 256 . . . . . . . . . 10 (πœ‘ β†’ 𝐺:(𝐴(,)𝐡)βŸΆβ„)
7978ffvelcdmda 7086 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ (𝐴(,)𝐡)) β†’ (πΊβ€˜π‘₯) ∈ ℝ)
8019adantr 481 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝐴 ∈ β„‚)
8119adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ ℝ) β†’ 𝐴 ∈ β„‚)
82 0red 11216 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ ℝ) β†’ 0 ∈ ℝ)
8358, 19dvmptc 25474 . . . . . . . . . . . 12 (πœ‘ β†’ (ℝ D (𝑠 ∈ ℝ ↦ 𝐴)) = (𝑠 ∈ ℝ ↦ 0))
84 ioossre 13384 . . . . . . . . . . . . 13 (0(,)(𝐡 βˆ’ 𝐴)) βŠ† ℝ
8584a1i 11 . . . . . . . . . . . 12 (πœ‘ β†’ (0(,)(𝐡 βˆ’ 𝐴)) βŠ† ℝ)
86 tgioo4 44276 . . . . . . . . . . . 12 (topGenβ€˜ran (,)) = ((TopOpenβ€˜β„‚fld) β†Ύt ℝ)
87 iooretop 24281 . . . . . . . . . . . . 13 (0(,)(𝐡 βˆ’ 𝐴)) ∈ (topGenβ€˜ran (,))
8887a1i 11 . . . . . . . . . . . 12 (πœ‘ β†’ (0(,)(𝐡 βˆ’ 𝐴)) ∈ (topGenβ€˜ran (,)))
8958, 81, 82, 83, 85, 86, 44, 88dvmptres 25479 . . . . . . . . . . 11 (πœ‘ β†’ (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝐴)) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 0))
9017recnd 11241 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 𝑠 ∈ β„‚)
91 recn 11199 . . . . . . . . . . . . 13 (𝑠 ∈ ℝ β†’ 𝑠 ∈ β„‚)
9291adantl 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ ℝ) β†’ 𝑠 ∈ β„‚)
93 1red 11214 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ ℝ) β†’ 1 ∈ ℝ)
9458dvmptid 25473 . . . . . . . . . . . 12 (πœ‘ β†’ (ℝ D (𝑠 ∈ ℝ ↦ 𝑠)) = (𝑠 ∈ ℝ ↦ 1))
9558, 92, 93, 94, 85, 86, 44, 88dvmptres 25479 . . . . . . . . . . 11 (πœ‘ β†’ (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝑠)) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1))
9658, 80, 23, 89, 90, 74, 95dvmptadd 25476 . . . . . . . . . 10 (πœ‘ β†’ (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (𝐴 + 𝑠))) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (0 + 1)))
97 0p1e1 12333 . . . . . . . . . . 11 (0 + 1) = 1
9897mpteq2i 5253 . . . . . . . . . 10 (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (0 + 1)) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1)
9996, 98eqtrdi 2788 . . . . . . . . 9 (πœ‘ β†’ (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (𝐴 + 𝑠))) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1))
1009feqmptd 6960 . . . . . . . . . . . 12 (πœ‘ β†’ 𝐹 = (π‘₯ ∈ (𝐴(,)𝐡) ↦ (πΉβ€˜π‘₯)))
101100eqcomd 2738 . . . . . . . . . . 11 (πœ‘ β†’ (π‘₯ ∈ (𝐴(,)𝐡) ↦ (πΉβ€˜π‘₯)) = 𝐹)
102101oveq2d 7424 . . . . . . . . . 10 (πœ‘ β†’ (ℝ D (π‘₯ ∈ (𝐴(,)𝐡) ↦ (πΉβ€˜π‘₯))) = (ℝ D 𝐹))
10378feqmptd 6960 . . . . . . . . . 10 (πœ‘ β†’ 𝐺 = (π‘₯ ∈ (𝐴(,)𝐡) ↦ (πΊβ€˜π‘₯)))
104102, 67, 1033eqtrd 2776 . . . . . . . . 9 (πœ‘ β†’ (ℝ D (π‘₯ ∈ (𝐴(,)𝐡) ↦ (πΉβ€˜π‘₯))) = (π‘₯ ∈ (𝐴(,)𝐡) ↦ (πΊβ€˜π‘₯)))
105 fveq2 6891 . . . . . . . . 9 (π‘₯ = (𝐴 + 𝑠) β†’ (πΉβ€˜π‘₯) = (πΉβ€˜(𝐴 + 𝑠)))
106 fveq2 6891 . . . . . . . . 9 (π‘₯ = (𝐴 + 𝑠) β†’ (πΊβ€˜π‘₯) = (πΊβ€˜(𝐴 + 𝑠)))
10758, 58, 38, 74, 76, 79, 99, 104, 105, 106dvmptco 25488 . . . . . . . 8 (πœ‘ β†’ (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΉβ€˜(𝐴 + 𝑠)))) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΊβ€˜(𝐴 + 𝑠)) Β· 1)))
10873recnd 11241 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (πΊβ€˜(𝐴 + 𝑠)) ∈ β„‚)
109108mulridd 11230 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ ((πΊβ€˜(𝐴 + 𝑠)) Β· 1) = (πΊβ€˜(𝐴 + 𝑠)))
110109mpteq2dva 5248 . . . . . . . 8 (πœ‘ β†’ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΊβ€˜(𝐴 + 𝑠)) Β· 1)) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))))
111107, 110eqtrd 2772 . . . . . . 7 (πœ‘ β†’ (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΉβ€˜(𝐴 + 𝑠)))) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))))
112 limccl 25391 . . . . . . . . 9 (𝐹 limβ„‚ 𝐴) βŠ† β„‚
113112, 46sselid 3980 . . . . . . . 8 (πœ‘ β†’ π‘Œ ∈ β„‚)
114113adantr 481 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ π‘Œ ∈ β„‚)
115113adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ ℝ) β†’ π‘Œ ∈ β„‚)
11658, 113dvmptc 25474 . . . . . . . 8 (πœ‘ β†’ (ℝ D (𝑠 ∈ ℝ ↦ π‘Œ)) = (𝑠 ∈ ℝ ↦ 0))
11758, 115, 82, 116, 85, 86, 44, 88dvmptres 25479 . . . . . . 7 (πœ‘ β†’ (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ π‘Œ)) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 0))
11858, 59, 73, 111, 114, 23, 117dvmptsub 25483 . . . . . 6 (πœ‘ β†’ (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ))) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΊβ€˜(𝐴 + 𝑠)) βˆ’ 0)))
119108subid1d 11559 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ ((πΊβ€˜(𝐴 + 𝑠)) βˆ’ 0) = (πΊβ€˜(𝐴 + 𝑠)))
120119mpteq2dva 5248 . . . . . 6 (πœ‘ β†’ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΊβ€˜(𝐴 + 𝑠)) βˆ’ 0)) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))))
121118, 120eqtrd 2772 . . . . 5 (πœ‘ β†’ (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ))) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))))
122121dmeqd 5905 . . . 4 (πœ‘ β†’ dom (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ))) = dom (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))))
12373ralrimiva 3146 . . . . 5 (πœ‘ β†’ βˆ€π‘  ∈ (0(,)(𝐡 βˆ’ 𝐴))(πΊβ€˜(𝐴 + 𝑠)) ∈ ℝ)
124 dmmptg 6241 . . . . 5 (βˆ€π‘  ∈ (0(,)(𝐡 βˆ’ 𝐴))(πΊβ€˜(𝐴 + 𝑠)) ∈ ℝ β†’ dom (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))) = (0(,)(𝐡 βˆ’ 𝐴)))
125123, 124syl 17 . . . 4 (πœ‘ β†’ dom (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))) = (0(,)(𝐡 βˆ’ 𝐴)))
12656, 122, 1253eqtrd 2776 . . 3 (πœ‘ β†’ dom (ℝ D 𝑁) = (0(,)(𝐡 βˆ’ 𝐴)))
12752a1i 11 . . . . . . 7 (πœ‘ β†’ 𝐷 = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝑠))
128127oveq2d 7424 . . . . . 6 (πœ‘ β†’ (ℝ D 𝐷) = (ℝ D (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝑠)))
129128, 95eqtrd 2772 . . . . 5 (πœ‘ β†’ (ℝ D 𝐷) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1))
130129dmeqd 5905 . . . 4 (πœ‘ β†’ dom (ℝ D 𝐷) = dom (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1))
13174ralrimiva 3146 . . . . 5 (πœ‘ β†’ βˆ€π‘  ∈ (0(,)(𝐡 βˆ’ 𝐴))1 ∈ ℝ)
132 dmmptg 6241 . . . . 5 (βˆ€π‘  ∈ (0(,)(𝐡 βˆ’ 𝐴))1 ∈ ℝ β†’ dom (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1) = (0(,)(𝐡 βˆ’ 𝐴)))
133131, 132syl 17 . . . 4 (πœ‘ β†’ dom (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1) = (0(,)(𝐡 βˆ’ 𝐴)))
134130, 133eqtrd 2772 . . 3 (πœ‘ β†’ dom (ℝ D 𝐷) = (0(,)(𝐡 βˆ’ 𝐴)))
135 eqid 2732 . . . . 5 (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΉβ€˜(𝐴 + 𝑠))) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΉβ€˜(𝐴 + 𝑠)))
136 eqid 2732 . . . . 5 (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ π‘Œ) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ π‘Œ)
137 eqid 2732 . . . . 5 (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ)) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ))
13838adantrr 715 . . . . . 6 ((πœ‘ ∧ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ (𝐴 + 𝑠) β‰  𝐴)) β†’ (𝐴 + 𝑠) ∈ (𝐴(,)𝐡))
139 eqid 2732 . . . . . . . 8 (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝐴) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝐴)
140 eqid 2732 . . . . . . . 8 (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝑠) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝑠)
141 eqid 2732 . . . . . . . 8 (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (𝐴 + 𝑠)) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (𝐴 + 𝑠))
14285, 42sstrdi 3994 . . . . . . . . 9 (πœ‘ β†’ (0(,)(𝐡 βˆ’ 𝐴)) βŠ† β„‚)
1431recnd 11241 . . . . . . . . 9 (πœ‘ β†’ 0 ∈ β„‚)
144139, 142, 19, 143constlimc 44330 . . . . . . . 8 (πœ‘ β†’ 𝐴 ∈ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝐴) limβ„‚ 0))
145142, 140, 143idlimc 44332 . . . . . . . 8 (πœ‘ β†’ 0 ∈ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝑠) limβ„‚ 0))
146139, 140, 141, 80, 90, 144, 145addlimc 44354 . . . . . . 7 (πœ‘ β†’ (𝐴 + 0) ∈ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (𝐴 + 𝑠)) limβ„‚ 0))
14721, 146eqeltrd 2833 . . . . . 6 (πœ‘ β†’ 𝐴 ∈ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (𝐴 + 𝑠)) limβ„‚ 0))
148100oveq1d 7423 . . . . . . 7 (πœ‘ β†’ (𝐹 limβ„‚ 𝐴) = ((π‘₯ ∈ (𝐴(,)𝐡) ↦ (πΉβ€˜π‘₯)) limβ„‚ 𝐴))
14946, 148eleqtrd 2835 . . . . . 6 (πœ‘ β†’ π‘Œ ∈ ((π‘₯ ∈ (𝐴(,)𝐡) ↦ (πΉβ€˜π‘₯)) limβ„‚ 𝐴))
150 simplrr 776 . . . . . . 7 (((πœ‘ ∧ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ (𝐴 + 𝑠) = 𝐴)) ∧ Β¬ (πΉβ€˜(𝐴 + 𝑠)) = π‘Œ) β†’ (𝐴 + 𝑠) = 𝐴)
15115, 30gtned 11348 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (𝐴 + 𝑠) β‰  𝐴)
152151neneqd 2945 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ Β¬ (𝐴 + 𝑠) = 𝐴)
153152adantrr 715 . . . . . . . 8 ((πœ‘ ∧ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ (𝐴 + 𝑠) = 𝐴)) β†’ Β¬ (𝐴 + 𝑠) = 𝐴)
154153adantr 481 . . . . . . 7 (((πœ‘ ∧ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ (𝐴 + 𝑠) = 𝐴)) ∧ Β¬ (πΉβ€˜(𝐴 + 𝑠)) = π‘Œ) β†’ Β¬ (𝐴 + 𝑠) = 𝐴)
155150, 154condan 816 . . . . . 6 ((πœ‘ ∧ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ (𝐴 + 𝑠) = 𝐴)) β†’ (πΉβ€˜(𝐴 + 𝑠)) = π‘Œ)
156138, 76, 147, 149, 105, 155limcco 25409 . . . . 5 (πœ‘ β†’ π‘Œ ∈ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΉβ€˜(𝐴 + 𝑠))) limβ„‚ 0))
157136, 142, 113, 143constlimc 44330 . . . . 5 (πœ‘ β†’ π‘Œ ∈ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ π‘Œ) limβ„‚ 0))
158135, 136, 137, 59, 114, 156, 157sublimc 44358 . . . 4 (πœ‘ β†’ (π‘Œ βˆ’ π‘Œ) ∈ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ)) limβ„‚ 0))
159113subidd 11558 . . . 4 (πœ‘ β†’ (π‘Œ βˆ’ π‘Œ) = 0)
16050eqcomi 2741 . . . . . 6 (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ)) = 𝑁
161160oveq1i 7418 . . . . 5 ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ)) limβ„‚ 0) = (𝑁 limβ„‚ 0)
162161a1i 11 . . . 4 (πœ‘ β†’ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ)) limβ„‚ 0) = (𝑁 limβ„‚ 0))
163158, 159, 1623eltr3d 2847 . . 3 (πœ‘ β†’ 0 ∈ (𝑁 limβ„‚ 0))
164142, 52, 143idlimc 44332 . . 3 (πœ‘ β†’ 0 ∈ (𝐷 limβ„‚ 0))
165 lbioo 13354 . . . . 5 Β¬ 0 ∈ (0(,)(𝐡 βˆ’ 𝐴))
166165a1i 11 . . . 4 (πœ‘ β†’ Β¬ 0 ∈ (0(,)(𝐡 βˆ’ 𝐴)))
167 mptresid 6050 . . . . . . 7 ( I β†Ύ (0(,)(𝐡 βˆ’ 𝐴))) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 𝑠)
168127, 167eqtr4di 2790 . . . . . 6 (πœ‘ β†’ 𝐷 = ( I β†Ύ (0(,)(𝐡 βˆ’ 𝐴))))
169168rneqd 5937 . . . . 5 (πœ‘ β†’ ran 𝐷 = ran ( I β†Ύ (0(,)(𝐡 βˆ’ 𝐴))))
170 rnresi 6074 . . . . 5 ran ( I β†Ύ (0(,)(𝐡 βˆ’ 𝐴))) = (0(,)(𝐡 βˆ’ 𝐴))
171169, 170eqtr2di 2789 . . . 4 (πœ‘ β†’ (0(,)(𝐡 βˆ’ 𝐴)) = ran 𝐷)
172166, 171neleqtrd 2855 . . 3 (πœ‘ β†’ Β¬ 0 ∈ ran 𝐷)
173 0ne1 12282 . . . . . 6 0 β‰  1
174173neii 2942 . . . . 5 Β¬ 0 = 1
175 elsng 4642 . . . . . 6 (0 ∈ ℝ β†’ (0 ∈ {1} ↔ 0 = 1))
1761, 175syl 17 . . . . 5 (πœ‘ β†’ (0 ∈ {1} ↔ 0 = 1))
177174, 176mtbiri 326 . . . 4 (πœ‘ β†’ Β¬ 0 ∈ {1})
178129rneqd 5937 . . . . 5 (πœ‘ β†’ ran (ℝ D 𝐷) = ran (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1))
179 eqid 2732 . . . . . 6 (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1)
18024a1i 11 . . . . . . . 8 (πœ‘ β†’ 0 ∈ ℝ*)
181 ioon0 13349 . . . . . . . 8 ((0 ∈ ℝ* ∧ (𝐡 βˆ’ 𝐴) ∈ ℝ*) β†’ ((0(,)(𝐡 βˆ’ 𝐴)) β‰  βˆ… ↔ 0 < (𝐡 βˆ’ 𝐴)))
182180, 5, 181syl2anc 584 . . . . . . 7 (πœ‘ β†’ ((0(,)(𝐡 βˆ’ 𝐴)) β‰  βˆ… ↔ 0 < (𝐡 βˆ’ 𝐴)))
1838, 182mpbird 256 . . . . . 6 (πœ‘ β†’ (0(,)(𝐡 βˆ’ 𝐴)) β‰  βˆ…)
184179, 183rnmptc 7207 . . . . 5 (πœ‘ β†’ ran (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1) = {1})
185178, 184eqtr2d 2773 . . . 4 (πœ‘ β†’ {1} = ran (ℝ D 𝐷))
186177, 185neleqtrd 2855 . . 3 (πœ‘ β†’ Β¬ 0 ∈ ran (ℝ D 𝐷))
18779recnd 11241 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ (𝐴(,)𝐡)) β†’ (πΊβ€˜π‘₯) ∈ β„‚)
188 fourierdlem61.e . . . . . 6 (πœ‘ β†’ 𝐸 ∈ (𝐺 limβ„‚ 𝐴))
189103oveq1d 7423 . . . . . 6 (πœ‘ β†’ (𝐺 limβ„‚ 𝐴) = ((π‘₯ ∈ (𝐴(,)𝐡) ↦ (πΊβ€˜π‘₯)) limβ„‚ 𝐴))
190188, 189eleqtrd 2835 . . . . 5 (πœ‘ β†’ 𝐸 ∈ ((π‘₯ ∈ (𝐴(,)𝐡) ↦ (πΊβ€˜π‘₯)) limβ„‚ 𝐴))
191 simplrr 776 . . . . . 6 (((πœ‘ ∧ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ (𝐴 + 𝑠) = 𝐴)) ∧ Β¬ (πΊβ€˜(𝐴 + 𝑠)) = 𝐸) β†’ (𝐴 + 𝑠) = 𝐴)
192153adantr 481 . . . . . 6 (((πœ‘ ∧ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ (𝐴 + 𝑠) = 𝐴)) ∧ Β¬ (πΊβ€˜(𝐴 + 𝑠)) = 𝐸) β†’ Β¬ (𝐴 + 𝑠) = 𝐴)
193191, 192condan 816 . . . . 5 ((πœ‘ ∧ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ (𝐴 + 𝑠) = 𝐴)) β†’ (πΊβ€˜(𝐴 + 𝑠)) = 𝐸)
194138, 187, 147, 190, 106, 193limcco 25409 . . . 4 (πœ‘ β†’ 𝐸 ∈ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))) limβ„‚ 0))
195108div1d 11981 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ ((πΊβ€˜(𝐴 + 𝑠)) / 1) = (πΊβ€˜(𝐴 + 𝑠)))
19654, 121eqtrid 2784 . . . . . . . . . . 11 (πœ‘ β†’ (ℝ D 𝑁) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))))
197196adantr 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (ℝ D 𝑁) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))))
198197fveq1d 6893 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ ((ℝ D 𝑁)β€˜π‘ ) = ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠)))β€˜π‘ ))
199 fvmpt4 43931 . . . . . . . . . 10 ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ (πΊβ€˜(𝐴 + 𝑠)) ∈ ℝ) β†’ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠)))β€˜π‘ ) = (πΊβ€˜(𝐴 + 𝑠)))
20027, 73, 199syl2anc 584 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠)))β€˜π‘ ) = (πΊβ€˜(𝐴 + 𝑠)))
201198, 200eqtr2d 2773 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (πΊβ€˜(𝐴 + 𝑠)) = ((ℝ D 𝑁)β€˜π‘ ))
202129fveq1d 6893 . . . . . . . . . 10 (πœ‘ β†’ ((ℝ D 𝐷)β€˜π‘ ) = ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1)β€˜π‘ ))
203202adantr 481 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ ((ℝ D 𝐷)β€˜π‘ ) = ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1)β€˜π‘ ))
204 fvmpt4 43931 . . . . . . . . . 10 ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ 1 ∈ ℝ) β†’ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1)β€˜π‘ ) = 1)
20527, 74, 204syl2anc 584 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ 1)β€˜π‘ ) = 1)
206203, 205eqtr2d 2773 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ 1 = ((ℝ D 𝐷)β€˜π‘ ))
207201, 206oveq12d 7426 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ ((πΊβ€˜(𝐴 + 𝑠)) / 1) = (((ℝ D 𝑁)β€˜π‘ ) / ((ℝ D 𝐷)β€˜π‘ )))
208195, 207eqtr3d 2774 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (πΊβ€˜(𝐴 + 𝑠)) = (((ℝ D 𝑁)β€˜π‘ ) / ((ℝ D 𝐷)β€˜π‘ )))
209208mpteq2dva 5248 . . . . 5 (πœ‘ β†’ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (((ℝ D 𝑁)β€˜π‘ ) / ((ℝ D 𝐷)β€˜π‘ ))))
210209oveq1d 7423 . . . 4 (πœ‘ β†’ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (πΊβ€˜(𝐴 + 𝑠))) limβ„‚ 0) = ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (((ℝ D 𝑁)β€˜π‘ ) / ((ℝ D 𝐷)β€˜π‘ ))) limβ„‚ 0))
211194, 210eleqtrd 2835 . . 3 (πœ‘ β†’ 𝐸 ∈ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (((ℝ D 𝑁)β€˜π‘ ) / ((ℝ D 𝐷)β€˜π‘ ))) limβ„‚ 0))
2121, 5, 8, 51, 53, 126, 134, 163, 164, 172, 186, 211lhop1 25530 . 2 (πœ‘ β†’ 𝐸 ∈ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((π‘β€˜π‘ ) / (π·β€˜π‘ ))) limβ„‚ 0))
21350fvmpt2 7009 . . . . . . 7 ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ) ∈ ℝ) β†’ (π‘β€˜π‘ ) = ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ))
21427, 49, 213syl2anc 584 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (π‘β€˜π‘ ) = ((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ))
21552fvmpt2 7009 . . . . . . 7 ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (π·β€˜π‘ ) = 𝑠)
21627, 27, 215syl2anc 584 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ (π·β€˜π‘ ) = 𝑠)
217214, 216oveq12d 7426 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴))) β†’ ((π‘β€˜π‘ ) / (π·β€˜π‘ )) = (((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ) / 𝑠))
218217mpteq2dva 5248 . . . 4 (πœ‘ β†’ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((π‘β€˜π‘ ) / (π·β€˜π‘ ))) = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ) / 𝑠)))
219 fourierdlem61.h . . . 4 𝐻 = (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ (((πΉβ€˜(𝐴 + 𝑠)) βˆ’ π‘Œ) / 𝑠))
220218, 219eqtr4di 2790 . . 3 (πœ‘ β†’ (𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((π‘β€˜π‘ ) / (π·β€˜π‘ ))) = 𝐻)
221220oveq1d 7423 . 2 (πœ‘ β†’ ((𝑠 ∈ (0(,)(𝐡 βˆ’ 𝐴)) ↦ ((π‘β€˜π‘ ) / (π·β€˜π‘ ))) limβ„‚ 0) = (𝐻 limβ„‚ 0))
222212, 221eleqtrd 2835 1 (πœ‘ β†’ 𝐸 ∈ (𝐻 limβ„‚ 0))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541   ∈ wcel 2106   β‰  wne 2940  βˆ€wral 3061   βŠ† wss 3948  βˆ…c0 4322  {csn 4628  {cpr 4630   class class class wbr 5148   ↦ cmpt 5231   I cid 5573  dom cdm 5676  ran crn 5677   β†Ύ cres 5678  βŸΆwf 6539  β€˜cfv 6543  (class class class)co 7408  β„‚cc 11107  β„cr 11108  0cc0 11109  1c1 11110   + caddc 11112   Β· cmul 11114  β„*cxr 11246   < clt 11247   βˆ’ cmin 11443   / cdiv 11870  (,)cioo 13323  TopOpenctopn 17366  topGenctg 17382  β„‚fldccnfld 20943   limβ„‚ climc 25378   D cdv 25379
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7724  ax-cnex 11165  ax-resscn 11166  ax-1cn 11167  ax-icn 11168  ax-addcl 11169  ax-addrcl 11170  ax-mulcl 11171  ax-mulrcl 11172  ax-mulcom 11173  ax-addass 11174  ax-mulass 11175  ax-distr 11176  ax-i2m1 11177  ax-1ne0 11178  ax-1rid 11179  ax-rnegex 11180  ax-rrecex 11181  ax-cnre 11182  ax-pre-lttri 11183  ax-pre-lttrn 11184  ax-pre-ltadd 11185  ax-pre-mulgt0 11186  ax-pre-sup 11187  ax-addf 11188  ax-mulf 11189
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 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-tp 4633  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 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7364  df-ov 7411  df-oprab 7412  df-mpo 7413  df-of 7669  df-om 7855  df-1st 7974  df-2nd 7975  df-supp 8146  df-frecs 8265  df-wrecs 8296  df-recs 8370  df-rdg 8409  df-1o 8465  df-2o 8466  df-er 8702  df-map 8821  df-pm 8822  df-ixp 8891  df-en 8939  df-dom 8940  df-sdom 8941  df-fin 8942  df-fsupp 9361  df-fi 9405  df-sup 9436  df-inf 9437  df-oi 9504  df-card 9933  df-pnf 11249  df-mnf 11250  df-xr 11251  df-ltxr 11252  df-le 11253  df-sub 11445  df-neg 11446  df-div 11871  df-nn 12212  df-2 12274  df-3 12275  df-4 12276  df-5 12277  df-6 12278  df-7 12279  df-8 12280  df-9 12281  df-n0 12472  df-z 12558  df-dec 12677  df-uz 12822  df-q 12932  df-rp 12974  df-xneg 13091  df-xadd 13092  df-xmul 13093  df-ioo 13327  df-ioc 13328  df-ico 13329  df-icc 13330  df-fz 13484  df-fzo 13627  df-seq 13966  df-exp 14027  df-hash 14290  df-cj 15045  df-re 15046  df-im 15047  df-sqrt 15181  df-abs 15182  df-struct 17079  df-sets 17096  df-slot 17114  df-ndx 17126  df-base 17144  df-ress 17173  df-plusg 17209  df-mulr 17210  df-starv 17211  df-sca 17212  df-vsca 17213  df-ip 17214  df-tset 17215  df-ple 17216  df-ds 17218  df-unif 17219  df-hom 17220  df-cco 17221  df-rest 17367  df-topn 17368  df-0g 17386  df-gsum 17387  df-topgen 17388  df-pt 17389  df-prds 17392  df-xrs 17447  df-qtop 17452  df-imas 17453  df-xps 17455  df-mre 17529  df-mrc 17530  df-acs 17532  df-mgm 18560  df-sgrp 18609  df-mnd 18625  df-submnd 18671  df-mulg 18950  df-cntz 19180  df-cmn 19649  df-psmet 20935  df-xmet 20936  df-met 20937  df-bl 20938  df-mopn 20939  df-fbas 20940  df-fg 20941  df-cnfld 20944  df-top 22395  df-topon 22412  df-topsp 22434  df-bases 22448  df-cld 22522  df-ntr 22523  df-cls 22524  df-nei 22601  df-lp 22639  df-perf 22640  df-cn 22730  df-cnp 22731  df-haus 22818  df-cmp 22890  df-tx 23065  df-hmeo 23258  df-fil 23349  df-fm 23441  df-flim 23442  df-flf 23443  df-xms 23825  df-ms 23826  df-tms 23827  df-cncf 24393  df-limc 25382  df-dv 25383
This theorem is referenced by:  fourierdlem75  44887
  Copyright terms: Public domain W3C validator