MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  summolem2a Structured version   Visualization version   GIF version

Theorem summolem2a 14930
Description: Lemma for summo 14932. (Contributed by Mario Carneiro, 3-Apr-2014.) (Revised by Mario Carneiro, 20-Apr-2014.)
Hypotheses
Ref Expression
summo.1 𝐹 = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 0))
summo.2 ((𝜑𝑘𝐴) → 𝐵 ∈ ℂ)
summo.3 𝐺 = (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵)
summolem2.4 𝐻 = (𝑛 ∈ ℕ ↦ (𝐾𝑛) / 𝑘𝐵)
summolem2.5 (𝜑𝑁 ∈ ℕ)
summolem2.6 (𝜑𝑀 ∈ ℤ)
summolem2.7 (𝜑𝐴 ⊆ (ℤ𝑀))
summolem2.8 (𝜑𝑓:(1...𝑁)–1-1-onto𝐴)
summolem2.9 (𝜑𝐾 Isom < , < ((1...(♯‘𝐴)), 𝐴))
Assertion
Ref Expression
summolem2a (𝜑 → seq𝑀( + , 𝐹) ⇝ (seq1( + , 𝐺)‘𝑁))
Distinct variable groups:   𝑓,𝑘,𝑛,𝐴   𝑓,𝐹,𝑘,𝑛   𝑘,𝐺,𝑛   𝑘,𝐾,𝑛   𝑘,𝑁,𝑛   𝜑,𝑘,𝑛   𝐵,𝑓,𝑛   𝑘,𝑀,𝑛
Allowed substitution hints:   𝜑(𝑓)   𝐵(𝑘)   𝐺(𝑓)   𝐻(𝑓,𝑘,𝑛)   𝐾(𝑓)   𝑀(𝑓)   𝑁(𝑓)

