This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem fourierdlem61

Description: Given a differentiable function F , with finite limit of the derivative at A the derived function H has a limit at 0 . (Contributed by Glauco Siliprandi, 11-Dec-2019)

Ref Expression
Hypotheses 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 fourierdlem61 ( 𝜑 → 𝐸 ∈ ( 𝐻 limℂ 0 ) )

Proof

Step Hyp Ref Expression
1 fourierdlem61.a ⊢ ( 𝜑 → 𝐴 ∈ ℝ )
2 fourierdlem61.b ⊢ ( 𝜑 → 𝐵 ∈ ℝ )
3 fourierdlem61.altb ⊢ ( 𝜑 → 𝐴 < 𝐵 )
4 fourierdlem61.f ⊢ ( 𝜑 → 𝐹 : ( 𝐴 (,) 𝐵 ) ⟶ ℝ )
5 fourierdlem61.y ⊢ ( 𝜑 → 𝑌 ∈ ( 𝐹 limℂ 𝐴 ) )
6 fourierdlem61.g ⊢ 𝐺 = ( ℝ D 𝐹 )
7 fourierdlem61.domg ⊢ ( 𝜑 → dom 𝐺 = ( 𝐴 (,) 𝐵 ) )
8 fourierdlem61.e ⊢ ( 𝜑 → 𝐸 ∈ ( 𝐺 limℂ 𝐴 ) )
9 fourierdlem61.h ⊢ 𝐻 = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) / 𝑠 ) )
10 fourierdlem61.n ⊢ 𝑁 = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) )
11 fourierdlem61.d ⊢ 𝐷 = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑠 )
12 0red ⊢ ( 𝜑 → 0 ∈ ℝ )
13 2 1 resubcld ⊢ ( 𝜑 → ( 𝐵 − 𝐴 ) ∈ ℝ )
14 13 rexrd ⊢ ( 𝜑 → ( 𝐵 − 𝐴 ) ∈ ℝ* )
15 1 2 posdifd ⊢ ( 𝜑 → ( 𝐴 < 𝐵 ↔ 0 < ( 𝐵 − 𝐴 ) ) )
16 3 15 mpbid ⊢ ( 𝜑 → 0 < ( 𝐵 − 𝐴 ) )
17 4 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝐹 : ( 𝐴 (,) 𝐵 ) ⟶ ℝ )
18 1 rexrd ⊢ ( 𝜑 → 𝐴 ∈ ℝ* )
19 18 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝐴 ∈ ℝ* )
20 2 rexrd ⊢ ( 𝜑 → 𝐵 ∈ ℝ* )
21 20 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝐵 ∈ ℝ* )
22 1 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝐴 ∈ ℝ )
23 elioore ⊢ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) → 𝑠 ∈ ℝ )
24 23 adantl ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝑠 ∈ ℝ )
25 22 24 readdcld ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐴 + 𝑠 ) ∈ ℝ )
26 1 recnd ⊢ ( 𝜑 → 𝐴 ∈ ℂ )
27 26 addridd ⊢ ( 𝜑 → ( 𝐴 + 0 ) = 𝐴 )
28 27 eqcomd ⊢ ( 𝜑 → 𝐴 = ( 𝐴 + 0 ) )
29 28 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝐴 = ( 𝐴 + 0 ) )
30 0red ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 0 ∈ ℝ )
31 0xr ⊢ 0 ∈ ℝ*
32 31 a1i ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 0 ∈ ℝ* )
33 14 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐵 − 𝐴 ) ∈ ℝ* )
34 simpr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) )
35 32 33 34 ioogtlbd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 0 < 𝑠 )
36 30 24 22 35 ltadd2dd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐴 + 0 ) < ( 𝐴 + 𝑠 ) )
37 29 36 eqbrtrd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝐴 < ( 𝐴 + 𝑠 ) )
38 13 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐵 − 𝐴 ) ∈ ℝ )
39 32 33 34 iooltubd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝑠 < ( 𝐵 − 𝐴 ) )
40 24 38 22 39 ltadd2dd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐴 + 𝑠 ) < ( 𝐴 + ( 𝐵 − 𝐴 ) ) )
41 2 recnd ⊢ ( 𝜑 → 𝐵 ∈ ℂ )
42 26 41 pncan3d ⊢ ( 𝜑 → ( 𝐴 + ( 𝐵 − 𝐴 ) ) = 𝐵 )
43 42 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐴 + ( 𝐵 − 𝐴 ) ) = 𝐵 )
44 40 43 breqtrd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐴 + 𝑠 ) < 𝐵 )
45 19 21 25 37 44 eliood ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐴 + 𝑠 ) ∈ ( 𝐴 (,) 𝐵 ) )
46 17 45 ffvelcdmd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) ∈ ℝ )
47 ioossre ⊢ ( 𝐴 (,) 𝐵 ) ⊆ ℝ
48 47 a1i ⊢ ( 𝜑 → ( 𝐴 (,) 𝐵 ) ⊆ ℝ )
49 ax-resscn ⊢ ℝ ⊆ ℂ
50 48 49 sstrdi ⊢ ( 𝜑 → ( 𝐴 (,) 𝐵 ) ⊆ ℂ )
51 eqid ⊢ ( TopOpen ‘ ℂfld ) = ( TopOpen ‘ ℂfld )
52 51 20 1 3 lptioo1cn ⊢ ( 𝜑 → 𝐴 ∈ ( ( limPt ‘ ( TopOpen ‘ ℂfld ) ) ‘ ( 𝐴 (,) 𝐵 ) ) )
53 4 50 52 5 limcrecl ⊢ ( 𝜑 → 𝑌 ∈ ℝ )
54 53 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝑌 ∈ ℝ )
55 46 54 resubcld ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ∈ ℝ )
56 55 10 fmptd ⊢ ( 𝜑 → 𝑁 : ( 0 (,) ( 𝐵 − 𝐴 ) ) ⟶ ℝ )
57 24 11 fmptd ⊢ ( 𝜑 → 𝐷 : ( 0 (,) ( 𝐵 − 𝐴 ) ) ⟶ ℝ )
58 10 oveq2i ⊢ ( ℝ D 𝑁 ) = ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) )
59 58 a1i ⊢ ( 𝜑 → ( ℝ D 𝑁 ) = ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) ) )
60 59 dmeqd ⊢ ( 𝜑 → dom ( ℝ D 𝑁 ) = dom ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) ) )
61 reelprrecn ⊢ ℝ ∈ { ℝ , ℂ }
62 61 a1i ⊢ ( 𝜑 → ℝ ∈ { ℝ , ℂ } )
63 46 recnd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) ∈ ℂ )
64 dvfre ⊢ ( ( 𝐹 : ( 𝐴 (,) 𝐵 ) ⟶ ℝ ∧ ( 𝐴 (,) 𝐵 ) ⊆ ℝ ) → ( ℝ D 𝐹 ) : dom ( ℝ D 𝐹 ) ⟶ ℝ )
65 4 48 64 syl2anc ⊢ ( 𝜑 → ( ℝ D 𝐹 ) : dom ( ℝ D 𝐹 ) ⟶ ℝ )
66 6 a1i ⊢ ( 𝜑 → 𝐺 = ( ℝ D 𝐹 ) )
67 66 feq1d ⊢ ( 𝜑 → ( 𝐺 : dom ( ℝ D 𝐹 ) ⟶ ℝ ↔ ( ℝ D 𝐹 ) : dom ( ℝ D 𝐹 ) ⟶ ℝ ) )
68 65 67 mpbird ⊢ ( 𝜑 → 𝐺 : dom ( ℝ D 𝐹 ) ⟶ ℝ )
69 68 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝐺 : dom ( ℝ D 𝐹 ) ⟶ ℝ )
70 66 eqcomd ⊢ ( 𝜑 → ( ℝ D 𝐹 ) = 𝐺 )
71 70 dmeqd ⊢ ( 𝜑 → dom ( ℝ D 𝐹 ) = dom 𝐺 )
72 71 7 eqtr2d ⊢ ( 𝜑 → ( 𝐴 (,) 𝐵 ) = dom ( ℝ D 𝐹 ) )
73 72 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐴 (,) 𝐵 ) = dom ( ℝ D 𝐹 ) )
74 45 73 eleqtrd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐴 + 𝑠 ) ∈ dom ( ℝ D 𝐹 ) )
75 69 74 ffvelcdmd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ∈ ℝ )
76 1red ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 1 ∈ ℝ )
77 4 ffvelcdmda ⊢ ( ( 𝜑 ∧ 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ) → ( 𝐹 ‘ 𝑥 ) ∈ ℝ )
78 77 recnd ⊢ ( ( 𝜑 ∧ 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ) → ( 𝐹 ‘ 𝑥 ) ∈ ℂ )
79 72 feq2d ⊢ ( 𝜑 → ( 𝐺 : ( 𝐴 (,) 𝐵 ) ⟶ ℝ ↔ 𝐺 : dom ( ℝ D 𝐹 ) ⟶ ℝ ) )
80 68 79 mpbird ⊢ ( 𝜑 → 𝐺 : ( 𝐴 (,) 𝐵 ) ⟶ ℝ )
81 80 ffvelcdmda ⊢ ( ( 𝜑 ∧ 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ) → ( 𝐺 ‘ 𝑥 ) ∈ ℝ )
82 26 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝐴 ∈ ℂ )
83 26 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ℝ ) → 𝐴 ∈ ℂ )
84 0red ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ℝ ) → 0 ∈ ℝ )
85 62 26 dvmptc ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ℝ ↦ 𝐴 ) ) = ( 𝑠 ∈ ℝ ↦ 0 ) )
86 ioossre ⊢ ( 0 (,) ( 𝐵 − 𝐴 ) ) ⊆ ℝ
87 86 a1i ⊢ ( 𝜑 → ( 0 (,) ( 𝐵 − 𝐴 ) ) ⊆ ℝ )
88 tgioo4 ⊢ ( topGen ‘ ran (,) ) = ( ( TopOpen ‘ ℂfld ) ↾t ℝ )
89 iooretop ⊢ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∈ ( topGen ‘ ran (,) )
90 89 a1i ⊢ ( 𝜑 → ( 0 (,) ( 𝐵 − 𝐴 ) ) ∈ ( topGen ‘ ran (,) ) )
91 62 83 84 85 87 88 51 90 dvmptres ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝐴 ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 0 ) )
92 24 recnd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝑠 ∈ ℂ )
93 recn ⊢ ( 𝑠 ∈ ℝ → 𝑠 ∈ ℂ )
94 93 adantl ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ℝ ) → 𝑠 ∈ ℂ )
95 1red ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ℝ ) → 1 ∈ ℝ )
96 62 dvmptid ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ℝ ↦ 𝑠 ) ) = ( 𝑠 ∈ ℝ ↦ 1 ) )
97 62 94 95 96 87 88 51 90 dvmptres ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑠 ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) )
98 62 82 30 91 92 76 97 dvmptadd ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐴 + 𝑠 ) ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 0 + 1 ) ) )
99 0p1e1 ⊢ ( 0 + 1 ) = 1
100 99 mpteq2i ⊢ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 0 + 1 ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 )
101 98 100 eqtrdi ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐴 + 𝑠 ) ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) )
102 4 feqmptd ⊢ ( 𝜑 → 𝐹 = ( 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ↦ ( 𝐹 ‘ 𝑥 ) ) )
103 102 eqcomd ⊢ ( 𝜑 → ( 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ↦ ( 𝐹 ‘ 𝑥 ) ) = 𝐹 )
104 103 oveq2d ⊢ ( 𝜑 → ( ℝ D ( 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ↦ ( 𝐹 ‘ 𝑥 ) ) ) = ( ℝ D 𝐹 ) )
105 80 feqmptd ⊢ ( 𝜑 → 𝐺 = ( 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ↦ ( 𝐺 ‘ 𝑥 ) ) )
106 104 70 105 3eqtrd ⊢ ( 𝜑 → ( ℝ D ( 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ↦ ( 𝐹 ‘ 𝑥 ) ) ) = ( 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ↦ ( 𝐺 ‘ 𝑥 ) ) )
107 fveq2 ⊢ ( 𝑥 = ( 𝐴 + 𝑠 ) → ( 𝐹 ‘ 𝑥 ) = ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) )
108 fveq2 ⊢ ( 𝑥 = ( 𝐴 + 𝑠 ) → ( 𝐺 ‘ 𝑥 ) = ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) )
109 62 62 45 76 78 81 101 106 107 108 dvmptco ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) · 1 ) ) )
110 75 recnd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ∈ ℂ )
111 110 mulridd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) · 1 ) = ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) )
112 111 mpteq2dva ⊢ ( 𝜑 → ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) · 1 ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) )
113 109 112 eqtrd ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) )
114 limccl ⊢ ( 𝐹 limℂ 𝐴 ) ⊆ ℂ
115 114 5 sselid ⊢ ( 𝜑 → 𝑌 ∈ ℂ )
116 115 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 𝑌 ∈ ℂ )
117 115 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ℝ ) → 𝑌 ∈ ℂ )
118 62 115 dvmptc ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ℝ ↦ 𝑌 ) ) = ( 𝑠 ∈ ℝ ↦ 0 ) )
119 62 117 84 118 87 88 51 90 dvmptres ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑌 ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 0 ) )
120 62 63 75 113 116 30 119 dvmptsub ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) − 0 ) ) )
121 110 subid1d ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) − 0 ) = ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) )
122 121 mpteq2dva ⊢ ( 𝜑 → ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) − 0 ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) )
123 120 122 eqtrd ⊢ ( 𝜑 → ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) )
124 123 dmeqd ⊢ ( 𝜑 → dom ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) ) = dom ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) )
125 75 ralrimiva ⊢ ( 𝜑 → ∀ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ∈ ℝ )
126 dmmptg ⊢ ( ∀ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ∈ ℝ → dom ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) = ( 0 (,) ( 𝐵 − 𝐴 ) ) )
127 125 126 syl ⊢ ( 𝜑 → dom ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) = ( 0 (,) ( 𝐵 − 𝐴 ) ) )
128 60 124 127 3eqtrd ⊢ ( 𝜑 → dom ( ℝ D 𝑁 ) = ( 0 (,) ( 𝐵 − 𝐴 ) ) )
129 11 a1i ⊢ ( 𝜑 → 𝐷 = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑠 ) )
130 129 oveq2d ⊢ ( 𝜑 → ( ℝ D 𝐷 ) = ( ℝ D ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑠 ) ) )
131 130 97 eqtrd ⊢ ( 𝜑 → ( ℝ D 𝐷 ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) )
132 131 dmeqd ⊢ ( 𝜑 → dom ( ℝ D 𝐷 ) = dom ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) )
133 76 ralrimiva ⊢ ( 𝜑 → ∀ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) 1 ∈ ℝ )
134 dmmptg ⊢ ( ∀ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) 1 ∈ ℝ → dom ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) = ( 0 (,) ( 𝐵 − 𝐴 ) ) )
135 133 134 syl ⊢ ( 𝜑 → dom ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) = ( 0 (,) ( 𝐵 − 𝐴 ) ) )
136 132 135 eqtrd ⊢ ( 𝜑 → dom ( ℝ D 𝐷 ) = ( 0 (,) ( 𝐵 − 𝐴 ) ) )
137 eqid ⊢ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) )
138 eqid ⊢ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑌 ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑌 )
139 eqid ⊢ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) )
140 45 adantrr ⊢ ( ( 𝜑 ∧ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ ( 𝐴 + 𝑠 ) ≠ 𝐴 ) ) → ( 𝐴 + 𝑠 ) ∈ ( 𝐴 (,) 𝐵 ) )
141 eqid ⊢ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝐴 ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝐴 )
142 eqid ⊢ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑠 ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑠 )
143 eqid ⊢ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐴 + 𝑠 ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐴 + 𝑠 ) )
144 87 49 sstrdi ⊢ ( 𝜑 → ( 0 (,) ( 𝐵 − 𝐴 ) ) ⊆ ℂ )
145 12 recnd ⊢ ( 𝜑 → 0 ∈ ℂ )
146 141 144 26 145 constlimc ⊢ ( 𝜑 → 𝐴 ∈ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝐴 ) limℂ 0 ) )
147 144 142 145 idlimc ⊢ ( 𝜑 → 0 ∈ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑠 ) limℂ 0 ) )
148 141 142 143 82 92 146 147 addlimc ⊢ ( 𝜑 → ( 𝐴 + 0 ) ∈ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐴 + 𝑠 ) ) limℂ 0 ) )
149 28 148 eqeltrd ⊢ ( 𝜑 → 𝐴 ∈ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐴 + 𝑠 ) ) limℂ 0 ) )
150 102 oveq1d ⊢ ( 𝜑 → ( 𝐹 limℂ 𝐴 ) = ( ( 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ↦ ( 𝐹 ‘ 𝑥 ) ) limℂ 𝐴 ) )
151 5 150 eleqtrd ⊢ ( 𝜑 → 𝑌 ∈ ( ( 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ↦ ( 𝐹 ‘ 𝑥 ) ) limℂ 𝐴 ) )
152 simplrr ⊢ ( ( ( 𝜑 ∧ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ ( 𝐴 + 𝑠 ) = 𝐴 ) ) ∧ ¬ ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) = 𝑌 ) → ( 𝐴 + 𝑠 ) = 𝐴 )
153 22 37 gtned ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐴 + 𝑠 ) ≠ 𝐴 )
154 153 neneqd ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ¬ ( 𝐴 + 𝑠 ) = 𝐴 )
155 154 adantrr ⊢ ( ( 𝜑 ∧ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ ( 𝐴 + 𝑠 ) = 𝐴 ) ) → ¬ ( 𝐴 + 𝑠 ) = 𝐴 )
156 155 adantr ⊢ ( ( ( 𝜑 ∧ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ ( 𝐴 + 𝑠 ) = 𝐴 ) ) ∧ ¬ ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) = 𝑌 ) → ¬ ( 𝐴 + 𝑠 ) = 𝐴 )
157 152 156 condan ⊢ ( ( 𝜑 ∧ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ ( 𝐴 + 𝑠 ) = 𝐴 ) ) → ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) = 𝑌 )
158 140 78 149 151 107 157 limcco ⊢ ( 𝜑 → 𝑌 ∈ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) ) limℂ 0 ) )
159 138 144 115 145 constlimc ⊢ ( 𝜑 → 𝑌 ∈ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑌 ) limℂ 0 ) )
160 137 138 139 63 116 158 159 sublimc ⊢ ( 𝜑 → ( 𝑌 − 𝑌 ) ∈ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) limℂ 0 ) )
161 115 subidd ⊢ ( 𝜑 → ( 𝑌 − 𝑌 ) = 0 )
162 10 eqcomi ⊢ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) = 𝑁
163 162 oveq1i ⊢ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) limℂ 0 ) = ( 𝑁 limℂ 0 )
164 163 a1i ⊢ ( 𝜑 → ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ) limℂ 0 ) = ( 𝑁 limℂ 0 ) )
165 160 161 164 3eltr3d ⊢ ( 𝜑 → 0 ∈ ( 𝑁 limℂ 0 ) )
166 144 11 145 idlimc ⊢ ( 𝜑 → 0 ∈ ( 𝐷 limℂ 0 ) )
167 lbioo ⊢ ¬ 0 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) )
168 167 a1i ⊢ ( 𝜑 → ¬ 0 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) )
169 mptresid ⊢ ( I ↾ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 𝑠 )
170 129 169 eqtr4di ⊢ ( 𝜑 → 𝐷 = ( I ↾ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) )
171 170 rneqd ⊢ ( 𝜑 → ran 𝐷 = ran ( I ↾ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) )
172 rnresi ⊢ ran ( I ↾ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) = ( 0 (,) ( 𝐵 − 𝐴 ) )
173 171 172 eqtr2di ⊢ ( 𝜑 → ( 0 (,) ( 𝐵 − 𝐴 ) ) = ran 𝐷 )
174 168 173 neleqtrd ⊢ ( 𝜑 → ¬ 0 ∈ ran 𝐷 )
175 0ne1 ⊢ 0 ≠ 1
176 175 neii ⊢ ¬ 0 = 1
177 elsng ⊢ ( 0 ∈ ℝ → ( 0 ∈ { 1 } ↔ 0 = 1 ) )
178 12 177 syl ⊢ ( 𝜑 → ( 0 ∈ { 1 } ↔ 0 = 1 ) )
179 176 178 mtbiri ⊢ ( 𝜑 → ¬ 0 ∈ { 1 } )
180 131 rneqd ⊢ ( 𝜑 → ran ( ℝ D 𝐷 ) = ran ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) )
181 eqid ⊢ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 )
182 31 a1i ⊢ ( 𝜑 → 0 ∈ ℝ* )
183 ioon0 ⊢ ( ( 0 ∈ ℝ* ∧ ( 𝐵 − 𝐴 ) ∈ ℝ* ) → ( ( 0 (,) ( 𝐵 − 𝐴 ) ) ≠ ∅ ↔ 0 < ( 𝐵 − 𝐴 ) ) )
184 182 14 183 syl2anc ⊢ ( 𝜑 → ( ( 0 (,) ( 𝐵 − 𝐴 ) ) ≠ ∅ ↔ 0 < ( 𝐵 − 𝐴 ) ) )
185 16 184 mpbird ⊢ ( 𝜑 → ( 0 (,) ( 𝐵 − 𝐴 ) ) ≠ ∅ )
186 181 185 rnmptc ⊢ ( 𝜑 → ran ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) = { 1 } )
187 180 186 eqtr2d ⊢ ( 𝜑 → { 1 } = ran ( ℝ D 𝐷 ) )
188 179 187 neleqtrd ⊢ ( 𝜑 → ¬ 0 ∈ ran ( ℝ D 𝐷 ) )
189 81 recnd ⊢ ( ( 𝜑 ∧ 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ) → ( 𝐺 ‘ 𝑥 ) ∈ ℂ )
190 105 oveq1d ⊢ ( 𝜑 → ( 𝐺 limℂ 𝐴 ) = ( ( 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ↦ ( 𝐺 ‘ 𝑥 ) ) limℂ 𝐴 ) )
191 8 190 eleqtrd ⊢ ( 𝜑 → 𝐸 ∈ ( ( 𝑥 ∈ ( 𝐴 (,) 𝐵 ) ↦ ( 𝐺 ‘ 𝑥 ) ) limℂ 𝐴 ) )
192 simplrr ⊢ ( ( ( 𝜑 ∧ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ ( 𝐴 + 𝑠 ) = 𝐴 ) ) ∧ ¬ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) = 𝐸 ) → ( 𝐴 + 𝑠 ) = 𝐴 )
193 155 adantr ⊢ ( ( ( 𝜑 ∧ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ ( 𝐴 + 𝑠 ) = 𝐴 ) ) ∧ ¬ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) = 𝐸 ) → ¬ ( 𝐴 + 𝑠 ) = 𝐴 )
194 192 193 condan ⊢ ( ( 𝜑 ∧ ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ ( 𝐴 + 𝑠 ) = 𝐴 ) ) → ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) = 𝐸 )
195 140 189 149 191 108 194 limcco ⊢ ( 𝜑 → 𝐸 ∈ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) limℂ 0 ) )
196 110 div1d ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) / 1 ) = ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) )
197 58 123 eqtrid ⊢ ( 𝜑 → ( ℝ D 𝑁 ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) )
198 197 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ℝ D 𝑁 ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) )
199 198 fveq1d ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ( ℝ D 𝑁 ) ‘ 𝑠 ) = ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) ‘ 𝑠 ) )
200 fvmpt4 ⊢ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ∈ ℝ ) → ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) ‘ 𝑠 ) = ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) )
201 34 75 200 syl2anc ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) ‘ 𝑠 ) = ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) )
202 199 201 eqtr2d ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) = ( ( ℝ D 𝑁 ) ‘ 𝑠 ) )
203 131 fveq1d ⊢ ( 𝜑 → ( ( ℝ D 𝐷 ) ‘ 𝑠 ) = ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) ‘ 𝑠 ) )
204 203 adantr ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ( ℝ D 𝐷 ) ‘ 𝑠 ) = ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) ‘ 𝑠 ) )
205 fvmpt4 ⊢ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ 1 ∈ ℝ ) → ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) ‘ 𝑠 ) = 1 )
206 34 76 205 syl2anc ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ 1 ) ‘ 𝑠 ) = 1 )
207 204 206 eqtr2d ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → 1 = ( ( ℝ D 𝐷 ) ‘ 𝑠 ) )
208 202 207 oveq12d ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) / 1 ) = ( ( ( ℝ D 𝑁 ) ‘ 𝑠 ) / ( ( ℝ D 𝐷 ) ‘ 𝑠 ) ) )
209 196 208 eqtr3d ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) = ( ( ( ℝ D 𝑁 ) ‘ 𝑠 ) / ( ( ℝ D 𝐷 ) ‘ 𝑠 ) ) )
210 209 mpteq2dva ⊢ ( 𝜑 → ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( ( ℝ D 𝑁 ) ‘ 𝑠 ) / ( ( ℝ D 𝐷 ) ‘ 𝑠 ) ) ) )
211 210 oveq1d ⊢ ( 𝜑 → ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( 𝐺 ‘ ( 𝐴 + 𝑠 ) ) ) limℂ 0 ) = ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( ( ℝ D 𝑁 ) ‘ 𝑠 ) / ( ( ℝ D 𝐷 ) ‘ 𝑠 ) ) ) limℂ 0 ) )
212 195 211 eleqtrd ⊢ ( 𝜑 → 𝐸 ∈ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( ( ℝ D 𝑁 ) ‘ 𝑠 ) / ( ( ℝ D 𝐷 ) ‘ 𝑠 ) ) ) limℂ 0 ) )
213 12 14 16 56 57 128 136 165 166 174 188 212 lhop1 ⊢ ( 𝜑 → 𝐸 ∈ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝑁 ‘ 𝑠 ) / ( 𝐷 ‘ 𝑠 ) ) ) limℂ 0 ) )
214 10 fvmpt2 ⊢ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) ∈ ℝ ) → ( 𝑁 ‘ 𝑠 ) = ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) )
215 34 55 214 syl2anc ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝑁 ‘ 𝑠 ) = ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) )
216 11 fvmpt2 ⊢ ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐷 ‘ 𝑠 ) = 𝑠 )
217 34 34 216 syl2anc ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( 𝐷 ‘ 𝑠 ) = 𝑠 )
218 215 217 oveq12d ⊢ ( ( 𝜑 ∧ 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ) → ( ( 𝑁 ‘ 𝑠 ) / ( 𝐷 ‘ 𝑠 ) ) = ( ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) / 𝑠 ) )
219 218 mpteq2dva ⊢ ( 𝜑 → ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝑁 ‘ 𝑠 ) / ( 𝐷 ‘ 𝑠 ) ) ) = ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( ( 𝐹 ‘ ( 𝐴 + 𝑠 ) ) − 𝑌 ) / 𝑠 ) ) )
220 219 9 eqtr4di ⊢ ( 𝜑 → ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝑁 ‘ 𝑠 ) / ( 𝐷 ‘ 𝑠 ) ) ) = 𝐻 )
221 220 oveq1d ⊢ ( 𝜑 → ( ( 𝑠 ∈ ( 0 (,) ( 𝐵 − 𝐴 ) ) ↦ ( ( 𝑁 ‘ 𝑠 ) / ( 𝐷 ‘ 𝑠 ) ) ) limℂ 0 ) = ( 𝐻 limℂ 0 ) )
222 213 221 eleqtrd ⊢ ( 𝜑 → 𝐸 ∈ ( 𝐻 limℂ 0 ) )