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 45078
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 45076 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 45076); 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 45076 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 45076.

Statements for this and expgrowthi 45076 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 11204 . . . . . . . . . . . . . . . . . 18 ℂ ∈ {ℝ, ℂ}
32a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → ℂ ∈ {ℝ, ℂ})
4 expgrowth.k . . . . . . . . . . . . . . . . . . . 20 (𝜑𝐾 ∈ ℂ)
5 recnprss 26092 . . . . . . . . . . . . . . . . . . . . . 22 (𝑆 ∈ {ℝ, ℂ} → 𝑆 ⊆ ℂ)
61, 5syl 18 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝑆 ⊆ ℂ)
76sseld 3937 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑢𝑆𝑢 ∈ ℂ))
8 mulcl 11195 . . . . . . . . . . . . . . . . . . . 20 ((𝐾 ∈ ℂ ∧ 𝑢 ∈ ℂ) → (𝐾 · 𝑢) ∈ ℂ)
94, 7, 8syl6an 697 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑢𝑆 → (𝐾 · 𝑢) ∈ ℂ))
109imp 412 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑢𝑆) → (𝐾 · 𝑢) ∈ ℂ)
1110negcld 11567 . . . . . . . . . . . . . . . . 17 ((𝜑𝑢𝑆) → -(𝐾 · 𝑢) ∈ ℂ)
124negcld 11567 . . . . . . . . . . . . . . . . . 18 (𝜑 → -𝐾 ∈ ℂ)
1312adantr 486 . . . . . . . . . . . . . . . . 17 ((𝜑𝑢𝑆) → -𝐾 ∈ ℂ)
14 efcl 16153 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ ℂ → (exp‘𝑦) ∈ ℂ)
1514adantl 487 . . . . . . . . . . . . . . . . 17 ((𝜑𝑦 ∈ ℂ) → (exp‘𝑦) ∈ ℂ)
164adantr 486 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑢𝑆) → 𝐾 ∈ ℂ)
177imp 412 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑢𝑆) → 𝑢 ∈ ℂ)
18 ax-1cn 11169 . . . . . . . . . . . . . . . . . . . . 21 1 ∈ ℂ
1918a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑢𝑆) → 1 ∈ ℂ)
201dvmptid 26145 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑆 D (𝑢𝑆𝑢)) = (𝑢𝑆 ↦ 1))
211, 17, 19, 20, 4dvmptcmul 26152 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑆 D (𝑢𝑆 ↦ (𝐾 · 𝑢))) = (𝑢𝑆 ↦ (𝐾 · 1)))
224mulridd 11237 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐾 · 1) = 𝐾)
2322mpteq2dv 5207 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑢𝑆 ↦ (𝐾 · 1)) = (𝑢𝑆𝐾))
2421, 23eqtrd 2800 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝑆 D (𝑢𝑆 ↦ (𝐾 · 𝑢))) = (𝑢𝑆𝐾))
251, 10, 16, 24dvmptneg 26154 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑆 D (𝑢𝑆 ↦ -(𝐾 · 𝑢))) = (𝑢𝑆 ↦ -𝐾))
26 dvef 26168 . . . . . . . . . . . . . . . . . . 19 (ℂ D exp) = exp
27 eff 16152 . . . . . . . . . . . . . . . . . . . . . 22 exp:ℂ⟶ℂ
28 ffn 6709 . . . . . . . . . . . . . . . . . . . . . 22 (exp:ℂ⟶ℂ → exp Fn ℂ)
2927, 28ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21 exp Fn ℂ
30 dffn5 6943 . . . . . . . . . . . . . . . . . . . . 21 (exp Fn ℂ ↔ exp = (𝑦 ∈ ℂ ↦ (exp‘𝑦)))
3129, 30mpbi 233 . . . . . . . . . . . . . . . . . . . 20 exp = (𝑦 ∈ ℂ ↦ (exp‘𝑦))
3231oveq2i 7427 . . . . . . . . . . . . . . . . . . 19 (ℂ D exp) = (ℂ D (𝑦 ∈ ℂ ↦ (exp‘𝑦)))
3326, 32, 313eqtr3i 2796 . . . . . . . . . . . . . . . . . 18 (ℂ D (𝑦 ∈ ℂ ↦ (exp‘𝑦))) = (𝑦 ∈ ℂ ↦ (exp‘𝑦))
3433a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → (ℂ D (𝑦 ∈ ℂ ↦ (exp‘𝑦))) = (𝑦 ∈ ℂ ↦ (exp‘𝑦)))
35 fveq2 6885 . . . . . . . . . . . . . . . . 17 (𝑦 = -(𝐾 · 𝑢) → (exp‘𝑦) = (exp‘-(𝐾 · 𝑢)))
361, 3, 11, 13, 15, 15, 25, 34, 35, 35dvmptco 26160 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))
3736oveq2d 7432 . . . . . . . . . . . . . . 15 (𝜑 → (𝑌f · (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (𝑌f · (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾))))
38 expgrowth.y . . . . . . . . . . . . . . . 16 (𝜑𝑌:𝑆⟶ℂ)
39 efcl 16153 . . . . . . . . . . . . . . . . . . . 20 (-(𝐾 · 𝑢) ∈ ℂ → (exp‘-(𝐾 · 𝑢)) ∈ ℂ)
4011, 39syl 18 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑢𝑆) → (exp‘-(𝐾 · 𝑢)) ∈ ℂ)
4140, 13mulcld 11240 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑢𝑆) → ((exp‘-(𝐾 · 𝑢)) · -𝐾) ∈ ℂ)
4241fmpttd 7114 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)):𝑆⟶ℂ)
4336feq1d 6691 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))):𝑆⟶ℂ ↔ (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)):𝑆⟶ℂ))
4442, 43mpbird 260 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))):𝑆⟶ℂ)
45 mulcom 11197 . . . . . . . . . . . . . . . . 17 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) = (𝑦 · 𝑥))
4645adantl 487 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 · 𝑦) = (𝑦 · 𝑥))
471, 38, 44, 46caofcom 7717 . . . . . . . . . . . . . . 15 (𝜑 → (𝑌f · (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f · 𝑌))
4837, 47eqtr3d 2802 . . . . . . . . . . . . . 14 (𝜑 → (𝑌f · (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾))) = ((𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f · 𝑌))
4948oveq2d 7432 . . . . . . . . . . . . 13 (𝜑 → (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (𝑌f · (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f · 𝑌)))
50 fconst6g 6771 . . . . . . . . . . . . . . . . . 18 (-𝐾 ∈ ℂ → (𝑆 × {-𝐾}):𝑆⟶ℂ)
5112, 50syl 18 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑆 × {-𝐾}):𝑆⟶ℂ)
5240fmpttd 7114 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))):𝑆⟶ℂ)
531, 51, 52, 46caofcom 7717 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))) ∘f · (𝑆 × {-𝐾})))
54 eqidd 2766 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))) = (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))
55 fconstmpt 5725 . . . . . . . . . . . . . . . . . 18 (𝑆 × {-𝐾}) = (𝑢𝑆 ↦ -𝐾)
5655a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑆 × {-𝐾}) = (𝑢𝑆 ↦ -𝐾))
571, 40, 13, 54, 56offval2 7700 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))) ∘f · (𝑆 × {-𝐾})) = (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))
5853, 57eqtrd 2800 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))
5958oveq2d 7432 . . . . . . . . . . . . . 14 (𝜑 → (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (𝑌f · (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾))))
6059oveq2d 7432 . . . . . . . . . . . . 13 (𝜑 → (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (𝑌f · (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))))
61 expgrowth.dy . . . . . . . . . . . . . 14 (𝜑 → dom (𝑆 D 𝑌) = 𝑆)
6236dmeqd 5897 . . . . . . . . . . . . . . 15 (𝜑 → dom (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = dom (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))
63 eqid 2765 . . . . . . . . . . . . . . . 16 (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)) = (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾))
6463, 41dmmptd 6684 . . . . . . . . . . . . . . 15 (𝜑 → dom (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)) = 𝑆)
6562, 64eqtrd 2800 . . . . . . . . . . . . . 14 (𝜑 → dom (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = 𝑆)
661, 38, 52, 61, 65dvmulf 26131 . . . . . . . . . . . . 13 (𝜑 → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f · 𝑌)))
6749, 60, 663eqtr4rd 2811 . . . . . . . . . . . 12 (𝜑 → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
68 ofmul12 45068 . . . . . . . . . . . . . 14 (((𝑆 ∈ {ℝ, ℂ} ∧ 𝑌:𝑆⟶ℂ) ∧ ((𝑆 × {-𝐾}):𝑆⟶ℂ ∧ (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))):𝑆⟶ℂ)) → (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
691, 38, 51, 52, 68syl22anc 852 . . . . . . . . . . . . 13 (𝜑 → (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
7069oveq2d 7432 . . . . . . . . . . . 12 (𝜑 → (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
7167, 70eqtrd 2800 . . . . . . . . . . 11 (𝜑 → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
72 oveq1 7423 . . . . . . . . . . . 12 ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) → ((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))
7372oveq1d 7431 . . . . . . . . . . 11 ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) → (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
7471, 73sylan9eq 2820 . . . . . . . . . 10 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
75 mulass 11199 . . . . . . . . . . . . . . 15 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))
7675adantl 487 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ)) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))
771, 51, 38, 52, 76caofass 7720 . . . . . . . . . . . . 13 (𝜑 → (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
7877oveq2d 7432 . . . . . . . . . . . 12 (𝜑 → ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
7978eqeq2d 2776 . . . . . . . . . . 11 (𝜑 → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) ↔ (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))))
8079adantr 486 . . . . . . . . . 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 260 . . . . . . . . 9 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
82 mulcl 11195 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) ∈ ℂ)
8382adantl 487 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 · 𝑦) ∈ ℂ)
84 fconst6g 6771 . . . . . . . . . . . . . 14 (𝐾 ∈ ℂ → (𝑆 × {𝐾}):𝑆⟶ℂ)
854, 84syl 18 . . . . . . . . . . . . 13 (𝜑 → (𝑆 × {𝐾}):𝑆⟶ℂ)
86 inidm 4179 . . . . . . . . . . . . 13 (𝑆𝑆) = 𝑆
8783, 85, 38, 1, 1, 86off 7698 . . . . . . . . . . . 12 (𝜑 → ((𝑆 × {𝐾}) ∘f · 𝑌):𝑆⟶ℂ)
8883, 51, 38, 1, 1, 86off 7698 . . . . . . . . . . . 12 (𝜑 → ((𝑆 × {-𝐾}) ∘f · 𝑌):𝑆⟶ℂ)
89 adddir 11208 . . . . . . . . . . . . 13 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
9089adantl 487 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ)) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
911, 52, 87, 88, 90caofdir 7723 . . . . . . . . . . 11 (𝜑 → ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
9291eqeq2d 2776 . . . . . . . . . 10 (𝜑 → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
9392adantr 486 . . . . . . . . 9 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
9481, 93mpbird 260 . . . . . . . 8 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))
95 ofnegsub 12227 . . . . . . . . . . . . 13 ((𝑆 ∈ {ℝ, ℂ} ∧ ((𝑆 × {𝐾}) ∘f · 𝑌):𝑆⟶ℂ ∧ ((𝑆 × {𝐾}) ∘f · 𝑌):𝑆⟶ℂ) → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-1}) ∘f · ((𝑆 × {𝐾}) ∘f · 𝑌))) = (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f − ((𝑆 × {𝐾}) ∘f · 𝑌)))
961, 87, 87, 95syl3anc 1398 . . . . . . . . . . . 12 (𝜑 → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-1}) ∘f · ((𝑆 × {𝐾}) ∘f · 𝑌))) = (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f − ((𝑆 × {𝐾}) ∘f · 𝑌)))
97 neg1cn 12214 . . . . . . . . . . . . . . . . 17 -1 ∈ ℂ
9897fconst6 6772 . . . . . . . . . . . . . . . 16 (𝑆 × {-1}):𝑆⟶ℂ
9998a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → (𝑆 × {-1}):𝑆⟶ℂ)
1001, 99, 85, 38, 76caofass 7720 . . . . . . . . . . . . . 14 (𝜑 → (((𝑆 × {-1}) ∘f · (𝑆 × {𝐾})) ∘f · 𝑌) = ((𝑆 × {-1}) ∘f · ((𝑆 × {𝐾}) ∘f · 𝑌)))
10197a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → -1 ∈ ℂ)
1021, 101, 4ofc12 7710 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑆 × {-1}) ∘f · (𝑆 × {𝐾})) = (𝑆 × {(-1 · 𝐾)}))
1034mulm1d 11677 . . . . . . . . . . . . . . . . . 18 (𝜑 → (-1 · 𝐾) = -𝐾)
104103sneqd 4603 . . . . . . . . . . . . . . . . 17 (𝜑 → {(-1 · 𝐾)} = {-𝐾})
105104xpeq2d 5693 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑆 × {(-1 · 𝐾)}) = (𝑆 × {-𝐾}))
106102, 105eqtrd 2800 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑆 × {-1}) ∘f · (𝑆 × {𝐾})) = (𝑆 × {-𝐾}))
107106oveq1d 7431 . . . . . . . . . . . . . 14 (𝜑 → (((𝑆 × {-1}) ∘f · (𝑆 × {𝐾})) ∘f · 𝑌) = ((𝑆 × {-𝐾}) ∘f · 𝑌))
108100, 107eqtr3d 2802 . . . . . . . . . . . . 13 (𝜑 → ((𝑆 × {-1}) ∘f · ((𝑆 × {𝐾}) ∘f · 𝑌)) = ((𝑆 × {-𝐾}) ∘f · 𝑌))
109108oveq2d 7432 . . . . . . . . . . . 12 (𝜑 → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-1}) ∘f · ((𝑆 × {𝐾}) ∘f · 𝑌))) = (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)))
110 ofsubid 45067 . . . . . . . . . . . . 13 ((𝑆 ∈ {ℝ, ℂ} ∧ ((𝑆 × {𝐾}) ∘f · 𝑌):𝑆⟶ℂ) → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f − ((𝑆 × {𝐾}) ∘f · 𝑌)) = (𝑆 × {0}))
1111, 87, 110syl2anc 596 . . . . . . . . . . . 12 (𝜑 → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f − ((𝑆 × {𝐾}) ∘f · 𝑌)) = (𝑆 × {0}))
11296, 109, 1113eqtr3d 2808 . . . . . . . . . . 11 (𝜑 → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) = (𝑆 × {0}))
113112oveq1d 7431 . . . . . . . . . 10 (𝜑 → ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))
114113eqeq2d 2776 . . . . . . . . 9 (𝜑 → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
115114adantr 486 . . . . . . . 8 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
11694, 115mpbid 235 . . . . . . 7 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))
117 0cnd 11210 . . . . . . . . 9 (𝜑 → 0 ∈ ℂ)
118 mul02 11399 . . . . . . . . . 10 (𝑥 ∈ ℂ → (0 · 𝑥) = 0)
119118adantl 487 . . . . . . . . 9 ((𝜑𝑥 ∈ ℂ) → (0 · 𝑥) = 0)
1201, 52, 117, 117, 119caofid2 7716 . . . . . . . 8 (𝜑 → ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {0}))
121120adantr 486 . . . . . . 7 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {0}))
122116, 121eqtrd 2800 . . . . . 6 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (𝑆 × {0}))
1231adantr 486 . . . . . . 7 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → 𝑆 ∈ {ℝ, ℂ})
12483, 38, 52, 1, 1, 86off 7698 . . . . . . . 8 (𝜑 → (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))):𝑆⟶ℂ)
125124adantr 486 . . . . . . 7 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))):𝑆⟶ℂ)
126122dmeqd 5897 . . . . . . . 8 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → dom (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = dom (𝑆 × {0}))
127 0cn 11209 . . . . . . . . . 10 0 ∈ ℂ
128127fconst6 6772 . . . . . . . . 9 (𝑆 × {0}):𝑆⟶ℂ
129128fdmi 6721 . . . . . . . 8 dom (𝑆 × {0}) = 𝑆
130126, 129eqtrdi 2816 . . . . . . 7 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → dom (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = 𝑆)
131123, 125, 130dvconstbi 45077 . . . . . 6 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (𝑆 × {0}) ↔ ∃𝑥 ∈ ℂ (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥})))
132122, 131mpbid 235 . . . . 5 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ∃𝑥 ∈ ℂ (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}))
133 oveq1 7423 . . . . . . . . . 10 ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))
134 efne0 16169 . . . . . . . . . . . . . . 15 (-(𝐾 · 𝑢) ∈ ℂ → (exp‘-(𝐾 · 𝑢)) ≠ 0)
135 eldifsn 4755 . . . . . . . . . . . . . . 15 ((exp‘-(𝐾 · 𝑢)) ∈ (ℂ ∖ {0}) ↔ ((exp‘-(𝐾 · 𝑢)) ∈ ℂ ∧ (exp‘-(𝐾 · 𝑢)) ≠ 0))
13639, 134, 135sylanbrc 595 . . . . . . . . . . . . . 14 (-(𝐾 · 𝑢) ∈ ℂ → (exp‘-(𝐾 · 𝑢)) ∈ (ℂ ∖ {0}))
13711, 136syl 18 . . . . . . . . . . . . 13 ((𝜑𝑢𝑆) → (exp‘-(𝐾 · 𝑢)) ∈ (ℂ ∖ {0}))
138137fmpttd 7114 . . . . . . . . . . . 12 (𝜑 → (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))):𝑆⟶(ℂ ∖ {0}))
139 ofdivcan4 45070 . . . . . . . . . . . 12 ((𝑆 ∈ {ℝ, ℂ} ∧ 𝑌:𝑆⟶ℂ ∧ (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))):𝑆⟶(ℂ ∖ {0})) → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = 𝑌)
1401, 38, 138, 139syl3anc 1398 . . . . . . . . . . 11 (𝜑 → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = 𝑌)
141140eqeq1d 2767 . . . . . . . . . 10 (𝜑 → (((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ 𝑌 = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
142133, 141imbitrid 247 . . . . . . . . 9 (𝜑 → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → 𝑌 = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
143142adantr 486 . . . . . . . 8 ((𝜑𝑥 ∈ ℂ) → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → 𝑌 = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
144 vex 3461 . . . . . . . . . . . . 13 𝑥 ∈ V
145144a1i 11 . . . . . . . . . . . 12 ((𝜑𝑢𝑆) → 𝑥 ∈ V)
146 ovexd 7451 . . . . . . . . . . . 12 ((𝜑𝑢𝑆) → (1 / (exp‘(𝐾 · 𝑢))) ∈ V)
147 fconstmpt 5725 . . . . . . . . . . . . 13 (𝑆 × {𝑥}) = (𝑢𝑆𝑥)
148147a1i 11 . . . . . . . . . . . 12 (𝜑 → (𝑆 × {𝑥}) = (𝑢𝑆𝑥))
149 efneg 16171 . . . . . . . . . . . . . 14 ((𝐾 · 𝑢) ∈ ℂ → (exp‘-(𝐾 · 𝑢)) = (1 / (exp‘(𝐾 · 𝑢))))
15010, 149syl 18 . . . . . . . . . . . . 13 ((𝜑𝑢𝑆) → (exp‘-(𝐾 · 𝑢)) = (1 / (exp‘(𝐾 · 𝑢))))
151150mpteq2dva 5206 . . . . . . . . . . . 12 (𝜑 → (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))) = (𝑢𝑆 ↦ (1 / (exp‘(𝐾 · 𝑢)))))
1521, 145, 146, 148, 151offval2 7700 . . . . . . . . . . 11 (𝜑 → ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ (𝑥 / (1 / (exp‘(𝐾 · 𝑢))))))
153152adantr 486 . . . . . . . . . 10 ((𝜑𝑥 ∈ ℂ) → ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ (𝑥 / (1 / (exp‘(𝐾 · 𝑢))))))
154 efcl 16153 . . . . . . . . . . . . . . . . 17 ((𝐾 · 𝑢) ∈ ℂ → (exp‘(𝐾 · 𝑢)) ∈ ℂ)
155 efne0 16169 . . . . . . . . . . . . . . . . 17 ((𝐾 · 𝑢) ∈ ℂ → (exp‘(𝐾 · 𝑢)) ≠ 0)
156154, 155jca 521 . . . . . . . . . . . . . . . 16 ((𝐾 · 𝑢) ∈ ℂ → ((exp‘(𝐾 · 𝑢)) ∈ ℂ ∧ (exp‘(𝐾 · 𝑢)) ≠ 0))
15710, 156syl 18 . . . . . . . . . . . . . . 15 ((𝜑𝑢𝑆) → ((exp‘(𝐾 · 𝑢)) ∈ ℂ ∧ (exp‘(𝐾 · 𝑢)) ≠ 0))
158 ax-1ne0 11180 . . . . . . . . . . . . . . . . 17 1 ≠ 0
15918, 158pm3.2i 476 . . . . . . . . . . . . . . . 16 (1 ∈ ℂ ∧ 1 ≠ 0)
160 divdiv2 11938 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ℂ ∧ (1 ∈ ℂ ∧ 1 ≠ 0) ∧ ((exp‘(𝐾 · 𝑢)) ∈ ℂ ∧ (exp‘(𝐾 · 𝑢)) ≠ 0)) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = ((𝑥 · (exp‘(𝐾 · 𝑢))) / 1))
161159, 160mp3an2 1478 . . . . . . . . . . . . . . 15 ((𝑥 ∈ ℂ ∧ ((exp‘(𝐾 · 𝑢)) ∈ ℂ ∧ (exp‘(𝐾 · 𝑢)) ≠ 0)) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = ((𝑥 · (exp‘(𝐾 · 𝑢))) / 1))
162157, 161sylan2 605 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℂ ∧ (𝜑𝑢𝑆)) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = ((𝑥 · (exp‘(𝐾 · 𝑢))) / 1))
16310, 154syl 18 . . . . . . . . . . . . . . . 16 ((𝜑𝑢𝑆) → (exp‘(𝐾 · 𝑢)) ∈ ℂ)
164 mulcl 11195 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ℂ ∧ (exp‘(𝐾 · 𝑢)) ∈ ℂ) → (𝑥 · (exp‘(𝐾 · 𝑢))) ∈ ℂ)
165163, 164sylan2 605 . . . . . . . . . . . . . . 15 ((𝑥 ∈ ℂ ∧ (𝜑𝑢𝑆)) → (𝑥 · (exp‘(𝐾 · 𝑢))) ∈ ℂ)
166165div1d 11994 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℂ ∧ (𝜑𝑢𝑆)) → ((𝑥 · (exp‘(𝐾 · 𝑢))) / 1) = (𝑥 · (exp‘(𝐾 · 𝑢))))
167162, 166eqtrd 2800 . . . . . . . . . . . . 13 ((𝑥 ∈ ℂ ∧ (𝜑𝑢𝑆)) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = (𝑥 · (exp‘(𝐾 · 𝑢))))
168167ancoms 464 . . . . . . . . . . . 12 (((𝜑𝑢𝑆) ∧ 𝑥 ∈ ℂ) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = (𝑥 · (exp‘(𝐾 · 𝑢))))
169168an32s 665 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℂ) ∧ 𝑢𝑆) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = (𝑥 · (exp‘(𝐾 · 𝑢))))
170169mpteq2dva 5206 . . . . . . . . . 10 ((𝜑𝑥 ∈ ℂ) → (𝑢𝑆 ↦ (𝑥 / (1 / (exp‘(𝐾 · 𝑢))))) = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))
171153, 170eqtrd 2800 . . . . . . . . 9 ((𝜑𝑥 ∈ ℂ) → ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))
172171eqeq2d 2776 . . . . . . . 8 ((𝜑𝑥 ∈ ℂ) → (𝑌 = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
173143, 172sylibd 242 . . . . . . 7 ((𝜑𝑥 ∈ ℂ) → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
174173reximdva 3180 . . . . . 6 (𝜑 → (∃𝑥 ∈ ℂ (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → ∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
175174adantr 486 . . . . 5 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (∃𝑥 ∈ ℂ (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → ∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
176132, 175mpd 16 . . . 4 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))
177176ex 418 . . 3 (𝜑 → ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) → ∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
1781adantr 486 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))) → 𝑆 ∈ {ℝ, ℂ})
1794adantr 486 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))) → 𝐾 ∈ ℂ)
180 simprl 783 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))) → 𝑥 ∈ ℂ)
181 eqid 2765 . . . . . . 7 (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))
182178, 179, 180, 181expgrowthi 45076 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))) → (𝑆 D (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) = ((𝑆 × {𝐾}) ∘f · (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
1831823impb 1132 . . . . 5 ((𝜑𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) → (𝑆 D (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) = ((𝑆 × {𝐾}) ∘f · (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
184 oveq2 7424 . . . . . . 7 (𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) → (𝑆 D 𝑌) = (𝑆 D (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
185 oveq2 7424 . . . . . . 7 (𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) → ((𝑆 × {𝐾}) ∘f · 𝑌) = ((𝑆 × {𝐾}) ∘f · (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
186184, 185eqeq12d 2781 . . . . . 6 (𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) → ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) ↔ (𝑆 D (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) = ((𝑆 × {𝐾}) ∘f · (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))))
1871863ad2ant3 1153 . . . . 5 ((𝜑𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) → ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) ↔ (𝑆 D (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) = ((𝑆 × {𝐾}) ∘f · (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))))
188183, 187mpbird 260 . . . 4 ((𝜑𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) → (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌))
189188rexlimdv3a 3172 . . 3 (𝜑 → (∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) → (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)))
190177, 189impbid 215 . 2 (𝜑 → ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) ↔ ∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
191 oveq2 7424 . . . . . . . 8 (𝑢 = 𝑡 → (𝐾 · 𝑢) = (𝐾 · 𝑡))
192191fveq2d 6889 . . . . . . 7 (𝑢 = 𝑡 → (exp‘(𝐾 · 𝑢)) = (exp‘(𝐾 · 𝑡)))
193192oveq2d 7432 . . . . . 6 (𝑢 = 𝑡 → (𝑥 · (exp‘(𝐾 · 𝑢))) = (𝑥 · (exp‘(𝐾 · 𝑡))))
194193cbvmptv 5217 . . . . 5 (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) = (𝑡𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑡))))
195 oveq1 7423 . . . . . 6 (𝑥 = 𝑐 → (𝑥 · (exp‘(𝐾 · 𝑡))) = (𝑐 · (exp‘(𝐾 · 𝑡))))
196195mpteq2dv 5207 . . . . 5 (𝑥 = 𝑐 → (𝑡𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑡)))) = (𝑡𝑆 ↦ (𝑐 · (exp‘(𝐾 · 𝑡)))))
197194, 196eqtrid 2812 . . . 4 (𝑥 = 𝑐 → (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) = (𝑡𝑆 ↦ (𝑐 · (exp‘(𝐾 · 𝑡)))))
198197eqeq2d 2776 . . 3 (𝑥 = 𝑐 → (𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) ↔ 𝑌 = (𝑡𝑆 ↦ (𝑐 · (exp‘(𝐾 · 𝑡))))))
199198cbvrexvw 3246 . 2 (∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) ↔ ∃𝑐 ∈ ℂ 𝑌 = (𝑡𝑆 ↦ (𝑐 · (exp‘(𝐾 · 𝑡)))))
200190, 199bitrdi 290 1 (𝜑 → ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) ↔ ∃𝑐 ∈ ℂ 𝑌 = (𝑡𝑆 ↦ (𝑐 · (exp‘(𝐾 · 𝑡))))))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401  w3a 1103   = wceq 1570  wcel 2146  wne 2960  wrex 3091  Vcvv 3457  cdif 3903  wss 3906  {csn 4591  {cpr 4593  cmpt 5194   × cxp 5661  dom cdm 5663   Fn wfn 6535  wf 6536  cfv 6540  (class class class)co 7416  f cof 7678  cc 11109  cr 11110  0cc0 11111  1c1 11112   + caddc 11114   · cmul 11116  cmin 11452  -cneg 11453   / cdiv 11882  expce 16132   D cdv 26051
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7738  ax-inf2 9613  ax-cnex 11167  ax-resscn 11168  ax-1cn 11169  ax-icn 11170  ax-addcl 11171  ax-addrcl 11172  ax-mulcl 11173  ax-mulrcl 11174  ax-mulcom 11175  ax-addass 11176  ax-mulass 11177  ax-distr 11178  ax-i2m1 11179  ax-1ne0 11180  ax-1rid 11181  ax-rnegex 11182  ax-rrecex 11183  ax-cnre 11184  ax-pre-lttri 11185  ax-pre-lttrn 11186  ax-pre-ltadd 11187  ax-pre-mulgt0 11188  ax-pre-sup 11189  ax-addf 11190
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4875  df-int 4915  df-iun 4960  df-iin 4961  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  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 7373  df-ov 7419  df-oprab 7420  df-mpo 7421  df-of 7680  df-om 7865  df-1st 7988  df-2nd 7989  df-supp 8159  df-frecs 8280  df-wrecs 8311  df-recs 8360  df-rdg 8399  df-1o 8455  df-2o 8456  df-er 8696  df-map 8828  df-pm 8829  df-ixp 8898  df-en 8946  df-dom 8947  df-sdom 8948  df-fin 8949  df-fsupp 9325  df-fi 9374  df-sup 9405  df-inf 9406  df-oi 9475  df-card 9937  df-pnf 11256  df-mnf 11257  df-xr 11258  df-ltxr 11259  df-le 11260  df-sub 11454  df-neg 11455  df-div 11883  df-nn 12245  df-2 12314  df-3 12315  df-4 12316  df-5 12317  df-6 12318  df-7 12319  df-8 12320  df-9 12321  df-n0 12516  df-z 12603  df-dec 12723  df-uz 12874  df-q 12984  df-rp 13028  df-xneg 13148  df-xadd 13149  df-xmul 13150  df-ioo 13387  df-ico 13389  df-icc 13390  df-fz 13547  df-fzo 13695  df-fl 13838  df-seq 14051  df-exp 14111  df-fac 14323  df-bc 14352  df-hash 14380  df-shft 15123  df-cj 15169  df-re 15170  df-im 15171  df-sqrt 15305  df-abs 15306  df-limsup 15541  df-clim 15558  df-rlim 15559  df-sum 15757  df-ef 16138  df-struct 17224  df-sets 17241  df-slot 17259  df-ndx 17271  df-base 17287  df-ress 17308  df-plusg 17340  df-mulr 17341  df-starv 17342  df-sca 17343  df-vsca 17344  df-ip 17345  df-tset 17346  df-ple 17347  df-ds 17349  df-unif 17350  df-hom 17351  df-cco 17352  df-rest 17492  df-topn 17493  df-0g 17511  df-gsum 17512  df-topgen 17513  df-pt 17514  df-prds 17517  df-xrs 17573  df-qtop 17578  df-imas 17579  df-xps 17581  df-mre 17655  df-mrc 17656  df-acs 17658  df-mgm 18715  df-sgrp 18798  df-mnd 18814  df-submnd 18865  df-mulg 19157  df-cntz 19410  df-cmn 19875  df-psmet 21543  df-xmet 21544  df-met 21545  df-bl 21546  df-mopn 21547  df-fbas 21548  df-fg 21549  df-cnfld 21552  df-top 23080  df-topon 23097  df-topsp 23119  df-bases 23132  df-cld 23205  df-ntr 23206  df-cls 23207  df-nei 23284  df-lp 23322  df-perf 23323  df-cn 23413  df-cnp 23414  df-haus 23501  df-cmp 23573  df-tx 23748  df-hmeo 23941  df-fil 24032  df-fm 24124  df-flim 24125  df-flf 24126  df-xms 24506  df-ms 24507  df-tms 24508  df-cncf 25066  df-limc 26054  df-dv 26055
This theorem is used by: (None)
  Copyright terms: Public domain W3C validator