Proof of Theorem summolem2a
Dummy variables 𝑚 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 summo.1 . . 3 𝐹 = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 0))
2 summo.2 . . 3 ((𝜑𝑘𝐴) → 𝐵 ∈ ℂ)
3 summolem2.7 . . . 4 (𝜑𝐴 ⊆ (ℤ𝑀))
4 summolem2.9 . . . . . . . 8 (𝜑𝐾 Isom < , < ((1...(♯‘𝐴)), 𝐴))
5 fzfid 13154 . . . . . . . . . . . 12 (𝜑 → (1...𝑁) ∈ Fin)
6 summolem2.8 . . . . . . . . . . . 12 (𝜑𝑓:(1...𝑁)–1-1-onto𝐴)
75, 6hasheqf1od 13527 . . . . . . . . . . 11 (𝜑 → (♯‘(1...𝑁)) = (♯‘𝐴))
8 summolem2.5 . . . . . . . . . . . 12 (𝜑𝑁 ∈ ℕ)
9 nnnn0 11713 . . . . . . . . . . . 12 (𝑁 ∈ ℕ → 𝑁 ∈ ℕ0)
10 hashfz1 13519 . . . . . . . . . . . 12 (𝑁 ∈ ℕ0 → (♯‘(1...𝑁)) = 𝑁)
118, 9, 103syl 18 . . . . . . . . . . 11 (𝜑 → (♯‘(1...𝑁)) = 𝑁)
127, 11eqtr3d 2809 . . . . . . . . . 10 (𝜑 → (♯‘𝐴) = 𝑁)
1312oveq2d 6990 . . . . . . . . 9 (𝜑 → (1...(♯‘𝐴)) = (1...𝑁))
14 isoeq4 6894 . . . . . . . . 9 ((1...(♯‘𝐴)) = (1...𝑁) → (𝐾 Isom < , < ((1...(♯‘𝐴)), 𝐴) ↔ 𝐾 Isom < , < ((1...𝑁), 𝐴)))
1513, 14syl 17 . . . . . . . 8 (𝜑 → (𝐾 Isom < , < ((1...(♯‘𝐴)), 𝐴) ↔ 𝐾 Isom < , < ((1...𝑁), 𝐴)))
164, 15mpbid 224 . . . . . . 7 (𝜑𝐾 Isom < , < ((1...𝑁), 𝐴))
17 isof1o 6897 . . . . . . 7 (𝐾 Isom < , < ((1...𝑁), 𝐴) → 𝐾:(1...𝑁)–1-1-onto𝐴)
1816, 17syl 17 . . . . . 6 (𝜑𝐾:(1...𝑁)–1-1-onto𝐴)
19 f1of 6441 . . . . . 6 (𝐾:(1...𝑁)–1-1-onto𝐴𝐾:(1...𝑁)⟶𝐴)
2018, 19syl 17 . . . . 5 (𝜑𝐾:(1...𝑁)⟶𝐴)
21 nnuz 12093 . . . . . . 7 ℕ = (ℤ‘1)
228, 21syl6eleq 2869 . . . . . 6 (𝜑𝑁 ∈ (ℤ‘1))
23 eluzfz2 12729 . . . . . 6 (𝑁 ∈ (ℤ‘1) → 𝑁 ∈ (1...𝑁))
2422, 23syl 17 . . . . 5 (𝜑𝑁 ∈ (1...𝑁))
2520, 24ffvelrnd 6675 . . . 4 (𝜑 → (𝐾𝑁) ∈ 𝐴)
263, 25sseldd 3852 . . 3 (𝜑 → (𝐾𝑁) ∈ (ℤ𝑀))
273sselda 3851 . . . . . 6 ((𝜑𝑛𝐴) → 𝑛 ∈ (ℤ𝑀))
28 f1ocnvfv2 6857 . . . . . . . . 9 ((𝐾:(1...𝑁)–1-1-onto𝐴𝑛𝐴) → (𝐾‘(𝐾𝑛)) = 𝑛)
2918, 28sylan 572 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝐾‘(𝐾𝑛)) = 𝑛)
30 f1ocnv 6453 . . . . . . . . . . . 12 (𝐾:(1...𝑁)–1-1-onto𝐴𝐾:𝐴1-1-onto→(1...𝑁))
31 f1of 6441 . . . . . . . . . . . 12 (𝐾:𝐴1-1-onto→(1...𝑁) → 𝐾:𝐴⟶(1...𝑁))
3218, 30, 313syl 18 . . . . . . . . . . 11 (𝜑𝐾:𝐴⟶(1...𝑁))
3332ffvelrnda 6674 . . . . . . . . . 10 ((𝜑𝑛𝐴) → (𝐾𝑛) ∈ (1...𝑁))
34 elfzle2 12725 . . . . . . . . . 10 ((𝐾𝑛) ∈ (1...𝑁) → (𝐾𝑛) ≤ 𝑁)
3533, 34syl 17 . . . . . . . . 9 ((𝜑𝑛𝐴) → (𝐾𝑛) ≤ 𝑁)
3616adantr 473 . . . . . . . . . 10 ((𝜑𝑛𝐴) → 𝐾 Isom < , < ((1...𝑁), 𝐴))
37 fzssuz 12762 . . . . . . . . . . . . 13 (1...𝑁) ⊆ (ℤ‘1)
38 uzssz 12076 . . . . . . . . . . . . . 14 (ℤ‘1) ⊆ ℤ
39 zssre 11798 . . . . . . . . . . . . . 14 ℤ ⊆ ℝ
4038, 39sstri 3860 . . . . . . . . . . . . 13 (ℤ‘1) ⊆ ℝ
4137, 40sstri 3860 . . . . . . . . . . . 12 (1...𝑁) ⊆ ℝ
42 ressxr 10482 . . . . . . . . . . . 12 ℝ ⊆ ℝ*
4341, 42sstri 3860 . . . . . . . . . . 11 (1...𝑁) ⊆ ℝ*
4443a1i 11 . . . . . . . . . 10 ((𝜑𝑛𝐴) → (1...𝑁) ⊆ ℝ*)
453adantr 473 . . . . . . . . . . . 12 ((𝜑𝑛𝐴) → 𝐴 ⊆ (ℤ𝑀))
46 uzssz 12076 . . . . . . . . . . . . 13 (ℤ𝑀) ⊆ ℤ
4746, 39sstri 3860 . . . . . . . . . . . 12 (ℤ𝑀) ⊆ ℝ
4845, 47syl6ss 3863 . . . . . . . . . . 11 ((𝜑𝑛𝐴) → 𝐴 ⊆ ℝ)
4948, 42syl6ss 3863 . . . . . . . . . 10 ((𝜑𝑛𝐴) → 𝐴 ⊆ ℝ*)
5024adantr 473 . . . . . . . . . 10 ((𝜑𝑛𝐴) → 𝑁 ∈ (1...𝑁))
51 leisorel 13629 . . . . . . . . . 10 ((𝐾 Isom < , < ((1...𝑁), 𝐴) ∧ ((1...𝑁) ⊆ ℝ*𝐴 ⊆ ℝ*) ∧ ((𝐾𝑛) ∈ (1...𝑁) ∧ 𝑁 ∈ (1...𝑁))) → ((𝐾𝑛) ≤ 𝑁 ↔ (𝐾‘(𝐾𝑛)) ≤ (𝐾𝑁)))
5236, 44, 49, 33, 50, 51syl122anc 1360 . . . . . . . . 9 ((𝜑𝑛𝐴) → ((𝐾𝑛) ≤ 𝑁 ↔ (𝐾‘(𝐾𝑛)) ≤ (𝐾𝑁)))
5335, 52mpbid 224 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝐾‘(𝐾𝑛)) ≤ (𝐾𝑁))
5429, 53eqbrtrrd 4949 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑛 ≤ (𝐾𝑁))
55 eluzelz 12066 . . . . . . . . 9 (𝑛 ∈ (ℤ𝑀) → 𝑛 ∈ ℤ)
5627, 55syl 17 . . . . . . . 8 ((𝜑𝑛𝐴) → 𝑛 ∈ ℤ)
57 eluzelz 12066 . . . . . . . . . 10 ((𝐾𝑁) ∈ (ℤ𝑀) → (𝐾𝑁) ∈ ℤ)
5826, 57syl 17 . . . . . . . . 9 (𝜑 → (𝐾𝑁) ∈ ℤ)
5958adantr 473 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝐾𝑁) ∈ ℤ)
60 eluz 12070 . . . . . . . 8 ((𝑛 ∈ ℤ ∧ (𝐾𝑁) ∈ ℤ) → ((𝐾𝑁) ∈ (ℤ𝑛) ↔ 𝑛 ≤ (𝐾𝑁)))
6156, 59, 60syl2anc 576 . . . . . . 7 ((𝜑𝑛𝐴) → ((𝐾𝑁) ∈ (ℤ𝑛) ↔ 𝑛 ≤ (𝐾𝑁)))
6254, 61mpbird 249 . . . . . 6 ((𝜑𝑛𝐴) → (𝐾𝑁) ∈ (ℤ𝑛))
63 elfzuzb 12716 . . . . . 6 (𝑛 ∈ (𝑀...(𝐾𝑁)) ↔ (𝑛 ∈ (ℤ𝑀) ∧ (𝐾𝑁) ∈ (ℤ𝑛)))
6427, 62, 63sylanbrc 575 . . . . 5 ((𝜑𝑛𝐴) → 𝑛 ∈ (𝑀...(𝐾𝑁)))
6564ex 405 . . . 4 (𝜑 → (𝑛𝐴𝑛 ∈ (𝑀...(𝐾𝑁))))
6665ssrdv 3857 . . 3 (𝜑𝐴 ⊆ (𝑀...(𝐾𝑁)))
671, 2, 26, 66fsumcvg 14927 . 2 (𝜑 → seq𝑀( + , 𝐹) ⇝ (seq𝑀( + , 𝐹)‘(𝐾𝑁)))
68 addid2 10621 . . . . 5 (𝑚 ∈ ℂ → (0 + 𝑚) = 𝑚)
6968adantl 474 . . . 4 ((𝜑𝑚 ∈ ℂ) → (0 + 𝑚) = 𝑚)
70 addid1 10618 . . . . 5 (𝑚 ∈ ℂ → (𝑚 + 0) = 𝑚)
7170adantl 474 . . . 4 ((𝜑𝑚 ∈ ℂ) → (𝑚 + 0) = 𝑚)
72 addcl 10415 . . . . 5 ((𝑚 ∈ ℂ ∧ 𝑥 ∈ ℂ) → (𝑚 + 𝑥) ∈ ℂ)
7372adantl 474 . . . 4 ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → (𝑚 + 𝑥) ∈ ℂ)
74 0cnd 10430 . . . 4 (𝜑 → 0 ∈ ℂ)
7524, 13eleqtrrd 2862 . . . 4 (𝜑𝑁 ∈ (1...(♯‘𝐴)))
76 iftrue 4350 . . . . . . . . . . 11 (𝑘𝐴 → if(𝑘𝐴, 𝐵, 0) = 𝐵)
7776adantl 474 . . . . . . . . . 10 ((𝜑𝑘𝐴) → if(𝑘𝐴, 𝐵, 0) = 𝐵)
7877, 2eqeltrd 2859 . . . . . . . . 9 ((𝜑𝑘𝐴) → if(𝑘𝐴, 𝐵, 0) ∈ ℂ)
7978ex 405 . . . . . . . 8 (𝜑 → (𝑘𝐴 → if(𝑘𝐴, 𝐵, 0) ∈ ℂ))
80 iffalse 4353 . . . . . . . . 9 𝑘𝐴 → if(𝑘𝐴, 𝐵, 0) = 0)
81 0cn 10429 . . . . . . . . 9 0 ∈ ℂ
8280, 81syl6eqel 2867 . . . . . . . 8 𝑘𝐴 → if(𝑘𝐴, 𝐵, 0) ∈ ℂ)
8379, 82pm2.61d1 173 . . . . . . 7 (𝜑 → if(𝑘𝐴, 𝐵, 0) ∈ ℂ)
8483adantr 473 . . . . . 6 ((𝜑𝑘 ∈ ℤ) → if(𝑘𝐴, 𝐵, 0) ∈ ℂ)
8584, 1fmptd 6699 . . . . 5 (𝜑𝐹:ℤ⟶ℂ)
86 elfzelz 12722 . . . . 5 (𝑚 ∈ (𝑀...(𝐾‘(♯‘𝐴))) → 𝑚 ∈ ℤ)
87 ffvelrn 6672 . . . . 5 ((𝐹:ℤ⟶ℂ ∧ 𝑚 ∈ ℤ) → (𝐹𝑚) ∈ ℂ)
8885, 86, 87syl2an 587 . . . 4 ((𝜑𝑚 ∈ (𝑀...(𝐾‘(♯‘𝐴)))) → (𝐹𝑚) ∈ ℂ)
89 fveqeq2 6505 . . . . . 6 (𝑘 = 𝑚 → ((𝐹𝑘) = 0 ↔ (𝐹𝑚) = 0))
90 eldifi 3986 . . . . . . . . 9 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → 𝑘 ∈ (𝑀...(𝐾‘(♯‘𝐴))))
91 elfzelz 12722 . . . . . . . . 9 (𝑘 ∈ (𝑀...(𝐾‘(♯‘𝐴))) → 𝑘 ∈ ℤ)
9290, 91syl 17 . . . . . . . 8 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → 𝑘 ∈ ℤ)
93 eldifn 3987 . . . . . . . . . 10 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → ¬ 𝑘𝐴)
9493, 80syl 17 . . . . . . . . 9 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → if(𝑘𝐴, 𝐵, 0) = 0)
9594, 81syl6eqel 2867 . . . . . . . 8 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → if(𝑘𝐴, 𝐵, 0) ∈ ℂ)
961fvmpt2 6603 . . . . . . . 8 ((𝑘 ∈ ℤ ∧ if(𝑘𝐴, 𝐵, 0) ∈ ℂ) → (𝐹𝑘) = if(𝑘𝐴, 𝐵, 0))
9792, 95, 96syl2anc 576 . . . . . . 7 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → (𝐹𝑘) = if(𝑘𝐴, 𝐵, 0))
9897, 94eqtrd 2807 . . . . . 6 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → (𝐹𝑘) = 0)
9989, 98vtoclga 3486 . . . . 5 (𝑚 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → (𝐹𝑚) = 0)
10099adantl 474 . . . 4 ((𝜑𝑚 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴)) → (𝐹𝑚) = 0)
101 isof1o 6897 . . . . . . . 8 (𝐾 Isom < , < ((1...(♯‘𝐴)), 𝐴) → 𝐾:(1...(♯‘𝐴))–1-1-onto𝐴)
102 f1of 6441 . . . . . . . 8 (𝐾:(1...(♯‘𝐴))–1-1-onto𝐴𝐾:(1...(♯‘𝐴))⟶𝐴)
1034, 101, 1023syl 18 . . . . . . 7 (𝜑𝐾:(1...(♯‘𝐴))⟶𝐴)
104103ffvelrnda 6674 . . . . . 6 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐾𝑥) ∈ 𝐴)
105104iftrued 4352 . . . . 5 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) = (𝐾𝑥) / 𝑘𝐵)
1063adantr 473 . . . . . . . 8 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → 𝐴 ⊆ (ℤ𝑀))
107106, 104sseldd 3852 . . . . . . 7 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐾𝑥) ∈ (ℤ𝑀))
108 eluzelz 12066 . . . . . . 7 ((𝐾𝑥) ∈ (ℤ𝑀) → (𝐾𝑥) ∈ ℤ)
109107, 108syl 17 . . . . . 6 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐾𝑥) ∈ ℤ)
110 nfv 1874 . . . . . . . . 9 𝑘𝜑
111 nfv 1874 . . . . . . . . . . 11 𝑘(𝐾𝑥) ∈ 𝐴
112 nfcsb1v 3797 . . . . . . . . . . 11 𝑘(𝐾𝑥) / 𝑘𝐵
113 nfcv 2925 . . . . . . . . . . 11 𝑘0
114111, 112, 113nfif 4373 . . . . . . . . . 10 𝑘if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0)
115114nfel1 2939 . . . . . . . . 9 𝑘if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ
116110, 115nfim 1860 . . . . . . . 8 𝑘(𝜑 → if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ)
117 fvex 6509 . . . . . . . 8 (𝐾𝑥) ∈ V
118 eleq1 2846 . . . . . . . . . . 11 (𝑘 = (𝐾𝑥) → (𝑘𝐴 ↔ (𝐾𝑥) ∈ 𝐴))
119 csbeq1a 3788 . . . . . . . . . . 11 (𝑘 = (𝐾𝑥) → 𝐵 = (𝐾𝑥) / 𝑘𝐵)
120118, 119ifbieq1d 4367 . . . . . . . . . 10 (𝑘 = (𝐾𝑥) → if(𝑘𝐴, 𝐵, 0) = if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0))
121120eleq1d 2843 . . . . . . . . 9 (𝑘 = (𝐾𝑥) → (if(𝑘𝐴, 𝐵, 0) ∈ ℂ ↔ if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ))
122121imbi2d 333 . . . . . . . 8 (𝑘 = (𝐾𝑥) → ((𝜑 → if(𝑘𝐴, 𝐵, 0) ∈ ℂ) ↔ (𝜑 → if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ)))
123116, 117, 122, 83vtoclf 3470 . . . . . . 7 (𝜑 → if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ)
124123adantr 473 . . . . . 6 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ)
125 eleq1 2846 . . . . . . . 8 (𝑛 = (𝐾𝑥) → (𝑛𝐴 ↔ (𝐾𝑥) ∈ 𝐴))
126 csbeq1 3782 . . . . . . . 8 (𝑛 = (𝐾𝑥) → 𝑛 / 𝑘𝐵 = (𝐾𝑥) / 𝑘𝐵)
127125, 126ifbieq1d 4367 . . . . . . 7 (𝑛 = (𝐾𝑥) → if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0) = if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0))
128 nfcv 2925 . . . . . . . . 9 𝑛if(𝑘𝐴, 𝐵, 0)
129 nfv 1874 . . . . . . . . . 10 𝑘 𝑛𝐴
130 nfcsb1v 3797 . . . . . . . . . 10 𝑘𝑛 / 𝑘𝐵
131129, 130, 113nfif 4373 . . . . . . . . 9 𝑘if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0)
132 eleq1 2846 . . . . . . . . . 10 (𝑘 = 𝑛 → (𝑘𝐴𝑛𝐴))
133 csbeq1a 3788 . . . . . . . . . 10 (𝑘 = 𝑛𝐵 = 𝑛 / 𝑘𝐵)
134132, 133ifbieq1d 4367 . . . . . . . . 9 (𝑘 = 𝑛 → if(𝑘𝐴, 𝐵, 0) = if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))
135128, 131, 134cbvmpt 5023 . . . . . . . 8 (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 0)) = (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))
1361, 135eqtri 2795 . . . . . . 7 𝐹 = (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))
137127, 136fvmptg 6591 . . . . . 6 (((𝐾𝑥) ∈ ℤ ∧ if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ) → (𝐹‘(𝐾𝑥)) = if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0))
138109, 124, 137syl2anc 576 . . . . 5 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐹‘(𝐾𝑥)) = if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0))
139 elfznn 12750 . . . . . 6 (𝑥 ∈ (1...(♯‘𝐴)) → 𝑥 ∈ ℕ)
140105, 124eqeltrrd 2860 . . . . . 6 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐾𝑥) / 𝑘𝐵 ∈ ℂ)
141 fveq2 6496 . . . . . . . 8 (𝑛 = 𝑥 → (𝐾𝑛) = (𝐾𝑥))
142141csbeq1d 3786 . . . . . . 7 (𝑛 = 𝑥(𝐾𝑛) / 𝑘𝐵 = (𝐾𝑥) / 𝑘𝐵)
143 summolem2.4 . . . . . . 7 𝐻 = (𝑛 ∈ ℕ ↦ (𝐾𝑛) / 𝑘𝐵)
144142, 143fvmptg 6591 . . . . . 6 ((𝑥 ∈ ℕ ∧ (𝐾𝑥) / 𝑘𝐵 ∈ ℂ) → (𝐻𝑥) = (𝐾𝑥) / 𝑘𝐵)
145139, 140, 144syl2an2 674 . . . . 5 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐻𝑥) = (𝐾𝑥) / 𝑘𝐵)
146105, 138, 1453eqtr4rd 2818 . . . 4 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐻𝑥) = (𝐹‘(𝐾𝑥)))
14769, 71, 73, 74, 4, 75, 3, 88, 100, 146seqcoll 13633 . . 3 (𝜑 → (seq𝑀( + , 𝐹)‘(𝐾𝑁)) = (seq1( + , 𝐻)‘𝑁))
148 summo.3 . . . 4 𝐺 = (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵)
1498, 8jca 504 . . . 4 (𝜑 → (𝑁 ∈ ℕ ∧ 𝑁 ∈ ℕ))
1501, 2, 148, 143, 149, 6, 18summolem3 14929 . . 3 (𝜑 → (seq1( + , 𝐺)‘𝑁) = (seq1( + , 𝐻)‘𝑁))
151147, 150eqtr4d 2810 . 2 (𝜑 → (seq𝑀( + , 𝐹)‘(𝐾𝑁)) = (seq1( + , 𝐺)‘𝑁))
15267, 151breqtrd 4951 1 (𝜑 → seq𝑀( + , 𝐹) ⇝ (seq1( + , 𝐺)‘𝑁))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 198  wa 387   = wceq 1508  wcel 2051  csb 3779  cdif 3819  wss 3822  ifcif 4344   class class class wbr 4925  cmpt 5004  ccnv 5402  wf 6181  1-1-ontowf1o 6184  cfv 6185   Isom wiso 6186  (class class class)co 6974  Fincfn 8304  cc 10331  cr 10332  0cc0 10333  1c1 10334   + caddc 10336  *cxr 10471   < clt 10472  cle 10473  cn 11437  0cn0 11705  cz 11791  cuz 12056  ...cfz 12706  seqcseq 13182  chash 13503  cli 14700
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1759  ax-4 1773  ax-5 1870  ax-6 1929  ax-7 1966  ax-8 2053  ax-9 2060  ax-10 2080  ax-11 2094  ax-12 2107  ax-13 2302  ax-ext 2743  ax-rep 5045  ax-sep 5056  ax-nul 5063  ax-pow 5115  ax-pr 5182  ax-un 7277  ax-inf2 8896  ax-cnex 10389  ax-resscn 10390  ax-1cn 10391  ax-icn 10392  ax-addcl 10393  ax-addrcl 10394  ax-mulcl 10395  ax-mulrcl 10396  ax-mulcom 10397  ax-addass 10398  ax-mulass 10399  ax-distr 10400  ax-i2m1 10401  ax-1ne0 10402  ax-1rid 10403  ax-rnegex 10404  ax-rrecex 10405  ax-cnre 10406  ax-pre-lttri 10407  ax-pre-lttrn 10408  ax-pre-ltadd 10409  ax-pre-mulgt0 10410
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 835  df-3or 1070  df-3an 1071  df-tru 1511  df-ex 1744  df-nf 1748  df-sb 2017  df-mo 2548  df-eu 2585  df-clab 2752  df-cleq 2764  df-clel 2839  df-nfc 2911  df-ne 2961  df-nel 3067  df-ral 3086  df-rex 3087  df-reu 3088  df-rmo 3089  df-rab 3090  df-v 3410  df-sbc 3675  df-csb 3780  df-dif 3825  df-un 3827  df-in 3829  df-ss 3836  df-pss 3838  df-nul 4173  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-tp 4440  df-op 4442  df-uni 4709  df-int 4746  df-iun 4790  df-br 4926  df-opab 4988  df-mpt 5005  df-tr 5027  df-id 5308  df-eprel 5313  df-po 5322  df-so 5323  df-fr 5362  df-we 5364  df-xp 5409  df-rel 5410  df-cnv 5411  df-co 5412  df-dm 5413  df-rn 5414  df-res 5415  df-ima 5416  df-pred 5983  df-ord 6029  df-on 6030  df-lim 6031  df-suc 6032  df-iota 6149  df-fun 6187  df-fn 6188  df-f 6189  df-f1 6190  df-fo 6191  df-f1o 6192  df-fv 6193  df-isom 6194  df-riota 6935  df-ov 6977  df-oprab 6978  df-mpo 6979  df-om 7395  df-1st 7499  df-2nd 7500  df-wrecs 7748  df-recs 7810  df-rdg 7848  df-1o 7903  df-oadd 7907  df-er 8087  df-en 8305  df-dom 8306  df-sdom 8307  df-fin 8308  df-card 9160  df-pnf 10474  df-mnf 10475  df-xr 10476  df-ltxr 10477  df-le 10478  df-sub 10670  df-neg 10671  df-div 11097  df-nn 11438  df-2 11501  df-n0 11706  df-z 11792  df-uz 12057  df-rp 12203  df-fz 12707  df-fzo 12848  df-seq 13183  df-exp 13243  df-hash 13504  df-cj 14317  df-re 14318  df-im 14319  df-sqrt 14453  df-abs 14454  df-clim 14704
This theorem is referenced by:  summolem2  14931  zsum  14933
  Copyright terms: Public domain W3C validator