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 44328
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 44326 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 44326); 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 44326 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 44326.

Statements for this and expgrowthi 44326 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 11121 . . . . . . . . . . . . . . . . . 18 ℂ ∈ {ℝ, ℂ}
32a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → ℂ ∈ {ℝ, ℂ})
4 expgrowth.k . . . . . . . . . . . . . . . . . . . 20 (𝜑𝐾 ∈ ℂ)
5 recnprss 25822 . . . . . . . . . . . . . . . . . . . . . 22 (𝑆 ∈ {ℝ, ℂ} → 𝑆 ⊆ ℂ)
61, 5syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝑆 ⊆ ℂ)
76sseld 3936 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑢𝑆𝑢 ∈ ℂ))
8 mulcl 11112 . . . . . . . . . . . . . . . . . . . 20 ((𝐾 ∈ ℂ ∧ 𝑢 ∈ ℂ) → (𝐾 · 𝑢) ∈ ℂ)
94, 7, 8syl6an 684 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑢𝑆 → (𝐾 · 𝑢) ∈ ℂ))
109imp 406 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑢𝑆) → (𝐾 · 𝑢) ∈ ℂ)
1110negcld 11481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑢𝑆) → -(𝐾 · 𝑢) ∈ ℂ)
124negcld 11481 . . . . . . . . . . . . . . . . . 18 (𝜑 → -𝐾 ∈ ℂ)
1312adantr 480 . . . . . . . . . . . . . . . . 17 ((𝜑𝑢𝑆) → -𝐾 ∈ ℂ)
14 efcl 16008 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ ℂ → (exp‘𝑦) ∈ ℂ)
1514adantl 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑦 ∈ ℂ) → (exp‘𝑦) ∈ ℂ)
164adantr 480 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑢𝑆) → 𝐾 ∈ ℂ)
177imp 406 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑢𝑆) → 𝑢 ∈ ℂ)
18 ax-1cn 11086 . . . . . . . . . . . . . . . . . . . . 21 1 ∈ ℂ
1918a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑢𝑆) → 1 ∈ ℂ)
201dvmptid 25878 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝑆 D (𝑢𝑆𝑢)) = (𝑢𝑆 ↦ 1))
211, 17, 19, 20, 4dvmptcmul 25885 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑆 D (𝑢𝑆 ↦ (𝐾 · 𝑢))) = (𝑢𝑆 ↦ (𝐾 · 1)))
224mulridd 11151 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐾 · 1) = 𝐾)
2322mpteq2dv 5189 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝑢𝑆 ↦ (𝐾 · 1)) = (𝑢𝑆𝐾))
2421, 23eqtrd 2764 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝑆 D (𝑢𝑆 ↦ (𝐾 · 𝑢))) = (𝑢𝑆𝐾))
251, 10, 16, 24dvmptneg 25887 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑆 D (𝑢𝑆 ↦ -(𝐾 · 𝑢))) = (𝑢𝑆 ↦ -𝐾))
26 dvef 25901 . . . . . . . . . . . . . . . . . . 19 (ℂ D exp) = exp
27 eff 16007 . . . . . . . . . . . . . . . . . . . . . 22 exp:ℂ⟶ℂ
28 ffn 6656 . . . . . . . . . . . . . . . . . . . . . 22 (exp:ℂ⟶ℂ → exp Fn ℂ)
2927, 28ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21 exp Fn ℂ
30 dffn5 6885 . . . . . . . . . . . . . . . . . . . . 21 (exp Fn ℂ ↔ exp = (𝑦 ∈ ℂ ↦ (exp‘𝑦)))
3129, 30mpbi 230 . . . . . . . . . . . . . . . . . . . 20 exp = (𝑦 ∈ ℂ ↦ (exp‘𝑦))
3231oveq2i 7364 . . . . . . . . . . . . . . . . . . 19 (ℂ D exp) = (ℂ D (𝑦 ∈ ℂ ↦ (exp‘𝑦)))
3326, 32, 313eqtr3i 2760 . . . . . . . . . . . . . . . . . 18 (ℂ D (𝑦 ∈ ℂ ↦ (exp‘𝑦))) = (𝑦 ∈ ℂ ↦ (exp‘𝑦))
3433a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → (ℂ D (𝑦 ∈ ℂ ↦ (exp‘𝑦))) = (𝑦 ∈ ℂ ↦ (exp‘𝑦)))
35 fveq2 6826 . . . . . . . . . . . . . . . . 17 (𝑦 = -(𝐾 · 𝑢) → (exp‘𝑦) = (exp‘-(𝐾 · 𝑢)))
361, 3, 11, 13, 15, 15, 25, 34, 35, 35dvmptco 25893 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))
3736oveq2d 7369 . . . . . . . . . . . . . . 15 (𝜑 → (𝑌f · (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (𝑌f · (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾))))
38 expgrowth.y . . . . . . . . . . . . . . . 16 (𝜑𝑌:𝑆⟶ℂ)
39 efcl 16008 . . . . . . . . . . . . . . . . . . . 20 (-(𝐾 · 𝑢) ∈ ℂ → (exp‘-(𝐾 · 𝑢)) ∈ ℂ)
4011, 39syl 17 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑢𝑆) → (exp‘-(𝐾 · 𝑢)) ∈ ℂ)
4140, 13mulcld 11154 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑢𝑆) → ((exp‘-(𝐾 · 𝑢)) · -𝐾) ∈ ℂ)
4241fmpttd 7053 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)):𝑆⟶ℂ)
4336feq1d 6638 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))):𝑆⟶ℂ ↔ (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)):𝑆⟶ℂ))
4442, 43mpbird 257 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))):𝑆⟶ℂ)
45 mulcom 11114 . . . . . . . . . . . . . . . . 17 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) = (𝑦 · 𝑥))
4645adantl 481 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 · 𝑦) = (𝑦 · 𝑥))
471, 38, 44, 46caofcom 7654 . . . . . . . . . . . . . . 15 (𝜑 → (𝑌f · (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f · 𝑌))
4837, 47eqtr3d 2766 . . . . . . . . . . . . . 14 (𝜑 → (𝑌f · (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾))) = ((𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f · 𝑌))
4948oveq2d 7369 . . . . . . . . . . . . 13 (𝜑 → (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (𝑌f · (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f · 𝑌)))
50 fconst6g 6717 . . . . . . . . . . . . . . . . . 18 (-𝐾 ∈ ℂ → (𝑆 × {-𝐾}):𝑆⟶ℂ)
5112, 50syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑆 × {-𝐾}):𝑆⟶ℂ)
5240fmpttd 7053 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))):𝑆⟶ℂ)
531, 51, 52, 46caofcom 7654 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))) ∘f · (𝑆 × {-𝐾})))
54 eqidd 2730 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))) = (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))
55 fconstmpt 5685 . . . . . . . . . . . . . . . . . 18 (𝑆 × {-𝐾}) = (𝑢𝑆 ↦ -𝐾)
5655a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑆 × {-𝐾}) = (𝑢𝑆 ↦ -𝐾))
571, 40, 13, 54, 56offval2 7637 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))) ∘f · (𝑆 × {-𝐾})) = (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))
5853, 57eqtrd 2764 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))
5958oveq2d 7369 . . . . . . . . . . . . . 14 (𝜑 → (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (𝑌f · (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾))))
6059oveq2d 7369 . . . . . . . . . . . . 13 (𝜑 → (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (𝑌f · (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))))
61 expgrowth.dy . . . . . . . . . . . . . 14 (𝜑 → dom (𝑆 D 𝑌) = 𝑆)
6236dmeqd 5852 . . . . . . . . . . . . . . 15 (𝜑 → dom (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = dom (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)))
63 eqid 2729 . . . . . . . . . . . . . . . 16 (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)) = (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾))
6463, 41dmmptd 6631 . . . . . . . . . . . . . . 15 (𝜑 → dom (𝑢𝑆 ↦ ((exp‘-(𝐾 · 𝑢)) · -𝐾)) = 𝑆)
6562, 64eqtrd 2764 . . . . . . . . . . . . . 14 (𝜑 → dom (𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = 𝑆)
661, 38, 52, 61, 65dvmulf 25863 . . . . . . . . . . . . 13 (𝜑 → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 D (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f · 𝑌)))
6749, 60, 663eqtr4rd 2775 . . . . . . . . . . . 12 (𝜑 → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
68 ofmul12 44318 . . . . . . . . . . . . . 14 (((𝑆 ∈ {ℝ, ℂ} ∧ 𝑌:𝑆⟶ℂ) ∧ ((𝑆 × {-𝐾}):𝑆⟶ℂ ∧ (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))):𝑆⟶ℂ)) → (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
691, 38, 51, 52, 68syl22anc 838 . . . . . . . . . . . . 13 (𝜑 → (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
7069oveq2d 7369 . . . . . . . . . . . 12 (𝜑 → (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (𝑌f · ((𝑆 × {-𝐾}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
7167, 70eqtrd 2764 . . . . . . . . . . 11 (𝜑 → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
72 oveq1 7360 . . . . . . . . . . . 12 ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) → ((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))
7372oveq1d 7368 . . . . . . . . . . 11 ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) → (((𝑆 D 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
7471, 73sylan9eq 2784 . . . . . . . . . 10 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
75 mulass 11116 . . . . . . . . . . . . . . 15 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))
7675adantl 481 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ)) → ((𝑥 · 𝑦) · 𝑧) = (𝑥 · (𝑦 · 𝑧)))
771, 51, 38, 52, 76caofass 7657 . . . . . . . . . . . . 13 (𝜑 → (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
7877oveq2d 7369 . . . . . . . . . . . 12 (𝜑 → ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
7978eqeq2d 2740 . . . . . . . . . . 11 (𝜑 → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) ↔ (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + ((𝑆 × {-𝐾}) ∘f · (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))))
8079adantr 480 . . . . . . . . . 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 11112 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 · 𝑦) ∈ ℂ)
8382adantl 481 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 · 𝑦) ∈ ℂ)
84 fconst6g 6717 . . . . . . . . . . . . . 14 (𝐾 ∈ ℂ → (𝑆 × {𝐾}):𝑆⟶ℂ)
854, 84syl 17 . . . . . . . . . . . . 13 (𝜑 → (𝑆 × {𝐾}):𝑆⟶ℂ)
86 inidm 4180 . . . . . . . . . . . . 13 (𝑆𝑆) = 𝑆
8783, 85, 38, 1, 1, 86off 7635 . . . . . . . . . . . 12 (𝜑 → ((𝑆 × {𝐾}) ∘f · 𝑌):𝑆⟶ℂ)
8883, 51, 38, 1, 1, 86off 7635 . . . . . . . . . . . 12 (𝜑 → ((𝑆 × {-𝐾}) ∘f · 𝑌):𝑆⟶ℂ)
89 adddir 11125 . . . . . . . . . . . . 13 ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
9089adantl 481 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ ∧ 𝑧 ∈ ℂ)) → ((𝑥 + 𝑦) · 𝑧) = ((𝑥 · 𝑧) + (𝑦 · 𝑧)))
911, 52, 87, 88, 90caofdir 7660 . . . . . . . . . . 11 (𝜑 → ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
9291eqeq2d 2740 . . . . . . . . . 10 (𝜑 → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f + (((𝑆 × {-𝐾}) ∘f · 𝑌) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))))
9392adantr 480 . . . . . . . . 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 12145 . . . . . . . . . . . . 13 ((𝑆 ∈ {ℝ, ℂ} ∧ ((𝑆 × {𝐾}) ∘f · 𝑌):𝑆⟶ℂ ∧ ((𝑆 × {𝐾}) ∘f · 𝑌):𝑆⟶ℂ) → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-1}) ∘f · ((𝑆 × {𝐾}) ∘f · 𝑌))) = (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f − ((𝑆 × {𝐾}) ∘f · 𝑌)))
961, 87, 87, 95syl3anc 1373 . . . . . . . . . . . 12 (𝜑 → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-1}) ∘f · ((𝑆 × {𝐾}) ∘f · 𝑌))) = (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f − ((𝑆 × {𝐾}) ∘f · 𝑌)))
97 neg1cn 12132 . . . . . . . . . . . . . . . . 17 -1 ∈ ℂ
9897fconst6 6718 . . . . . . . . . . . . . . . 16 (𝑆 × {-1}):𝑆⟶ℂ
9998a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → (𝑆 × {-1}):𝑆⟶ℂ)
1001, 99, 85, 38, 76caofass 7657 . . . . . . . . . . . . . 14 (𝜑 → (((𝑆 × {-1}) ∘f · (𝑆 × {𝐾})) ∘f · 𝑌) = ((𝑆 × {-1}) ∘f · ((𝑆 × {𝐾}) ∘f · 𝑌)))
10197a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → -1 ∈ ℂ)
1021, 101, 4ofc12 7647 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑆 × {-1}) ∘f · (𝑆 × {𝐾})) = (𝑆 × {(-1 · 𝐾)}))
1034mulm1d 11591 . . . . . . . . . . . . . . . . . 18 (𝜑 → (-1 · 𝐾) = -𝐾)
104103sneqd 4591 . . . . . . . . . . . . . . . . 17 (𝜑 → {(-1 · 𝐾)} = {-𝐾})
105104xpeq2d 5653 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑆 × {(-1 · 𝐾)}) = (𝑆 × {-𝐾}))
106102, 105eqtrd 2764 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑆 × {-1}) ∘f · (𝑆 × {𝐾})) = (𝑆 × {-𝐾}))
107106oveq1d 7368 . . . . . . . . . . . . . 14 (𝜑 → (((𝑆 × {-1}) ∘f · (𝑆 × {𝐾})) ∘f · 𝑌) = ((𝑆 × {-𝐾}) ∘f · 𝑌))
108100, 107eqtr3d 2766 . . . . . . . . . . . . 13 (𝜑 → ((𝑆 × {-1}) ∘f · ((𝑆 × {𝐾}) ∘f · 𝑌)) = ((𝑆 × {-𝐾}) ∘f · 𝑌))
109108oveq2d 7369 . . . . . . . . . . . 12 (𝜑 → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-1}) ∘f · ((𝑆 × {𝐾}) ∘f · 𝑌))) = (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)))
110 ofsubid 44317 . . . . . . . . . . . . 13 ((𝑆 ∈ {ℝ, ℂ} ∧ ((𝑆 × {𝐾}) ∘f · 𝑌):𝑆⟶ℂ) → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f − ((𝑆 × {𝐾}) ∘f · 𝑌)) = (𝑆 × {0}))
1111, 87, 110syl2anc 584 . . . . . . . . . . . 12 (𝜑 → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f − ((𝑆 × {𝐾}) ∘f · 𝑌)) = (𝑆 × {0}))
11296, 109, 1113eqtr3d 2772 . . . . . . . . . . 11 (𝜑 → (((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) = (𝑆 × {0}))
113112oveq1d 7368 . . . . . . . . . 10 (𝜑 → ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))
114113eqeq2d 2740 . . . . . . . . 9 (𝜑 → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
115114adantr 480 . . . . . . . 8 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((((𝑆 × {𝐾}) ∘f · 𝑌) ∘f + ((𝑆 × {-𝐾}) ∘f · 𝑌)) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
11694, 115mpbid 232 . . . . . . 7 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))
117 0cnd 11127 . . . . . . . . 9 (𝜑 → 0 ∈ ℂ)
118 mul02 11313 . . . . . . . . . 10 (𝑥 ∈ ℂ → (0 · 𝑥) = 0)
119118adantl 481 . . . . . . . . 9 ((𝜑𝑥 ∈ ℂ) → (0 · 𝑥) = 0)
1201, 52, 117, 117, 119caofid2 7653 . . . . . . . 8 (𝜑 → ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {0}))
121120adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ((𝑆 × {0}) ∘f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {0}))
122116, 121eqtrd 2764 . . . . . 6 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (𝑆 × {0}))
1231adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → 𝑆 ∈ {ℝ, ℂ})
12483, 38, 52, 1, 1, 86off 7635 . . . . . . . 8 (𝜑 → (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))):𝑆⟶ℂ)
125124adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))):𝑆⟶ℂ)
126122dmeqd 5852 . . . . . . . 8 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → dom (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = dom (𝑆 × {0}))
127 0cn 11126 . . . . . . . . . 10 0 ∈ ℂ
128127fconst6 6718 . . . . . . . . 9 (𝑆 × {0}):𝑆⟶ℂ
129128fdmi 6667 . . . . . . . 8 dom (𝑆 × {0}) = 𝑆
130126, 129eqtrdi 2780 . . . . . . 7 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → dom (𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = 𝑆)
131123, 125, 130dvconstbi 44327 . . . . . 6 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ((𝑆 D (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))) = (𝑆 × {0}) ↔ ∃𝑥 ∈ ℂ (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥})))
132122, 131mpbid 232 . . . . 5 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ∃𝑥 ∈ ℂ (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}))
133 oveq1 7360 . . . . . . . . . 10 ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))))
134 efne0 16024 . . . . . . . . . . . . . . 15 (-(𝐾 · 𝑢) ∈ ℂ → (exp‘-(𝐾 · 𝑢)) ≠ 0)
135 eldifsn 4740 . . . . . . . . . . . . . . 15 ((exp‘-(𝐾 · 𝑢)) ∈ (ℂ ∖ {0}) ↔ ((exp‘-(𝐾 · 𝑢)) ∈ ℂ ∧ (exp‘-(𝐾 · 𝑢)) ≠ 0))
13639, 134, 135sylanbrc 583 . . . . . . . . . . . . . 14 (-(𝐾 · 𝑢) ∈ ℂ → (exp‘-(𝐾 · 𝑢)) ∈ (ℂ ∖ {0}))
13711, 136syl 17 . . . . . . . . . . . . 13 ((𝜑𝑢𝑆) → (exp‘-(𝐾 · 𝑢)) ∈ (ℂ ∖ {0}))
138137fmpttd 7053 . . . . . . . . . . . 12 (𝜑 → (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))):𝑆⟶(ℂ ∖ {0}))
139 ofdivcan4 44320 . . . . . . . . . . . 12 ((𝑆 ∈ {ℝ, ℂ} ∧ 𝑌:𝑆⟶ℂ ∧ (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))):𝑆⟶(ℂ ∖ {0})) → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = 𝑌)
1401, 38, 138, 139syl3anc 1373 . . . . . . . . . . 11 (𝜑 → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = 𝑌)
141140eqeq1d 2731 . . . . . . . . . 10 (𝜑 → (((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ 𝑌 = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
142133, 141imbitrid 244 . . . . . . . . 9 (𝜑 → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → 𝑌 = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
143142adantr 480 . . . . . . . 8 ((𝜑𝑥 ∈ ℂ) → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → 𝑌 = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))))))
144 vex 3442 . . . . . . . . . . . . 13 𝑥 ∈ V
145144a1i 11 . . . . . . . . . . . 12 ((𝜑𝑢𝑆) → 𝑥 ∈ V)
146 ovexd 7388 . . . . . . . . . . . 12 ((𝜑𝑢𝑆) → (1 / (exp‘(𝐾 · 𝑢))) ∈ V)
147 fconstmpt 5685 . . . . . . . . . . . . 13 (𝑆 × {𝑥}) = (𝑢𝑆𝑥)
148147a1i 11 . . . . . . . . . . . 12 (𝜑 → (𝑆 × {𝑥}) = (𝑢𝑆𝑥))
149 efneg 16026 . . . . . . . . . . . . . 14 ((𝐾 · 𝑢) ∈ ℂ → (exp‘-(𝐾 · 𝑢)) = (1 / (exp‘(𝐾 · 𝑢))))
15010, 149syl 17 . . . . . . . . . . . . 13 ((𝜑𝑢𝑆) → (exp‘-(𝐾 · 𝑢)) = (1 / (exp‘(𝐾 · 𝑢))))
151150mpteq2dva 5188 . . . . . . . . . . . 12 (𝜑 → (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢))) = (𝑢𝑆 ↦ (1 / (exp‘(𝐾 · 𝑢)))))
1521, 145, 146, 148, 151offval2 7637 . . . . . . . . . . 11 (𝜑 → ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ (𝑥 / (1 / (exp‘(𝐾 · 𝑢))))))
153152adantr 480 . . . . . . . . . 10 ((𝜑𝑥 ∈ ℂ) → ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ (𝑥 / (1 / (exp‘(𝐾 · 𝑢))))))
154 efcl 16008 . . . . . . . . . . . . . . . . 17 ((𝐾 · 𝑢) ∈ ℂ → (exp‘(𝐾 · 𝑢)) ∈ ℂ)
155 efne0 16024 . . . . . . . . . . . . . . . . 17 ((𝐾 · 𝑢) ∈ ℂ → (exp‘(𝐾 · 𝑢)) ≠ 0)
156154, 155jca 511 . . . . . . . . . . . . . . . 16 ((𝐾 · 𝑢) ∈ ℂ → ((exp‘(𝐾 · 𝑢)) ∈ ℂ ∧ (exp‘(𝐾 · 𝑢)) ≠ 0))
15710, 156syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑢𝑆) → ((exp‘(𝐾 · 𝑢)) ∈ ℂ ∧ (exp‘(𝐾 · 𝑢)) ≠ 0))
158 ax-1ne0 11097 . . . . . . . . . . . . . . . . 17 1 ≠ 0
15918, 158pm3.2i 470 . . . . . . . . . . . . . . . 16 (1 ∈ ℂ ∧ 1 ≠ 0)
160 divdiv2 11855 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ℂ ∧ (1 ∈ ℂ ∧ 1 ≠ 0) ∧ ((exp‘(𝐾 · 𝑢)) ∈ ℂ ∧ (exp‘(𝐾 · 𝑢)) ≠ 0)) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = ((𝑥 · (exp‘(𝐾 · 𝑢))) / 1))
161159, 160mp3an2 1451 . . . . . . . . . . . . . . 15 ((𝑥 ∈ ℂ ∧ ((exp‘(𝐾 · 𝑢)) ∈ ℂ ∧ (exp‘(𝐾 · 𝑢)) ≠ 0)) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = ((𝑥 · (exp‘(𝐾 · 𝑢))) / 1))
162157, 161sylan2 593 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℂ ∧ (𝜑𝑢𝑆)) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = ((𝑥 · (exp‘(𝐾 · 𝑢))) / 1))
16310, 154syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑢𝑆) → (exp‘(𝐾 · 𝑢)) ∈ ℂ)
164 mulcl 11112 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ℂ ∧ (exp‘(𝐾 · 𝑢)) ∈ ℂ) → (𝑥 · (exp‘(𝐾 · 𝑢))) ∈ ℂ)
165163, 164sylan2 593 . . . . . . . . . . . . . . 15 ((𝑥 ∈ ℂ ∧ (𝜑𝑢𝑆)) → (𝑥 · (exp‘(𝐾 · 𝑢))) ∈ ℂ)
166165div1d 11911 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℂ ∧ (𝜑𝑢𝑆)) → ((𝑥 · (exp‘(𝐾 · 𝑢))) / 1) = (𝑥 · (exp‘(𝐾 · 𝑢))))
167162, 166eqtrd 2764 . . . . . . . . . . . . 13 ((𝑥 ∈ ℂ ∧ (𝜑𝑢𝑆)) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = (𝑥 · (exp‘(𝐾 · 𝑢))))
168167ancoms 458 . . . . . . . . . . . 12 (((𝜑𝑢𝑆) ∧ 𝑥 ∈ ℂ) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = (𝑥 · (exp‘(𝐾 · 𝑢))))
169168an32s 652 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℂ) ∧ 𝑢𝑆) → (𝑥 / (1 / (exp‘(𝐾 · 𝑢)))) = (𝑥 · (exp‘(𝐾 · 𝑢))))
170169mpteq2dva 5188 . . . . . . . . . 10 ((𝜑𝑥 ∈ ℂ) → (𝑢𝑆 ↦ (𝑥 / (1 / (exp‘(𝐾 · 𝑢))))) = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))
171153, 170eqtrd 2764 . . . . . . . . 9 ((𝜑𝑥 ∈ ℂ) → ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))
172171eqeq2d 2740 . . . . . . . 8 ((𝜑𝑥 ∈ ℂ) → (𝑌 = ((𝑆 × {𝑥}) ∘f / (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) ↔ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
173143, 172sylibd 239 . . . . . . 7 ((𝜑𝑥 ∈ ℂ) → ((𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
174173reximdva 3142 . . . . . 6 (𝜑 → (∃𝑥 ∈ ℂ (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → ∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
175174adantr 480 . . . . 5 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → (∃𝑥 ∈ ℂ (𝑌f · (𝑢𝑆 ↦ (exp‘-(𝐾 · 𝑢)))) = (𝑆 × {𝑥}) → ∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
176132, 175mpd 15 . . . 4 ((𝜑 ∧ (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)) → ∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))
177176ex 412 . . 3 (𝜑 → ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) → ∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
1781adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))) → 𝑆 ∈ {ℝ, ℂ})
1794adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))) → 𝐾 ∈ ℂ)
180 simprl 770 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))) → 𝑥 ∈ ℂ)
181 eqid 2729 . . . . . . 7 (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))
182178, 179, 180, 181expgrowthi 44326 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))) → (𝑆 D (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) = ((𝑆 × {𝐾}) ∘f · (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
1831823impb 1114 . . . . 5 ((𝜑𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) → (𝑆 D (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) = ((𝑆 × {𝐾}) ∘f · (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
184 oveq2 7361 . . . . . . 7 (𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) → (𝑆 D 𝑌) = (𝑆 D (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
185 oveq2 7361 . . . . . . 7 (𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) → ((𝑆 × {𝐾}) ∘f · 𝑌) = ((𝑆 × {𝐾}) ∘f · (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
186184, 185eqeq12d 2745 . . . . . 6 (𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) → ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) ↔ (𝑆 D (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) = ((𝑆 × {𝐾}) ∘f · (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))))
1871863ad2ant3 1135 . . . . 5 ((𝜑𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) → ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) ↔ (𝑆 D (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) = ((𝑆 × {𝐾}) ∘f · (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))))))
188183, 187mpbird 257 . . . 4 ((𝜑𝑥 ∈ ℂ ∧ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))) → (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌))
189188rexlimdv3a 3134 . . 3 (𝜑 → (∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) → (𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌)))
190177, 189impbid 212 . 2 (𝜑 → ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) ↔ ∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢))))))
191 oveq2 7361 . . . . . . . 8 (𝑢 = 𝑡 → (𝐾 · 𝑢) = (𝐾 · 𝑡))
192191fveq2d 6830 . . . . . . 7 (𝑢 = 𝑡 → (exp‘(𝐾 · 𝑢)) = (exp‘(𝐾 · 𝑡)))
193192oveq2d 7369 . . . . . 6 (𝑢 = 𝑡 → (𝑥 · (exp‘(𝐾 · 𝑢))) = (𝑥 · (exp‘(𝐾 · 𝑡))))
194193cbvmptv 5199 . . . . 5 (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) = (𝑡𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑡))))
195 oveq1 7360 . . . . . 6 (𝑥 = 𝑐 → (𝑥 · (exp‘(𝐾 · 𝑡))) = (𝑐 · (exp‘(𝐾 · 𝑡))))
196195mpteq2dv 5189 . . . . 5 (𝑥 = 𝑐 → (𝑡𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑡)))) = (𝑡𝑆 ↦ (𝑐 · (exp‘(𝐾 · 𝑡)))))
197194, 196eqtrid 2776 . . . 4 (𝑥 = 𝑐 → (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) = (𝑡𝑆 ↦ (𝑐 · (exp‘(𝐾 · 𝑡)))))
198197eqeq2d 2740 . . 3 (𝑥 = 𝑐 → (𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) ↔ 𝑌 = (𝑡𝑆 ↦ (𝑐 · (exp‘(𝐾 · 𝑡))))))
199198cbvrexvw 3208 . 2 (∃𝑥 ∈ ℂ 𝑌 = (𝑢𝑆 ↦ (𝑥 · (exp‘(𝐾 · 𝑢)))) ↔ ∃𝑐 ∈ ℂ 𝑌 = (𝑡𝑆 ↦ (𝑐 · (exp‘(𝐾 · 𝑡)))))
200190, 199bitrdi 287 1 (𝜑 → ((𝑆 D 𝑌) = ((𝑆 × {𝐾}) ∘f · 𝑌) ↔ ∃𝑐 ∈ ℂ 𝑌 = (𝑡𝑆 ↦ (𝑐 · (exp‘(𝐾 · 𝑡))))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1086   = wceq 1540  wcel 2109  wne 2925  wrex 3053  Vcvv 3438  cdif 3902  wss 3905  {csn 4579  {cpr 4581  cmpt 5176   × cxp 5621  dom cdm 5623   Fn wfn 6481  wf 6482  cfv 6486  (class class class)co 7353  f cof 7615  cc 11026  cr 11027  0cc0 11028  1c1 11029   + caddc 11031   · cmul 11033  cmin 11366  -cneg 11367   / cdiv 11796  expce 15987   D cdv 25781
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7675  ax-inf2 9556  ax-cnex 11084  ax-resscn 11085  ax-1cn 11086  ax-icn 11087  ax-addcl 11088  ax-addrcl 11089  ax-mulcl 11090  ax-mulrcl 11091  ax-mulcom 11092  ax-addass 11093  ax-mulass 11094  ax-distr 11095  ax-i2m1 11096  ax-1ne0 11097  ax-1rid 11098  ax-rnegex 11099  ax-rrecex 11100  ax-cnre 11101  ax-pre-lttri 11102  ax-pre-lttrn 11103  ax-pre-ltadd 11104  ax-pre-mulgt0 11105  ax-pre-sup 11106  ax-addf 11107
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3345  df-reu 3346  df-rab 3397  df-v 3440  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-uni 4862  df-int 4900  df-iun 4946  df-iin 4947  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-se 5577  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-isom 6495  df-riota 7310  df-ov 7356  df-oprab 7357  df-mpo 7358  df-of 7617  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8101  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8632  df-map 8762  df-pm 8763  df-ixp 8832  df-en 8880  df-dom 8881  df-sdom 8882  df-fin 8883  df-fsupp 9271  df-fi 9320  df-sup 9351  df-inf 9352  df-oi 9421  df-card 9854  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11368  df-neg 11369  df-div 11797  df-nn 12148  df-2 12210  df-3 12211  df-4 12212  df-5 12213  df-6 12214  df-7 12215  df-8 12216  df-9 12217  df-n0 12404  df-z 12491  df-dec 12611  df-uz 12755  df-q 12869  df-rp 12913  df-xneg 13033  df-xadd 13034  df-xmul 13035  df-ioo 13271  df-ico 13273  df-icc 13274  df-fz 13430  df-fzo 13577  df-fl 13715  df-seq 13928  df-exp 13988  df-fac 14200  df-bc 14229  df-hash 14257  df-shft 14993  df-cj 15025  df-re 15026  df-im 15027  df-sqrt 15161  df-abs 15162  df-limsup 15397  df-clim 15414  df-rlim 15415  df-sum 15613  df-ef 15993  df-struct 17077  df-sets 17094  df-slot 17112  df-ndx 17124  df-base 17140  df-ress 17161  df-plusg 17193  df-mulr 17194  df-starv 17195  df-sca 17196  df-vsca 17197  df-ip 17198  df-tset 17199  df-ple 17200  df-ds 17202  df-unif 17203  df-hom 17204  df-cco 17205  df-rest 17345  df-topn 17346  df-0g 17364  df-gsum 17365  df-topgen 17366  df-pt 17367  df-prds 17370  df-xrs 17425  df-qtop 17430  df-imas 17431  df-xps 17433  df-mre 17507  df-mrc 17508  df-acs 17510  df-mgm 18533  df-sgrp 18612  df-mnd 18628  df-submnd 18677  df-mulg 18966  df-cntz 19215  df-cmn 19680  df-psmet 21272  df-xmet 21273  df-met 21274  df-bl 21275  df-mopn 21276  df-fbas 21277  df-fg 21278  df-cnfld 21281  df-top 22798  df-topon 22815  df-topsp 22837  df-bases 22850  df-cld 22923  df-ntr 22924  df-cls 22925  df-nei 23002  df-lp 23040  df-perf 23041  df-cn 23131  df-cnp 23132  df-haus 23219  df-cmp 23291  df-tx 23466  df-hmeo 23659  df-fil 23750  df-fm 23842  df-flim 23843  df-flf 23844  df-xms 24225  df-ms 24226  df-tms 24227  df-cncf 24788  df-limc 25784  df-dv 25785
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator