Metamath Proof Explorer


Theorem efrlim

Description: The limit of the sequence ( 1 + A / k ) ^ k is the exponential function. This is often taken as an alternate definition of the exponential function (see also dfef2 ). (Contributed by Mario Carneiro, 1-Mar-2015)

Ref Expression
Hypothesis efrlim.1 ⊒ 𝑆 = ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) )
Assertion efrlim ( 𝐴 ∈ β„‚ β†’ ( π‘˜ ∈ ℝ+ ↦ ( ( 1 + ( 𝐴 / π‘˜ ) ) ↑𝑐 π‘˜ ) ) β‡π‘Ÿ ( exp β€˜ 𝐴 ) )

Proof

Step Hyp Ref Expression
1 efrlim.1 ⊒ 𝑆 = ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) )
2 rge0ssre ⊒ ( 0 [,) +∞ ) βŠ† ℝ
3 ax-resscn ⊒ ℝ βŠ† β„‚
4 2 3 sstri ⊒ ( 0 [,) +∞ ) βŠ† β„‚
5 4 sseli ⊒ ( π‘₯ ∈ ( 0 [,) +∞ ) β†’ π‘₯ ∈ β„‚ )
6 simpll ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ 𝐴 ∈ β„‚ )
7 1cnd ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ 1 ∈ β„‚ )
8 simplr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ π‘₯ ∈ β„‚ )
9 ax-1ne0 ⊒ 1 β‰  0
10 9 a1i ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ 1 β‰  0 )
11 simpr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ Β¬ π‘₯ = 0 )
12 11 neqned ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ π‘₯ β‰  0 )
13 6 7 8 10 12 divdiv2d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 𝐴 / ( 1 / π‘₯ ) ) = ( ( 𝐴 Β· π‘₯ ) / 1 ) )
14 mulcl ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) β†’ ( 𝐴 Β· π‘₯ ) ∈ β„‚ )
15 14 adantr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 𝐴 Β· π‘₯ ) ∈ β„‚ )
16 15 div1d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ ( ( 𝐴 Β· π‘₯ ) / 1 ) = ( 𝐴 Β· π‘₯ ) )
17 13 16 eqtrd ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 𝐴 / ( 1 / π‘₯ ) ) = ( 𝐴 Β· π‘₯ ) )
18 17 oveq2d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 1 + ( 𝐴 / ( 1 / π‘₯ ) ) ) = ( 1 + ( 𝐴 Β· π‘₯ ) ) )
19 18 oveq1d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ ( ( 1 + ( 𝐴 / ( 1 / π‘₯ ) ) ) ↑𝑐 ( 1 / π‘₯ ) ) = ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) )
20 19 ifeq2da ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 / ( 1 / π‘₯ ) ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) )
21 5 20 sylan2 ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ ( 0 [,) +∞ ) ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 / ( 1 / π‘₯ ) ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) )
22 21 mpteq2dva ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ ( 0 [,) +∞ ) ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 / ( 1 / π‘₯ ) ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) = ( π‘₯ ∈ ( 0 [,) +∞ ) ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) )
23 resmpt ⊒ ( ( 0 [,) +∞ ) βŠ† β„‚ β†’ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) β†Ύ ( 0 [,) +∞ ) ) = ( π‘₯ ∈ ( 0 [,) +∞ ) ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) )
24 4 23 ax-mp ⊒ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) β†Ύ ( 0 [,) +∞ ) ) = ( π‘₯ ∈ ( 0 [,) +∞ ) ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) )
25 22 24 eqtr4di ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ ( 0 [,) +∞ ) ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 / ( 1 / π‘₯ ) ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) = ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) β†Ύ ( 0 [,) +∞ ) ) )
26 0e0icopnf ⊒ 0 ∈ ( 0 [,) +∞ )
27 26 a1i ⊒ ( 𝐴 ∈ β„‚ β†’ 0 ∈ ( 0 [,) +∞ ) )
28 eqeq2 ⊒ ( ( exp β€˜ ( 𝐴 Β· 1 ) ) = if ( ( 𝐴 Β· π‘₯ ) = 0 , ( exp β€˜ ( 𝐴 Β· 1 ) ) , ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) β†’ ( if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ ( 𝐴 Β· 1 ) ) ↔ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = if ( ( 𝐴 Β· π‘₯ ) = 0 , ( exp β€˜ ( 𝐴 Β· 1 ) ) , ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) ) )
29 eqeq2 ⊒ ( ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) = if ( ( 𝐴 Β· π‘₯ ) = 0 , ( exp β€˜ ( 𝐴 Β· 1 ) ) , ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) β†’ ( if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ↔ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = if ( ( 𝐴 Β· π‘₯ ) = 0 , ( exp β€˜ ( 𝐴 Β· 1 ) ) , ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) ) )
30 cnxmet ⊒ ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ )
31 0cnd ⊒ ( 𝐴 ∈ β„‚ β†’ 0 ∈ β„‚ )
32 abscl ⊒ ( 𝐴 ∈ β„‚ β†’ ( abs β€˜ 𝐴 ) ∈ ℝ )
33 peano2re ⊒ ( ( abs β€˜ 𝐴 ) ∈ ℝ β†’ ( ( abs β€˜ 𝐴 ) + 1 ) ∈ ℝ )
34 32 33 syl ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( abs β€˜ 𝐴 ) + 1 ) ∈ ℝ )
35 0red ⊒ ( 𝐴 ∈ β„‚ β†’ 0 ∈ ℝ )
36 absge0 ⊒ ( 𝐴 ∈ β„‚ β†’ 0 ≀ ( abs β€˜ 𝐴 ) )
37 32 ltp1d ⊒ ( 𝐴 ∈ β„‚ β†’ ( abs β€˜ 𝐴 ) < ( ( abs β€˜ 𝐴 ) + 1 ) )
38 35 32 34 36 37 lelttrd ⊒ ( 𝐴 ∈ β„‚ β†’ 0 < ( ( abs β€˜ 𝐴 ) + 1 ) )
39 34 38 elrpd ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( abs β€˜ 𝐴 ) + 1 ) ∈ ℝ+ )
40 39 rpreccld ⊒ ( 𝐴 ∈ β„‚ β†’ ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ∈ ℝ+ )
41 40 rpxrd ⊒ ( 𝐴 ∈ β„‚ β†’ ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ∈ ℝ* )
42 blssm ⊒ ( ( ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) ∧ 0 ∈ β„‚ ∧ ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ∈ ℝ* ) β†’ ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) βŠ† β„‚ )
43 30 31 41 42 mp3an2i ⊒ ( 𝐴 ∈ β„‚ β†’ ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) βŠ† β„‚ )
44 1 43 eqsstrid ⊒ ( 𝐴 ∈ β„‚ β†’ 𝑆 βŠ† β„‚ )
45 44 sselda ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ π‘₯ ∈ β„‚ )
46 mul0or ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) β†’ ( ( 𝐴 Β· π‘₯ ) = 0 ↔ ( 𝐴 = 0 ∨ π‘₯ = 0 ) ) )
47 45 46 syldan ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 𝐴 Β· π‘₯ ) = 0 ↔ ( 𝐴 = 0 ∨ π‘₯ = 0 ) ) )
48 47 biimpa ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 Β· π‘₯ ) = 0 ) β†’ ( 𝐴 = 0 ∨ π‘₯ = 0 ) )
49 8 12 reccld ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 1 / π‘₯ ) ∈ β„‚ )
50 45 49 syldanl ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 1 / π‘₯ ) ∈ β„‚ )
51 50 adantlr ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 1 / π‘₯ ) ∈ β„‚ )
52 51 1cxpd ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 1 ↑𝑐 ( 1 / π‘₯ ) ) = 1 )
53 simplr ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ 𝐴 = 0 )
54 53 oveq1d ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 𝐴 Β· π‘₯ ) = ( 0 Β· π‘₯ ) )
55 45 ad2antrr ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ π‘₯ ∈ β„‚ )
56 55 mul02d ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 0 Β· π‘₯ ) = 0 )
57 54 56 eqtrd ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 𝐴 Β· π‘₯ ) = 0 )
58 57 oveq2d ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) = ( 1 + 0 ) )
59 1p0e1 ⊒ ( 1 + 0 ) = 1
60 58 59 eqtrdi ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) = 1 )
61 60 oveq1d ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) = ( 1 ↑𝑐 ( 1 / π‘₯ ) ) )
62 53 fveq2d ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( exp β€˜ 𝐴 ) = ( exp β€˜ 0 ) )
63 ef0 ⊒ ( exp β€˜ 0 ) = 1
64 62 63 eqtrdi ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( exp β€˜ 𝐴 ) = 1 )
65 52 61 64 3eqtr4d ⊒ ( ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) ∧ Β¬ π‘₯ = 0 ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) = ( exp β€˜ 𝐴 ) )
66 65 ifeq2da ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( exp β€˜ 𝐴 ) ) )
67 ifid ⊒ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( exp β€˜ 𝐴 ) ) = ( exp β€˜ 𝐴 )
68 66 67 eqtrdi ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ 𝐴 = 0 ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ 𝐴 ) )
69 iftrue ⊒ ( π‘₯ = 0 β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ 𝐴 ) )
70 69 adantl ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ π‘₯ = 0 ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ 𝐴 ) )
71 68 70 jaodan ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 = 0 ∨ π‘₯ = 0 ) ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ 𝐴 ) )
72 mulrid ⊒ ( 𝐴 ∈ β„‚ β†’ ( 𝐴 Β· 1 ) = 𝐴 )
73 72 ad2antrr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 = 0 ∨ π‘₯ = 0 ) ) β†’ ( 𝐴 Β· 1 ) = 𝐴 )
74 73 fveq2d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 = 0 ∨ π‘₯ = 0 ) ) β†’ ( exp β€˜ ( 𝐴 Β· 1 ) ) = ( exp β€˜ 𝐴 ) )
75 71 74 eqtr4d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 = 0 ∨ π‘₯ = 0 ) ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ ( 𝐴 Β· 1 ) ) )
76 48 75 syldan ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 Β· π‘₯ ) = 0 ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ ( 𝐴 Β· 1 ) ) )
77 mulne0b ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) β†’ ( ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ↔ ( 𝐴 Β· π‘₯ ) β‰  0 ) )
78 45 77 syldan ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ↔ ( 𝐴 Β· π‘₯ ) β‰  0 ) )
79 df-ne ⊒ ( ( 𝐴 Β· π‘₯ ) β‰  0 ↔ Β¬ ( 𝐴 Β· π‘₯ ) = 0 )
80 78 79 bitrdi ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ↔ Β¬ ( 𝐴 Β· π‘₯ ) = 0 ) )
81 simprr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ π‘₯ β‰  0 )
82 81 neneqd ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ Β¬ π‘₯ = 0 )
83 82 iffalsed ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) )
84 ax-1cn ⊒ 1 ∈ β„‚
85 45 14 syldan ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( 𝐴 Β· π‘₯ ) ∈ β„‚ )
86 addcl ⊒ ( ( 1 ∈ β„‚ ∧ ( 𝐴 Β· π‘₯ ) ∈ β„‚ ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ β„‚ )
87 84 85 86 sylancr ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ β„‚ )
88 87 adantr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ β„‚ )
89 eqid ⊒ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) = ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 )
90 89 dvlog2lem ⊒ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) βŠ† ( β„‚ βˆ– ( -∞ (,] 0 ) )
91 eqid ⊒ ( β„‚ βˆ– ( -∞ (,] 0 ) ) = ( β„‚ βˆ– ( -∞ (,] 0 ) )
92 91 logdmss ⊒ ( β„‚ βˆ– ( -∞ (,] 0 ) ) βŠ† ( β„‚ βˆ– { 0 } )
93 90 92 sstri ⊒ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) βŠ† ( β„‚ βˆ– { 0 } )
94 eqid ⊒ ( abs ∘ βˆ’ ) = ( abs ∘ βˆ’ )
95 94 cnmetdval ⊒ ( ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ β„‚ ∧ 1 ∈ β„‚ ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ( abs ∘ βˆ’ ) 1 ) = ( abs β€˜ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) ) )
96 87 84 95 sylancl ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ( abs ∘ βˆ’ ) 1 ) = ( abs β€˜ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) ) )
97 pncan2 ⊒ ( ( 1 ∈ β„‚ ∧ ( 𝐴 Β· π‘₯ ) ∈ β„‚ ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) = ( 𝐴 Β· π‘₯ ) )
98 84 85 97 sylancr ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) = ( 𝐴 Β· π‘₯ ) )
99 98 fveq2d ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs β€˜ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) ) = ( abs β€˜ ( 𝐴 Β· π‘₯ ) ) )
100 96 99 eqtrd ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ( abs ∘ βˆ’ ) 1 ) = ( abs β€˜ ( 𝐴 Β· π‘₯ ) ) )
101 85 abscld ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs β€˜ ( 𝐴 Β· π‘₯ ) ) ∈ ℝ )
102 34 adantr ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( abs β€˜ 𝐴 ) + 1 ) ∈ ℝ )
103 45 abscld ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs β€˜ π‘₯ ) ∈ ℝ )
104 102 103 remulcld ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( ( abs β€˜ 𝐴 ) + 1 ) Β· ( abs β€˜ π‘₯ ) ) ∈ ℝ )
105 1red ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ 1 ∈ ℝ )
106 absmul ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) β†’ ( abs β€˜ ( 𝐴 Β· π‘₯ ) ) = ( ( abs β€˜ 𝐴 ) Β· ( abs β€˜ π‘₯ ) ) )
107 45 106 syldan ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs β€˜ ( 𝐴 Β· π‘₯ ) ) = ( ( abs β€˜ 𝐴 ) Β· ( abs β€˜ π‘₯ ) ) )
108 32 adantr ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs β€˜ 𝐴 ) ∈ ℝ )
109 108 33 syl ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( abs β€˜ 𝐴 ) + 1 ) ∈ ℝ )
110 45 absge0d ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ 0 ≀ ( abs β€˜ π‘₯ ) )
111 108 lep1d ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs β€˜ 𝐴 ) ≀ ( ( abs β€˜ 𝐴 ) + 1 ) )
112 108 109 103 110 111 lemul1ad ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( abs β€˜ 𝐴 ) Β· ( abs β€˜ π‘₯ ) ) ≀ ( ( ( abs β€˜ 𝐴 ) + 1 ) Β· ( abs β€˜ π‘₯ ) ) )
113 107 112 eqbrtrd ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs β€˜ ( 𝐴 Β· π‘₯ ) ) ≀ ( ( ( abs β€˜ 𝐴 ) + 1 ) Β· ( abs β€˜ π‘₯ ) ) )
114 0cn ⊒ 0 ∈ β„‚
115 94 cnmetdval ⊒ ( ( π‘₯ ∈ β„‚ ∧ 0 ∈ β„‚ ) β†’ ( π‘₯ ( abs ∘ βˆ’ ) 0 ) = ( abs β€˜ ( π‘₯ βˆ’ 0 ) ) )
116 45 114 115 sylancl ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( π‘₯ ( abs ∘ βˆ’ ) 0 ) = ( abs β€˜ ( π‘₯ βˆ’ 0 ) ) )
117 45 subid1d ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( π‘₯ βˆ’ 0 ) = π‘₯ )
118 117 fveq2d ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs β€˜ ( π‘₯ βˆ’ 0 ) ) = ( abs β€˜ π‘₯ ) )
119 116 118 eqtrd ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( π‘₯ ( abs ∘ βˆ’ ) 0 ) = ( abs β€˜ π‘₯ ) )
120 simpr ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ π‘₯ ∈ 𝑆 )
121 120 1 eleqtrdi ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ π‘₯ ∈ ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) )
122 30 a1i ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) )
123 41 adantr ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ∈ ℝ* )
124 0cnd ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ 0 ∈ β„‚ )
125 elbl3 ⊒ ( ( ( ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) ∧ ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ∈ ℝ* ) ∧ ( 0 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ) β†’ ( π‘₯ ∈ ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) ↔ ( π‘₯ ( abs ∘ βˆ’ ) 0 ) < ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) )
126 122 123 124 45 125 syl22anc ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( π‘₯ ∈ ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) ↔ ( π‘₯ ( abs ∘ βˆ’ ) 0 ) < ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) )
127 121 126 mpbid ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( π‘₯ ( abs ∘ βˆ’ ) 0 ) < ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) )
128 119 127 eqbrtrrd ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs β€˜ π‘₯ ) < ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) )
129 38 adantr ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ 0 < ( ( abs β€˜ 𝐴 ) + 1 ) )
130 ltmuldiv2 ⊒ ( ( ( abs β€˜ π‘₯ ) ∈ ℝ ∧ 1 ∈ ℝ ∧ ( ( ( abs β€˜ 𝐴 ) + 1 ) ∈ ℝ ∧ 0 < ( ( abs β€˜ 𝐴 ) + 1 ) ) ) β†’ ( ( ( ( abs β€˜ 𝐴 ) + 1 ) Β· ( abs β€˜ π‘₯ ) ) < 1 ↔ ( abs β€˜ π‘₯ ) < ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) )
131 103 105 109 129 130 syl112anc ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( ( ( abs β€˜ 𝐴 ) + 1 ) Β· ( abs β€˜ π‘₯ ) ) < 1 ↔ ( abs β€˜ π‘₯ ) < ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) )
132 128 131 mpbird ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( ( abs β€˜ 𝐴 ) + 1 ) Β· ( abs β€˜ π‘₯ ) ) < 1 )
133 101 104 105 113 132 lelttrd ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( abs β€˜ ( 𝐴 Β· π‘₯ ) ) < 1 )
134 100 133 eqbrtrd ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ( abs ∘ βˆ’ ) 1 ) < 1 )
135 1rp ⊒ 1 ∈ ℝ+
136 rpxr ⊒ ( 1 ∈ ℝ+ β†’ 1 ∈ ℝ* )
137 135 136 mp1i ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ 1 ∈ ℝ* )
138 1cnd ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ 1 ∈ β„‚ )
139 elbl3 ⊒ ( ( ( ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) ∧ 1 ∈ ℝ* ) ∧ ( 1 ∈ β„‚ ∧ ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ β„‚ ) ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↔ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ( abs ∘ βˆ’ ) 1 ) < 1 ) )
140 122 137 138 87 139 syl22anc ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↔ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ( abs ∘ βˆ’ ) 1 ) < 1 ) )
141 134 140 mpbird ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) )
142 93 141 sselid ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ ( β„‚ βˆ– { 0 } ) )
143 eldifsni ⊒ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ ( β„‚ βˆ– { 0 } ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) β‰  0 )
144 142 143 syl ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) β‰  0 )
145 144 adantr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) β‰  0 )
146 45 adantr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ π‘₯ ∈ β„‚ )
147 146 81 reccld ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( 1 / π‘₯ ) ∈ β„‚ )
148 88 145 147 cxpefd ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) = ( exp β€˜ ( ( 1 / π‘₯ ) Β· ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ) ) )
149 87 144 logcld ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ β„‚ )
150 149 adantr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ β„‚ )
151 147 150 mulcomd ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( ( 1 / π‘₯ ) Β· ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ) = ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) Β· ( 1 / π‘₯ ) ) )
152 simpll ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ 𝐴 ∈ β„‚ )
153 simprl ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ 𝐴 β‰  0 )
154 152 153 dividd ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( 𝐴 / 𝐴 ) = 1 )
155 154 oveq1d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( ( 𝐴 / 𝐴 ) / π‘₯ ) = ( 1 / π‘₯ ) )
156 152 152 146 153 81 divdiv1d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( ( 𝐴 / 𝐴 ) / π‘₯ ) = ( 𝐴 / ( 𝐴 Β· π‘₯ ) ) )
157 155 156 eqtr3d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( 1 / π‘₯ ) = ( 𝐴 / ( 𝐴 Β· π‘₯ ) ) )
158 157 oveq2d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) Β· ( 1 / π‘₯ ) ) = ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) Β· ( 𝐴 / ( 𝐴 Β· π‘₯ ) ) ) )
159 85 adantr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( 𝐴 Β· π‘₯ ) ∈ β„‚ )
160 78 biimpa ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( 𝐴 Β· π‘₯ ) β‰  0 )
161 150 152 159 160 div12d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) Β· ( 𝐴 / ( 𝐴 Β· π‘₯ ) ) ) = ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) )
162 151 158 161 3eqtrd ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( ( 1 / π‘₯ ) Β· ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ) = ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) )
163 162 fveq2d ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ ( exp β€˜ ( ( 1 / π‘₯ ) Β· ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ) ) = ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) )
164 83 148 163 3eqtrd ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) )
165 164 ex ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 𝐴 β‰  0 ∧ π‘₯ β‰  0 ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) )
166 80 165 sylbird ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( Β¬ ( 𝐴 Β· π‘₯ ) = 0 β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) )
167 166 imp ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ Β¬ ( 𝐴 Β· π‘₯ ) = 0 ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) )
168 28 29 76 167 ifbothda ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) = if ( ( 𝐴 Β· π‘₯ ) = 0 , ( exp β€˜ ( 𝐴 Β· 1 ) ) , ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) )
169 168 mpteq2dva ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ 𝑆 ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) = ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , ( exp β€˜ ( 𝐴 Β· 1 ) ) , ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) ) )
170 44 resmptd ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) β†Ύ 𝑆 ) = ( π‘₯ ∈ 𝑆 ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) )
171 1cnd ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ ( 𝐴 Β· π‘₯ ) = 0 ) β†’ 1 ∈ β„‚ )
172 149 adantr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ Β¬ ( 𝐴 Β· π‘₯ ) = 0 ) β†’ ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ β„‚ )
173 85 adantr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ Β¬ ( 𝐴 Β· π‘₯ ) = 0 ) β†’ ( 𝐴 Β· π‘₯ ) ∈ β„‚ )
174 simpr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ Β¬ ( 𝐴 Β· π‘₯ ) = 0 ) β†’ Β¬ ( 𝐴 Β· π‘₯ ) = 0 )
175 174 neqned ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ Β¬ ( 𝐴 Β· π‘₯ ) = 0 ) β†’ ( 𝐴 Β· π‘₯ ) β‰  0 )
176 172 173 175 divcld ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) ∧ Β¬ ( 𝐴 Β· π‘₯ ) = 0 ) β†’ ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ∈ β„‚ )
177 171 176 ifclda ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ∈ β„‚ )
178 eqidd ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) = ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) )
179 eqidd ⊒ ( 𝐴 ∈ β„‚ β†’ ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) = ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) )
180 oveq2 ⊒ ( 𝑦 = if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) β†’ ( 𝐴 Β· 𝑦 ) = ( 𝐴 Β· if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) )
181 180 fveq2d ⊒ ( 𝑦 = if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) β†’ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) = ( exp β€˜ ( 𝐴 Β· if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) )
182 oveq2 ⊒ ( if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) = 1 β†’ ( 𝐴 Β· if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) = ( 𝐴 Β· 1 ) )
183 182 fveq2d ⊒ ( if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) = 1 β†’ ( exp β€˜ ( 𝐴 Β· if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) = ( exp β€˜ ( 𝐴 Β· 1 ) ) )
184 oveq2 ⊒ ( if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) = ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) β†’ ( 𝐴 Β· if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) = ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) )
185 184 fveq2d ⊒ ( if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) = ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) β†’ ( exp β€˜ ( 𝐴 Β· if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) = ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) )
186 183 185 ifsb ⊒ ( exp β€˜ ( 𝐴 Β· if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) = if ( ( 𝐴 Β· π‘₯ ) = 0 , ( exp β€˜ ( 𝐴 Β· 1 ) ) , ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) )
187 181 186 eqtrdi ⊒ ( 𝑦 = if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) β†’ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) = if ( ( 𝐴 Β· π‘₯ ) = 0 , ( exp β€˜ ( 𝐴 Β· 1 ) ) , ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) )
188 177 178 179 187 fmptco ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) ∘ ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) = ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , ( exp β€˜ ( 𝐴 Β· 1 ) ) , ( exp β€˜ ( 𝐴 Β· ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) ) )
189 169 170 188 3eqtr4d ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) β†Ύ 𝑆 ) = ( ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) ∘ ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) )
190 eqidd ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) = ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) )
191 eqidd ⊒ ( 𝐴 ∈ β„‚ β†’ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) = ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) )
192 eqeq1 ⊒ ( 𝑦 = ( 1 + ( 𝐴 Β· π‘₯ ) ) β†’ ( 𝑦 = 1 ↔ ( 1 + ( 𝐴 Β· π‘₯ ) ) = 1 ) )
193 fveq2 ⊒ ( 𝑦 = ( 1 + ( 𝐴 Β· π‘₯ ) ) β†’ ( log β€˜ 𝑦 ) = ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) )
194 oveq1 ⊒ ( 𝑦 = ( 1 + ( 𝐴 Β· π‘₯ ) ) β†’ ( 𝑦 βˆ’ 1 ) = ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) )
195 193 194 oveq12d ⊒ ( 𝑦 = ( 1 + ( 𝐴 Β· π‘₯ ) ) β†’ ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) = ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) ) )
196 192 195 ifbieq2d ⊒ ( 𝑦 = ( 1 + ( 𝐴 Β· π‘₯ ) ) β†’ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) = if ( ( 1 + ( 𝐴 Β· π‘₯ ) ) = 1 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) ) ) )
197 141 190 191 196 fmptco ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) ∘ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ) = ( π‘₯ ∈ 𝑆 ↦ if ( ( 1 + ( 𝐴 Β· π‘₯ ) ) = 1 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) ) ) ) )
198 59 eqeq2i ⊒ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) = ( 1 + 0 ) ↔ ( 1 + ( 𝐴 Β· π‘₯ ) ) = 1 )
199 138 85 124 addcand ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) = ( 1 + 0 ) ↔ ( 𝐴 Β· π‘₯ ) = 0 ) )
200 198 199 bitr3id ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) = 1 ↔ ( 𝐴 Β· π‘₯ ) = 0 ) )
201 98 oveq2d ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) ) = ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) )
202 200 201 ifbieq2d ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ 𝑆 ) β†’ if ( ( 1 + ( 𝐴 Β· π‘₯ ) ) = 1 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) ) ) = if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) )
203 202 mpteq2dva ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ 𝑆 ↦ if ( ( 1 + ( 𝐴 Β· π‘₯ ) ) = 1 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( ( 1 + ( 𝐴 Β· π‘₯ ) ) βˆ’ 1 ) ) ) ) = ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) )
204 197 203 eqtrd ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) ∘ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ) = ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) )
205 eqid ⊒ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) = ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 )
206 eqid ⊒ ( TopOpen β€˜ β„‚fld ) = ( TopOpen β€˜ β„‚fld )
207 206 cnfldtopon ⊒ ( TopOpen β€˜ β„‚fld ) ∈ ( TopOn β€˜ β„‚ )
208 207 a1i ⊒ ( 𝐴 ∈ β„‚ β†’ ( TopOpen β€˜ β„‚fld ) ∈ ( TopOn β€˜ β„‚ ) )
209 1cnd ⊒ ( 𝐴 ∈ β„‚ β†’ 1 ∈ β„‚ )
210 208 208 209 cnmptc ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ β„‚ ↦ 1 ) ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) )
211 id ⊒ ( 𝐴 ∈ β„‚ β†’ 𝐴 ∈ β„‚ )
212 208 208 211 cnmptc ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ β„‚ ↦ 𝐴 ) ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) )
213 208 cnmptid ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ β„‚ ↦ π‘₯ ) ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) )
214 206 mulcn ⊒ Β· ∈ ( ( ( TopOpen β€˜ β„‚fld ) Γ—t ( TopOpen β€˜ β„‚fld ) ) Cn ( TopOpen β€˜ β„‚fld ) )
215 214 a1i ⊒ ( 𝐴 ∈ β„‚ β†’ Β· ∈ ( ( ( TopOpen β€˜ β„‚fld ) Γ—t ( TopOpen β€˜ β„‚fld ) ) Cn ( TopOpen β€˜ β„‚fld ) ) )
216 208 212 213 215 cnmpt12f ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ β„‚ ↦ ( 𝐴 Β· π‘₯ ) ) ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) )
217 206 addcn ⊒ + ∈ ( ( ( TopOpen β€˜ β„‚fld ) Γ—t ( TopOpen β€˜ β„‚fld ) ) Cn ( TopOpen β€˜ β„‚fld ) )
218 217 a1i ⊒ ( 𝐴 ∈ β„‚ β†’ + ∈ ( ( ( TopOpen β€˜ β„‚fld ) Γ—t ( TopOpen β€˜ β„‚fld ) ) Cn ( TopOpen β€˜ β„‚fld ) ) )
219 208 210 216 218 cnmpt12f ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ β„‚ ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) )
220 205 208 44 219 cnmpt1res ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) Cn ( TopOpen β€˜ β„‚fld ) ) )
221 141 fmpttd ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) : 𝑆 ⟢ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) )
222 221 frnd ⊒ ( 𝐴 ∈ β„‚ β†’ ran ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) βŠ† ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) )
223 difss ⊒ ( β„‚ βˆ– { 0 } ) βŠ† β„‚
224 93 223 sstri ⊒ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) βŠ† β„‚
225 224 a1i ⊒ ( 𝐴 ∈ β„‚ β†’ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) βŠ† β„‚ )
226 cnrest2 ⊒ ( ( ( TopOpen β€˜ β„‚fld ) ∈ ( TopOn β€˜ β„‚ ) ∧ ran ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) βŠ† ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ∧ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) βŠ† β„‚ ) β†’ ( ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) Cn ( TopOpen β€˜ β„‚fld ) ) ↔ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) Cn ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) ) )
227 207 222 225 226 mp3an2i ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) Cn ( TopOpen β€˜ β„‚fld ) ) ↔ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) Cn ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) ) )
228 220 227 mpbid ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) Cn ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) )
229 blcntr ⊒ ( ( ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) ∧ 0 ∈ β„‚ ∧ ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ∈ ℝ+ ) β†’ 0 ∈ ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) )
230 30 31 40 229 mp3an2i ⊒ ( 𝐴 ∈ β„‚ β†’ 0 ∈ ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) )
231 230 1 eleqtrrdi ⊒ ( 𝐴 ∈ β„‚ β†’ 0 ∈ 𝑆 )
232 resttopon ⊒ ( ( ( TopOpen β€˜ β„‚fld ) ∈ ( TopOn β€˜ β„‚ ) ∧ 𝑆 βŠ† β„‚ ) β†’ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ∈ ( TopOn β€˜ 𝑆 ) )
233 207 44 232 sylancr ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ∈ ( TopOn β€˜ 𝑆 ) )
234 toponuni ⊒ ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ∈ ( TopOn β€˜ 𝑆 ) β†’ 𝑆 = βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) )
235 233 234 syl ⊒ ( 𝐴 ∈ β„‚ β†’ 𝑆 = βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) )
236 231 235 eleqtrd ⊒ ( 𝐴 ∈ β„‚ β†’ 0 ∈ βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) )
237 eqid ⊒ βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) = βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 )
238 237 cncnpi ⊒ ( ( ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) Cn ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) ∧ 0 ∈ βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ) β†’ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) β€˜ 0 ) )
239 228 236 238 syl2anc ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) β€˜ 0 ) )
240 cnelprrecn ⊒ β„‚ ∈ { ℝ , β„‚ }
241 logf1o ⊒ log : ( β„‚ βˆ– { 0 } ) –1-1-ontoβ†’ ran log
242 f1of ⊒ ( log : ( β„‚ βˆ– { 0 } ) –1-1-ontoβ†’ ran log β†’ log : ( β„‚ βˆ– { 0 } ) ⟢ ran log )
243 241 242 ax-mp ⊒ log : ( β„‚ βˆ– { 0 } ) ⟢ ran log
244 logrncn ⊒ ( π‘₯ ∈ ran log β†’ π‘₯ ∈ β„‚ )
245 244 ssriv ⊒ ran log βŠ† β„‚
246 fss ⊒ ( ( log : ( β„‚ βˆ– { 0 } ) ⟢ ran log ∧ ran log βŠ† β„‚ ) β†’ log : ( β„‚ βˆ– { 0 } ) ⟢ β„‚ )
247 243 245 246 mp2an ⊒ log : ( β„‚ βˆ– { 0 } ) ⟢ β„‚
248 fssres ⊒ ( ( log : ( β„‚ βˆ– { 0 } ) ⟢ β„‚ ∧ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) βŠ† ( β„‚ βˆ– { 0 } ) ) β†’ ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) : ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ⟢ β„‚ )
249 247 93 248 mp2an ⊒ ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) : ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ⟢ β„‚
250 blcntr ⊒ ( ( ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) ∧ 1 ∈ β„‚ ∧ 1 ∈ ℝ+ ) β†’ 1 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) )
251 30 84 135 250 mp3an ⊒ 1 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 )
252 ovex ⊒ ( 1 / 𝑦 ) ∈ V
253 89 dvlog2 ⊒ ( β„‚ D ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) = ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ ( 1 / 𝑦 ) )
254 252 253 dmmpti ⊒ dom ( β„‚ D ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) = ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 )
255 251 254 eleqtrri ⊒ 1 ∈ dom ( β„‚ D ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) )
256 eqid ⊒ ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) = ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) )
257 253 fveq1i ⊒ ( ( β„‚ D ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) β€˜ 1 ) = ( ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ ( 1 / 𝑦 ) ) β€˜ 1 )
258 oveq2 ⊒ ( 𝑦 = 1 β†’ ( 1 / 𝑦 ) = ( 1 / 1 ) )
259 1div1e1 ⊒ ( 1 / 1 ) = 1
260 258 259 eqtrdi ⊒ ( 𝑦 = 1 β†’ ( 1 / 𝑦 ) = 1 )
261 eqid ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ ( 1 / 𝑦 ) ) = ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ ( 1 / 𝑦 ) )
262 1ex ⊒ 1 ∈ V
263 260 261 262 fvmpt ⊒ ( 1 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ ( 1 / 𝑦 ) ) β€˜ 1 ) = 1 )
264 251 263 ax-mp ⊒ ( ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ ( 1 / 𝑦 ) ) β€˜ 1 ) = 1
265 257 264 eqtr2i ⊒ 1 = ( ( β„‚ D ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) β€˜ 1 )
266 265 a1i ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ 1 = ( ( β„‚ D ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) β€˜ 1 ) )
267 fvres ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 𝑦 ) = ( log β€˜ 𝑦 ) )
268 fvres ⊒ ( 1 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 1 ) = ( log β€˜ 1 ) )
269 251 268 mp1i ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 1 ) = ( log β€˜ 1 ) )
270 log1 ⊒ ( log β€˜ 1 ) = 0
271 269 270 eqtrdi ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 1 ) = 0 )
272 267 271 oveq12d ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 1 ) ) = ( ( log β€˜ 𝑦 ) βˆ’ 0 ) )
273 93 sseli ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ 𝑦 ∈ ( β„‚ βˆ– { 0 } ) )
274 eldifsn ⊒ ( 𝑦 ∈ ( β„‚ βˆ– { 0 } ) ↔ ( 𝑦 ∈ β„‚ ∧ 𝑦 β‰  0 ) )
275 273 274 sylib ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( 𝑦 ∈ β„‚ ∧ 𝑦 β‰  0 ) )
276 logcl ⊒ ( ( 𝑦 ∈ β„‚ ∧ 𝑦 β‰  0 ) β†’ ( log β€˜ 𝑦 ) ∈ β„‚ )
277 275 276 syl ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( log β€˜ 𝑦 ) ∈ β„‚ )
278 277 subid1d ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( ( log β€˜ 𝑦 ) βˆ’ 0 ) = ( log β€˜ 𝑦 ) )
279 272 278 eqtr2d ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( log β€˜ 𝑦 ) = ( ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 1 ) ) )
280 279 oveq1d ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) = ( ( ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 1 ) ) / ( 𝑦 βˆ’ 1 ) ) )
281 266 280 ifeq12d ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) β†’ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) = if ( 𝑦 = 1 , ( ( β„‚ D ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) β€˜ 1 ) , ( ( ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 1 ) ) / ( 𝑦 βˆ’ 1 ) ) ) )
282 281 mpteq2ia ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) = ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , ( ( β„‚ D ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) β€˜ 1 ) , ( ( ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) β€˜ 1 ) ) / ( 𝑦 βˆ’ 1 ) ) ) )
283 256 206 282 dvcnp ⊒ ( ( ( β„‚ ∈ { ℝ , β„‚ } ∧ ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) : ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ⟢ β„‚ ∧ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) βŠ† β„‚ ) ∧ 1 ∈ dom ( β„‚ D ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) ) β†’ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 1 ) )
284 255 283 mpan2 ⊒ ( ( β„‚ ∈ { ℝ , β„‚ } ∧ ( log β†Ύ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) : ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ⟢ β„‚ ∧ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) βŠ† β„‚ ) β†’ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 1 ) )
285 240 249 224 284 mp3an ⊒ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 1 )
286 oveq2 ⊒ ( π‘₯ = 0 β†’ ( 𝐴 Β· π‘₯ ) = ( 𝐴 Β· 0 ) )
287 286 oveq2d ⊒ ( π‘₯ = 0 β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) = ( 1 + ( 𝐴 Β· 0 ) ) )
288 eqid ⊒ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) = ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) )
289 ovex ⊒ ( 1 + ( 𝐴 · 0 ) ) ∈ V
290 287 288 289 fvmpt ⊒ ( 0 ∈ 𝑆 β†’ ( ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) β€˜ 0 ) = ( 1 + ( 𝐴 Β· 0 ) ) )
291 231 290 syl ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) β€˜ 0 ) = ( 1 + ( 𝐴 Β· 0 ) ) )
292 mul01 ⊒ ( 𝐴 ∈ β„‚ β†’ ( 𝐴 Β· 0 ) = 0 )
293 292 oveq2d ⊒ ( 𝐴 ∈ β„‚ β†’ ( 1 + ( 𝐴 Β· 0 ) ) = ( 1 + 0 ) )
294 293 59 eqtrdi ⊒ ( 𝐴 ∈ β„‚ β†’ ( 1 + ( 𝐴 Β· 0 ) ) = 1 )
295 291 294 eqtrd ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) β€˜ 0 ) = 1 )
296 295 fveq2d ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ ( ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) β€˜ 0 ) ) = ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 1 ) )
297 285 296 eleqtrrid ⊒ ( 𝐴 ∈ β„‚ β†’ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ ( ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) β€˜ 0 ) ) )
298 cnpco ⊒ ( ( ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) ) β€˜ 0 ) ∧ ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ ( ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) β€˜ 0 ) ) ) β†’ ( ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) ∘ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) )
299 239 297 298 syl2anc ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( 𝑦 ∈ ( 1 ( ball β€˜ ( abs ∘ βˆ’ ) ) 1 ) ↦ if ( 𝑦 = 1 , 1 , ( ( log β€˜ 𝑦 ) / ( 𝑦 βˆ’ 1 ) ) ) ) ∘ ( π‘₯ ∈ 𝑆 ↦ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) )
300 204 299 eqeltrrd ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) )
301 208 208 211 cnmptc ⊒ ( 𝐴 ∈ β„‚ β†’ ( 𝑦 ∈ β„‚ ↦ 𝐴 ) ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) )
302 208 cnmptid ⊒ ( 𝐴 ∈ β„‚ β†’ ( 𝑦 ∈ β„‚ ↦ 𝑦 ) ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) )
303 208 301 302 215 cnmpt12f ⊒ ( 𝐴 ∈ β„‚ β†’ ( 𝑦 ∈ β„‚ ↦ ( 𝐴 Β· 𝑦 ) ) ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) )
304 efcn ⊒ exp ∈ ( β„‚ –cnβ†’ β„‚ )
305 206 cncfcn1 ⊒ ( β„‚ –cnβ†’ β„‚ ) = ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) )
306 304 305 eleqtri ⊒ exp ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) )
307 306 a1i ⊒ ( 𝐴 ∈ β„‚ β†’ exp ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) )
308 208 303 307 cnmpt11f ⊒ ( 𝐴 ∈ β„‚ β†’ ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) )
309 177 fmpttd ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) : 𝑆 ⟢ β„‚ )
310 309 231 ffvelcdmd ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) β€˜ 0 ) ∈ β„‚ )
311 unicntop ⊒ β„‚ = βˆͺ ( TopOpen β€˜ β„‚fld )
312 311 cncnpi ⊒ ( ( ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) ∈ ( ( TopOpen β€˜ β„‚fld ) Cn ( TopOpen β€˜ β„‚fld ) ) ∧ ( ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) β€˜ 0 ) ∈ β„‚ ) β†’ ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ ( ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) β€˜ 0 ) ) )
313 308 310 312 syl2anc ⊒ ( 𝐴 ∈ β„‚ β†’ ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ ( ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) β€˜ 0 ) ) )
314 cnpco ⊒ ( ( ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) ∧ ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ ( ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) β€˜ 0 ) ) ) β†’ ( ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) ∘ ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) )
315 300 313 314 syl2anc ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( 𝑦 ∈ β„‚ ↦ ( exp β€˜ ( 𝐴 Β· 𝑦 ) ) ) ∘ ( π‘₯ ∈ 𝑆 ↦ if ( ( 𝐴 Β· π‘₯ ) = 0 , 1 , ( ( log β€˜ ( 1 + ( 𝐴 Β· π‘₯ ) ) ) / ( 𝐴 Β· π‘₯ ) ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) )
316 189 315 eqeltrd ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) β†Ύ 𝑆 ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) )
317 206 cnfldtop ⊒ ( TopOpen β€˜ β„‚fld ) ∈ Top
318 317 a1i ⊒ ( 𝐴 ∈ β„‚ β†’ ( TopOpen β€˜ β„‚fld ) ∈ Top )
319 206 cnfldtopn ⊒ ( TopOpen β€˜ β„‚fld ) = ( MetOpen β€˜ ( abs ∘ βˆ’ ) )
320 319 blopn ⊒ ( ( ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) ∧ 0 ∈ β„‚ ∧ ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ∈ ℝ* ) β†’ ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) ∈ ( TopOpen β€˜ β„‚fld ) )
321 30 31 41 320 mp3an2i ⊒ ( 𝐴 ∈ β„‚ β†’ ( 0 ( ball β€˜ ( abs ∘ βˆ’ ) ) ( 1 / ( ( abs β€˜ 𝐴 ) + 1 ) ) ) ∈ ( TopOpen β€˜ β„‚fld ) )
322 1 321 eqeltrid ⊒ ( 𝐴 ∈ β„‚ β†’ 𝑆 ∈ ( TopOpen β€˜ β„‚fld ) )
323 isopn3i ⊒ ( ( ( TopOpen β€˜ β„‚fld ) ∈ Top ∧ 𝑆 ∈ ( TopOpen β€˜ β„‚fld ) ) β†’ ( ( int β€˜ ( TopOpen β€˜ β„‚fld ) ) β€˜ 𝑆 ) = 𝑆 )
324 317 322 323 sylancr ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( int β€˜ ( TopOpen β€˜ β„‚fld ) ) β€˜ 𝑆 ) = 𝑆 )
325 231 324 eleqtrrd ⊒ ( 𝐴 ∈ β„‚ β†’ 0 ∈ ( ( int β€˜ ( TopOpen β€˜ β„‚fld ) ) β€˜ 𝑆 ) )
326 efcl ⊒ ( 𝐴 ∈ β„‚ β†’ ( exp β€˜ 𝐴 ) ∈ β„‚ )
327 326 ad2antrr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ π‘₯ = 0 ) β†’ ( exp β€˜ 𝐴 ) ∈ β„‚ )
328 84 15 86 sylancr ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ ( 1 + ( 𝐴 Β· π‘₯ ) ) ∈ β„‚ )
329 328 49 cxpcld ⊒ ( ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) ∧ Β¬ π‘₯ = 0 ) β†’ ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ∈ β„‚ )
330 327 329 ifclda ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘₯ ∈ β„‚ ) β†’ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ∈ β„‚ )
331 330 fmpttd ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) : β„‚ ⟢ β„‚ )
332 311 311 cnprest ⊒ ( ( ( ( TopOpen β€˜ β„‚fld ) ∈ Top ∧ 𝑆 βŠ† β„‚ ) ∧ ( 0 ∈ ( ( int β€˜ ( TopOpen β€˜ β„‚fld ) ) β€˜ 𝑆 ) ∧ ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) : β„‚ ⟢ β„‚ ) ) β†’ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) ↔ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) β†Ύ 𝑆 ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) ) )
333 318 44 325 331 332 syl22anc ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) ↔ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) β†Ύ 𝑆 ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) ) )
334 316 333 mpbird ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) )
335 311 cnpresti ⊒ ( ( ( 0 [,) +∞ ) βŠ† β„‚ ∧ 0 ∈ ( 0 [,) +∞ ) ∧ ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) ∈ ( ( ( TopOpen β€˜ β„‚fld ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) ) β†’ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) β†Ύ ( 0 [,) +∞ ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 0 [,) +∞ ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) )
336 4 27 334 335 mp3an2i ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( π‘₯ ∈ β„‚ ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 Β· π‘₯ ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) β†Ύ ( 0 [,) +∞ ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 0 [,) +∞ ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) )
337 25 336 eqeltrd ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘₯ ∈ ( 0 [,) +∞ ) ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 / ( 1 / π‘₯ ) ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 0 [,) +∞ ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) )
338 simpl ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘˜ ∈ ℝ+ ) β†’ 𝐴 ∈ β„‚ )
339 rpcn ⊒ ( π‘˜ ∈ ℝ+ β†’ π‘˜ ∈ β„‚ )
340 339 adantl ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘˜ ∈ ℝ+ ) β†’ π‘˜ ∈ β„‚ )
341 rpne0 ⊒ ( π‘˜ ∈ ℝ+ β†’ π‘˜ β‰  0 )
342 341 adantl ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘˜ ∈ ℝ+ ) β†’ π‘˜ β‰  0 )
343 338 340 342 divcld ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘˜ ∈ ℝ+ ) β†’ ( 𝐴 / π‘˜ ) ∈ β„‚ )
344 addcl ⊒ ( ( 1 ∈ β„‚ ∧ ( 𝐴 / π‘˜ ) ∈ β„‚ ) β†’ ( 1 + ( 𝐴 / π‘˜ ) ) ∈ β„‚ )
345 84 343 344 sylancr ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘˜ ∈ ℝ+ ) β†’ ( 1 + ( 𝐴 / π‘˜ ) ) ∈ β„‚ )
346 345 340 cxpcld ⊒ ( ( 𝐴 ∈ β„‚ ∧ π‘˜ ∈ ℝ+ ) β†’ ( ( 1 + ( 𝐴 / π‘˜ ) ) ↑𝑐 π‘˜ ) ∈ β„‚ )
347 oveq2 ⊒ ( π‘˜ = ( 1 / π‘₯ ) β†’ ( 𝐴 / π‘˜ ) = ( 𝐴 / ( 1 / π‘₯ ) ) )
348 347 oveq2d ⊒ ( π‘˜ = ( 1 / π‘₯ ) β†’ ( 1 + ( 𝐴 / π‘˜ ) ) = ( 1 + ( 𝐴 / ( 1 / π‘₯ ) ) ) )
349 id ⊒ ( π‘˜ = ( 1 / π‘₯ ) β†’ π‘˜ = ( 1 / π‘₯ ) )
350 348 349 oveq12d ⊒ ( π‘˜ = ( 1 / π‘₯ ) β†’ ( ( 1 + ( 𝐴 / π‘˜ ) ) ↑𝑐 π‘˜ ) = ( ( 1 + ( 𝐴 / ( 1 / π‘₯ ) ) ) ↑𝑐 ( 1 / π‘₯ ) ) )
351 eqid ⊒ ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 0 [,) +∞ ) ) = ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 0 [,) +∞ ) )
352 326 346 350 206 351 rlimcnp3 ⊒ ( 𝐴 ∈ β„‚ β†’ ( ( π‘˜ ∈ ℝ+ ↦ ( ( 1 + ( 𝐴 / π‘˜ ) ) ↑𝑐 π‘˜ ) ) β‡π‘Ÿ ( exp β€˜ 𝐴 ) ↔ ( π‘₯ ∈ ( 0 [,) +∞ ) ↦ if ( π‘₯ = 0 , ( exp β€˜ 𝐴 ) , ( ( 1 + ( 𝐴 / ( 1 / π‘₯ ) ) ) ↑𝑐 ( 1 / π‘₯ ) ) ) ) ∈ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt ( 0 [,) +∞ ) ) CnP ( TopOpen β€˜ β„‚fld ) ) β€˜ 0 ) ) )
353 337 352 mpbird ⊒ ( 𝐴 ∈ β„‚ β†’ ( π‘˜ ∈ ℝ+ ↦ ( ( 1 + ( 𝐴 / π‘˜ ) ) ↑𝑐 π‘˜ ) ) β‡π‘Ÿ ( exp β€˜ 𝐴 ) )