Metamath Proof Explorer


Theorem lhop1

Description: L'HΓ΄pital's Rule for limits from the right. If F and G are differentiable real functions on ( A , B ) , and F and G both approach 0 at A , and G ( x ) and G ' ( x ) are not zero on ( A , B ) , and the limit of F ' ( x ) / G ' ( x ) at A is C , then the limit F ( x ) / G ( x ) at A also exists and equals C . (Contributed by Mario Carneiro, 29-Dec-2016)

Ref Expression
Hypotheses lhop1.a ⊒ ( πœ‘ β†’ 𝐴 ∈ ℝ )
lhop1.b ⊒ ( πœ‘ β†’ 𝐡 ∈ ℝ* )
lhop1.l ⊒ ( πœ‘ β†’ 𝐴 < 𝐡 )
lhop1.f ⊒ ( πœ‘ β†’ 𝐹 : ( 𝐴 (,) 𝐡 ) ⟢ ℝ )
lhop1.g ⊒ ( πœ‘ β†’ 𝐺 : ( 𝐴 (,) 𝐡 ) ⟢ ℝ )
lhop1.if ⊒ ( πœ‘ β†’ dom ( ℝ D 𝐹 ) = ( 𝐴 (,) 𝐡 ) )
lhop1.ig ⊒ ( πœ‘ β†’ dom ( ℝ D 𝐺 ) = ( 𝐴 (,) 𝐡 ) )
lhop1.f0 ⊒ ( πœ‘ β†’ 0 ∈ ( 𝐹 limβ„‚ 𝐴 ) )
lhop1.g0 ⊒ ( πœ‘ β†’ 0 ∈ ( 𝐺 limβ„‚ 𝐴 ) )
lhop1.gn0 ⊒ ( πœ‘ β†’ Β¬ 0 ∈ ran 𝐺 )
lhop1.gd0 ⊒ ( πœ‘ β†’ Β¬ 0 ∈ ran ( ℝ D 𝐺 ) )
lhop1.c ⊒ ( πœ‘ β†’ 𝐢 ∈ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) limβ„‚ 𝐴 ) )
Assertion lhop1 ( πœ‘ β†’ 𝐢 ∈ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) limβ„‚ 𝐴 ) )

Proof

