Metamath Proof Explorer


Theorem iprodefisumlem

Description: Lemma for iprodefisum . (Contributed by Scott Fenton, 11-Feb-2018)

Ref Expression
Hypotheses iprodefisumlem.1 ⊢ Z = ℤ ≥ M
iprodefisumlem.2 ⊢ φ → M ∈ ℤ
iprodefisumlem.3 ⊢ φ → F : Z ⟶ ℂ
Assertion iprodefisumlem ⊢ φ → seq M × exp ∘ F = exp ∘ seq M + F

Proof

Step Hyp Ref Expression
1 iprodefisumlem.1 ⊢ Z = ℤ ≥ M
2 iprodefisumlem.2 ⊢ φ → M ∈ ℤ
3 iprodefisumlem.3 ⊢ φ → F : Z ⟶ ℂ
4 fvco3 ⊢ F : Z ⟶ ℂ ∧ k ∈ Z → exp ∘ F ⁡ k = e F ⁡ k
5 3 4 sylan ⊢ φ ∧ k ∈ Z → exp ∘ F ⁡ k = e F ⁡ k
6 3 ffvelcdmda ⊢ φ ∧ k ∈ Z → F ⁡ k ∈ ℂ
7 efcl ⊢ F ⁡ k ∈ ℂ → e F ⁡ k ∈ ℂ
8 6 7 syl ⊢ φ ∧ k ∈ Z → e F ⁡ k ∈ ℂ
9 5 8 eqeltrd ⊢ φ ∧ k ∈ Z → exp ∘ F ⁡ k ∈ ℂ
10 1 2 9 prodf ⊢ φ → seq M × exp ∘ F : Z ⟶ ℂ
11 10 ffnd ⊢ φ → seq M × exp ∘ F Fn Z
12 eff ⊢ exp : ℂ ⟶ ℂ
13 ffn ⊢ exp : ℂ ⟶ ℂ → exp Fn ℂ
14 12 13 ax-mp ⊢ exp Fn ℂ
15 1 2 6 serf ⊢ φ → seq M + F : Z ⟶ ℂ
16 fnfco ⊢ exp Fn ℂ ∧ seq M + F : Z ⟶ ℂ → exp ∘ seq M + F Fn Z
17 14 15 16 sylancr ⊢ φ → exp ∘ seq M + F Fn Z
18 fveq2 ⊢ j = M → seq M × exp ∘ F ⁡ j = seq M × exp ∘ F ⁡ M
19 2fveq3 ⊢ j = M → e seq M + F ⁡ j = e seq M + F ⁡ M
20 18 19 eqeq12d ⊢ j = M → seq M × exp ∘ F ⁡ j = e seq M + F ⁡ j ↔ seq M × exp ∘ F ⁡ M = e seq M + F ⁡ M
21 20 imbi2d ⊢ j = M → φ → seq M × exp ∘ F ⁡ j = e seq M + F ⁡ j ↔ φ → seq M × exp ∘ F ⁡ M = e seq M + F ⁡ M
22 fveq2 ⊢ j = n → seq M × exp ∘ F ⁡ j = seq M × exp ∘ F ⁡ n
23 2fveq3 ⊢ j = n → e seq M + F ⁡ j = e seq M + F ⁡ n
24 22 23 eqeq12d ⊢ j = n → seq M × exp ∘ F ⁡ j = e seq M + F ⁡ j ↔ seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n
25 24 imbi2d ⊢ j = n → φ → seq M × exp ∘ F ⁡ j = e seq M + F ⁡ j ↔ φ → seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n
26 fveq2 ⊢ j = n + 1 → seq M × exp ∘ F ⁡ j = seq M × exp ∘ F ⁡ n + 1
27 2fveq3 ⊢ j = n + 1 → e seq M + F ⁡ j = e seq M + F ⁡ n + 1
28 26 27 eqeq12d ⊢ j = n + 1 → seq M × exp ∘ F ⁡ j = e seq M + F ⁡ j ↔ seq M × exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n + 1
29 28 imbi2d ⊢ j = n + 1 → φ → seq M × exp ∘ F ⁡ j = e seq M + F ⁡ j ↔ φ → seq M × exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n + 1
30 fveq2 ⊢ j = k → seq M × exp ∘ F ⁡ j = seq M × exp ∘ F ⁡ k
31 2fveq3 ⊢ j = k → e seq M + F ⁡ j = e seq M + F ⁡ k
32 30 31 eqeq12d ⊢ j = k → seq M × exp ∘ F ⁡ j = e seq M + F ⁡ j ↔ seq M × exp ∘ F ⁡ k = e seq M + F ⁡ k
33 32 imbi2d ⊢ j = k → φ → seq M × exp ∘ F ⁡ j = e seq M + F ⁡ j ↔ φ → seq M × exp ∘ F ⁡ k = e seq M + F ⁡ k
34 uzid ⊢ M ∈ ℤ → M ∈ ℤ ≥ M
35 2 34 syl ⊢ φ → M ∈ ℤ ≥ M
36 35 1 eleqtrrdi ⊢ φ → M ∈ Z
37 fvco3 ⊢ F : Z ⟶ ℂ ∧ M ∈ Z → exp ∘ F ⁡ M = e F ⁡ M
38 3 36 37 syl2anc ⊢ φ → exp ∘ F ⁡ M = e F ⁡ M
39 seq1 ⊢ M ∈ ℤ → seq M × exp ∘ F ⁡ M = exp ∘ F ⁡ M
40 2 39 syl ⊢ φ → seq M × exp ∘ F ⁡ M = exp ∘ F ⁡ M
41 seq1 ⊢ M ∈ ℤ → seq M + F ⁡ M = F ⁡ M
42 2 41 syl ⊢ φ → seq M + F ⁡ M = F ⁡ M
43 42 fveq2d ⊢ φ → e seq M + F ⁡ M = e F ⁡ M
44 38 40 43 3eqtr4d ⊢ φ → seq M × exp ∘ F ⁡ M = e seq M + F ⁡ M
45 44 a1i ⊢ M ∈ ℤ → φ → seq M × exp ∘ F ⁡ M = e seq M + F ⁡ M
46 oveq1 ⊢ seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n → seq M × exp ∘ F ⁡ n ⁢ exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n ⁢ exp ∘ F ⁡ n + 1
47 46 3ad2ant3 ⊢ n ∈ ℤ ≥ M ∧ φ ∧ seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n → seq M × exp ∘ F ⁡ n ⁢ exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n ⁢ exp ∘ F ⁡ n + 1
48 3 adantl ⊢ n ∈ ℤ ≥ M ∧ φ → F : Z ⟶ ℂ
49 peano2uz ⊢ n ∈ ℤ ≥ M → n + 1 ∈ ℤ ≥ M
50 49 1 eleqtrrdi ⊢ n ∈ ℤ ≥ M → n + 1 ∈ Z
51 50 adantr ⊢ n ∈ ℤ ≥ M ∧ φ → n + 1 ∈ Z
52 fvco3 ⊢ F : Z ⟶ ℂ ∧ n + 1 ∈ Z → exp ∘ F ⁡ n + 1 = e F ⁡ n + 1
53 48 51 52 syl2anc ⊢ n ∈ ℤ ≥ M ∧ φ → exp ∘ F ⁡ n + 1 = e F ⁡ n + 1
54 53 oveq2d ⊢ n ∈ ℤ ≥ M ∧ φ → e seq M + F ⁡ n ⁢ exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n ⁢ e F ⁡ n + 1
55 15 ffvelcdmda ⊢ φ ∧ n ∈ Z → seq M + F ⁡ n ∈ ℂ
56 55 expcom ⊢ n ∈ Z → φ → seq M + F ⁡ n ∈ ℂ
57 1 eqcomi ⊢ ℤ ≥ M = Z
58 56 57 eleq2s ⊢ n ∈ ℤ ≥ M → φ → seq M + F ⁡ n ∈ ℂ
59 58 imp ⊢ n ∈ ℤ ≥ M ∧ φ → seq M + F ⁡ n ∈ ℂ
60 48 51 ffvelcdmd ⊢ n ∈ ℤ ≥ M ∧ φ → F ⁡ n + 1 ∈ ℂ
61 efadd ⊢ seq M + F ⁡ n ∈ ℂ ∧ F ⁡ n + 1 ∈ ℂ → e seq M + F ⁡ n + F ⁡ n + 1 = e seq M + F ⁡ n ⁢ e F ⁡ n + 1
62 59 60 61 syl2anc ⊢ n ∈ ℤ ≥ M ∧ φ → e seq M + F ⁡ n + F ⁡ n + 1 = e seq M + F ⁡ n ⁢ e F ⁡ n + 1
63 54 62 eqtr4d ⊢ n ∈ ℤ ≥ M ∧ φ → e seq M + F ⁡ n ⁢ exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n + F ⁡ n + 1
64 63 3adant3 ⊢ n ∈ ℤ ≥ M ∧ φ ∧ seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n → e seq M + F ⁡ n ⁢ exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n + F ⁡ n + 1
65 47 64 eqtrd ⊢ n ∈ ℤ ≥ M ∧ φ ∧ seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n → seq M × exp ∘ F ⁡ n ⁢ exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n + F ⁡ n + 1
66 seqp1 ⊢ n ∈ ℤ ≥ M → seq M × exp ∘ F ⁡ n + 1 = seq M × exp ∘ F ⁡ n ⁢ exp ∘ F ⁡ n + 1
67 66 adantr ⊢ n ∈ ℤ ≥ M ∧ φ → seq M × exp ∘ F ⁡ n + 1 = seq M × exp ∘ F ⁡ n ⁢ exp ∘ F ⁡ n + 1
68 67 3adant3 ⊢ n ∈ ℤ ≥ M ∧ φ ∧ seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n → seq M × exp ∘ F ⁡ n + 1 = seq M × exp ∘ F ⁡ n ⁢ exp ∘ F ⁡ n + 1
69 seqp1 ⊢ n ∈ ℤ ≥ M → seq M + F ⁡ n + 1 = seq M + F ⁡ n + F ⁡ n + 1
70 69 adantr ⊢ n ∈ ℤ ≥ M ∧ φ → seq M + F ⁡ n + 1 = seq M + F ⁡ n + F ⁡ n + 1
71 70 fveq2d ⊢ n ∈ ℤ ≥ M ∧ φ → e seq M + F ⁡ n + 1 = e seq M + F ⁡ n + F ⁡ n + 1
72 71 3adant3 ⊢ n ∈ ℤ ≥ M ∧ φ ∧ seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n → e seq M + F ⁡ n + 1 = e seq M + F ⁡ n + F ⁡ n + 1
73 65 68 72 3eqtr4d ⊢ n ∈ ℤ ≥ M ∧ φ ∧ seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n → seq M × exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n + 1
74 73 3exp ⊢ n ∈ ℤ ≥ M → φ → seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n → seq M × exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n + 1
75 74 a2d ⊢ n ∈ ℤ ≥ M → φ → seq M × exp ∘ F ⁡ n = e seq M + F ⁡ n → φ → seq M × exp ∘ F ⁡ n + 1 = e seq M + F ⁡ n + 1
76 21 25 29 33 45 75 uzind4 ⊢ k ∈ ℤ ≥ M → φ → seq M × exp ∘ F ⁡ k = e seq M + F ⁡ k
77 76 1 eleq2s ⊢ k ∈ Z → φ → seq M × exp ∘ F ⁡ k = e seq M + F ⁡ k
78 77 impcom ⊢ φ ∧ k ∈ Z → seq M × exp ∘ F ⁡ k = e seq M + F ⁡ k
79 fvco3 ⊢ seq M + F : Z ⟶ ℂ ∧ k ∈ Z → exp ∘ seq M + F ⁡ k = e seq M + F ⁡ k
80 15 79 sylan ⊢ φ ∧ k ∈ Z → exp ∘ seq M + F ⁡ k = e seq M + F ⁡ k
81 78 80 eqtr4d ⊢ φ ∧ k ∈ Z → seq M × exp ∘ F ⁡ k = exp ∘ seq M + F ⁡ k
82 11 17 81 eqfnfvd ⊢ φ → seq M × exp ∘ F = exp ∘ seq M + F