Theorem efaddlem 16164

Description: Lemma for efadd 16165 (exponential function addition law). (Contributed by Mario Carneiro, 29-Apr-2014.)

Hypotheses

Ref	Expression
efadd.1	⊢ 𝐹 = (𝑛 ∈ ℕ0 ↦ ((𝐴↑𝑛) / (!‘𝑛)))
efadd.2	⊢ 𝐺 = (𝑛 ∈ ℕ0 ↦ ((𝐵↑𝑛) / (!‘𝑛)))
efadd.3	⊢ 𝐻 = (𝑛 ∈ ℕ0 ↦ (((𝐴 + 𝐵)↑𝑛) / (!‘𝑛)))
efadd.4	⊢ (𝜑 → 𝐴 ∈ ℂ)
efadd.5	⊢ (𝜑 → 𝐵 ∈ ℂ)

Assertion

Ref	Expression
efaddlem	⊢ (𝜑 → (exp‘(𝐴 + 𝐵)) = ((exp‘𝐴) · (exp‘𝐵)))

Distinct variable groups:   𝐴,𝑛   𝐵,𝑛

Allowed substitution hints:   𝜑(𝑛)   𝐹(𝑛)   𝐺(𝑛)   𝐻(𝑛)

Proof of Theorem efaddlem

Dummy variables 𝑗 𝑘 𝑚 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		efadd.4	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℂ)
2		efadd.5	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℂ)
3	1, 2	addcld 11239	. . 3 ⊢ (𝜑 → (𝐴 + 𝐵) ∈ ℂ)
4		efadd.3	. . . 4 ⊢ 𝐻 = (𝑛 ∈ ℕ0 ↦ (((𝐴 + 𝐵)↑𝑛) / (!‘𝑛)))
5	4	efcvg 16156	. . 3 ⊢ ((𝐴 + 𝐵) ∈ ℂ → seq0( + , 𝐻) ⇝ (exp‘(𝐴 + 𝐵)))
6	3, 5	syl 18	. 2 ⊢ (𝜑 → seq0( + , 𝐻) ⇝ (exp‘(𝐴 + 𝐵)))
7		efadd.1	. . . . . 6 ⊢ 𝐹 = (𝑛 ∈ ℕ0 ↦ ((𝐴↑𝑛) / (!‘𝑛)))
8	7	eftval 16147	. . . . 5 ⊢ (𝑗 ∈ ℕ0 → (𝐹‘𝑗) = ((𝐴↑𝑗) / (!‘𝑗)))
9	8	adantl 487	. . . 4 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝐹‘𝑗) = ((𝐴↑𝑗) / (!‘𝑗)))
10		absexp 15374	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝑗 ∈ ℕ0) → (abs‘(𝐴↑𝑗)) = ((abs‘𝐴)↑𝑗))
11	1, 10	sylan 592	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (abs‘(𝐴↑𝑗)) = ((abs‘𝐴)↑𝑗))
12		faccl 14332	. . . . . . . 8 ⊢ (𝑗 ∈ ℕ0 → (!‘𝑗) ∈ ℕ)
13	12	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (!‘𝑗) ∈ ℕ)
14		nnre 12251	. . . . . . . 8 ⊢ ((!‘𝑗) ∈ ℕ → (!‘𝑗) ∈ ℝ)
15		nnnn0 12522	. . . . . . . . 9 ⊢ ((!‘𝑗) ∈ ℕ → (!‘𝑗) ∈ ℕ0)
16	15	nn0ge0d 12579	. . . . . . . 8 ⊢ ((!‘𝑗) ∈ ℕ → 0 ≤ (!‘𝑗))
17	14, 16	absidd 15493	. . . . . . 7 ⊢ ((!‘𝑗) ∈ ℕ → (abs‘(!‘𝑗)) = (!‘𝑗))
18	13, 17	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (abs‘(!‘𝑗)) = (!‘𝑗))
19	11, 18	oveq12d 7434	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((abs‘(𝐴↑𝑗)) / (abs‘(!‘𝑗))) = (((abs‘𝐴)↑𝑗) / (!‘𝑗)))
20		expcl 14128	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝑗 ∈ ℕ0) → (𝐴↑𝑗) ∈ ℂ)
21	1, 20	sylan 592	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝐴↑𝑗) ∈ ℂ)
22	13	nncnd 12260	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (!‘𝑗) ∈ ℂ)
23	13	nnne0d 12297	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (!‘𝑗) ≠ 0)
24	21, 22, 23	absdivd 15528	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (abs‘((𝐴↑𝑗) / (!‘𝑗))) = ((abs‘(𝐴↑𝑗)) / (abs‘(!‘𝑗))))
25		eqid 2765	. . . . . . 7 ⊢ (𝑛 ∈ ℕ0 ↦ (((abs‘𝐴)↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ0 ↦ (((abs‘𝐴)↑𝑛) / (!‘𝑛)))
26	25	eftval 16147	. . . . . 6 ⊢ (𝑗 ∈ ℕ0 → ((𝑛 ∈ ℕ0 ↦ (((abs‘𝐴)↑𝑛) / (!‘𝑛)))‘𝑗) = (((abs‘𝐴)↑𝑗) / (!‘𝑗)))
27	26	adantl 487	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ (((abs‘𝐴)↑𝑛) / (!‘𝑛)))‘𝑗) = (((abs‘𝐴)↑𝑗) / (!‘𝑗)))
28	19, 24, 27	3eqtr4rd 2811	. . . 4 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ (((abs‘𝐴)↑𝑛) / (!‘𝑛)))‘𝑗) = (abs‘((𝐴↑𝑗) / (!‘𝑗))))
29		eftcl 16144	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ 𝑗 ∈ ℕ0) → ((𝐴↑𝑗) / (!‘𝑗)) ∈ ℂ)
30	1, 29	sylan 592	. . . 4 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((𝐴↑𝑗) / (!‘𝑗)) ∈ ℂ)
31		efadd.2	. . . . . 6 ⊢ 𝐺 = (𝑛 ∈ ℕ0 ↦ ((𝐵↑𝑛) / (!‘𝑛)))
32	31	eftval 16147	. . . . 5 ⊢ (𝑘 ∈ ℕ0 → (𝐺‘𝑘) = ((𝐵↑𝑘) / (!‘𝑘)))
33	32	adantl 487	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐺‘𝑘) = ((𝐵↑𝑘) / (!‘𝑘)))
34		eftcl 16144	. . . . 5 ⊢ ((𝐵 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → ((𝐵↑𝑘) / (!‘𝑘)) ∈ ℂ)
35	2, 34	sylan 592	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → ((𝐵↑𝑘) / (!‘𝑘)) ∈ ℂ)
36	4	eftval 16147	. . . . . 6 ⊢ (𝑘 ∈ ℕ0 → (𝐻‘𝑘) = (((𝐴 + 𝐵)↑𝑘) / (!‘𝑘)))
37	36	adantl 487	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐻‘𝑘) = (((𝐴 + 𝐵)↑𝑘) / (!‘𝑘)))
38	1	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝐴 ∈ ℂ)
39	2	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝐵 ∈ ℂ)
40		simpr 490	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝑘 ∈ ℕ0)
41		binom 15902	. . . . . . . 8 ⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → ((𝐴 + 𝐵)↑𝑘) = Σ𝑗 ∈ (0...𝑘)((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))))
42	38, 39, 40, 41	syl3anc 1398	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → ((𝐴 + 𝐵)↑𝑘) = Σ𝑗 ∈ (0...𝑘)((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))))
43	42	oveq1d 7431	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (((𝐴 + 𝐵)↑𝑘) / (!‘𝑘)) = (Σ𝑗 ∈ (0...𝑘)((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) / (!‘𝑘)))
44		fzfid 14022	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (0...𝑘) ∈ Fin)
45		faccl 14332	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ∈ ℕ)
46	45	adantl 487	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ∈ ℕ)
47	46	nncnd 12260	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ∈ ℂ)
48		bccl2 14372	. . . . . . . . . . 11 ⊢ (𝑗 ∈ (0...𝑘) → (𝑘C𝑗) ∈ ℕ)
49	48	adantl 487	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝑘C𝑗) ∈ ℕ)
50	49	nncnd 12260	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝑘C𝑗) ∈ ℂ)
51	1	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → 𝐴 ∈ ℂ)
52		fznn0sub 13596	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ (0...𝑘) → (𝑘 − 𝑗) ∈ ℕ0)
53	52	adantl 487	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝑘 − 𝑗) ∈ ℕ0)
54	51, 53	expcld 14195	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝐴↑(𝑘 − 𝑗)) ∈ ℂ)
55	2	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → 𝐵 ∈ ℂ)
56		elfznn0 13660	. . . . . . . . . . . 12 ⊢ (𝑗 ∈ (0...𝑘) → 𝑗 ∈ ℕ0)
57	56	adantl 487	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → 𝑗 ∈ ℕ0)
58	55, 57	expcld 14195	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝐵↑𝑗) ∈ ℂ)
59	54, 58	mulcld 11240	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗)) ∈ ℂ)
60	50, 59	mulcld 11240	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) ∈ ℂ)
61	46	nnne0d 12297	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ≠ 0)
62	44, 47, 60, 61	fsumdivc 15855	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (Σ𝑗 ∈ (0...𝑘)((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) / (!‘𝑘)) = Σ𝑗 ∈ (0...𝑘)(((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) / (!‘𝑘)))
63	51, 57	expcld 14195	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝐴↑𝑗) ∈ ℂ)
64	57, 12	syl 18	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (!‘𝑗) ∈ ℕ)
65	64	nncnd 12260	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (!‘𝑗) ∈ ℂ)
66	64	nnne0d 12297	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (!‘𝑗) ≠ 0)
67	63, 65, 66	divcld 12002	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((𝐴↑𝑗) / (!‘𝑗)) ∈ ℂ)
68	31	eftval 16147	. . . . . . . . . . . 12 ⊢ ((𝑘 − 𝑗) ∈ ℕ0 → (𝐺‘(𝑘 − 𝑗)) = ((𝐵↑(𝑘 − 𝑗)) / (!‘(𝑘 − 𝑗))))
69	53, 68	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝐺‘(𝑘 − 𝑗)) = ((𝐵↑(𝑘 − 𝑗)) / (!‘(𝑘 − 𝑗))))
70	55, 53	expcld 14195	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝐵↑(𝑘 − 𝑗)) ∈ ℂ)
71		faccl 14332	. . . . . . . . . . . . . 14 ⊢ ((𝑘 − 𝑗) ∈ ℕ0 → (!‘(𝑘 − 𝑗)) ∈ ℕ)
72	53, 71	syl 18	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (!‘(𝑘 − 𝑗)) ∈ ℕ)
73	72	nncnd 12260	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (!‘(𝑘 − 𝑗)) ∈ ℂ)
74	72	nnne0d 12297	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (!‘(𝑘 − 𝑗)) ≠ 0)
75	70, 73, 74	divcld 12002	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((𝐵↑(𝑘 − 𝑗)) / (!‘(𝑘 − 𝑗))) ∈ ℂ)
76	69, 75	eqeltrd 2865	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝐺‘(𝑘 − 𝑗)) ∈ ℂ)
77	67, 76	mulcld 11240	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((𝐴↑𝑗) / (!‘𝑗)) · (𝐺‘(𝑘 − 𝑗))) ∈ ℂ)
78		oveq2 7424	. . . . . . . . . . 11 ⊢ (𝑗 = ((0 + 𝑘) − 𝑚) → (𝐴↑𝑗) = (𝐴↑((0 + 𝑘) − 𝑚)))
79		fveq2 6885	. . . . . . . . . . 11 ⊢ (𝑗 = ((0 + 𝑘) − 𝑚) → (!‘𝑗) = (!‘((0 + 𝑘) − 𝑚)))
80	78, 79	oveq12d 7434	. . . . . . . . . 10 ⊢ (𝑗 = ((0 + 𝑘) − 𝑚) → ((𝐴↑𝑗) / (!‘𝑗)) = ((𝐴↑((0 + 𝑘) − 𝑚)) / (!‘((0 + 𝑘) − 𝑚))))
81		oveq2 7424	. . . . . . . . . . 11 ⊢ (𝑗 = ((0 + 𝑘) − 𝑚) → (𝑘 − 𝑗) = (𝑘 − ((0 + 𝑘) − 𝑚)))
82	81	fveq2d 6889	. . . . . . . . . 10 ⊢ (𝑗 = ((0 + 𝑘) − 𝑚) → (𝐺‘(𝑘 − 𝑗)) = (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑚))))
83	80, 82	oveq12d 7434	. . . . . . . . 9 ⊢ (𝑗 = ((0 + 𝑘) − 𝑚) → (((𝐴↑𝑗) / (!‘𝑗)) · (𝐺‘(𝑘 − 𝑗))) = (((𝐴↑((0 + 𝑘) − 𝑚)) / (!‘((0 + 𝑘) − 𝑚))) · (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑚)))))
84	77, 83	fsumrev2 15851	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → Σ𝑗 ∈ (0...𝑘)(((𝐴↑𝑗) / (!‘𝑗)) · (𝐺‘(𝑘 − 𝑗))) = Σ𝑚 ∈ (0...𝑘)(((𝐴↑((0 + 𝑘) − 𝑚)) / (!‘((0 + 𝑘) − 𝑚))) · (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑚)))))
85	31	eftval 16147	. . . . . . . . . . . . . 14 ⊢ (𝑗 ∈ ℕ0 → (𝐺‘𝑗) = ((𝐵↑𝑗) / (!‘𝑗)))
86	57, 85	syl 18	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝐺‘𝑗) = ((𝐵↑𝑗) / (!‘𝑗)))
87	86	oveq2d 7432	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((𝐴↑(𝑘 − 𝑗)) / (!‘(𝑘 − 𝑗))) · (𝐺‘𝑗)) = (((𝐴↑(𝑘 − 𝑗)) / (!‘(𝑘 − 𝑗))) · ((𝐵↑𝑗) / (!‘𝑗))))
88	72, 64	nnmulcld 12300	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((!‘(𝑘 − 𝑗)) · (!‘𝑗)) ∈ ℕ)
89	88	nncnd 12260	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((!‘(𝑘 − 𝑗)) · (!‘𝑗)) ∈ ℂ)
90	88	nnne0d 12297	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((!‘(𝑘 − 𝑗)) · (!‘𝑗)) ≠ 0)
91	59, 89, 90	divrec2d 12006	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗)) / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))) = ((1 / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))))
92	54, 73, 58, 65, 74, 66	divmuldivd 12043	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((𝐴↑(𝑘 − 𝑗)) / (!‘(𝑘 − 𝑗))) · ((𝐵↑𝑗) / (!‘𝑗))) = (((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗)) / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))))
93		bcval2 14354	. . . . . . . . . . . . . . . . 17 ⊢ (𝑗 ∈ (0...𝑘) → (𝑘C𝑗) = ((!‘𝑘) / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))))
94	93	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝑘C𝑗) = ((!‘𝑘) / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))))
95	94	oveq1d 7431	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((𝑘C𝑗) / (!‘𝑘)) = (((!‘𝑘) / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))) / (!‘𝑘)))
96	47	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (!‘𝑘) ∈ ℂ)
97	61	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (!‘𝑘) ≠ 0)
98	96, 89, 96, 90, 97	divdiv32d 12027	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((!‘𝑘) / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))) / (!‘𝑘)) = (((!‘𝑘) / (!‘𝑘)) / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))))
99	96, 97	dividd 12000	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((!‘𝑘) / (!‘𝑘)) = 1)
100	99	oveq1d 7431	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((!‘𝑘) / (!‘𝑘)) / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))) = (1 / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))))
101	98, 100	eqtrd 2800	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((!‘𝑘) / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))) / (!‘𝑘)) = (1 / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))))
102	95, 101	eqtrd 2800	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((𝑘C𝑗) / (!‘𝑘)) = (1 / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))))
103	102	oveq1d 7431	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((𝑘C𝑗) / (!‘𝑘)) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) = ((1 / ((!‘(𝑘 − 𝑗)) · (!‘𝑗))) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))))
104	91, 92, 103	3eqtr4rd 2811	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((𝑘C𝑗) / (!‘𝑘)) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) = (((𝐴↑(𝑘 − 𝑗)) / (!‘(𝑘 − 𝑗))) · ((𝐵↑𝑗) / (!‘𝑗))))
105	87, 104	eqtr4d 2803	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((𝐴↑(𝑘 − 𝑗)) / (!‘(𝑘 − 𝑗))) · (𝐺‘𝑗)) = (((𝑘C𝑗) / (!‘𝑘)) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))))
106		nn0cn 12525	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ0 → 𝑘 ∈ ℂ)
107	106	ad2antlr 740	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → 𝑘 ∈ ℂ)
108	107	addlidd 11422	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (0 + 𝑘) = 𝑘)
109	108	oveq1d 7431	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((0 + 𝑘) − 𝑗) = (𝑘 − 𝑗))
110	109	oveq2d 7432	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝐴↑((0 + 𝑘) − 𝑗)) = (𝐴↑(𝑘 − 𝑗)))
111	109	fveq2d 6889	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (!‘((0 + 𝑘) − 𝑗)) = (!‘(𝑘 − 𝑗)))
112	110, 111	oveq12d 7434	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → ((𝐴↑((0 + 𝑘) − 𝑗)) / (!‘((0 + 𝑘) − 𝑗))) = ((𝐴↑(𝑘 − 𝑗)) / (!‘(𝑘 − 𝑗))))
113	109	oveq2d 7432	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝑘 − ((0 + 𝑘) − 𝑗)) = (𝑘 − (𝑘 − 𝑗)))
114		nn0cn 12525	. . . . . . . . . . . . . . . 16 ⊢ (𝑗 ∈ ℕ0 → 𝑗 ∈ ℂ)
115	57, 114	syl 18	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → 𝑗 ∈ ℂ)
116	107, 115	nncand 11585	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝑘 − (𝑘 − 𝑗)) = 𝑗)
117	113, 116	eqtrd 2800	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝑘 − ((0 + 𝑘) − 𝑗)) = 𝑗)
118	117	fveq2d 6889	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑗))) = (𝐺‘𝑗))
119	112, 118	oveq12d 7434	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((𝐴↑((0 + 𝑘) − 𝑗)) / (!‘((0 + 𝑘) − 𝑗))) · (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑗)))) = (((𝐴↑(𝑘 − 𝑗)) / (!‘(𝑘 − 𝑗))) · (𝐺‘𝑗)))
120	50, 59, 96, 97	div23d 12039	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) / (!‘𝑘)) = (((𝑘C𝑗) / (!‘𝑘)) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))))
121	105, 119, 120	3eqtr4rd 2811	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ ℕ0) ∧ 𝑗 ∈ (0...𝑘)) → (((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) / (!‘𝑘)) = (((𝐴↑((0 + 𝑘) − 𝑗)) / (!‘((0 + 𝑘) − 𝑗))) · (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑗)))))
122	121	sumeq2dv 15772	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → Σ𝑗 ∈ (0...𝑘)(((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) / (!‘𝑘)) = Σ𝑗 ∈ (0...𝑘)(((𝐴↑((0 + 𝑘) − 𝑗)) / (!‘((0 + 𝑘) − 𝑗))) · (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑗)))))
123		oveq2 7424	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑚 → ((0 + 𝑘) − 𝑗) = ((0 + 𝑘) − 𝑚))
124	123	oveq2d 7432	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑚 → (𝐴↑((0 + 𝑘) − 𝑗)) = (𝐴↑((0 + 𝑘) − 𝑚)))
125	123	fveq2d 6889	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑚 → (!‘((0 + 𝑘) − 𝑗)) = (!‘((0 + 𝑘) − 𝑚)))
126	124, 125	oveq12d 7434	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑚 → ((𝐴↑((0 + 𝑘) − 𝑗)) / (!‘((0 + 𝑘) − 𝑗))) = ((𝐴↑((0 + 𝑘) − 𝑚)) / (!‘((0 + 𝑘) − 𝑚))))
127	123	oveq2d 7432	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑚 → (𝑘 − ((0 + 𝑘) − 𝑗)) = (𝑘 − ((0 + 𝑘) − 𝑚)))
128	127	fveq2d 6889	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑚 → (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑗))) = (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑚))))
129	126, 128	oveq12d 7434	. . . . . . . . . 10 ⊢ (𝑗 = 𝑚 → (((𝐴↑((0 + 𝑘) − 𝑗)) / (!‘((0 + 𝑘) − 𝑗))) · (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑗)))) = (((𝐴↑((0 + 𝑘) − 𝑚)) / (!‘((0 + 𝑘) − 𝑚))) · (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑚)))))
130	129	cbvsumv 15766	. . . . . . . . 9 ⊢ Σ𝑗 ∈ (0...𝑘)(((𝐴↑((0 + 𝑘) − 𝑗)) / (!‘((0 + 𝑘) − 𝑗))) · (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑗)))) = Σ𝑚 ∈ (0...𝑘)(((𝐴↑((0 + 𝑘) − 𝑚)) / (!‘((0 + 𝑘) − 𝑚))) · (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑚))))
131	122, 130	eqtrdi 2816	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → Σ𝑗 ∈ (0...𝑘)(((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) / (!‘𝑘)) = Σ𝑚 ∈ (0...𝑘)(((𝐴↑((0 + 𝑘) − 𝑚)) / (!‘((0 + 𝑘) − 𝑚))) · (𝐺‘(𝑘 − ((0 + 𝑘) − 𝑚)))))
132	84, 131	eqtr4d 2803	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → Σ𝑗 ∈ (0...𝑘)(((𝐴↑𝑗) / (!‘𝑗)) · (𝐺‘(𝑘 − 𝑗))) = Σ𝑗 ∈ (0...𝑘)(((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) / (!‘𝑘)))
133	62, 132	eqtr4d 2803	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (Σ𝑗 ∈ (0...𝑘)((𝑘C𝑗) · ((𝐴↑(𝑘 − 𝑗)) · (𝐵↑𝑗))) / (!‘𝑘)) = Σ𝑗 ∈ (0...𝑘)(((𝐴↑𝑗) / (!‘𝑗)) · (𝐺‘(𝑘 − 𝑗))))
134	43, 133	eqtrd 2800	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (((𝐴 + 𝐵)↑𝑘) / (!‘𝑘)) = Σ𝑗 ∈ (0...𝑘)(((𝐴↑𝑗) / (!‘𝑗)) · (𝐺‘(𝑘 − 𝑗))))
135	37, 134	eqtrd 2800	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐻‘𝑘) = Σ𝑗 ∈ (0...𝑘)(((𝐴↑𝑗) / (!‘𝑗)) · (𝐺‘(𝑘 − 𝑗))))
136	1	abscld 15509	. . . . . 6 ⊢ (𝜑 → (abs‘𝐴) ∈ ℝ)
137	136	recnd 11248	. . . . 5 ⊢ (𝜑 → (abs‘𝐴) ∈ ℂ)
138	25	efcllem 16148	. . . . 5 ⊢ ((abs‘𝐴) ∈ ℂ → seq0( + , (𝑛 ∈ ℕ0 ↦ (((abs‘𝐴)↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
139	137, 138	syl 18	. . . 4 ⊢ (𝜑 → seq0( + , (𝑛 ∈ ℕ0 ↦ (((abs‘𝐴)↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
140	31	efcllem 16148	. . . . 5 ⊢ (𝐵 ∈ ℂ → seq0( + , 𝐺) ∈ dom ⇝ )
141	2, 140	syl 18	. . . 4 ⊢ (𝜑 → seq0( + , 𝐺) ∈ dom ⇝ )
142	9, 28, 30, 33, 35, 135, 139, 141	mertens 15958	. . 3 ⊢ (𝜑 → seq0( + , 𝐻) ⇝ (Σ𝑗 ∈ ℕ0 ((𝐴↑𝑗) / (!‘𝑗)) · Σ𝑘 ∈ ℕ0 ((𝐵↑𝑘) / (!‘𝑘))))
143		efval 16150	. . . . 5 ⊢ (𝐴 ∈ ℂ → (exp‘𝐴) = Σ𝑗 ∈ ℕ0 ((𝐴↑𝑗) / (!‘𝑗)))
144	1, 143	syl 18	. . . 4 ⊢ (𝜑 → (exp‘𝐴) = Σ𝑗 ∈ ℕ0 ((𝐴↑𝑗) / (!‘𝑗)))
145		efval 16150	. . . . 5 ⊢ (𝐵 ∈ ℂ → (exp‘𝐵) = Σ𝑘 ∈ ℕ0 ((𝐵↑𝑘) / (!‘𝑘)))
146	2, 145	syl 18	. . . 4 ⊢ (𝜑 → (exp‘𝐵) = Σ𝑘 ∈ ℕ0 ((𝐵↑𝑘) / (!‘𝑘)))
147	144, 146	oveq12d 7434	. . 3 ⊢ (𝜑 → ((exp‘𝐴) · (exp‘𝐵)) = (Σ𝑗 ∈ ℕ0 ((𝐴↑𝑗) / (!‘𝑗)) · Σ𝑘 ∈ ℕ0 ((𝐵↑𝑘) / (!‘𝑘))))
148	142, 147	breqtrrd 5141	. 2 ⊢ (𝜑 → seq0( + , 𝐻) ⇝ ((exp‘𝐴) · (exp‘𝐵)))
149		climuni 15622	. 2 ⊢ ((seq0( + , 𝐻) ⇝ (exp‘(𝐴 + 𝐵)) ∧ seq0( + , 𝐻) ⇝ ((exp‘𝐴) · (exp‘𝐵))) → (exp‘(𝐴 + 𝐵)) = ((exp‘𝐴) · (exp‘𝐵)))
150	6, 148, 149	syl2anc 596	1 ⊢ (𝜑 → (exp‘(𝐴 + 𝐵)) = ((exp‘𝐴) · (exp‘𝐵)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2146   ≠ wne 2960   class class class wbr 5111   ↦ cmpt 5194  dom cdm 5663  ‘cfv 6540  (class class class)co 7416  ℂcc 11109  0cc0 11111  1c1 11112   + caddc 11114   · cmul 11116   − cmin 11452   / cdiv 11882  ℕcn 12244  ℕ₀cn0 12515  ...cfz 13546  seqcseq 14050  ↑cexp 14110  !cfa 14322  Ccbc 14351  abscabs 15304   ⇝ cli 15554  Σcsu 15756  expce 16132

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

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-op 4598  df-uni 4875  df-int 4915  df-iun 4960  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-om 7865  df-1st 7988  df-2nd 7989  df-frecs 8280  df-wrecs 8311  df-recs 8360  df-rdg 8399  df-1o 8455  df-er 8696  df-pm 8829  df-en 8946  df-dom 8947  df-sdom 8948  df-fin 8949  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-n0 12516  df-z 12603  df-uz 12874  df-rp 13028  df-ico 13389  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

This theorem is used by:  efadd  16165