Step Hyp Ref Expression
1 lhop1.a ⊒ ( πœ‘ β†’ 𝐴 ∈ ℝ )
2 lhop1.b ⊒ ( πœ‘ β†’ 𝐡 ∈ ℝ* )
3 lhop1.l ⊒ ( πœ‘ β†’ 𝐴 < 𝐡 )
4 lhop1.f ⊒ ( πœ‘ β†’ 𝐹 : ( 𝐴 (,) 𝐡 ) ⟢ ℝ )
5 lhop1.g ⊒ ( πœ‘ β†’ 𝐺 : ( 𝐴 (,) 𝐡 ) ⟢ ℝ )
6 lhop1.if ⊒ ( πœ‘ β†’ dom ( ℝ D 𝐹 ) = ( 𝐴 (,) 𝐡 ) )
7 lhop1.ig ⊒ ( πœ‘ β†’ dom ( ℝ D 𝐺 ) = ( 𝐴 (,) 𝐡 ) )
8 lhop1.f0 ⊒ ( πœ‘ β†’ 0 ∈ ( 𝐹 limβ„‚ 𝐴 ) )
9 lhop1.g0 ⊒ ( πœ‘ β†’ 0 ∈ ( 𝐺 limβ„‚ 𝐴 ) )
10 lhop1.gn0 ⊒ ( πœ‘ β†’ Β¬ 0 ∈ ran 𝐺 )
11 lhop1.gd0 ⊒ ( πœ‘ β†’ Β¬ 0 ∈ ran ( ℝ D 𝐺 ) )
12 lhop1.c ⊒ ( πœ‘ β†’ 𝐢 ∈ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) limβ„‚ 𝐴 ) )
13 simpr ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) β†’ π‘₯ ∈ ℝ+ )
14 13 rphalfcld ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) β†’ ( π‘₯ / 2 ) ∈ ℝ+ )
15 breq2 ⊒ ( 𝑒 = ( π‘₯ / 2 ) β†’ ( ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < 𝑒 ↔ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) )
16 15 imbi2d ⊒ ( 𝑒 = ( π‘₯ / 2 ) β†’ ( ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < 𝑒 ) ↔ ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) )
17 16 rexralbidv ⊒ ( 𝑒 = ( π‘₯ / 2 ) β†’ ( βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < 𝑒 ) ↔ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) )
18 17 rspcv ⊒ ( ( π‘₯ / 2 ) ∈ ℝ+ β†’ ( βˆ€ 𝑒 ∈ ℝ+ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < 𝑒 ) β†’ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) )
19 14 18 syl ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) β†’ ( βˆ€ 𝑒 ∈ ℝ+ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < 𝑒 ) β†’ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) )
20 rabid ⊒ ( 𝑣 ∈ { 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∣ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 } ↔ ( 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) )
21 eliooord ⊒ ( 𝑣 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( 𝐴 < 𝑣 ∧ 𝑣 < 𝐡 ) )
22 21 adantl ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝐴 < 𝑣 ∧ 𝑣 < 𝐡 ) )
23 22 simprd ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ 𝑣 < 𝐡 )
24 23 biantrurd ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝑣 < ( 𝑑 + 𝐴 ) ↔ ( 𝑣 < 𝐡 ∧ 𝑣 < ( 𝑑 + 𝐴 ) ) ) )
25 ioossre ⊒ ( 𝐴 (,) 𝐡 ) βŠ† ℝ
26 simpr ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) )
27 25 26 sselid ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ 𝑣 ∈ ℝ )
28 1 ad3antrrr ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ 𝐴 ∈ ℝ )
29 simpr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ 𝑑 ∈ ℝ+ )
30 29 rpred ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ 𝑑 ∈ ℝ )
31 30 adantr ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ 𝑑 ∈ ℝ )
32 27 28 31 ltsubaddd ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( 𝑣 βˆ’ 𝐴 ) < 𝑑 ↔ 𝑣 < ( 𝑑 + 𝐴 ) ) )
33 27 rexrd ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ 𝑣 ∈ ℝ* )
34 2 ad3antrrr ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ 𝐡 ∈ ℝ* )
35 1 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ 𝐴 ∈ ℝ )
36 30 35 readdcld ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ ( 𝑑 + 𝐴 ) ∈ ℝ )
37 36 rexrd ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ ( 𝑑 + 𝐴 ) ∈ ℝ* )
38 37 adantr ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝑑 + 𝐴 ) ∈ ℝ* )
39 xrltmin ⊒ ( ( 𝑣 ∈ ℝ* ∧ 𝐡 ∈ ℝ* ∧ ( 𝑑 + 𝐴 ) ∈ ℝ* ) β†’ ( 𝑣 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ↔ ( 𝑣 < 𝐡 ∧ 𝑣 < ( 𝑑 + 𝐴 ) ) ) )
40 33 34 38 39 syl3anc ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝑣 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ↔ ( 𝑣 < 𝐡 ∧ 𝑣 < ( 𝑑 + 𝐴 ) ) ) )
41 24 32 40 3bitr4rd ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝑣 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ↔ ( 𝑣 βˆ’ 𝐴 ) < 𝑑 ) )
42 28 rexrd ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ 𝐴 ∈ ℝ* )
43 34 38 ifcld ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∈ ℝ* )
44 22 simpld ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ 𝐴 < 𝑣 )
45 elioo5 ⊒ ( ( 𝐴 ∈ ℝ* ∧ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∈ ℝ* ∧ 𝑣 ∈ ℝ* ) β†’ ( 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ↔ ( 𝐴 < 𝑣 ∧ 𝑣 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) )
46 45 baibd ⊒ ( ( ( 𝐴 ∈ ℝ* ∧ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∈ ℝ* ∧ 𝑣 ∈ ℝ* ) ∧ 𝐴 < 𝑣 ) β†’ ( 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ↔ 𝑣 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) )
47 42 43 33 44 46 syl31anc ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ↔ 𝑣 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) )
48 28 27 44 ltled ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ 𝐴 ≀ 𝑣 )
49 28 27 48 abssubge0d ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) = ( 𝑣 βˆ’ 𝐴 ) )
50 49 breq1d ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ↔ ( 𝑣 βˆ’ 𝐴 ) < 𝑑 ) )
51 41 47 50 3bitr4d ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ↔ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) )
52 51 rabbi2dva ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ ( ( 𝐴 (,) 𝐡 ) ∩ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) = { 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∣ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 } )
53 2 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ 𝐡 ∈ ℝ* )
54 xrmin1 ⊒ ( ( 𝐡 ∈ ℝ* ∧ ( 𝑑 + 𝐴 ) ∈ ℝ* ) β†’ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ≀ 𝐡 )
55 53 37 54 syl2anc ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ≀ 𝐡 )
56 iooss2 ⊒ ( ( 𝐡 ∈ ℝ* ∧ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ≀ 𝐡 ) β†’ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) βŠ† ( 𝐴 (,) 𝐡 ) )
57 53 55 56 syl2anc ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) βŠ† ( 𝐴 (,) 𝐡 ) )
58 sseqin2 ⊒ ( ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) βŠ† ( 𝐴 (,) 𝐡 ) ↔ ( ( 𝐴 (,) 𝐡 ) ∩ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) = ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) )
59 57 58 sylib ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ ( ( 𝐴 (,) 𝐡 ) ∩ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) = ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) )
60 52 59 eqtr3d ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ { 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∣ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 } = ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) )
61 60 eleq2d ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ ( 𝑣 ∈ { 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∣ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 } ↔ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) )
62 20 61 bitr3id ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ ( ( 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) ↔ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) )
63 lbioo ⊒ ¬ 𝐴 ∈ ( 𝐴 (,) 𝐡 )
64 eleq1 ⊒ ( 𝑦 = 𝐴 β†’ ( 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ↔ 𝐴 ∈ ( 𝐴 (,) 𝐡 ) ) )
65 63 64 mtbiri ⊒ ( 𝑦 = 𝐴 β†’ Β¬ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) )
66 65 necon2ai ⊒ ( 𝑦 ∈ ( 𝐴 (,) 𝐡 ) β†’ 𝑦 β‰  𝐴 )
67 66 biantrurd ⊒ ( 𝑦 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ↔ ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) ) )
68 67 bicomd ⊒ ( 𝑦 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) ↔ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) )
69 fveq2 ⊒ ( 𝑧 = 𝑦 β†’ ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) = ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) )
70 fveq2 ⊒ ( 𝑧 = 𝑦 β†’ ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) = ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) )
71 69 70 oveq12d ⊒ ( 𝑧 = 𝑦 β†’ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) = ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) )
72 eqid ⊒ ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) = ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) )
73 ovex ⊒ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ∈ V
74 71 72 73 fvmpt3i ⊒ ( 𝑦 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) = ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) )
75 74 fvoveq1d ⊒ ( 𝑦 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) = ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) )
76 75 breq1d ⊒ ( 𝑦 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ↔ ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) )
77 68 76 imbi12d ⊒ ( 𝑦 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ↔ ( ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 β†’ ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) )
78 77 ralbiia ⊒ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ↔ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 β†’ ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) )
79 fvoveq1 ⊒ ( 𝑣 = 𝑦 β†’ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) = ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) )
80 79 breq1d ⊒ ( 𝑣 = 𝑦 β†’ ( ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ↔ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) )
81 80 ralrab ⊒ ( βˆ€ 𝑦 ∈ { 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∣ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 } ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ↔ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 β†’ ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) )
82 78 81 bitr4i ⊒ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ↔ βˆ€ 𝑦 ∈ { 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∣ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 } ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) )
83 60 adantrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ) β†’ { 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∣ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 } = ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) )
84 83 raleqdv ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ) β†’ ( βˆ€ 𝑦 ∈ { 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∣ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 } ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ↔ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) )
85 1 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝐴 ∈ ℝ )
86 2 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝐡 ∈ ℝ* )
87 3 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝐴 < 𝐡 )
88 4 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝐹 : ( 𝐴 (,) 𝐡 ) ⟢ ℝ )
89 5 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝐺 : ( 𝐴 (,) 𝐡 ) ⟢ ℝ )
90 6 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ dom ( ℝ D 𝐹 ) = ( 𝐴 (,) 𝐡 ) )
91 7 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ dom ( ℝ D 𝐺 ) = ( 𝐴 (,) 𝐡 ) )
92 8 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 0 ∈ ( 𝐹 limβ„‚ 𝐴 ) )
93 9 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 0 ∈ ( 𝐺 limβ„‚ 𝐴 ) )
94 10 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ Β¬ 0 ∈ ran 𝐺 )
95 11 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ Β¬ 0 ∈ ran ( ℝ D 𝐺 ) )
96 12 ad2antrr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝐢 ∈ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) limβ„‚ 𝐴 ) )
97 14 adantr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ ( π‘₯ / 2 ) ∈ ℝ+ )
98 85 rexrd ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝐴 ∈ ℝ* )
99 simprll ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝑑 ∈ ℝ+ )
100 99 rpred ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝑑 ∈ ℝ )
101 100 85 readdcld ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ ( 𝑑 + 𝐴 ) ∈ ℝ )
102 iocssre ⊒ ( ( 𝐴 ∈ ℝ* ∧ ( 𝑑 + 𝐴 ) ∈ ℝ ) β†’ ( 𝐴 (,] ( 𝑑 + 𝐴 ) ) βŠ† ℝ )
103 98 101 102 syl2anc ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ ( 𝐴 (,] ( 𝑑 + 𝐴 ) ) βŠ† ℝ )
104 86 adantr ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) ∧ 𝐡 ≀ ( 𝑑 + 𝐴 ) ) β†’ 𝐡 ∈ ℝ* )
105 100 adantr ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) ∧ Β¬ 𝐡 ≀ ( 𝑑 + 𝐴 ) ) β†’ 𝑑 ∈ ℝ )
106 85 adantr ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) ∧ Β¬ 𝐡 ≀ ( 𝑑 + 𝐴 ) ) β†’ 𝐴 ∈ ℝ )
107 105 106 readdcld ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) ∧ Β¬ 𝐡 ≀ ( 𝑑 + 𝐴 ) ) β†’ ( 𝑑 + 𝐴 ) ∈ ℝ )
108 107 rexrd ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) ∧ Β¬ 𝐡 ≀ ( 𝑑 + 𝐴 ) ) β†’ ( 𝑑 + 𝐴 ) ∈ ℝ* )
109 104 108 ifclda ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∈ ℝ* )
110 85 99 ltaddrp2d ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝐴 < ( 𝑑 + 𝐴 ) )
111 101 rexrd ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ ( 𝑑 + 𝐴 ) ∈ ℝ* )
112 xrltmin ⊒ ( ( 𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ* ∧ ( 𝑑 + 𝐴 ) ∈ ℝ* ) β†’ ( 𝐴 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ↔ ( 𝐴 < 𝐡 ∧ 𝐴 < ( 𝑑 + 𝐴 ) ) ) )
113 98 86 111 112 syl3anc ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ ( 𝐴 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ↔ ( 𝐴 < 𝐡 ∧ 𝐴 < ( 𝑑 + 𝐴 ) ) ) )
114 87 110 113 mpbir2and ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝐴 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) )
115 xrmin2 ⊒ ( ( 𝐡 ∈ ℝ* ∧ ( 𝑑 + 𝐴 ) ∈ ℝ* ) β†’ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ≀ ( 𝑑 + 𝐴 ) )
116 86 111 115 syl2anc ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ≀ ( 𝑑 + 𝐴 ) )
117 elioc1 ⊒ ( ( 𝐴 ∈ ℝ* ∧ ( 𝑑 + 𝐴 ) ∈ ℝ* ) β†’ ( if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∈ ( 𝐴 (,] ( 𝑑 + 𝐴 ) ) ↔ ( if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∈ ℝ* ∧ 𝐴 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∧ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ≀ ( 𝑑 + 𝐴 ) ) ) )
118 98 111 117 syl2anc ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ ( if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∈ ( 𝐴 (,] ( 𝑑 + 𝐴 ) ) ↔ ( if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∈ ℝ* ∧ 𝐴 < if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∧ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ≀ ( 𝑑 + 𝐴 ) ) ) )
119 109 114 116 118 mpbir3and ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∈ ( 𝐴 (,] ( 𝑑 + 𝐴 ) ) )
120 103 119 sseldd ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ∈ ℝ )
121 86 111 54 syl2anc ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ≀ 𝐡 )
122 simprlr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) )
123 simprr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) )
124 eqid ⊒ ( 𝐴 + ( π‘Ÿ / 2 ) ) = ( 𝐴 + ( π‘Ÿ / 2 ) )
125 85 86 87 88 89 90 91 92 93 94 95 96 97 120 121 122 123 124 lhop1lem ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < ( 2 Β· ( π‘₯ / 2 ) ) )
126 13 rpcnd ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) β†’ π‘₯ ∈ β„‚ )
127 2cnd ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) β†’ 2 ∈ β„‚ )
128 2ne0 ⊒ 2 β‰  0
129 128 a1i ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) β†’ 2 β‰  0 )
130 126 127 129 divcan2d ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) β†’ ( 2 Β· ( π‘₯ / 2 ) ) = π‘₯ )
131 130 adantr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ ( 2 Β· ( π‘₯ / 2 ) ) = π‘₯ )
132 125 131 breqtrd ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ∧ βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) ) β†’ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < π‘₯ )
133 132 expr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ) β†’ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) β†’ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < π‘₯ ) )
134 84 133 sylbid ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ) β†’ ( βˆ€ 𝑦 ∈ { 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∣ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 } ( abs β€˜ ( ( ( ( ℝ D 𝐹 ) β€˜ 𝑦 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑦 ) ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) β†’ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < π‘₯ ) )
135 82 134 biimtrid ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ ( 𝑑 ∈ ℝ+ ∧ 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) ) ) β†’ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < π‘₯ ) )
136 135 expr ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ ( 𝑣 ∈ ( 𝐴 (,) if ( 𝐡 ≀ ( 𝑑 + 𝐴 ) , 𝐡 , ( 𝑑 + 𝐴 ) ) ) β†’ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
137 62 136 sylbid ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ ( ( 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
138 137 expdimp ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 β†’ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
139 fveq2 ⊒ ( 𝑧 = 𝑣 β†’ ( 𝐹 β€˜ 𝑧 ) = ( 𝐹 β€˜ 𝑣 ) )
140 fveq2 ⊒ ( 𝑧 = 𝑣 β†’ ( 𝐺 β€˜ 𝑧 ) = ( 𝐺 β€˜ 𝑣 ) )
141 139 140 oveq12d ⊒ ( 𝑧 = 𝑣 β†’ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) = ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) )
142 eqid ⊒ ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) = ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) )
143 ovex ⊒ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ∈ V
144 141 142 143 fvmpt3i ⊒ ( 𝑣 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) = ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) )
145 144 fvoveq1d ⊒ ( 𝑣 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) = ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) )
146 145 breq1d ⊒ ( 𝑣 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ↔ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < π‘₯ ) )
147 146 imbi2d ⊒ ( 𝑣 ∈ ( 𝐴 (,) 𝐡 ) β†’ ( ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ↔ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
148 147 adantl ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ↔ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( abs β€˜ ( ( ( 𝐹 β€˜ 𝑣 ) / ( 𝐺 β€˜ 𝑣 ) ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
149 138 148 sylibrd ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 β†’ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
150 149 adantld ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( 𝑣 β‰  𝐴 ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
151 150 com23 ⊒ ( ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) ∧ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ ( ( 𝑣 β‰  𝐴 ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
152 151 ralrimdva ⊒ ( ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) ∧ 𝑑 ∈ ℝ+ ) β†’ ( βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ βˆ€ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑣 β‰  𝐴 ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
153 152 reximdva ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) β†’ ( βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < ( π‘₯ / 2 ) ) β†’ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑣 β‰  𝐴 ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
154 19 153 syld ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ℝ+ ) β†’ ( βˆ€ 𝑒 ∈ ℝ+ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < 𝑒 ) β†’ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑣 β‰  𝐴 ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
155 154 ralrimdva ⊒ ( πœ‘ β†’ ( βˆ€ 𝑒 ∈ ℝ+ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < 𝑒 ) β†’ βˆ€ π‘₯ ∈ ℝ+ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑣 β‰  𝐴 ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ) )
156 155 anim2d ⊒ ( πœ‘ β†’ ( ( 𝐢 ∈ β„‚ ∧ βˆ€ 𝑒 ∈ ℝ+ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < 𝑒 ) ) β†’ ( 𝐢 ∈ β„‚ ∧ βˆ€ π‘₯ ∈ ℝ+ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑣 β‰  𝐴 ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ) ) )
157 dvf ⊒ ( ℝ D 𝐹 ) : dom ( ℝ D 𝐹 ) ⟢ β„‚
158 6 feq2d ⊒ ( πœ‘ β†’ ( ( ℝ D 𝐹 ) : dom ( ℝ D 𝐹 ) ⟢ β„‚ ↔ ( ℝ D 𝐹 ) : ( 𝐴 (,) 𝐡 ) ⟢ β„‚ ) )
159 157 158 mpbii ⊒ ( πœ‘ β†’ ( ℝ D 𝐹 ) : ( 𝐴 (,) 𝐡 ) ⟢ β„‚ )
160 159 ffvelcdmda ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) ∈ β„‚ )
161 dvf ⊒ ( ℝ D 𝐺 ) : dom ( ℝ D 𝐺 ) ⟢ β„‚
162 7 feq2d ⊒ ( πœ‘ β†’ ( ( ℝ D 𝐺 ) : dom ( ℝ D 𝐺 ) ⟢ β„‚ ↔ ( ℝ D 𝐺 ) : ( 𝐴 (,) 𝐡 ) ⟢ β„‚ ) )
163 161 162 mpbii ⊒ ( πœ‘ β†’ ( ℝ D 𝐺 ) : ( 𝐴 (,) 𝐡 ) ⟢ β„‚ )
164 163 ffvelcdmda ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ∈ β„‚ )
165 11 adantr ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ Β¬ 0 ∈ ran ( ℝ D 𝐺 ) )
166 163 ffnd ⊒ ( πœ‘ β†’ ( ℝ D 𝐺 ) Fn ( 𝐴 (,) 𝐡 ) )
167 fnfvelrn ⊒ ( ( ( ℝ D 𝐺 ) Fn ( 𝐴 (,) 𝐡 ) ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ∈ ran ( ℝ D 𝐺 ) )
168 166 167 sylan ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ∈ ran ( ℝ D 𝐺 ) )
169 eleq1 ⊒ ( ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) = 0 β†’ ( ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ∈ ran ( ℝ D 𝐺 ) ↔ 0 ∈ ran ( ℝ D 𝐺 ) ) )
170 168 169 syl5ibcom ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) = 0 β†’ 0 ∈ ran ( ℝ D 𝐺 ) ) )
171 170 necon3bd ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( Β¬ 0 ∈ ran ( ℝ D 𝐺 ) β†’ ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) β‰  0 ) )
172 165 171 mpd ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) β‰  0 )
173 160 164 172 divcld ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ∈ β„‚ )
174 173 fmpttd ⊒ ( πœ‘ β†’ ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) : ( 𝐴 (,) 𝐡 ) ⟢ β„‚ )
175 ax-resscn ⊒ ℝ βŠ† β„‚
176 25 175 sstri ⊒ ( 𝐴 (,) 𝐡 ) βŠ† β„‚
177 176 a1i ⊒ ( πœ‘ β†’ ( 𝐴 (,) 𝐡 ) βŠ† β„‚ )
178 1 recnd ⊒ ( πœ‘ β†’ 𝐴 ∈ β„‚ )
179 174 177 178 ellimc3 ⊒ ( πœ‘ β†’ ( 𝐢 ∈ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) limβ„‚ 𝐴 ) ↔ ( 𝐢 ∈ β„‚ ∧ βˆ€ 𝑒 ∈ ℝ+ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑦 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑦 β‰  𝐴 ∧ ( abs β€˜ ( 𝑦 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) β€˜ 𝑦 ) βˆ’ 𝐢 ) ) < 𝑒 ) ) ) )
180 4 ffvelcdmda ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝐹 β€˜ 𝑧 ) ∈ ℝ )
181 180 recnd ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝐹 β€˜ 𝑧 ) ∈ β„‚ )
182 5 ffvelcdmda ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝐺 β€˜ 𝑧 ) ∈ ℝ )
183 182 recnd ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝐺 β€˜ 𝑧 ) ∈ β„‚ )
184 10 adantr ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ Β¬ 0 ∈ ran 𝐺 )
185 5 ffnd ⊒ ( πœ‘ β†’ 𝐺 Fn ( 𝐴 (,) 𝐡 ) )
186 fnfvelrn ⊒ ( ( 𝐺 Fn ( 𝐴 (,) 𝐡 ) ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝐺 β€˜ 𝑧 ) ∈ ran 𝐺 )
187 185 186 sylan ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝐺 β€˜ 𝑧 ) ∈ ran 𝐺 )
188 eleq1 ⊒ ( ( 𝐺 β€˜ 𝑧 ) = 0 β†’ ( ( 𝐺 β€˜ 𝑧 ) ∈ ran 𝐺 ↔ 0 ∈ ran 𝐺 ) )
189 187 188 syl5ibcom ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( 𝐺 β€˜ 𝑧 ) = 0 β†’ 0 ∈ ran 𝐺 ) )
190 189 necon3bd ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( Β¬ 0 ∈ ran 𝐺 β†’ ( 𝐺 β€˜ 𝑧 ) β‰  0 ) )
191 184 190 mpd ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( 𝐺 β€˜ 𝑧 ) β‰  0 )
192 181 183 191 divcld ⊒ ( ( πœ‘ ∧ 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ) β†’ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ∈ β„‚ )
193 192 fmpttd ⊒ ( πœ‘ β†’ ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) : ( 𝐴 (,) 𝐡 ) ⟢ β„‚ )
194 193 177 178 ellimc3 ⊒ ( πœ‘ β†’ ( 𝐢 ∈ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) limβ„‚ 𝐴 ) ↔ ( 𝐢 ∈ β„‚ ∧ βˆ€ π‘₯ ∈ ℝ+ βˆƒ 𝑑 ∈ ℝ+ βˆ€ 𝑣 ∈ ( 𝐴 (,) 𝐡 ) ( ( 𝑣 β‰  𝐴 ∧ ( abs β€˜ ( 𝑣 βˆ’ 𝐴 ) ) < 𝑑 ) β†’ ( abs β€˜ ( ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) β€˜ 𝑣 ) βˆ’ 𝐢 ) ) < π‘₯ ) ) ) )
195 156 179 194 3imtr4d ⊒ ( πœ‘ β†’ ( 𝐢 ∈ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( ( ℝ D 𝐹 ) β€˜ 𝑧 ) / ( ( ℝ D 𝐺 ) β€˜ 𝑧 ) ) ) limβ„‚ 𝐴 ) β†’ 𝐢 ∈ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) limβ„‚ 𝐴 ) ) )
196 12 195 mpd ⊒ ( πœ‘ β†’ 𝐢 ∈ ( ( 𝑧 ∈ ( 𝐴 (,) 𝐡 ) ↦ ( ( 𝐹 β€˜ 𝑧 ) / ( 𝐺 β€˜ 𝑧 ) ) ) limβ„‚ 𝐴 ) )