Users' Mathboxes Mathbox for Steve Rodriguez < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  expgrowth Structured version   Visualization version   GIF version

Theorem expgrowth 43027
Description: Exponential growth and decay model. The derivative of a function y of variable t equals a constant k times y itself, iff y equals some constant C times the exponential of kt. This theorem and expgrowthi 43025 illustrate one of the simplest and most crucial classes of differential equations, equations that relate functions to their derivatives.

Section 6.3 of [Strang] p. 242 calls y' = ky "the most important differential equation in applied mathematics". In the field of population ecology it is known as the Malthusian growth model or exponential law, and C, k, and t correspond to initial population size, growth rate, and time respectively (https://en.wikipedia.org/wiki/Malthusian_growth_model 43025); and in finance, the model appears in a similar role in continuous compounding with C as the initial amount of money. In exponential decay models, k is often expressed as the negative of a positive constant Ξ».

Here y' is given as (𝑆 D π‘Œ), C as 𝑐, and ky as ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ). (𝑆 Γ— {𝐾}) is the constant function that maps any real or complex input to k and ∘f Β· is multiplication as a function operation.

The leftward direction of the biconditional is as given in http://www.saylor.org/site/wp-content/uploads/2011/06/MA221-2.1.1.pdf 43025 pp. 1-2, which also notes the reverse direction ("While we will not prove this here, it turns out that these are the only functions that satisfy this equation."). The rightward direction is Theorem 5.1 of [LarsonHostetlerEdwards] p. 375 (which notes " C is the initial value of y, and k is the proportionality constant. Exponential growth occurs when k > 0, and exponential decay occurs when k < 0."); its proof here closely follows the proof of y' = y in https://proofwiki.org/wiki/Exponential_Growth_Equation/Special_Case 43025.

Statements for this and expgrowthi 43025 formulated by Mario Carneiro. (Contributed by Steve Rodriguez, 24-Nov-2015.)

