Theorem fprodabs 15947

Description: The absolute value of a finite product. (Contributed by Scott Fenton, 25-Dec-2017.)

Hypotheses

Ref	Expression
fprodabs.1	⊢ 𝑍 = (ℤ≥‘𝑀)
fprodabs.2	⊢ (𝜑 → 𝑁 ∈ 𝑍)
fprodabs.3	⊢ ((𝜑 ∧ 𝑘 ∈ 𝑍) → 𝐴 ∈ ℂ)

Assertion

Ref	Expression
fprodabs	⊢ (𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑁)𝐴) = ∏𝑘 ∈ (𝑀...𝑁)(abs‘𝐴))

Distinct variable groups:   𝑘,𝑀   𝑘,𝑁   𝑘,𝑍   𝜑,𝑘

Allowed substitution hint:   𝐴(𝑘)

Proof of Theorem fprodabs

Dummy variables 𝑎 𝑛 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fprodabs.2	. . 3 ⊢ (𝜑 → 𝑁 ∈ 𝑍)
2		fprodabs.1	. . 3 ⊢ 𝑍 = (ℤ≥‘𝑀)
3	1, 2	eleqtrdi 2839	. 2 ⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘𝑀))
4		oveq2 7398	. . . . . . 7 ⊢ (𝑎 = 𝑀 → (𝑀...𝑎) = (𝑀...𝑀))
5	4	prodeq1d 15893	. . . . . 6 ⊢ (𝑎 = 𝑀 → ∏𝑘 ∈ (𝑀...𝑎)𝐴 = ∏𝑘 ∈ (𝑀...𝑀)𝐴)
6	5	fveq2d 6865	. . . . 5 ⊢ (𝑎 = 𝑀 → (abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = (abs‘∏𝑘 ∈ (𝑀...𝑀)𝐴))
7	4	prodeq1d 15893	. . . . 5 ⊢ (𝑎 = 𝑀 → ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴) = ∏𝑘 ∈ (𝑀...𝑀)(abs‘𝐴))
8	6, 7	eqeq12d 2746	. . . 4 ⊢ (𝑎 = 𝑀 → ((abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴) ↔ (abs‘∏𝑘 ∈ (𝑀...𝑀)𝐴) = ∏𝑘 ∈ (𝑀...𝑀)(abs‘𝐴)))
9	8	imbi2d 340	. . 3 ⊢ (𝑎 = 𝑀 → ((𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴)) ↔ (𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑀)𝐴) = ∏𝑘 ∈ (𝑀...𝑀)(abs‘𝐴))))
10		oveq2 7398	. . . . . . 7 ⊢ (𝑎 = 𝑛 → (𝑀...𝑎) = (𝑀...𝑛))
11	10	prodeq1d 15893	. . . . . 6 ⊢ (𝑎 = 𝑛 → ∏𝑘 ∈ (𝑀...𝑎)𝐴 = ∏𝑘 ∈ (𝑀...𝑛)𝐴)
12	11	fveq2d 6865	. . . . 5 ⊢ (𝑎 = 𝑛 → (abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴))
13	10	prodeq1d 15893	. . . . 5 ⊢ (𝑎 = 𝑛 → ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴))
14	12, 13	eqeq12d 2746	. . . 4 ⊢ (𝑎 = 𝑛 → ((abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴) ↔ (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴)))
15	14	imbi2d 340	. . 3 ⊢ (𝑎 = 𝑛 → ((𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴)) ↔ (𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴))))
16		oveq2 7398	. . . . . . 7 ⊢ (𝑎 = (𝑛 + 1) → (𝑀...𝑎) = (𝑀...(𝑛 + 1)))
17	16	prodeq1d 15893	. . . . . 6 ⊢ (𝑎 = (𝑛 + 1) → ∏𝑘 ∈ (𝑀...𝑎)𝐴 = ∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴)
18	17	fveq2d 6865	. . . . 5 ⊢ (𝑎 = (𝑛 + 1) → (abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = (abs‘∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴))
19	16	prodeq1d 15893	. . . . 5 ⊢ (𝑎 = (𝑛 + 1) → ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴) = ∏𝑘 ∈ (𝑀...(𝑛 + 1))(abs‘𝐴))
20	18, 19	eqeq12d 2746	. . . 4 ⊢ (𝑎 = (𝑛 + 1) → ((abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴) ↔ (abs‘∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴) = ∏𝑘 ∈ (𝑀...(𝑛 + 1))(abs‘𝐴)))
21	20	imbi2d 340	. . 3 ⊢ (𝑎 = (𝑛 + 1) → ((𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴)) ↔ (𝜑 → (abs‘∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴) = ∏𝑘 ∈ (𝑀...(𝑛 + 1))(abs‘𝐴))))
22		oveq2 7398	. . . . . . 7 ⊢ (𝑎 = 𝑁 → (𝑀...𝑎) = (𝑀...𝑁))
23	22	prodeq1d 15893	. . . . . 6 ⊢ (𝑎 = 𝑁 → ∏𝑘 ∈ (𝑀...𝑎)𝐴 = ∏𝑘 ∈ (𝑀...𝑁)𝐴)
24	23	fveq2d 6865	. . . . 5 ⊢ (𝑎 = 𝑁 → (abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = (abs‘∏𝑘 ∈ (𝑀...𝑁)𝐴))
25	22	prodeq1d 15893	. . . . 5 ⊢ (𝑎 = 𝑁 → ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴) = ∏𝑘 ∈ (𝑀...𝑁)(abs‘𝐴))
26	24, 25	eqeq12d 2746	. . . 4 ⊢ (𝑎 = 𝑁 → ((abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴) ↔ (abs‘∏𝑘 ∈ (𝑀...𝑁)𝐴) = ∏𝑘 ∈ (𝑀...𝑁)(abs‘𝐴)))
27	26	imbi2d 340	. . 3 ⊢ (𝑎 = 𝑁 → ((𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑎)𝐴) = ∏𝑘 ∈ (𝑀...𝑎)(abs‘𝐴)) ↔ (𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑁)𝐴) = ∏𝑘 ∈ (𝑀...𝑁)(abs‘𝐴))))
28		csbfv2g 6910	. . . . . 6 ⊢ (𝑀 ∈ ℤ → ⦋𝑀 / 𝑘⦌(abs‘𝐴) = (abs‘⦋𝑀 / 𝑘⦌𝐴))
29	28	adantl 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → ⦋𝑀 / 𝑘⦌(abs‘𝐴) = (abs‘⦋𝑀 / 𝑘⦌𝐴))
30		fzsn 13534	. . . . . . . 8 ⊢ (𝑀 ∈ ℤ → (𝑀...𝑀) = {𝑀})
31	30	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → (𝑀...𝑀) = {𝑀})
32	31	prodeq1d 15893	. . . . . 6 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → ∏𝑘 ∈ (𝑀...𝑀)(abs‘𝐴) = ∏𝑘 ∈ {𝑀} (abs‘𝐴))
33		simpr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → 𝑀 ∈ ℤ)
34		uzid 12815	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ (ℤ≥‘𝑀))
35	34, 2	eleqtrrdi 2840	. . . . . . . . . . 11 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ 𝑍)
36		fprodabs.3	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑍) → 𝐴 ∈ ℂ)
37	36	ralrimiva 3126	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑘 ∈ 𝑍 𝐴 ∈ ℂ)
38		nfcsb1v 3889	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘⦋𝑀 / 𝑘⦌𝐴
39	38	nfel1 2909	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘⦋𝑀 / 𝑘⦌𝐴 ∈ ℂ
40		csbeq1a 3879	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑀 → 𝐴 = ⦋𝑀 / 𝑘⦌𝐴)
41	40	eleq1d 2814	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑀 → (𝐴 ∈ ℂ ↔ ⦋𝑀 / 𝑘⦌𝐴 ∈ ℂ))
42	39, 41	rspc 3579	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ 𝑍 → (∀𝑘 ∈ 𝑍 𝐴 ∈ ℂ → ⦋𝑀 / 𝑘⦌𝐴 ∈ ℂ))
43	37, 42	mpan9 506	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑀 ∈ 𝑍) → ⦋𝑀 / 𝑘⦌𝐴 ∈ ℂ)
44	35, 43	sylan2 593	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → ⦋𝑀 / 𝑘⦌𝐴 ∈ ℂ)
45	44	abscld 15412	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → (abs‘⦋𝑀 / 𝑘⦌𝐴) ∈ ℝ)
46	45	recnd 11209	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → (abs‘⦋𝑀 / 𝑘⦌𝐴) ∈ ℂ)
47	29, 46	eqeltrd 2829	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → ⦋𝑀 / 𝑘⦌(abs‘𝐴) ∈ ℂ)
48		prodsns 15945	. . . . . . 7 ⊢ ((𝑀 ∈ ℤ ∧ ⦋𝑀 / 𝑘⦌(abs‘𝐴) ∈ ℂ) → ∏𝑘 ∈ {𝑀} (abs‘𝐴) = ⦋𝑀 / 𝑘⦌(abs‘𝐴))
49	33, 47, 48	syl2anc 584	. . . . . 6 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → ∏𝑘 ∈ {𝑀} (abs‘𝐴) = ⦋𝑀 / 𝑘⦌(abs‘𝐴))
50	32, 49	eqtrd 2765	. . . . 5 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → ∏𝑘 ∈ (𝑀...𝑀)(abs‘𝐴) = ⦋𝑀 / 𝑘⦌(abs‘𝐴))
51	30	prodeq1d 15893	. . . . . . . 8 ⊢ (𝑀 ∈ ℤ → ∏𝑘 ∈ (𝑀...𝑀)𝐴 = ∏𝑘 ∈ {𝑀}𝐴)
52	51	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → ∏𝑘 ∈ (𝑀...𝑀)𝐴 = ∏𝑘 ∈ {𝑀}𝐴)
53		prodsns 15945	. . . . . . . 8 ⊢ ((𝑀 ∈ ℤ ∧ ⦋𝑀 / 𝑘⦌𝐴 ∈ ℂ) → ∏𝑘 ∈ {𝑀}𝐴 = ⦋𝑀 / 𝑘⦌𝐴)
54	33, 44, 53	syl2anc 584	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → ∏𝑘 ∈ {𝑀}𝐴 = ⦋𝑀 / 𝑘⦌𝐴)
55	52, 54	eqtrd 2765	. . . . . 6 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → ∏𝑘 ∈ (𝑀...𝑀)𝐴 = ⦋𝑀 / 𝑘⦌𝐴)
56	55	fveq2d 6865	. . . . 5 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → (abs‘∏𝑘 ∈ (𝑀...𝑀)𝐴) = (abs‘⦋𝑀 / 𝑘⦌𝐴))
57	29, 50, 56	3eqtr4rd 2776	. . . 4 ⊢ ((𝜑 ∧ 𝑀 ∈ ℤ) → (abs‘∏𝑘 ∈ (𝑀...𝑀)𝐴) = ∏𝑘 ∈ (𝑀...𝑀)(abs‘𝐴))
58	57	expcom 413	. . 3 ⊢ (𝑀 ∈ ℤ → (𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑀)𝐴) = ∏𝑘 ∈ (𝑀...𝑀)(abs‘𝐴)))
59		simp3 1138	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀) ∧ (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴)) → (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴))
60		ovex 7423	. . . . . . . . . . 11 ⊢ (𝑛 + 1) ∈ V
61		csbfv2g 6910	. . . . . . . . . . 11 ⊢ ((𝑛 + 1) ∈ V → ⦋(𝑛 + 1) / 𝑘⦌(abs‘𝐴) = (abs‘⦋(𝑛 + 1) / 𝑘⦌𝐴))
62	60, 61	ax-mp 5	. . . . . . . . . 10 ⊢ ⦋(𝑛 + 1) / 𝑘⦌(abs‘𝐴) = (abs‘⦋(𝑛 + 1) / 𝑘⦌𝐴)
63	62	eqcomi 2739	. . . . . . . . 9 ⊢ (abs‘⦋(𝑛 + 1) / 𝑘⦌𝐴) = ⦋(𝑛 + 1) / 𝑘⦌(abs‘𝐴)
64	63	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀) ∧ (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴)) → (abs‘⦋(𝑛 + 1) / 𝑘⦌𝐴) = ⦋(𝑛 + 1) / 𝑘⦌(abs‘𝐴))
65	59, 64	oveq12d 7408	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀) ∧ (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴)) → ((abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) · (abs‘⦋(𝑛 + 1) / 𝑘⦌𝐴)) = (∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴) · ⦋(𝑛 + 1) / 𝑘⦌(abs‘𝐴)))
66		simpr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) → 𝑛 ∈ (ℤ≥‘𝑀))
67		elfzuz 13488	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (𝑀...(𝑛 + 1)) → 𝑘 ∈ (ℤ≥‘𝑀))
68	67, 2	eleqtrrdi 2840	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (𝑀...(𝑛 + 1)) → 𝑘 ∈ 𝑍)
69	68, 36	sylan2 593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...(𝑛 + 1))) → 𝐴 ∈ ℂ)
70	69	adantlr 715	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) ∧ 𝑘 ∈ (𝑀...(𝑛 + 1))) → 𝐴 ∈ ℂ)
71	66, 70	fprodp1s 15944	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) → ∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴 = (∏𝑘 ∈ (𝑀...𝑛)𝐴 · ⦋(𝑛 + 1) / 𝑘⦌𝐴))
72	71	fveq2d 6865	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) → (abs‘∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴) = (abs‘(∏𝑘 ∈ (𝑀...𝑛)𝐴 · ⦋(𝑛 + 1) / 𝑘⦌𝐴)))
73		fzfid 13945	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) → (𝑀...𝑛) ∈ Fin)
74		elfzuz 13488	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (𝑀...𝑛) → 𝑘 ∈ (ℤ≥‘𝑀))
75	74, 2	eleqtrrdi 2840	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ (𝑀...𝑛) → 𝑘 ∈ 𝑍)
76	75, 36	sylan2 593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑀...𝑛)) → 𝐴 ∈ ℂ)
77	76	adantlr 715	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) ∧ 𝑘 ∈ (𝑀...𝑛)) → 𝐴 ∈ ℂ)
78	73, 77	fprodcl 15925	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) → ∏𝑘 ∈ (𝑀...𝑛)𝐴 ∈ ℂ)
79		peano2uz 12867	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ (ℤ≥‘𝑀) → (𝑛 + 1) ∈ (ℤ≥‘𝑀))
80	79, 2	eleqtrrdi 2840	. . . . . . . . . . 11 ⊢ (𝑛 ∈ (ℤ≥‘𝑀) → (𝑛 + 1) ∈ 𝑍)
81		nfcsb1v 3889	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘⦋(𝑛 + 1) / 𝑘⦌𝐴
82	81	nfel1 2909	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘⦋(𝑛 + 1) / 𝑘⦌𝐴 ∈ ℂ
83		csbeq1a 3879	. . . . . . . . . . . . . 14 ⊢ (𝑘 = (𝑛 + 1) → 𝐴 = ⦋(𝑛 + 1) / 𝑘⦌𝐴)
84	83	eleq1d 2814	. . . . . . . . . . . . 13 ⊢ (𝑘 = (𝑛 + 1) → (𝐴 ∈ ℂ ↔ ⦋(𝑛 + 1) / 𝑘⦌𝐴 ∈ ℂ))
85	82, 84	rspc 3579	. . . . . . . . . . . 12 ⊢ ((𝑛 + 1) ∈ 𝑍 → (∀𝑘 ∈ 𝑍 𝐴 ∈ ℂ → ⦋(𝑛 + 1) / 𝑘⦌𝐴 ∈ ℂ))
86	37, 85	mpan9 506	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 + 1) ∈ 𝑍) → ⦋(𝑛 + 1) / 𝑘⦌𝐴 ∈ ℂ)
87	80, 86	sylan2 593	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) → ⦋(𝑛 + 1) / 𝑘⦌𝐴 ∈ ℂ)
88	78, 87	absmuld 15430	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) → (abs‘(∏𝑘 ∈ (𝑀...𝑛)𝐴 · ⦋(𝑛 + 1) / 𝑘⦌𝐴)) = ((abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) · (abs‘⦋(𝑛 + 1) / 𝑘⦌𝐴)))
89	72, 88	eqtrd 2765	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) → (abs‘∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴) = ((abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) · (abs‘⦋(𝑛 + 1) / 𝑘⦌𝐴)))
90	89	3adant3 1132	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀) ∧ (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴)) → (abs‘∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴) = ((abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) · (abs‘⦋(𝑛 + 1) / 𝑘⦌𝐴)))
91	70	abscld 15412	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) ∧ 𝑘 ∈ (𝑀...(𝑛 + 1))) → (abs‘𝐴) ∈ ℝ)
92	91	recnd 11209	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) ∧ 𝑘 ∈ (𝑀...(𝑛 + 1))) → (abs‘𝐴) ∈ ℂ)
93	66, 92	fprodp1s 15944	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀)) → ∏𝑘 ∈ (𝑀...(𝑛 + 1))(abs‘𝐴) = (∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴) · ⦋(𝑛 + 1) / 𝑘⦌(abs‘𝐴)))
94	93	3adant3 1132	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀) ∧ (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴)) → ∏𝑘 ∈ (𝑀...(𝑛 + 1))(abs‘𝐴) = (∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴) · ⦋(𝑛 + 1) / 𝑘⦌(abs‘𝐴)))
95	65, 90, 94	3eqtr4d 2775	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (ℤ≥‘𝑀) ∧ (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴)) → (abs‘∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴) = ∏𝑘 ∈ (𝑀...(𝑛 + 1))(abs‘𝐴))
96	95	3exp 1119	. . . . 5 ⊢ (𝜑 → (𝑛 ∈ (ℤ≥‘𝑀) → ((abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴) → (abs‘∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴) = ∏𝑘 ∈ (𝑀...(𝑛 + 1))(abs‘𝐴))))
97	96	com12 32	. . . 4 ⊢ (𝑛 ∈ (ℤ≥‘𝑀) → (𝜑 → ((abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴) → (abs‘∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴) = ∏𝑘 ∈ (𝑀...(𝑛 + 1))(abs‘𝐴))))
98	97	a2d 29	. . 3 ⊢ (𝑛 ∈ (ℤ≥‘𝑀) → ((𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑛)𝐴) = ∏𝑘 ∈ (𝑀...𝑛)(abs‘𝐴)) → (𝜑 → (abs‘∏𝑘 ∈ (𝑀...(𝑛 + 1))𝐴) = ∏𝑘 ∈ (𝑀...(𝑛 + 1))(abs‘𝐴))))
99	9, 15, 21, 27, 58, 98	uzind4 12872	. 2 ⊢ (𝑁 ∈ (ℤ≥‘𝑀) → (𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑁)𝐴) = ∏𝑘 ∈ (𝑀...𝑁)(abs‘𝐴)))
100	3, 99	mpcom 38	1 ⊢ (𝜑 → (abs‘∏𝑘 ∈ (𝑀...𝑁)𝐴) = ∏𝑘 ∈ (𝑀...𝑁)(abs‘𝐴))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109  ∀wral 3045  Vcvv 3450  ⦋csb 3865  {csn 4592  ‘cfv 6514  (class class class)co 7390  ℂcc 11073  1c1 11076   + caddc 11078   · cmul 11080  ℤcz 12536  ℤ_≥cuz 12800  ...cfz 13475  abscabs 15207  ∏cprod 15876

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 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714  ax-inf2 9601  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152  ax-pre-sup 11153

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 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-pss 3937  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-int 4914  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5536  df-eprel 5541  df-po 5549  df-so 5550  df-fr 5594  df-se 5595  df-we 5596  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-isom 6523  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-om 7846  df-1st 7971  df-2nd 7972  df-frecs 8263  df-wrecs 8294  df-recs 8343  df-rdg 8381  df-1o 8437  df-er 8674  df-en 8922  df-dom 8923  df-sdom 8924  df-fin 8925  df-sup 9400  df-oi 9470  df-card 9899  df-pnf 11217  df-mnf 11218  df-xr 11219  df-ltxr 11220  df-le 11221  df-sub 11414  df-neg 11415  df-div 11843  df-nn 12194  df-2 12256  df-3 12257  df-n0 12450  df-z 12537  df-uz 12801  df-rp 12959  df-fz 13476  df-fzo 13623  df-seq 13974  df-exp 14034  df-hash 14303  df-cj 15072  df-re 15073  df-im 15074  df-sqrt 15208  df-abs 15209  df-clim 15461  df-prod 15877

This theorem is referenced by:  etransclem23  46262