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

Theorem summolem2a 14665
Description: Lemma for summo 14667. (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 summolem2.8 . . . . . . . . . . . . 13 (𝜑𝑓:(1...𝑁)–1-1-onto𝐴)
6 ovex 6902 . . . . . . . . . . . . . 14 (1...𝑁) ∈ V
76f1oen 8209 . . . . . . . . . . . . 13 (𝑓:(1...𝑁)–1-1-onto𝐴 → (1...𝑁) ≈ 𝐴)
85, 7syl 17 . . . . . . . . . . . 12 (𝜑 → (1...𝑁) ≈ 𝐴)
9 fzfid 12992 . . . . . . . . . . . . 13 (𝜑 → (1...𝑁) ∈ Fin)
108ensymd 8239 . . . . . . . . . . . . . 14 (𝜑𝐴 ≈ (1...𝑁))
11 enfii 8412 . . . . . . . . . . . . . 14 (((1...𝑁) ∈ Fin ∧ 𝐴 ≈ (1...𝑁)) → 𝐴 ∈ Fin)
129, 10, 11syl2anc 575 . . . . . . . . . . . . 13 (𝜑𝐴 ∈ Fin)
13 hashen 13351 . . . . . . . . . . . . 13 (((1...𝑁) ∈ Fin ∧ 𝐴 ∈ Fin) → ((♯‘(1...𝑁)) = (♯‘𝐴) ↔ (1...𝑁) ≈ 𝐴))
149, 12, 13syl2anc 575 . . . . . . . . . . . 12 (𝜑 → ((♯‘(1...𝑁)) = (♯‘𝐴) ↔ (1...𝑁) ≈ 𝐴))
158, 14mpbird 248 . . . . . . . . . . 11 (𝜑 → (♯‘(1...𝑁)) = (♯‘𝐴))
16 summolem2.5 . . . . . . . . . . . 12 (𝜑𝑁 ∈ ℕ)
17 nnnn0 11562 . . . . . . . . . . . 12 (𝑁 ∈ ℕ → 𝑁 ∈ ℕ0)
18 hashfz1 13350 . . . . . . . . . . . 12 (𝑁 ∈ ℕ0 → (♯‘(1...𝑁)) = 𝑁)
1916, 17, 183syl 18 . . . . . . . . . . 11 (𝜑 → (♯‘(1...𝑁)) = 𝑁)
2015, 19eqtr3d 2842 . . . . . . . . . 10 (𝜑 → (♯‘𝐴) = 𝑁)
2120oveq2d 6886 . . . . . . . . 9 (𝜑 → (1...(♯‘𝐴)) = (1...𝑁))
22 isoeq4 6790 . . . . . . . . 9 ((1...(♯‘𝐴)) = (1...𝑁) → (𝐾 Isom < , < ((1...(♯‘𝐴)), 𝐴) ↔ 𝐾 Isom < , < ((1...𝑁), 𝐴)))
2321, 22syl 17 . . . . . . . 8 (𝜑 → (𝐾 Isom < , < ((1...(♯‘𝐴)), 𝐴) ↔ 𝐾 Isom < , < ((1...𝑁), 𝐴)))
244, 23mpbid 223 . . . . . . 7 (𝜑𝐾 Isom < , < ((1...𝑁), 𝐴))
25 isof1o 6793 . . . . . . 7 (𝐾 Isom < , < ((1...𝑁), 𝐴) → 𝐾:(1...𝑁)–1-1-onto𝐴)
2624, 25syl 17 . . . . . 6 (𝜑𝐾:(1...𝑁)–1-1-onto𝐴)
27 f1of 6349 . . . . . 6 (𝐾:(1...𝑁)–1-1-onto𝐴𝐾:(1...𝑁)⟶𝐴)
2826, 27syl 17 . . . . 5 (𝜑𝐾:(1...𝑁)⟶𝐴)
29 nnuz 11937 . . . . . . 7 ℕ = (ℤ‘1)
3016, 29syl6eleq 2895 . . . . . 6 (𝜑𝑁 ∈ (ℤ‘1))
31 eluzfz2 12568 . . . . . 6 (𝑁 ∈ (ℤ‘1) → 𝑁 ∈ (1...𝑁))
3230, 31syl 17 . . . . 5 (𝜑𝑁 ∈ (1...𝑁))
3328, 32ffvelrnd 6578 . . . 4 (𝜑 → (𝐾𝑁) ∈ 𝐴)
343, 33sseldd 3799 . . 3 (𝜑 → (𝐾𝑁) ∈ (ℤ𝑀))
353sselda 3798 . . . . . 6 ((𝜑𝑛𝐴) → 𝑛 ∈ (ℤ𝑀))
36 f1ocnvfv2 6753 . . . . . . . . 9 ((𝐾:(1...𝑁)–1-1-onto𝐴𝑛𝐴) → (𝐾‘(𝐾𝑛)) = 𝑛)
3726, 36sylan 571 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝐾‘(𝐾𝑛)) = 𝑛)
38 f1ocnv 6361 . . . . . . . . . . . 12 (𝐾:(1...𝑁)–1-1-onto𝐴𝐾:𝐴1-1-onto→(1...𝑁))
39 f1of 6349 . . . . . . . . . . . 12 (𝐾:𝐴1-1-onto→(1...𝑁) → 𝐾:𝐴⟶(1...𝑁))
4026, 38, 393syl 18 . . . . . . . . . . 11 (𝜑𝐾:𝐴⟶(1...𝑁))
4140ffvelrnda 6577 . . . . . . . . . 10 ((𝜑𝑛𝐴) → (𝐾𝑛) ∈ (1...𝑁))
42 elfzle2 12564 . . . . . . . . . 10 ((𝐾𝑛) ∈ (1...𝑁) → (𝐾𝑛) ≤ 𝑁)
4341, 42syl 17 . . . . . . . . 9 ((𝜑𝑛𝐴) → (𝐾𝑛) ≤ 𝑁)
4424adantr 468 . . . . . . . . . 10 ((𝜑𝑛𝐴) → 𝐾 Isom < , < ((1...𝑁), 𝐴))
45 fzssuz 12601 . . . . . . . . . . . . 13 (1...𝑁) ⊆ (ℤ‘1)
46 uzssz 11920 . . . . . . . . . . . . . 14 (ℤ‘1) ⊆ ℤ
47 zssre 11646 . . . . . . . . . . . . . 14 ℤ ⊆ ℝ
4846, 47sstri 3807 . . . . . . . . . . . . 13 (ℤ‘1) ⊆ ℝ
4945, 48sstri 3807 . . . . . . . . . . . 12 (1...𝑁) ⊆ ℝ
50 ressxr 10364 . . . . . . . . . . . 12 ℝ ⊆ ℝ*
5149, 50sstri 3807 . . . . . . . . . . 11 (1...𝑁) ⊆ ℝ*
5251a1i 11 . . . . . . . . . 10 ((𝜑𝑛𝐴) → (1...𝑁) ⊆ ℝ*)
533adantr 468 . . . . . . . . . . . 12 ((𝜑𝑛𝐴) → 𝐴 ⊆ (ℤ𝑀))
54 uzssz 11920 . . . . . . . . . . . . 13 (ℤ𝑀) ⊆ ℤ
5554, 47sstri 3807 . . . . . . . . . . . 12 (ℤ𝑀) ⊆ ℝ
5653, 55syl6ss 3810 . . . . . . . . . . 11 ((𝜑𝑛𝐴) → 𝐴 ⊆ ℝ)
5756, 50syl6ss 3810 . . . . . . . . . 10 ((𝜑𝑛𝐴) → 𝐴 ⊆ ℝ*)
5832adantr 468 . . . . . . . . . 10 ((𝜑𝑛𝐴) → 𝑁 ∈ (1...𝑁))
59 leisorel 13457 . . . . . . . . . 10 ((𝐾 Isom < , < ((1...𝑁), 𝐴) ∧ ((1...𝑁) ⊆ ℝ*𝐴 ⊆ ℝ*) ∧ ((𝐾𝑛) ∈ (1...𝑁) ∧ 𝑁 ∈ (1...𝑁))) → ((𝐾𝑛) ≤ 𝑁 ↔ (𝐾‘(𝐾𝑛)) ≤ (𝐾𝑁)))
6044, 52, 57, 41, 58, 59syl122anc 1491 . . . . . . . . 9 ((𝜑𝑛𝐴) → ((𝐾𝑛) ≤ 𝑁 ↔ (𝐾‘(𝐾𝑛)) ≤ (𝐾𝑁)))
6143, 60mpbid 223 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝐾‘(𝐾𝑛)) ≤ (𝐾𝑁))
6237, 61eqbrtrrd 4868 . . . . . . 7 ((𝜑𝑛𝐴) → 𝑛 ≤ (𝐾𝑁))
63 eluzelz 11910 . . . . . . . . 9 (𝑛 ∈ (ℤ𝑀) → 𝑛 ∈ ℤ)
6435, 63syl 17 . . . . . . . 8 ((𝜑𝑛𝐴) → 𝑛 ∈ ℤ)
65 eluzelz 11910 . . . . . . . . . 10 ((𝐾𝑁) ∈ (ℤ𝑀) → (𝐾𝑁) ∈ ℤ)
6634, 65syl 17 . . . . . . . . 9 (𝜑 → (𝐾𝑁) ∈ ℤ)
6766adantr 468 . . . . . . . 8 ((𝜑𝑛𝐴) → (𝐾𝑁) ∈ ℤ)
68 eluz 11914 . . . . . . . 8 ((𝑛 ∈ ℤ ∧ (𝐾𝑁) ∈ ℤ) → ((𝐾𝑁) ∈ (ℤ𝑛) ↔ 𝑛 ≤ (𝐾𝑁)))
6964, 67, 68syl2anc 575 . . . . . . 7 ((𝜑𝑛𝐴) → ((𝐾𝑁) ∈ (ℤ𝑛) ↔ 𝑛 ≤ (𝐾𝑁)))
7062, 69mpbird 248 . . . . . 6 ((𝜑𝑛𝐴) → (𝐾𝑁) ∈ (ℤ𝑛))
71 elfzuzb 12555 . . . . . 6 (𝑛 ∈ (𝑀...(𝐾𝑁)) ↔ (𝑛 ∈ (ℤ𝑀) ∧ (𝐾𝑁) ∈ (ℤ𝑛)))
7235, 70, 71sylanbrc 574 . . . . 5 ((𝜑𝑛𝐴) → 𝑛 ∈ (𝑀...(𝐾𝑁)))
7372ex 399 . . . 4 (𝜑 → (𝑛𝐴𝑛 ∈ (𝑀...(𝐾𝑁))))
7473ssrdv 3804 . . 3 (𝜑𝐴 ⊆ (𝑀...(𝐾𝑁)))
751, 2, 34, 74fsumcvg 14662 . 2 (𝜑 → seq𝑀( + , 𝐹) ⇝ (seq𝑀( + , 𝐹)‘(𝐾𝑁)))
76 addid2 10500 . . . . 5 (𝑚 ∈ ℂ → (0 + 𝑚) = 𝑚)
7776adantl 469 . . . 4 ((𝜑𝑚 ∈ ℂ) → (0 + 𝑚) = 𝑚)
78 addid1 10497 . . . . 5 (𝑚 ∈ ℂ → (𝑚 + 0) = 𝑚)
7978adantl 469 . . . 4 ((𝜑𝑚 ∈ ℂ) → (𝑚 + 0) = 𝑚)
80 addcl 10299 . . . . 5 ((𝑚 ∈ ℂ ∧ 𝑥 ∈ ℂ) → (𝑚 + 𝑥) ∈ ℂ)
8180adantl 469 . . . 4 ((𝜑 ∧ (𝑚 ∈ ℂ ∧ 𝑥 ∈ ℂ)) → (𝑚 + 𝑥) ∈ ℂ)
82 0cnd 10314 . . . 4 (𝜑 → 0 ∈ ℂ)
8332, 21eleqtrrd 2888 . . . 4 (𝜑𝑁 ∈ (1...(♯‘𝐴)))
84 iftrue 4285 . . . . . . . . . . 11 (𝑘𝐴 → if(𝑘𝐴, 𝐵, 0) = 𝐵)
8584adantl 469 . . . . . . . . . 10 ((𝜑𝑘𝐴) → if(𝑘𝐴, 𝐵, 0) = 𝐵)
8685, 2eqeltrd 2885 . . . . . . . . 9 ((𝜑𝑘𝐴) → if(𝑘𝐴, 𝐵, 0) ∈ ℂ)
8786ex 399 . . . . . . . 8 (𝜑 → (𝑘𝐴 → if(𝑘𝐴, 𝐵, 0) ∈ ℂ))
88 iffalse 4288 . . . . . . . . 9 𝑘𝐴 → if(𝑘𝐴, 𝐵, 0) = 0)
89 0cn 10313 . . . . . . . . 9 0 ∈ ℂ
9088, 89syl6eqel 2893 . . . . . . . 8 𝑘𝐴 → if(𝑘𝐴, 𝐵, 0) ∈ ℂ)
9187, 90pm2.61d1 172 . . . . . . 7 (𝜑 → if(𝑘𝐴, 𝐵, 0) ∈ ℂ)
9291adantr 468 . . . . . 6 ((𝜑𝑘 ∈ ℤ) → if(𝑘𝐴, 𝐵, 0) ∈ ℂ)
9392, 1fmptd 6602 . . . . 5 (𝜑𝐹:ℤ⟶ℂ)
94 elfzelz 12561 . . . . 5 (𝑚 ∈ (𝑀...(𝐾‘(♯‘𝐴))) → 𝑚 ∈ ℤ)
95 ffvelrn 6575 . . . . 5 ((𝐹:ℤ⟶ℂ ∧ 𝑚 ∈ ℤ) → (𝐹𝑚) ∈ ℂ)
9693, 94, 95syl2an 585 . . . 4 ((𝜑𝑚 ∈ (𝑀...(𝐾‘(♯‘𝐴)))) → (𝐹𝑚) ∈ ℂ)
97 fveqeq2 6413 . . . . . 6 (𝑘 = 𝑚 → ((𝐹𝑘) = 0 ↔ (𝐹𝑚) = 0))
98 eldifi 3931 . . . . . . . . 9 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → 𝑘 ∈ (𝑀...(𝐾‘(♯‘𝐴))))
99 elfzelz 12561 . . . . . . . . 9 (𝑘 ∈ (𝑀...(𝐾‘(♯‘𝐴))) → 𝑘 ∈ ℤ)
10098, 99syl 17 . . . . . . . 8 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → 𝑘 ∈ ℤ)
101 eldifn 3932 . . . . . . . . . 10 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → ¬ 𝑘𝐴)
102101, 88syl 17 . . . . . . . . 9 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → if(𝑘𝐴, 𝐵, 0) = 0)
103102, 89syl6eqel 2893 . . . . . . . 8 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → if(𝑘𝐴, 𝐵, 0) ∈ ℂ)
1041fvmpt2 6508 . . . . . . . 8 ((𝑘 ∈ ℤ ∧ if(𝑘𝐴, 𝐵, 0) ∈ ℂ) → (𝐹𝑘) = if(𝑘𝐴, 𝐵, 0))
105100, 103, 104syl2anc 575 . . . . . . 7 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → (𝐹𝑘) = if(𝑘𝐴, 𝐵, 0))
106105, 102eqtrd 2840 . . . . . 6 (𝑘 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → (𝐹𝑘) = 0)
10797, 106vtoclga 3465 . . . . 5 (𝑚 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴) → (𝐹𝑚) = 0)
108107adantl 469 . . . 4 ((𝜑𝑚 ∈ ((𝑀...(𝐾‘(♯‘𝐴))) ∖ 𝐴)) → (𝐹𝑚) = 0)
109 isof1o 6793 . . . . . . . 8 (𝐾 Isom < , < ((1...(♯‘𝐴)), 𝐴) → 𝐾:(1...(♯‘𝐴))–1-1-onto𝐴)
110 f1of 6349 . . . . . . . 8 (𝐾:(1...(♯‘𝐴))–1-1-onto𝐴𝐾:(1...(♯‘𝐴))⟶𝐴)
1114, 109, 1103syl 18 . . . . . . 7 (𝜑𝐾:(1...(♯‘𝐴))⟶𝐴)
112111ffvelrnda 6577 . . . . . 6 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐾𝑥) ∈ 𝐴)
113112iftrued 4287 . . . . 5 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) = (𝐾𝑥) / 𝑘𝐵)
1143adantr 468 . . . . . . . 8 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → 𝐴 ⊆ (ℤ𝑀))
115114, 112sseldd 3799 . . . . . . 7 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐾𝑥) ∈ (ℤ𝑀))
116 eluzelz 11910 . . . . . . 7 ((𝐾𝑥) ∈ (ℤ𝑀) → (𝐾𝑥) ∈ ℤ)
117115, 116syl 17 . . . . . 6 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐾𝑥) ∈ ℤ)
118 nfv 2005 . . . . . . . . 9 𝑘𝜑
119 nfv 2005 . . . . . . . . . . 11 𝑘(𝐾𝑥) ∈ 𝐴
120 nfcsb1v 3744 . . . . . . . . . . 11 𝑘(𝐾𝑥) / 𝑘𝐵
121 nfcv 2948 . . . . . . . . . . 11 𝑘0
122119, 120, 121nfif 4308 . . . . . . . . . 10 𝑘if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0)
123122nfel1 2963 . . . . . . . . 9 𝑘if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ
124118, 123nfim 1987 . . . . . . . 8 𝑘(𝜑 → if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ)
125 fvex 6417 . . . . . . . 8 (𝐾𝑥) ∈ V
126 eleq1 2873 . . . . . . . . . . 11 (𝑘 = (𝐾𝑥) → (𝑘𝐴 ↔ (𝐾𝑥) ∈ 𝐴))
127 csbeq1a 3737 . . . . . . . . . . 11 (𝑘 = (𝐾𝑥) → 𝐵 = (𝐾𝑥) / 𝑘𝐵)
128126, 127ifbieq1d 4302 . . . . . . . . . 10 (𝑘 = (𝐾𝑥) → if(𝑘𝐴, 𝐵, 0) = if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0))
129128eleq1d 2870 . . . . . . . . 9 (𝑘 = (𝐾𝑥) → (if(𝑘𝐴, 𝐵, 0) ∈ ℂ ↔ if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ))
130129imbi2d 331 . . . . . . . 8 (𝑘 = (𝐾𝑥) → ((𝜑 → if(𝑘𝐴, 𝐵, 0) ∈ ℂ) ↔ (𝜑 → if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ)))
131124, 125, 130, 91vtoclf 3451 . . . . . . 7 (𝜑 → if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ)
132131adantr 468 . . . . . 6 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ)
133 eleq1 2873 . . . . . . . 8 (𝑛 = (𝐾𝑥) → (𝑛𝐴 ↔ (𝐾𝑥) ∈ 𝐴))
134 csbeq1 3731 . . . . . . . 8 (𝑛 = (𝐾𝑥) → 𝑛 / 𝑘𝐵 = (𝐾𝑥) / 𝑘𝐵)
135133, 134ifbieq1d 4302 . . . . . . 7 (𝑛 = (𝐾𝑥) → if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0) = if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0))
136 nfcv 2948 . . . . . . . . 9 𝑛if(𝑘𝐴, 𝐵, 0)
137 nfv 2005 . . . . . . . . . 10 𝑘 𝑛𝐴
138 nfcsb1v 3744 . . . . . . . . . 10 𝑘𝑛 / 𝑘𝐵
139137, 138, 121nfif 4308 . . . . . . . . 9 𝑘if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0)
140 eleq1 2873 . . . . . . . . . 10 (𝑘 = 𝑛 → (𝑘𝐴𝑛𝐴))
141 csbeq1a 3737 . . . . . . . . . 10 (𝑘 = 𝑛𝐵 = 𝑛 / 𝑘𝐵)
142140, 141ifbieq1d 4302 . . . . . . . . 9 (𝑘 = 𝑛 → if(𝑘𝐴, 𝐵, 0) = if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))
143136, 139, 142cbvmpt 4943 . . . . . . . 8 (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 0)) = (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))
1441, 143eqtri 2828 . . . . . . 7 𝐹 = (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))
145135, 144fvmptg 6497 . . . . . 6 (((𝐾𝑥) ∈ ℤ ∧ if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0) ∈ ℂ) → (𝐹‘(𝐾𝑥)) = if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0))
146117, 132, 145syl2anc 575 . . . . 5 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐹‘(𝐾𝑥)) = if((𝐾𝑥) ∈ 𝐴, (𝐾𝑥) / 𝑘𝐵, 0))
147 elfznn 12589 . . . . . . 7 (𝑥 ∈ (1...(♯‘𝐴)) → 𝑥 ∈ ℕ)
148147adantl 469 . . . . . 6 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → 𝑥 ∈ ℕ)
149113, 132eqeltrrd 2886 . . . . . 6 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐾𝑥) / 𝑘𝐵 ∈ ℂ)
150 fveq2 6404 . . . . . . . 8 (𝑛 = 𝑥 → (𝐾𝑛) = (𝐾𝑥))
151150csbeq1d 3735 . . . . . . 7 (𝑛 = 𝑥(𝐾𝑛) / 𝑘𝐵 = (𝐾𝑥) / 𝑘𝐵)
152 summolem2.4 . . . . . . 7 𝐻 = (𝑛 ∈ ℕ ↦ (𝐾𝑛) / 𝑘𝐵)
153151, 152fvmptg 6497 . . . . . 6 ((𝑥 ∈ ℕ ∧ (𝐾𝑥) / 𝑘𝐵 ∈ ℂ) → (𝐻𝑥) = (𝐾𝑥) / 𝑘𝐵)
154148, 149, 153syl2anc 575 . . . . 5 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐻𝑥) = (𝐾𝑥) / 𝑘𝐵)
155113, 146, 1543eqtr4rd 2851 . . . 4 ((𝜑𝑥 ∈ (1...(♯‘𝐴))) → (𝐻𝑥) = (𝐹‘(𝐾𝑥)))
15677, 79, 81, 82, 4, 83, 3, 96, 108, 155seqcoll 13461 . . 3 (𝜑 → (seq𝑀( + , 𝐹)‘(𝐾𝑁)) = (seq1( + , 𝐻)‘𝑁))
157 summo.3 . . . 4 𝐺 = (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵)
15816, 16jca 503 . . . 4 (𝜑 → (𝑁 ∈ ℕ ∧ 𝑁 ∈ ℕ))
1591, 2, 157, 152, 158, 5, 26summolem3 14664 . . 3 (𝜑 → (seq1( + , 𝐺)‘𝑁) = (seq1( + , 𝐻)‘𝑁))
160156, 159eqtr4d 2843 . 2 (𝜑 → (seq𝑀( + , 𝐹)‘(𝐾𝑁)) = (seq1( + , 𝐺)‘𝑁))
16175, 160breqtrd 4870 1 (𝜑 → seq𝑀( + , 𝐹) ⇝ (seq1( + , 𝐺)‘𝑁))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197  wa 384   = wceq 1637  wcel 2156  csb 3728  cdif 3766  wss 3769  ifcif 4279   class class class wbr 4844  cmpt 4923  ccnv 5310  wf 6093  1-1-ontowf1o 6096  cfv 6097   Isom wiso 6098  (class class class)co 6870  cen 8185  Fincfn 8188  cc 10215  cr 10216  0cc0 10217  1c1 10218   + caddc 10220  *cxr 10354   < clt 10355  cle 10356  cn 11301  0cn0 11555  cz 11639  cuz 11900  ...cfz 12545  seqcseq 13020  chash 13333  cli 14434
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1877  ax-4 1894  ax-5 2001  ax-6 2068  ax-7 2104  ax-8 2158  ax-9 2165  ax-10 2185  ax-11 2201  ax-12 2214  ax-13 2420  ax-ext 2784  ax-rep 4964  ax-sep 4975  ax-nul 4983  ax-pow 5035  ax-pr 5096  ax-un 7175  ax-inf2 8781  ax-cnex 10273  ax-resscn 10274  ax-1cn 10275  ax-icn 10276  ax-addcl 10277  ax-addrcl 10278  ax-mulcl 10279  ax-mulrcl 10280  ax-mulcom 10281  ax-addass 10282  ax-mulass 10283  ax-distr 10284  ax-i2m1 10285  ax-1ne0 10286  ax-1rid 10287  ax-rnegex 10288  ax-rrecex 10289  ax-cnre 10290  ax-pre-lttri 10291  ax-pre-lttrn 10292  ax-pre-ltadd 10293  ax-pre-mulgt0 10294
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 866  df-3or 1101  df-3an 1102  df-tru 1641  df-ex 1860  df-nf 1864  df-sb 2061  df-eu 2634  df-mo 2635  df-clab 2793  df-cleq 2799  df-clel 2802  df-nfc 2937  df-ne 2979  df-nel 3082  df-ral 3101  df-rex 3102  df-reu 3103  df-rmo 3104  df-rab 3105  df-v 3393  df-sbc 3634  df-csb 3729  df-dif 3772  df-un 3774  df-in 3776  df-ss 3783  df-pss 3785  df-nul 4117  df-if 4280  df-pw 4353  df-sn 4371  df-pr 4373  df-tp 4375  df-op 4377  df-uni 4631  df-int 4670  df-iun 4714  df-br 4845  df-opab 4907  df-mpt 4924  df-tr 4947  df-id 5219  df-eprel 5224  df-po 5232  df-so 5233  df-fr 5270  df-we 5272  df-xp 5317  df-rel 5318  df-cnv 5319  df-co 5320  df-dm 5321  df-rn 5322  df-res 5323  df-ima 5324  df-pred 5893  df-ord 5939  df-on 5940  df-lim 5941  df-suc 5942  df-iota 6060  df-fun 6099  df-fn 6100  df-f 6101  df-f1 6102  df-fo 6103  df-f1o 6104  df-fv 6105  df-isom 6106  df-riota 6831  df-ov 6873  df-oprab 6874  df-mpt2 6875  df-om 7292  df-1st 7394  df-2nd 7395  df-wrecs 7638  df-recs 7700  df-rdg 7738  df-1o 7792  df-oadd 7796  df-er 7975  df-en 8189  df-dom 8190  df-sdom 8191  df-fin 8192  df-card 9044  df-pnf 10357  df-mnf 10358  df-xr 10359  df-ltxr 10360  df-le 10361  df-sub 10549  df-neg 10550  df-div 10966  df-nn 11302  df-2 11360  df-n0 11556  df-z 11640  df-uz 11901  df-rp 12043  df-fz 12546  df-fzo 12686  df-seq 13021  df-exp 13080  df-hash 13334  df-cj 14058  df-re 14059  df-im 14060  df-sqrt 14194  df-abs 14195  df-clim 14438
This theorem is referenced by:  summolem2  14666  zsum  14668
  Copyright terms: Public domain W3C validator