Metamath Proof Explorer


Theorem clim2prod

Description: The limit of an infinite product with an initial segment added. (Contributed by Scott Fenton, 18-Dec-2017)

Ref Expression
Hypotheses clim2prod.1 ⊢ Z = ℤ ≥ M
clim2prod.2 ⊢ φ → N ∈ Z
clim2prod.3 ⊢ φ ∧ k ∈ Z → F ⁡ k ∈ ℂ
clim2prod.4 ⊢ φ → seq N + 1 × F ⇝ A
Assertion clim2prod ⊢ φ → seq M × F ⇝ seq M × F ⁡ N ⁢ A

Proof

Step Hyp Ref Expression
1 clim2prod.1 ⊢ Z = ℤ ≥ M
2 clim2prod.2 ⊢ φ → N ∈ Z
3 clim2prod.3 ⊢ φ ∧ k ∈ Z → F ⁡ k ∈ ℂ
4 clim2prod.4 ⊢ φ → seq N + 1 × F ⇝ A
5 eqid ⊢ ℤ ≥ N + 1 = ℤ ≥ N + 1
6 uzssz ⊢ ℤ ≥ M ⊆ ℤ
7 1 6 eqsstri ⊢ Z ⊆ ℤ
8 7 2 sselid ⊢ φ → N ∈ ℤ
9 8 peano2zd ⊢ φ → N + 1 ∈ ℤ
10 2 1 eleqtrdi ⊢ φ → N ∈ ℤ ≥ M
11 eluzel2 ⊢ N ∈ ℤ ≥ M → M ∈ ℤ
12 10 11 syl ⊢ φ → M ∈ ℤ
13 1 12 3 prodf ⊢ φ → seq M × F : Z ⟶ ℂ
14 13 2 ffvelcdmd ⊢ φ → seq M × F ⁡ N ∈ ℂ
15 seqex ⊢ seq M × F ∈ V
16 15 a1i ⊢ φ → seq M × F ∈ V
17 peano2uz ⊢ N ∈ ℤ ≥ M → N + 1 ∈ ℤ ≥ M
18 uzss ⊢ N + 1 ∈ ℤ ≥ M → ℤ ≥ N + 1 ⊆ ℤ ≥ M
19 10 17 18 3syl ⊢ φ → ℤ ≥ N + 1 ⊆ ℤ ≥ M
20 19 1 sseqtrrdi ⊢ φ → ℤ ≥ N + 1 ⊆ Z
21 20 sselda ⊢ φ ∧ k ∈ ℤ ≥ N + 1 → k ∈ Z
22 21 3 syldan ⊢ φ ∧ k ∈ ℤ ≥ N + 1 → F ⁡ k ∈ ℂ
23 5 9 22 prodf ⊢ φ → seq N + 1 × F : ℤ ≥ N + 1 ⟶ ℂ
24 23 ffvelcdmda ⊢ φ ∧ k ∈ ℤ ≥ N + 1 → seq N + 1 × F ⁡ k ∈ ℂ
25 fveq2 ⊢ x = N + 1 → seq M × F ⁡ x = seq M × F ⁡ N + 1
26 fveq2 ⊢ x = N + 1 → seq N + 1 × F ⁡ x = seq N + 1 × F ⁡ N + 1
27 26 oveq2d ⊢ x = N + 1 → seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ N + 1
28 25 27 eqeq12d ⊢ x = N + 1 → seq M × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x ↔ seq M × F ⁡ N + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ N + 1
29 28 imbi2d ⊢ x = N + 1 → φ → seq M × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x ↔ φ → seq M × F ⁡ N + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ N + 1
30 fveq2 ⊢ x = n → seq M × F ⁡ x = seq M × F ⁡ n
31 fveq2 ⊢ x = n → seq N + 1 × F ⁡ x = seq N + 1 × F ⁡ n
32 31 oveq2d ⊢ x = n → seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n
33 30 32 eqeq12d ⊢ x = n → seq M × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x ↔ seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n
34 33 imbi2d ⊢ x = n → φ → seq M × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x ↔ φ → seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n
35 fveq2 ⊢ x = n + 1 → seq M × F ⁡ x = seq M × F ⁡ n + 1
36 fveq2 ⊢ x = n + 1 → seq N + 1 × F ⁡ x = seq N + 1 × F ⁡ n + 1
37 36 oveq2d ⊢ x = n + 1 → seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n + 1
38 35 37 eqeq12d ⊢ x = n + 1 → seq M × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x ↔ seq M × F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n + 1
39 38 imbi2d ⊢ x = n + 1 → φ → seq M × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x ↔ φ → seq M × F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n + 1
40 fveq2 ⊢ x = k → seq M × F ⁡ x = seq M × F ⁡ k
41 fveq2 ⊢ x = k → seq N + 1 × F ⁡ x = seq N + 1 × F ⁡ k
42 41 oveq2d ⊢ x = k → seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ k
43 40 42 eqeq12d ⊢ x = k → seq M × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x ↔ seq M × F ⁡ k = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ k
44 43 imbi2d ⊢ x = k → φ → seq M × F ⁡ x = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ x ↔ φ → seq M × F ⁡ k = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ k
45 10 adantr ⊢ φ ∧ N + 1 ∈ ℤ → N ∈ ℤ ≥ M
46 seqp1 ⊢ N ∈ ℤ ≥ M → seq M × F ⁡ N + 1 = seq M × F ⁡ N ⁢ F ⁡ N + 1
47 45 46 syl ⊢ φ ∧ N + 1 ∈ ℤ → seq M × F ⁡ N + 1 = seq M × F ⁡ N ⁢ F ⁡ N + 1
48 seq1 ⊢ N + 1 ∈ ℤ → seq N + 1 × F ⁡ N + 1 = F ⁡ N + 1
49 48 adantl ⊢ φ ∧ N + 1 ∈ ℤ → seq N + 1 × F ⁡ N + 1 = F ⁡ N + 1
50 49 oveq2d ⊢ φ ∧ N + 1 ∈ ℤ → seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ N + 1 = seq M × F ⁡ N ⁢ F ⁡ N + 1
51 47 50 eqtr4d ⊢ φ ∧ N + 1 ∈ ℤ → seq M × F ⁡ N + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ N + 1
52 51 expcom ⊢ N + 1 ∈ ℤ → φ → seq M × F ⁡ N + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ N + 1
53 19 sselda ⊢ φ ∧ n ∈ ℤ ≥ N + 1 → n ∈ ℤ ≥ M
54 seqp1 ⊢ n ∈ ℤ ≥ M → seq M × F ⁡ n + 1 = seq M × F ⁡ n ⁢ F ⁡ n + 1
55 53 54 syl ⊢ φ ∧ n ∈ ℤ ≥ N + 1 → seq M × F ⁡ n + 1 = seq M × F ⁡ n ⁢ F ⁡ n + 1
56 55 adantr ⊢ φ ∧ n ∈ ℤ ≥ N + 1 ∧ seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n → seq M × F ⁡ n + 1 = seq M × F ⁡ n ⁢ F ⁡ n + 1
57 oveq1 ⊢ seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n → seq M × F ⁡ n ⁢ F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1
58 57 adantl ⊢ φ ∧ n ∈ ℤ ≥ N + 1 ∧ seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n → seq M × F ⁡ n ⁢ F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1
59 14 adantr ⊢ φ ∧ n ∈ ℤ ≥ N + 1 → seq M × F ⁡ N ∈ ℂ
60 23 ffvelcdmda ⊢ φ ∧ n ∈ ℤ ≥ N + 1 → seq N + 1 × F ⁡ n ∈ ℂ
61 peano2uz ⊢ n ∈ ℤ ≥ M → n + 1 ∈ ℤ ≥ M
62 61 1 eleqtrrdi ⊢ n ∈ ℤ ≥ M → n + 1 ∈ Z
63 53 62 syl ⊢ φ ∧ n ∈ ℤ ≥ N + 1 → n + 1 ∈ Z
64 3 ralrimiva ⊢ φ → ∀ k ∈ Z F ⁡ k ∈ ℂ
65 fveq2 ⊢ k = n + 1 → F ⁡ k = F ⁡ n + 1
66 65 eleq1d ⊢ k = n + 1 → F ⁡ k ∈ ℂ ↔ F ⁡ n + 1 ∈ ℂ
67 66 rspcv ⊢ n + 1 ∈ Z → ∀ k ∈ Z F ⁡ k ∈ ℂ → F ⁡ n + 1 ∈ ℂ
68 64 67 mpan9 ⊢ φ ∧ n + 1 ∈ Z → F ⁡ n + 1 ∈ ℂ
69 63 68 syldan ⊢ φ ∧ n ∈ ℤ ≥ N + 1 → F ⁡ n + 1 ∈ ℂ
70 59 60 69 mulassd ⊢ φ ∧ n ∈ ℤ ≥ N + 1 → seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1
71 70 adantr ⊢ φ ∧ n ∈ ℤ ≥ N + 1 ∧ seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n → seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1
72 seqp1 ⊢ n ∈ ℤ ≥ N + 1 → seq N + 1 × F ⁡ n + 1 = seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1
73 72 adantl ⊢ φ ∧ n ∈ ℤ ≥ N + 1 → seq N + 1 × F ⁡ n + 1 = seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1
74 73 oveq2d ⊢ φ ∧ n ∈ ℤ ≥ N + 1 → seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1
75 74 adantr ⊢ φ ∧ n ∈ ℤ ≥ N + 1 ∧ seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n → seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1
76 71 75 eqtr4d ⊢ φ ∧ n ∈ ℤ ≥ N + 1 ∧ seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n → seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n ⁢ F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n + 1
77 56 58 76 3eqtrd ⊢ φ ∧ n ∈ ℤ ≥ N + 1 ∧ seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n → seq M × F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n + 1
78 77 exp31 ⊢ φ → n ∈ ℤ ≥ N + 1 → seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n → seq M × F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n + 1
79 78 com12 ⊢ n ∈ ℤ ≥ N + 1 → φ → seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n → seq M × F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n + 1
80 79 a2d ⊢ n ∈ ℤ ≥ N + 1 → φ → seq M × F ⁡ n = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n → φ → seq M × F ⁡ n + 1 = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ n + 1
81 29 34 39 44 52 80 uzind4 ⊢ k ∈ ℤ ≥ N + 1 → φ → seq M × F ⁡ k = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ k
82 81 impcom ⊢ φ ∧ k ∈ ℤ ≥ N + 1 → seq M × F ⁡ k = seq M × F ⁡ N ⁢ seq N + 1 × F ⁡ k
83 5 9 4 14 16 24 82 climmulc2 ⊢ φ → seq M × F ⇝ seq M × F ⁡ N ⁢ A