Metamath Proof Explorer


Theorem fprodcvg

Description: The sequence of partial products of a finite product converges to the whole product. (Contributed by Scott Fenton, 4-Dec-2017)

Ref Expression
Hypotheses prodmo.1 ⊢ F = k ∈ ℤ ⟼ if k ∈ A B 1
prodmo.2 ⊢ φ ∧ k ∈ A → B ∈ ℂ
prodrb.3 ⊢ φ → N ∈ ℤ ≥ M
fprodcvg.4 ⊢ φ → A ⊆ M … N
Assertion fprodcvg ⊢ φ → seq M × F ⇝ seq M × F ⁡ N

Proof

Step Hyp Ref Expression
1 prodmo.1 ⊢ F = k ∈ ℤ ⟼ if k ∈ A B 1
2 prodmo.2 ⊢ φ ∧ k ∈ A → B ∈ ℂ
3 prodrb.3 ⊢ φ → N ∈ ℤ ≥ M
4 fprodcvg.4 ⊢ φ → A ⊆ M … N
5 eqid ⊢ ℤ ≥ N = ℤ ≥ N
6 eluzelz ⊢ N ∈ ℤ ≥ M → N ∈ ℤ
7 3 6 syl ⊢ φ → N ∈ ℤ
8 seqex ⊢ seq M × F ∈ V
9 8 a1i ⊢ φ → seq M × F ∈ V
10 eqid ⊢ ℤ ≥ M = ℤ ≥ M
11 eluzel2 ⊢ N ∈ ℤ ≥ M → M ∈ ℤ
12 3 11 syl ⊢ φ → M ∈ ℤ
13 eluzelz ⊢ k ∈ ℤ ≥ M → k ∈ ℤ
14 13 adantl ⊢ φ ∧ k ∈ ℤ ≥ M → k ∈ ℤ
15 iftrue ⊢ k ∈ A → if k ∈ A B 1 = B
16 15 adantl ⊢ φ ∧ k ∈ ℤ ≥ M ∧ k ∈ A → if k ∈ A B 1 = B
17 2 adantlr ⊢ φ ∧ k ∈ ℤ ≥ M ∧ k ∈ A → B ∈ ℂ
18 16 17 eqeltrd ⊢ φ ∧ k ∈ ℤ ≥ M ∧ k ∈ A → if k ∈ A B 1 ∈ ℂ
19 18 ex ⊢ φ ∧ k ∈ ℤ ≥ M → k ∈ A → if k ∈ A B 1 ∈ ℂ
20 iffalse ⊢ ¬ k ∈ A → if k ∈ A B 1 = 1
21 ax-1cn ⊢ 1 ∈ ℂ
22 20 21 eqeltrdi ⊢ ¬ k ∈ A → if k ∈ A B 1 ∈ ℂ
23 19 22 pm2.61d1 ⊢ φ ∧ k ∈ ℤ ≥ M → if k ∈ A B 1 ∈ ℂ
24 1 fvmpt2 ⊢ k ∈ ℤ ∧ if k ∈ A B 1 ∈ ℂ → F ⁡ k = if k ∈ A B 1
25 14 23 24 syl2anc ⊢ φ ∧ k ∈ ℤ ≥ M → F ⁡ k = if k ∈ A B 1
26 25 23 eqeltrd ⊢ φ ∧ k ∈ ℤ ≥ M → F ⁡ k ∈ ℂ
27 10 12 26 prodf ⊢ φ → seq M × F : ℤ ≥ M ⟶ ℂ
28 27 3 ffvelcdmd ⊢ φ → seq M × F ⁡ N ∈ ℂ
29 mulrid ⊢ m ∈ ℂ → m ⋅ 1 = m
30 29 adantl ⊢ φ ∧ n ∈ ℤ ≥ N ∧ m ∈ ℂ → m ⋅ 1 = m
31 3 adantr ⊢ φ ∧ n ∈ ℤ ≥ N → N ∈ ℤ ≥ M
32 simpr ⊢ φ ∧ n ∈ ℤ ≥ N → n ∈ ℤ ≥ N
33 12 adantr ⊢ φ ∧ n ∈ ℤ ≥ N → M ∈ ℤ
34 26 adantlr ⊢ φ ∧ n ∈ ℤ ≥ N ∧ k ∈ ℤ ≥ M → F ⁡ k ∈ ℂ
35 10 33 34 prodf ⊢ φ ∧ n ∈ ℤ ≥ N → seq M × F : ℤ ≥ M ⟶ ℂ
36 35 31 ffvelcdmd ⊢ φ ∧ n ∈ ℤ ≥ N → seq M × F ⁡ N ∈ ℂ
37 elfzuz ⊢ m ∈ N + 1 … n → m ∈ ℤ ≥ N + 1
38 eluzelz ⊢ m ∈ ℤ ≥ N + 1 → m ∈ ℤ
39 38 adantl ⊢ φ ∧ m ∈ ℤ ≥ N + 1 → m ∈ ℤ
40 4 sseld ⊢ φ → m ∈ A → m ∈ M … N
41 fznuz ⊢ m ∈ M … N → ¬ m ∈ ℤ ≥ N + 1
42 40 41 syl6 ⊢ φ → m ∈ A → ¬ m ∈ ℤ ≥ N + 1
43 42 con2d ⊢ φ → m ∈ ℤ ≥ N + 1 → ¬ m ∈ A
44 43 imp ⊢ φ ∧ m ∈ ℤ ≥ N + 1 → ¬ m ∈ A
45 39 44 eldifd ⊢ φ ∧ m ∈ ℤ ≥ N + 1 → m ∈ ℤ ∖ A
46 fveqeq2 ⊢ k = m → F ⁡ k = 1 ↔ F ⁡ m = 1
47 eldifi ⊢ k ∈ ℤ ∖ A → k ∈ ℤ
48 eldifn ⊢ k ∈ ℤ ∖ A → ¬ k ∈ A
49 48 20 syl ⊢ k ∈ ℤ ∖ A → if k ∈ A B 1 = 1
50 49 21 eqeltrdi ⊢ k ∈ ℤ ∖ A → if k ∈ A B 1 ∈ ℂ
51 47 50 24 syl2anc ⊢ k ∈ ℤ ∖ A → F ⁡ k = if k ∈ A B 1
52 51 49 eqtrd ⊢ k ∈ ℤ ∖ A → F ⁡ k = 1
53 46 52 vtoclga ⊢ m ∈ ℤ ∖ A → F ⁡ m = 1
54 45 53 syl ⊢ φ ∧ m ∈ ℤ ≥ N + 1 → F ⁡ m = 1
55 37 54 sylan2 ⊢ φ ∧ m ∈ N + 1 … n → F ⁡ m = 1
56 55 adantlr ⊢ φ ∧ n ∈ ℤ ≥ N ∧ m ∈ N + 1 … n → F ⁡ m = 1
57 30 31 32 36 56 seqid2 ⊢ φ ∧ n ∈ ℤ ≥ N → seq M × F ⁡ N = seq M × F ⁡ n
58 57 eqcomd ⊢ φ ∧ n ∈ ℤ ≥ N → seq M × F ⁡ n = seq M × F ⁡ N
59 5 7 9 28 58 climconst ⊢ φ → seq M × F ⇝ seq M × F ⁡ N