Hypotheses
Ref Expression
expgrowth.s (πœ‘ β†’ 𝑆 ∈ {ℝ, β„‚})
expgrowth.k (πœ‘ β†’ 𝐾 ∈ β„‚)
expgrowth.y (πœ‘ β†’ π‘Œ:π‘†βŸΆβ„‚)
expgrowth.dy (πœ‘ β†’ dom (𝑆 D π‘Œ) = 𝑆)
Assertion
Ref Expression
expgrowth (πœ‘ β†’ ((𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ↔ βˆƒπ‘ ∈ β„‚ π‘Œ = (𝑑 ∈ 𝑆 ↦ (𝑐 Β· (expβ€˜(𝐾 Β· 𝑑))))))
Distinct variable groups:   𝑑,𝑐,𝐾   𝑆,𝑐,𝑑   π‘Œ,𝑐
Allowed substitution hints:   πœ‘(𝑑,𝑐)   π‘Œ(𝑑)

Proof of Theorem expgrowth
Dummy variables 𝑒 π‘₯ 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 expgrowth.s . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝑆 ∈ {ℝ, β„‚})
2 cnelprrecn 11199 . . . . . . . . . . . . . . . . . 18 β„‚ ∈ {ℝ, β„‚}
32a1i 11 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ β„‚ ∈ {ℝ, β„‚})
4 expgrowth.k . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝐾 ∈ β„‚)
5 recnprss 25403 . . . . . . . . . . . . . . . . . . . . . 22 (𝑆 ∈ {ℝ, β„‚} β†’ 𝑆 βŠ† β„‚)
61, 5syl 17 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝑆 βŠ† β„‚)
76sseld 3980 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝑒 ∈ 𝑆 β†’ 𝑒 ∈ β„‚))
8 mulcl 11190 . . . . . . . . . . . . . . . . . . . 20 ((𝐾 ∈ β„‚ ∧ 𝑒 ∈ β„‚) β†’ (𝐾 Β· 𝑒) ∈ β„‚)
94, 7, 8syl6an 683 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (𝑒 ∈ 𝑆 β†’ (𝐾 Β· 𝑒) ∈ β„‚))
109imp 408 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ (𝐾 Β· 𝑒) ∈ β„‚)
1110negcld 11554 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ -(𝐾 Β· 𝑒) ∈ β„‚)
124negcld 11554 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ -𝐾 ∈ β„‚)
1312adantr 482 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ -𝐾 ∈ β„‚)
14 efcl 16022 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ β„‚ β†’ (expβ€˜π‘¦) ∈ β„‚)
1514adantl 483 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑦 ∈ β„‚) β†’ (expβ€˜π‘¦) ∈ β„‚)
164adantr 482 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ 𝐾 ∈ β„‚)
177imp 408 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ 𝑒 ∈ β„‚)
18 ax-1cn 11164 . . . . . . . . . . . . . . . . . . . . 21 1 ∈ β„‚
1918a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ 1 ∈ β„‚)
201dvmptid 25456 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝑆 D (𝑒 ∈ 𝑆 ↦ 𝑒)) = (𝑒 ∈ 𝑆 ↦ 1))
211, 17, 19, 20, 4dvmptcmul 25463 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (𝑆 D (𝑒 ∈ 𝑆 ↦ (𝐾 Β· 𝑒))) = (𝑒 ∈ 𝑆 ↦ (𝐾 Β· 1)))
224mulridd 11227 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝐾 Β· 1) = 𝐾)
2322mpteq2dv 5249 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (𝑒 ∈ 𝑆 ↦ (𝐾 Β· 1)) = (𝑒 ∈ 𝑆 ↦ 𝐾))
2421, 23eqtrd 2773 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (𝑆 D (𝑒 ∈ 𝑆 ↦ (𝐾 Β· 𝑒))) = (𝑒 ∈ 𝑆 ↦ 𝐾))
251, 10, 16, 24dvmptneg 25465 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑆 D (𝑒 ∈ 𝑆 ↦ -(𝐾 Β· 𝑒))) = (𝑒 ∈ 𝑆 ↦ -𝐾))
26 dvef 25479 . . . . . . . . . . . . . . . . . . 19 (β„‚ D exp) = exp
27 eff 16021 . . . . . . . . . . . . . . . . . . . . . 22 exp:β„‚βŸΆβ„‚
28 ffn 6714 . . . . . . . . . . . . . . . . . . . . . 22 (exp:β„‚βŸΆβ„‚ β†’ exp Fn β„‚)
2927, 28ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21 exp Fn β„‚
30 dffn5 6947 . . . . . . . . . . . . . . . . . . . . 21 (exp Fn β„‚ ↔ exp = (𝑦 ∈ β„‚ ↦ (expβ€˜π‘¦)))
3129, 30mpbi 229 . . . . . . . . . . . . . . . . . . . 20 exp = (𝑦 ∈ β„‚ ↦ (expβ€˜π‘¦))
3231oveq2i 7415 . . . . . . . . . . . . . . . . . . 19 (β„‚ D exp) = (β„‚ D (𝑦 ∈ β„‚ ↦ (expβ€˜π‘¦)))
3326, 32, 313eqtr3i 2769 . . . . . . . . . . . . . . . . . 18 (β„‚ D (𝑦 ∈ β„‚ ↦ (expβ€˜π‘¦))) = (𝑦 ∈ β„‚ ↦ (expβ€˜π‘¦))
3433a1i 11 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (β„‚ D (𝑦 ∈ β„‚ ↦ (expβ€˜π‘¦))) = (𝑦 ∈ β„‚ ↦ (expβ€˜π‘¦)))
35 fveq2 6888 . . . . . . . . . . . . . . . . 17 (𝑦 = -(𝐾 Β· 𝑒) β†’ (expβ€˜π‘¦) = (expβ€˜-(𝐾 Β· 𝑒)))
361, 3, 11, 13, 15, 15, 25, 34, 35, 35dvmptco 25471 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾)))
3736oveq2d 7420 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘Œ ∘f Β· (𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾))))
38 expgrowth.y . . . . . . . . . . . . . . . 16 (πœ‘ β†’ π‘Œ:π‘†βŸΆβ„‚)
39 efcl 16022 . . . . . . . . . . . . . . . . . . . 20 (-(𝐾 Β· 𝑒) ∈ β„‚ β†’ (expβ€˜-(𝐾 Β· 𝑒)) ∈ β„‚)
4011, 39syl 17 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ (expβ€˜-(𝐾 Β· 𝑒)) ∈ β„‚)
4140, 13mulcld 11230 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾) ∈ β„‚)
4241fmpttd 7110 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾)):π‘†βŸΆβ„‚)
4336feq1d 6699 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))):π‘†βŸΆβ„‚ ↔ (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾)):π‘†βŸΆβ„‚))
4442, 43mpbird 257 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))):π‘†βŸΆβ„‚)
45 mulcom 11192 . . . . . . . . . . . . . . . . 17 ((π‘₯ ∈ β„‚ ∧ 𝑦 ∈ β„‚) β†’ (π‘₯ Β· 𝑦) = (𝑦 Β· π‘₯))
4645adantl 483 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ (π‘₯ ∈ β„‚ ∧ 𝑦 ∈ β„‚)) β†’ (π‘₯ Β· 𝑦) = (𝑦 Β· π‘₯))
471, 38, 44, 46caofcom 7700 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘Œ ∘f Β· (𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f Β· π‘Œ))
4837, 47eqtr3d 2775 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾))) = ((𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f Β· π‘Œ))
4948oveq2d 7420 . . . . . . . . . . . . 13 (πœ‘ β†’ (((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾)))) = (((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + ((𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f Β· π‘Œ)))
50 fconst6g 6777 . . . . . . . . . . . . . . . . . 18 (-𝐾 ∈ β„‚ β†’ (𝑆 Γ— {-𝐾}):π‘†βŸΆβ„‚)
5112, 50syl 17 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑆 Γ— {-𝐾}):π‘†βŸΆβ„‚)
5240fmpttd 7110 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))):π‘†βŸΆβ„‚)
531, 51, 52, 46caofcom 7700 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((𝑆 Γ— {-𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = ((𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))) ∘f Β· (𝑆 Γ— {-𝐾})))
54 eqidd 2734 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))) = (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))
55 fconstmpt 5736 . . . . . . . . . . . . . . . . . 18 (𝑆 Γ— {-𝐾}) = (𝑒 ∈ 𝑆 ↦ -𝐾)
5655a1i 11 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑆 Γ— {-𝐾}) = (𝑒 ∈ 𝑆 ↦ -𝐾))
571, 40, 13, 54, 56offval2 7685 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))) ∘f Β· (𝑆 Γ— {-𝐾})) = (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾)))
5853, 57eqtrd 2773 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((𝑆 Γ— {-𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾)))
5958oveq2d 7420 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘Œ ∘f Β· ((𝑆 Γ— {-𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾))))
6059oveq2d 7420 . . . . . . . . . . . . 13 (πœ‘ β†’ (((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (π‘Œ ∘f Β· ((𝑆 Γ— {-𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))) = (((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾)))))
61 expgrowth.dy . . . . . . . . . . . . . 14 (πœ‘ β†’ dom (𝑆 D π‘Œ) = 𝑆)
6236dmeqd 5903 . . . . . . . . . . . . . . 15 (πœ‘ β†’ dom (𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = dom (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾)))
63 eqid 2733 . . . . . . . . . . . . . . . 16 (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾)) = (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾))
6463, 41dmmptd 6692 . . . . . . . . . . . . . . 15 (πœ‘ β†’ dom (𝑒 ∈ 𝑆 ↦ ((expβ€˜-(𝐾 Β· 𝑒)) Β· -𝐾)) = 𝑆)
6562, 64eqtrd 2773 . . . . . . . . . . . . . 14 (πœ‘ β†’ dom (𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = 𝑆)
661, 38, 52, 61, 65dvmulf 25442 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = (((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + ((𝑆 D (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f Β· π‘Œ)))
6749, 60, 663eqtr4rd 2784 . . . . . . . . . . . 12 (πœ‘ β†’ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = (((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (π‘Œ ∘f Β· ((𝑆 Γ— {-𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))))
68 ofmul12 43017 . . . . . . . . . . . . . 14 (((𝑆 ∈ {ℝ, β„‚} ∧ π‘Œ:π‘†βŸΆβ„‚) ∧ ((𝑆 Γ— {-𝐾}):π‘†βŸΆβ„‚ ∧ (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))):π‘†βŸΆβ„‚)) β†’ (π‘Œ ∘f Β· ((𝑆 Γ— {-𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))
691, 38, 51, 52, 68syl22anc 838 . . . . . . . . . . . . 13 (πœ‘ β†’ (π‘Œ ∘f Β· ((𝑆 Γ— {-𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))
7069oveq2d 7420 . . . . . . . . . . . 12 (πœ‘ β†’ (((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (π‘Œ ∘f Β· ((𝑆 Γ— {-𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))) = (((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))))
7167, 70eqtrd 2773 . . . . . . . . . . 11 (πœ‘ β†’ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = (((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))))
72 oveq1 7411 . . . . . . . . . . . 12 ((𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) β†’ ((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))
7372oveq1d 7419 . . . . . . . . . . 11 ((𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) β†’ (((𝑆 D π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))))
7471, 73sylan9eq 2793 . . . . . . . . . 10 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))))
75 mulass 11194 . . . . . . . . . . . . . . 15 ((π‘₯ ∈ β„‚ ∧ 𝑦 ∈ β„‚ ∧ 𝑧 ∈ β„‚) β†’ ((π‘₯ Β· 𝑦) Β· 𝑧) = (π‘₯ Β· (𝑦 Β· 𝑧)))
7675adantl 483 . . . . . . . . . . . . . 14 ((πœ‘ ∧ (π‘₯ ∈ β„‚ ∧ 𝑦 ∈ β„‚ ∧ 𝑧 ∈ β„‚)) β†’ ((π‘₯ Β· 𝑦) Β· 𝑧) = (π‘₯ Β· (𝑦 Β· 𝑧)))
771, 51, 38, 52, 76caofass 7702 . . . . . . . . . . . . 13 (πœ‘ β†’ (((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))
7877oveq2d 7420 . . . . . . . . . . . 12 (πœ‘ β†’ ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))))
7978eqeq2d 2744 . . . . . . . . . . 11 (πœ‘ β†’ ((𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) ↔ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))))
8079adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ ((𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) ↔ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))))
8174, 80mpbird 257 . . . . . . . . 9 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))
82 mulcl 11190 . . . . . . . . . . . . . 14 ((π‘₯ ∈ β„‚ ∧ 𝑦 ∈ β„‚) β†’ (π‘₯ Β· 𝑦) ∈ β„‚)
8382adantl 483 . . . . . . . . . . . . 13 ((πœ‘ ∧ (π‘₯ ∈ β„‚ ∧ 𝑦 ∈ β„‚)) β†’ (π‘₯ Β· 𝑦) ∈ β„‚)
84 fconst6g 6777 . . . . . . . . . . . . . 14 (𝐾 ∈ β„‚ β†’ (𝑆 Γ— {𝐾}):π‘†βŸΆβ„‚)
854, 84syl 17 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑆 Γ— {𝐾}):π‘†βŸΆβ„‚)
86 inidm 4217 . . . . . . . . . . . . 13 (𝑆 ∩ 𝑆) = 𝑆
8783, 85, 38, 1, 1, 86off 7683 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ):π‘†βŸΆβ„‚)
8883, 51, 38, 1, 1, 86off 7683 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ):π‘†βŸΆβ„‚)
89 adddir 11201 . . . . . . . . . . . . 13 ((π‘₯ ∈ β„‚ ∧ 𝑦 ∈ β„‚ ∧ 𝑧 ∈ β„‚) β†’ ((π‘₯ + 𝑦) Β· 𝑧) = ((π‘₯ Β· 𝑧) + (𝑦 Β· 𝑧)))
9089adantl 483 . . . . . . . . . . . 12 ((πœ‘ ∧ (π‘₯ ∈ β„‚ ∧ 𝑦 ∈ β„‚ ∧ 𝑧 ∈ β„‚)) β†’ ((π‘₯ + 𝑦) Β· 𝑧) = ((π‘₯ Β· 𝑧) + (𝑦 Β· 𝑧)))
911, 52, 87, 88, 90caofdir 7705 . . . . . . . . . . 11 (πœ‘ β†’ ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ)) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))
9291eqeq2d 2744 . . . . . . . . . 10 (πœ‘ β†’ ((𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ)) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ↔ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))))
9392adantr 482 . . . . . . . . 9 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ ((𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ)) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ↔ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f + (((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))))
9481, 93mpbird 257 . . . . . . . 8 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ)) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))
95 ofnegsub 12206 . . . . . . . . . . . . 13 ((𝑆 ∈ {ℝ, β„‚} ∧ ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ):π‘†βŸΆβ„‚ ∧ ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ):π‘†βŸΆβ„‚) β†’ (((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-1}) ∘f Β· ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ))) = (((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f βˆ’ ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)))
961, 87, 87, 95syl3anc 1372 . . . . . . . . . . . 12 (πœ‘ β†’ (((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-1}) ∘f Β· ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ))) = (((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f βˆ’ ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)))
97 neg1cn 12322 . . . . . . . . . . . . . . . . 17 -1 ∈ β„‚
9897fconst6 6778 . . . . . . . . . . . . . . . 16 (𝑆 Γ— {-1}):π‘†βŸΆβ„‚
9998a1i 11 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝑆 Γ— {-1}):π‘†βŸΆβ„‚)
1001, 99, 85, 38, 76caofass 7702 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((𝑆 Γ— {-1}) ∘f Β· (𝑆 Γ— {𝐾})) ∘f Β· π‘Œ) = ((𝑆 Γ— {-1}) ∘f Β· ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)))
10197a1i 11 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ -1 ∈ β„‚)
1021, 101, 4ofc12 7693 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((𝑆 Γ— {-1}) ∘f Β· (𝑆 Γ— {𝐾})) = (𝑆 Γ— {(-1 Β· 𝐾)}))
1034mulm1d 11662 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (-1 Β· 𝐾) = -𝐾)
104103sneqd 4639 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ {(-1 Β· 𝐾)} = {-𝐾})
105104xpeq2d 5705 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝑆 Γ— {(-1 Β· 𝐾)}) = (𝑆 Γ— {-𝐾}))
106102, 105eqtrd 2773 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((𝑆 Γ— {-1}) ∘f Β· (𝑆 Γ— {𝐾})) = (𝑆 Γ— {-𝐾}))
107106oveq1d 7419 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((𝑆 Γ— {-1}) ∘f Β· (𝑆 Γ— {𝐾})) ∘f Β· π‘Œ) = ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ))
108100, 107eqtr3d 2775 . . . . . . . . . . . . 13 (πœ‘ β†’ ((𝑆 Γ— {-1}) ∘f Β· ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) = ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ))
109108oveq2d 7420 . . . . . . . . . . . 12 (πœ‘ β†’ (((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-1}) ∘f Β· ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ))) = (((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ)))
110 ofsubid 43016 . . . . . . . . . . . . 13 ((𝑆 ∈ {ℝ, β„‚} ∧ ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ):π‘†βŸΆβ„‚) β†’ (((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f βˆ’ ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) = (𝑆 Γ— {0}))
1111, 87, 110syl2anc 585 . . . . . . . . . . . 12 (πœ‘ β†’ (((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f βˆ’ ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) = (𝑆 Γ— {0}))
11296, 109, 1113eqtr3d 2781 . . . . . . . . . . 11 (πœ‘ β†’ (((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ)) = (𝑆 Γ— {0}))
113112oveq1d 7419 . . . . . . . . . 10 (πœ‘ β†’ ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ)) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = ((𝑆 Γ— {0}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))
114113eqeq2d 2744 . . . . . . . . 9 (πœ‘ β†’ ((𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ)) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ↔ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((𝑆 Γ— {0}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))
115114adantr 482 . . . . . . . 8 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ ((𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ∘f + ((𝑆 Γ— {-𝐾}) ∘f Β· π‘Œ)) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ↔ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((𝑆 Γ— {0}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))
11694, 115mpbid 231 . . . . . . 7 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = ((𝑆 Γ— {0}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))
117 0cnd 11203 . . . . . . . . 9 (πœ‘ β†’ 0 ∈ β„‚)
118 mul02 11388 . . . . . . . . . 10 (π‘₯ ∈ β„‚ β†’ (0 Β· π‘₯) = 0)
119118adantl 483 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ β„‚) β†’ (0 Β· π‘₯) = 0)
1201, 52, 117, 117, 119caofid2 7699 . . . . . . . 8 (πœ‘ β†’ ((𝑆 Γ— {0}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑆 Γ— {0}))
121120adantr 482 . . . . . . 7 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ ((𝑆 Γ— {0}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑆 Γ— {0}))
122116, 121eqtrd 2773 . . . . . 6 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = (𝑆 Γ— {0}))
1231adantr 482 . . . . . . 7 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ 𝑆 ∈ {ℝ, β„‚})
12483, 38, 52, 1, 1, 86off 7683 . . . . . . . 8 (πœ‘ β†’ (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))):π‘†βŸΆβ„‚)
125124adantr 482 . . . . . . 7 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))):π‘†βŸΆβ„‚)
126122dmeqd 5903 . . . . . . . 8 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ dom (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = dom (𝑆 Γ— {0}))
127 0cn 11202 . . . . . . . . . 10 0 ∈ β„‚
128127fconst6 6778 . . . . . . . . 9 (𝑆 Γ— {0}):π‘†βŸΆβ„‚
129128fdmi 6726 . . . . . . . 8 dom (𝑆 Γ— {0}) = 𝑆
130126, 129eqtrdi 2789 . . . . . . 7 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ dom (𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = 𝑆)
131123, 125, 130dvconstbi 43026 . . . . . 6 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ ((𝑆 D (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))) = (𝑆 Γ— {0}) ↔ βˆƒπ‘₯ ∈ β„‚ (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑆 Γ— {π‘₯})))
132122, 131mpbid 231 . . . . 5 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ βˆƒπ‘₯ ∈ β„‚ (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑆 Γ— {π‘₯}))
133 oveq1 7411 . . . . . . . . . 10 ((π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑆 Γ— {π‘₯}) β†’ ((π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = ((𝑆 Γ— {π‘₯}) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))))
134 efne0 16036 . . . . . . . . . . . . . . 15 (-(𝐾 Β· 𝑒) ∈ β„‚ β†’ (expβ€˜-(𝐾 Β· 𝑒)) β‰  0)
135 eldifsn 4789 . . . . . . . . . . . . . . 15 ((expβ€˜-(𝐾 Β· 𝑒)) ∈ (β„‚ βˆ– {0}) ↔ ((expβ€˜-(𝐾 Β· 𝑒)) ∈ β„‚ ∧ (expβ€˜-(𝐾 Β· 𝑒)) β‰  0))
13639, 134, 135sylanbrc 584 . . . . . . . . . . . . . 14 (-(𝐾 Β· 𝑒) ∈ β„‚ β†’ (expβ€˜-(𝐾 Β· 𝑒)) ∈ (β„‚ βˆ– {0}))
13711, 136syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ (expβ€˜-(𝐾 Β· 𝑒)) ∈ (β„‚ βˆ– {0}))
138137fmpttd 7110 . . . . . . . . . . . 12 (πœ‘ β†’ (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))):π‘†βŸΆ(β„‚ βˆ– {0}))
139 ofdivcan4 43019 . . . . . . . . . . . 12 ((𝑆 ∈ {ℝ, β„‚} ∧ π‘Œ:π‘†βŸΆβ„‚ ∧ (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))):π‘†βŸΆ(β„‚ βˆ– {0})) β†’ ((π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = π‘Œ)
1401, 38, 138, 139syl3anc 1372 . . . . . . . . . . 11 (πœ‘ β†’ ((π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = π‘Œ)
141140eqeq1d 2735 . . . . . . . . . 10 (πœ‘ β†’ (((π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = ((𝑆 Γ— {π‘₯}) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ↔ π‘Œ = ((𝑆 Γ— {π‘₯}) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))
142133, 141imbitrid 243 . . . . . . . . 9 (πœ‘ β†’ ((π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑆 Γ— {π‘₯}) β†’ π‘Œ = ((𝑆 Γ— {π‘₯}) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))
143142adantr 482 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ β„‚) β†’ ((π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑆 Γ— {π‘₯}) β†’ π‘Œ = ((𝑆 Γ— {π‘₯}) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))))))
144 vex 3479 . . . . . . . . . . . . 13 π‘₯ ∈ V
145144a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ π‘₯ ∈ V)
146 ovexd 7439 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ (1 / (expβ€˜(𝐾 Β· 𝑒))) ∈ V)
147 fconstmpt 5736 . . . . . . . . . . . . 13 (𝑆 Γ— {π‘₯}) = (𝑒 ∈ 𝑆 ↦ π‘₯)
148147a1i 11 . . . . . . . . . . . 12 (πœ‘ β†’ (𝑆 Γ— {π‘₯}) = (𝑒 ∈ 𝑆 ↦ π‘₯))
149 efneg 16037 . . . . . . . . . . . . . 14 ((𝐾 Β· 𝑒) ∈ β„‚ β†’ (expβ€˜-(𝐾 Β· 𝑒)) = (1 / (expβ€˜(𝐾 Β· 𝑒))))
15010, 149syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ (expβ€˜-(𝐾 Β· 𝑒)) = (1 / (expβ€˜(𝐾 Β· 𝑒))))
151150mpteq2dva 5247 . . . . . . . . . . . 12 (πœ‘ β†’ (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒))) = (𝑒 ∈ 𝑆 ↦ (1 / (expβ€˜(𝐾 Β· 𝑒)))))
1521, 145, 146, 148, 151offval2 7685 . . . . . . . . . . 11 (πœ‘ β†’ ((𝑆 Γ— {π‘₯}) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑒 ∈ 𝑆 ↦ (π‘₯ / (1 / (expβ€˜(𝐾 Β· 𝑒))))))
153152adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ β„‚) β†’ ((𝑆 Γ— {π‘₯}) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑒 ∈ 𝑆 ↦ (π‘₯ / (1 / (expβ€˜(𝐾 Β· 𝑒))))))
154 efcl 16022 . . . . . . . . . . . . . . . . 17 ((𝐾 Β· 𝑒) ∈ β„‚ β†’ (expβ€˜(𝐾 Β· 𝑒)) ∈ β„‚)
155 efne0 16036 . . . . . . . . . . . . . . . . 17 ((𝐾 Β· 𝑒) ∈ β„‚ β†’ (expβ€˜(𝐾 Β· 𝑒)) β‰  0)
156154, 155jca 513 . . . . . . . . . . . . . . . 16 ((𝐾 Β· 𝑒) ∈ β„‚ β†’ ((expβ€˜(𝐾 Β· 𝑒)) ∈ β„‚ ∧ (expβ€˜(𝐾 Β· 𝑒)) β‰  0))
15710, 156syl 17 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ ((expβ€˜(𝐾 Β· 𝑒)) ∈ β„‚ ∧ (expβ€˜(𝐾 Β· 𝑒)) β‰  0))
158 ax-1ne0 11175 . . . . . . . . . . . . . . . . 17 1 β‰  0
15918, 158pm3.2i 472 . . . . . . . . . . . . . . . 16 (1 ∈ β„‚ ∧ 1 β‰  0)
160 divdiv2 11922 . . . . . . . . . . . . . . . 16 ((π‘₯ ∈ β„‚ ∧ (1 ∈ β„‚ ∧ 1 β‰  0) ∧ ((expβ€˜(𝐾 Β· 𝑒)) ∈ β„‚ ∧ (expβ€˜(𝐾 Β· 𝑒)) β‰  0)) β†’ (π‘₯ / (1 / (expβ€˜(𝐾 Β· 𝑒)))) = ((π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))) / 1))
161159, 160mp3an2 1450 . . . . . . . . . . . . . . 15 ((π‘₯ ∈ β„‚ ∧ ((expβ€˜(𝐾 Β· 𝑒)) ∈ β„‚ ∧ (expβ€˜(𝐾 Β· 𝑒)) β‰  0)) β†’ (π‘₯ / (1 / (expβ€˜(𝐾 Β· 𝑒)))) = ((π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))) / 1))
162157, 161sylan2 594 . . . . . . . . . . . . . 14 ((π‘₯ ∈ β„‚ ∧ (πœ‘ ∧ 𝑒 ∈ 𝑆)) β†’ (π‘₯ / (1 / (expβ€˜(𝐾 Β· 𝑒)))) = ((π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))) / 1))
16310, 154syl 17 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ 𝑆) β†’ (expβ€˜(𝐾 Β· 𝑒)) ∈ β„‚)
164 mulcl 11190 . . . . . . . . . . . . . . . 16 ((π‘₯ ∈ β„‚ ∧ (expβ€˜(𝐾 Β· 𝑒)) ∈ β„‚) β†’ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))) ∈ β„‚)
165163, 164sylan2 594 . . . . . . . . . . . . . . 15 ((π‘₯ ∈ β„‚ ∧ (πœ‘ ∧ 𝑒 ∈ 𝑆)) β†’ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))) ∈ β„‚)
166165div1d 11978 . . . . . . . . . . . . . 14 ((π‘₯ ∈ β„‚ ∧ (πœ‘ ∧ 𝑒 ∈ 𝑆)) β†’ ((π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))) / 1) = (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))
167162, 166eqtrd 2773 . . . . . . . . . . . . 13 ((π‘₯ ∈ β„‚ ∧ (πœ‘ ∧ 𝑒 ∈ 𝑆)) β†’ (π‘₯ / (1 / (expβ€˜(𝐾 Β· 𝑒)))) = (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))
168167ancoms 460 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑒 ∈ 𝑆) ∧ π‘₯ ∈ β„‚) β†’ (π‘₯ / (1 / (expβ€˜(𝐾 Β· 𝑒)))) = (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))
169168an32s 651 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ β„‚) ∧ 𝑒 ∈ 𝑆) β†’ (π‘₯ / (1 / (expβ€˜(𝐾 Β· 𝑒)))) = (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))
170169mpteq2dva 5247 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ β„‚) β†’ (𝑒 ∈ 𝑆 ↦ (π‘₯ / (1 / (expβ€˜(𝐾 Β· 𝑒))))) = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))))
171153, 170eqtrd 2773 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ β„‚) β†’ ((𝑆 Γ— {π‘₯}) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))))
172171eqeq2d 2744 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ β„‚) β†’ (π‘Œ = ((𝑆 Γ— {π‘₯}) ∘f / (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) ↔ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))))
173143, 172sylibd 238 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ β„‚) β†’ ((π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑆 Γ— {π‘₯}) β†’ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))))
174173reximdva 3169 . . . . . 6 (πœ‘ β†’ (βˆƒπ‘₯ ∈ β„‚ (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑆 Γ— {π‘₯}) β†’ βˆƒπ‘₯ ∈ β„‚ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))))
175174adantr 482 . . . . 5 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ (βˆƒπ‘₯ ∈ β„‚ (π‘Œ ∘f Β· (𝑒 ∈ 𝑆 ↦ (expβ€˜-(𝐾 Β· 𝑒)))) = (𝑆 Γ— {π‘₯}) β†’ βˆƒπ‘₯ ∈ β„‚ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))))
176132, 175mpd 15 . . . 4 ((πœ‘ ∧ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)) β†’ βˆƒπ‘₯ ∈ β„‚ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))))
177176ex 414 . . 3 (πœ‘ β†’ ((𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) β†’ βˆƒπ‘₯ ∈ β„‚ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))))
1781adantr 482 . . . . . . 7 ((πœ‘ ∧ (π‘₯ ∈ β„‚ ∧ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))))) β†’ 𝑆 ∈ {ℝ, β„‚})
1794adantr 482 . . . . . . 7 ((πœ‘ ∧ (π‘₯ ∈ β„‚ ∧ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))))) β†’ 𝐾 ∈ β„‚)
180 simprl 770 . . . . . . 7 ((πœ‘ ∧ (π‘₯ ∈ β„‚ ∧ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))))) β†’ π‘₯ ∈ β„‚)
181 eqid 2733 . . . . . . 7 (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))) = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))
182178, 179, 180, 181expgrowthi 43025 . . . . . 6 ((πœ‘ ∧ (π‘₯ ∈ β„‚ ∧ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))))) β†’ (𝑆 D (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))) = ((𝑆 Γ— {𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))))
1831823impb 1116 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ β„‚ ∧ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))) β†’ (𝑆 D (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))) = ((𝑆 Γ— {𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))))
184 oveq2 7412 . . . . . . 7 (π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))) β†’ (𝑆 D π‘Œ) = (𝑆 D (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))))
185 oveq2 7412 . . . . . . 7 (π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))) β†’ ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))))
186184, 185eqeq12d 2749 . . . . . 6 (π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))) β†’ ((𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ↔ (𝑆 D (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))) = ((𝑆 Γ— {𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))))))
1871863ad2ant3 1136 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ β„‚ ∧ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))) β†’ ((𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ↔ (𝑆 D (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))) = ((𝑆 Γ— {𝐾}) ∘f Β· (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))))))
188183, 187mpbird 257 . . . 4 ((πœ‘ ∧ π‘₯ ∈ β„‚ ∧ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))) β†’ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ))
189188rexlimdv3a 3160 . . 3 (πœ‘ β†’ (βˆƒπ‘₯ ∈ β„‚ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))) β†’ (𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ)))
190177, 189impbid 211 . 2 (πœ‘ β†’ ((𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ↔ βˆƒπ‘₯ ∈ β„‚ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))))))
191 oveq2 7412 . . . . . . . 8 (𝑒 = 𝑑 β†’ (𝐾 Β· 𝑒) = (𝐾 Β· 𝑑))
192191fveq2d 6892 . . . . . . 7 (𝑒 = 𝑑 β†’ (expβ€˜(𝐾 Β· 𝑒)) = (expβ€˜(𝐾 Β· 𝑑)))
193192oveq2d 7420 . . . . . 6 (𝑒 = 𝑑 β†’ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒))) = (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑑))))
194193cbvmptv 5260 . . . . 5 (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))) = (𝑑 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑑))))
195 oveq1 7411 . . . . . 6 (π‘₯ = 𝑐 β†’ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑑))) = (𝑐 Β· (expβ€˜(𝐾 Β· 𝑑))))
196195mpteq2dv 5249 . . . . 5 (π‘₯ = 𝑐 β†’ (𝑑 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑑)))) = (𝑑 ∈ 𝑆 ↦ (𝑐 Β· (expβ€˜(𝐾 Β· 𝑑)))))
197194, 196eqtrid 2785 . . . 4 (π‘₯ = 𝑐 β†’ (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))) = (𝑑 ∈ 𝑆 ↦ (𝑐 Β· (expβ€˜(𝐾 Β· 𝑑)))))
198197eqeq2d 2744 . . 3 (π‘₯ = 𝑐 β†’ (π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))) ↔ π‘Œ = (𝑑 ∈ 𝑆 ↦ (𝑐 Β· (expβ€˜(𝐾 Β· 𝑑))))))
199198cbvrexvw 3236 . 2 (βˆƒπ‘₯ ∈ β„‚ π‘Œ = (𝑒 ∈ 𝑆 ↦ (π‘₯ Β· (expβ€˜(𝐾 Β· 𝑒)))) ↔ βˆƒπ‘ ∈ β„‚ π‘Œ = (𝑑 ∈ 𝑆 ↦ (𝑐 Β· (expβ€˜(𝐾 Β· 𝑑)))))
200190, 199bitrdi 287 1 (πœ‘ β†’ ((𝑆 D π‘Œ) = ((𝑆 Γ— {𝐾}) ∘f Β· π‘Œ) ↔ βˆƒπ‘ ∈ β„‚ π‘Œ = (𝑑 ∈ 𝑆 ↦ (𝑐 Β· (expβ€˜(𝐾 Β· 𝑑))))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107   β‰  wne 2941  βˆƒwrex 3071  Vcvv 3475   βˆ– cdif 3944   βŠ† wss 3947  {csn 4627  {cpr 4629   ↦ cmpt 5230   Γ— cxp 5673  dom cdm 5675   Fn wfn 6535  βŸΆwf 6536  β€˜cfv 6540  (class class class)co 7404   ∘f cof 7663  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111   βˆ’ cmin 11440  -cneg 11441   / cdiv 11867  expce 16001   D cdv 25362
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7720  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185  ax-mulf 11186
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-tp 4632  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-iin 4999  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7360  df-ov 7407  df-oprab 7408  df-mpo 7409  df-of 7665  df-om 7851  df-1st 7970  df-2nd 7971  df-supp 8142  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-2o 8462  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-5 12274  df-6 12275  df-7 12276  df-8 12277  df-9 12278  df-n0 12469  df-z 12555  df-dec 12674  df-uz 12819  df-q 12929  df-rp 12971  df-xneg 13088  df-xadd 13089  df-xmul 13090  df-ioo 13324  df-ico 13326  df-icc 13327  df-fz 13481  df-fzo 13624  df-fl 13753  df-seq 13963  df-exp 14024  df-fac 14230  df-bc 14259  df-hash 14287  df-shft 15010  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-limsup 15411  df-clim 15428  df-rlim 15429  df-sum 15629  df-ef 16007  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17141  df-ress 17170  df-plusg 17206  df-mulr 17207  df-starv 17208  df-sca 17209  df-vsca 17210  df-ip 17211  df-tset 17212  df-ple 17213  df-ds 17215  df-unif 17216  df-hom 17217  df-cco 17218  df-rest 17364  df-topn 17365  df-0g 17383  df-gsum 17384  df-topgen 17385  df-pt 17386  df-prds 17389  df-xrs 17444  df-qtop 17449  df-imas 17450  df-xps 17452  df-mre 17526  df-mrc 17527  df-acs 17529  df-mgm 18557  df-sgrp 18606  df-mnd 18622  df-submnd 18668  df-mulg 18945  df-cntz 19175  df-cmn 19643  df-psmet 20921  df-xmet 20922  df-met 20923  df-bl 20924  df-mopn 20925  df-fbas 20926  df-fg 20927  df-cnfld 20930  df-top 22378  df-topon 22395  df-topsp 22417  df-bases 22431  df-cld 22505  df-ntr 22506  df-cls 22507  df-nei 22584  df-lp 22622  df-perf 22623  df-cn 22713  df-cnp 22714  df-haus 22801  df-cmp 22873  df-tx 23048  df-hmeo 23241  df-fil 23332  df-fm 23424  df-flim 23425  df-flf 23426  df-xms 23808  df-ms 23809  df-tms 23810  df-cncf 24376  df-limc 25365  df-dv 25366
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator