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

Theorem zsum 14238
Description: Series sum with index set a subset of the upper integers. (Contributed by Mario Carneiro, 13-Jun-2019.)
Hypotheses
Ref Expression
zsum.1 𝑍 = (ℤ𝑀)
zsum.2 (𝜑𝑀 ∈ ℤ)
zsum.3 (𝜑𝐴𝑍)
zsum.4 ((𝜑𝑘𝑍) → (𝐹𝑘) = if(𝑘𝐴, 𝐵, 0))
zsum.5 ((𝜑𝑘𝐴) → 𝐵 ∈ ℂ)
Assertion
Ref Expression
zsum (𝜑 → Σ𝑘𝐴 𝐵 = ( ⇝ ‘seq𝑀( + , 𝐹)))
Distinct variable groups:   𝐴,𝑘   𝑘,𝐹   𝜑,𝑘   𝑘,𝑍   𝑘,𝑀
Allowed substitution hint:   𝐵(𝑘)

Proof of Theorem zsum
Dummy variables 𝑓 𝑔 𝑖 𝑗 𝑚 𝑛 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eleq1 2671 . . . . . . . . . . . 12 (𝑛 = 𝑖 → (𝑛𝐴𝑖𝐴))
2 csbeq1 3497 . . . . . . . . . . . 12 (𝑛 = 𝑖𝑛 / 𝑘𝐵 = 𝑖 / 𝑘𝐵)
31, 2ifbieq1d 4054 . . . . . . . . . . 11 (𝑛 = 𝑖 → if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0) = if(𝑖𝐴, 𝑖 / 𝑘𝐵, 0))
43cbvmptv 4668 . . . . . . . . . 10 (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0)) = (𝑖 ∈ ℤ ↦ if(𝑖𝐴, 𝑖 / 𝑘𝐵, 0))
5 simpll 785 . . . . . . . . . . 11 (((𝜑𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ𝑚)) → 𝜑)
6 zsum.5 . . . . . . . . . . . . 13 ((𝜑𝑘𝐴) → 𝐵 ∈ ℂ)
76ralrimiva 2944 . . . . . . . . . . . 12 (𝜑 → ∀𝑘𝐴 𝐵 ∈ ℂ)
8 nfcsb1v 3510 . . . . . . . . . . . . . 14 𝑘𝑖 / 𝑘𝐵
98nfel1 2760 . . . . . . . . . . . . 13 𝑘𝑖 / 𝑘𝐵 ∈ ℂ
10 csbeq1a 3503 . . . . . . . . . . . . . 14 (𝑘 = 𝑖𝐵 = 𝑖 / 𝑘𝐵)
1110eleq1d 2667 . . . . . . . . . . . . 13 (𝑘 = 𝑖 → (𝐵 ∈ ℂ ↔ 𝑖 / 𝑘𝐵 ∈ ℂ))
129, 11rspc 3271 . . . . . . . . . . . 12 (𝑖𝐴 → (∀𝑘𝐴 𝐵 ∈ ℂ → 𝑖 / 𝑘𝐵 ∈ ℂ))
137, 12syl5 33 . . . . . . . . . . 11 (𝑖𝐴 → (𝜑𝑖 / 𝑘𝐵 ∈ ℂ))
145, 13mpan9 484 . . . . . . . . . 10 ((((𝜑𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ𝑚)) ∧ 𝑖𝐴) → 𝑖 / 𝑘𝐵 ∈ ℂ)
15 simplr 787 . . . . . . . . . 10 (((𝜑𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ𝑚)) → 𝑚 ∈ ℤ)
16 zsum.2 . . . . . . . . . . 11 (𝜑𝑀 ∈ ℤ)
1716ad2antrr 757 . . . . . . . . . 10 (((𝜑𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ𝑚)) → 𝑀 ∈ ℤ)
18 simpr 475 . . . . . . . . . 10 (((𝜑𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ𝑚)) → 𝐴 ⊆ (ℤ𝑚))
19 zsum.3 . . . . . . . . . . . 12 (𝜑𝐴𝑍)
20 zsum.1 . . . . . . . . . . . 12 𝑍 = (ℤ𝑀)
2119, 20syl6sseq 3609 . . . . . . . . . . 11 (𝜑𝐴 ⊆ (ℤ𝑀))
2221ad2antrr 757 . . . . . . . . . 10 (((𝜑𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ𝑚)) → 𝐴 ⊆ (ℤ𝑀))
234, 14, 15, 17, 18, 22sumrb 14233 . . . . . . . . 9 (((𝜑𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ𝑚)) → (seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥 ↔ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
2423biimpd 217 . . . . . . . 8 (((𝜑𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ𝑚)) → (seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥 → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
2524expimpd 626 . . . . . . 7 ((𝜑𝑚 ∈ ℤ) → ((𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
2625rexlimdva 3008 . . . . . 6 (𝜑 → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
2719ad2antrr 757 . . . . . . . . . . . . 13 (((𝜑𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → 𝐴𝑍)
28 uzssz 11535 . . . . . . . . . . . . . . . 16 (ℤ𝑀) ⊆ ℤ
2920, 28eqsstri 3593 . . . . . . . . . . . . . . 15 𝑍 ⊆ ℤ
30 zssre 11213 . . . . . . . . . . . . . . 15 ℤ ⊆ ℝ
3129, 30sstri 3572 . . . . . . . . . . . . . 14 𝑍 ⊆ ℝ
32 ltso 9965 . . . . . . . . . . . . . 14 < Or ℝ
33 soss 4963 . . . . . . . . . . . . . 14 (𝑍 ⊆ ℝ → ( < Or ℝ → < Or 𝑍))
3431, 32, 33mp2 9 . . . . . . . . . . . . 13 < Or 𝑍
35 soss 4963 . . . . . . . . . . . . 13 (𝐴𝑍 → ( < Or 𝑍 → < Or 𝐴))
3627, 34, 35mpisyl 21 . . . . . . . . . . . 12 (((𝜑𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → < Or 𝐴)
37 fzfi 12584 . . . . . . . . . . . . 13 (1...𝑚) ∈ Fin
38 ovex 6551 . . . . . . . . . . . . . . . 16 (1...𝑚) ∈ V
3938f1oen 7835 . . . . . . . . . . . . . . 15 (𝑓:(1...𝑚)–1-1-onto𝐴 → (1...𝑚) ≈ 𝐴)
4039adantl 480 . . . . . . . . . . . . . 14 (((𝜑𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → (1...𝑚) ≈ 𝐴)
4140ensymd 7866 . . . . . . . . . . . . 13 (((𝜑𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → 𝐴 ≈ (1...𝑚))
42 enfii 8035 . . . . . . . . . . . . 13 (((1...𝑚) ∈ Fin ∧ 𝐴 ≈ (1...𝑚)) → 𝐴 ∈ Fin)
4337, 41, 42sylancr 693 . . . . . . . . . . . 12 (((𝜑𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → 𝐴 ∈ Fin)
44 fz1iso 13051 . . . . . . . . . . . 12 (( < Or 𝐴𝐴 ∈ Fin) → ∃𝑔 𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))
4536, 43, 44syl2anc 690 . . . . . . . . . . 11 (((𝜑𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → ∃𝑔 𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))
46 simpll 785 . . . . . . . . . . . . . . 15 (((𝜑𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto𝐴𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))) → 𝜑)
4746, 13mpan9 484 . . . . . . . . . . . . . 14 ((((𝜑𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto𝐴𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))) ∧ 𝑖𝐴) → 𝑖 / 𝑘𝐵 ∈ ℂ)
48 fveq2 6084 . . . . . . . . . . . . . . . . 17 (𝑛 = 𝑗 → (𝑓𝑛) = (𝑓𝑗))
4948csbeq1d 3501 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑗(𝑓𝑛) / 𝑘𝐵 = (𝑓𝑗) / 𝑘𝐵)
50 csbco 3504 . . . . . . . . . . . . . . . 16 (𝑓𝑗) / 𝑖𝑖 / 𝑘𝐵 = (𝑓𝑗) / 𝑘𝐵
5149, 50syl6eqr 2657 . . . . . . . . . . . . . . 15 (𝑛 = 𝑗(𝑓𝑛) / 𝑘𝐵 = (𝑓𝑗) / 𝑖𝑖 / 𝑘𝐵)
5251cbvmptv 4668 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵) = (𝑗 ∈ ℕ ↦ (𝑓𝑗) / 𝑖𝑖 / 𝑘𝐵)
53 eqid 2605 . . . . . . . . . . . . . 14 (𝑗 ∈ ℕ ↦ (𝑔𝑗) / 𝑖𝑖 / 𝑘𝐵) = (𝑗 ∈ ℕ ↦ (𝑔𝑗) / 𝑖𝑖 / 𝑘𝐵)
54 simplr 787 . . . . . . . . . . . . . 14 (((𝜑𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto𝐴𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))) → 𝑚 ∈ ℕ)
5516ad2antrr 757 . . . . . . . . . . . . . 14 (((𝜑𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto𝐴𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))) → 𝑀 ∈ ℤ)
5621ad2antrr 757 . . . . . . . . . . . . . 14 (((𝜑𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto𝐴𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))) → 𝐴 ⊆ (ℤ𝑀))
57 simprl 789 . . . . . . . . . . . . . 14 (((𝜑𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto𝐴𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))) → 𝑓:(1...𝑚)–1-1-onto𝐴)
58 simprr 791 . . . . . . . . . . . . . 14 (((𝜑𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto𝐴𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))) → 𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))
594, 47, 52, 53, 54, 55, 56, 57, 58summolem2a 14235 . . . . . . . . . . . . 13 (((𝜑𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto𝐴𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴))) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))
6059expr 640 . . . . . . . . . . . 12 (((𝜑𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → (𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))
6160exlimdv 1846 . . . . . . . . . . 11 (((𝜑𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → (∃𝑔 𝑔 Isom < , < ((1...(#‘𝐴)), 𝐴) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))
6245, 61mpd 15 . . . . . . . . . 10 (((𝜑𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))
63 breq2 4577 . . . . . . . . . 10 (𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚) → (seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥 ↔ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))
6462, 63syl5ibrcom 235 . . . . . . . . 9 (((𝜑𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto𝐴) → (𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
6564expimpd 626 . . . . . . . 8 ((𝜑𝑚 ∈ ℕ) → ((𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
6665exlimdv 1846 . . . . . . 7 ((𝜑𝑚 ∈ ℕ) → (∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
6766rexlimdva 3008 . . . . . 6 (𝜑 → (∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
6826, 67jaod 393 . . . . 5 (𝜑 → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
6916adantr 479 . . . . . . . 8 ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) → 𝑀 ∈ ℤ)
7021adantr 479 . . . . . . . 8 ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) → 𝐴 ⊆ (ℤ𝑀))
71 simpr 475 . . . . . . . 8 ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥)
72 fveq2 6084 . . . . . . . . . . 11 (𝑚 = 𝑀 → (ℤ𝑚) = (ℤ𝑀))
7372sseq2d 3591 . . . . . . . . . 10 (𝑚 = 𝑀 → (𝐴 ⊆ (ℤ𝑚) ↔ 𝐴 ⊆ (ℤ𝑀)))
74 seqeq1 12617 . . . . . . . . . . 11 (𝑚 = 𝑀 → seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) = seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))))
7574breq1d 4583 . . . . . . . . . 10 (𝑚 = 𝑀 → (seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥 ↔ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
7673, 75anbi12d 742 . . . . . . . . 9 (𝑚 = 𝑀 → ((𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ↔ (𝐴 ⊆ (ℤ𝑀) ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥)))
7776rspcev 3277 . . . . . . . 8 ((𝑀 ∈ ℤ ∧ (𝐴 ⊆ (ℤ𝑀) ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥)) → ∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
7869, 70, 71, 77syl12anc 1315 . . . . . . 7 ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) → ∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
7978orcd 405 . . . . . 6 ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))
8079ex 448 . . . . 5 (𝜑 → (seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥 → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))))
8168, 80impbid 200 . . . 4 (𝜑 → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ↔ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥))
82 simpr 475 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝑀)) → 𝑗 ∈ (ℤ𝑀))
8328, 82sseldi 3561 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝑀)) → 𝑗 ∈ ℤ)
8482, 20syl6eleqr 2694 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝑀)) → 𝑗𝑍)
85 zsum.4 . . . . . . . . . . . 12 ((𝜑𝑘𝑍) → (𝐹𝑘) = if(𝑘𝐴, 𝐵, 0))
8685ralrimiva 2944 . . . . . . . . . . 11 (𝜑 → ∀𝑘𝑍 (𝐹𝑘) = if(𝑘𝐴, 𝐵, 0))
8786adantr 479 . . . . . . . . . 10 ((𝜑𝑗 ∈ (ℤ𝑀)) → ∀𝑘𝑍 (𝐹𝑘) = if(𝑘𝐴, 𝐵, 0))
88 nfcsb1v 3510 . . . . . . . . . . . 12 𝑘𝑗 / 𝑘if(𝑘𝐴, 𝐵, 0)
8988nfeq2 2761 . . . . . . . . . . 11 𝑘(𝐹𝑗) = 𝑗 / 𝑘if(𝑘𝐴, 𝐵, 0)
90 fveq2 6084 . . . . . . . . . . . 12 (𝑘 = 𝑗 → (𝐹𝑘) = (𝐹𝑗))
91 csbeq1a 3503 . . . . . . . . . . . 12 (𝑘 = 𝑗 → if(𝑘𝐴, 𝐵, 0) = 𝑗 / 𝑘if(𝑘𝐴, 𝐵, 0))
9290, 91eqeq12d 2620 . . . . . . . . . . 11 (𝑘 = 𝑗 → ((𝐹𝑘) = if(𝑘𝐴, 𝐵, 0) ↔ (𝐹𝑗) = 𝑗 / 𝑘if(𝑘𝐴, 𝐵, 0)))
9389, 92rspc 3271 . . . . . . . . . 10 (𝑗𝑍 → (∀𝑘𝑍 (𝐹𝑘) = if(𝑘𝐴, 𝐵, 0) → (𝐹𝑗) = 𝑗 / 𝑘if(𝑘𝐴, 𝐵, 0)))
9484, 87, 93sylc 62 . . . . . . . . 9 ((𝜑𝑗 ∈ (ℤ𝑀)) → (𝐹𝑗) = 𝑗 / 𝑘if(𝑘𝐴, 𝐵, 0))
95 fvex 6094 . . . . . . . . 9 (𝐹𝑗) ∈ V
9694, 95syl6eqelr 2692 . . . . . . . 8 ((𝜑𝑗 ∈ (ℤ𝑀)) → 𝑗 / 𝑘if(𝑘𝐴, 𝐵, 0) ∈ V)
97 nfcv 2746 . . . . . . . . . . 11 𝑛if(𝑘𝐴, 𝐵, 0)
98 nfv 1828 . . . . . . . . . . . 12 𝑘 𝑛𝐴
99 nfcsb1v 3510 . . . . . . . . . . . 12 𝑘𝑛 / 𝑘𝐵
100 nfcv 2746 . . . . . . . . . . . 12 𝑘0
10198, 99, 100nfif 4060 . . . . . . . . . . 11 𝑘if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0)
102 eleq1 2671 . . . . . . . . . . . 12 (𝑘 = 𝑛 → (𝑘𝐴𝑛𝐴))
103 csbeq1a 3503 . . . . . . . . . . . 12 (𝑘 = 𝑛𝐵 = 𝑛 / 𝑘𝐵)
104102, 103ifbieq1d 4054 . . . . . . . . . . 11 (𝑘 = 𝑛 → if(𝑘𝐴, 𝐵, 0) = if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))
10597, 101, 104cbvmpt 4667 . . . . . . . . . 10 (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 0)) = (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))
106105eqcomi 2614 . . . . . . . . 9 (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0)) = (𝑘 ∈ ℤ ↦ if(𝑘𝐴, 𝐵, 0))
107106fvmpts 6175 . . . . . . . 8 ((𝑗 ∈ ℤ ∧ 𝑗 / 𝑘if(𝑘𝐴, 𝐵, 0) ∈ V) → ((𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))‘𝑗) = 𝑗 / 𝑘if(𝑘𝐴, 𝐵, 0))
10883, 96, 107syl2anc 690 . . . . . . 7 ((𝜑𝑗 ∈ (ℤ𝑀)) → ((𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))‘𝑗) = 𝑗 / 𝑘if(𝑘𝐴, 𝐵, 0))
109108, 94eqtr4d 2642 . . . . . 6 ((𝜑𝑗 ∈ (ℤ𝑀)) → ((𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))‘𝑗) = (𝐹𝑗))
11016, 109seqfeq 12639 . . . . 5 (𝜑 → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) = seq𝑀( + , 𝐹))
111110breq1d 4583 . . . 4 (𝜑 → (seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥 ↔ seq𝑀( + , 𝐹) ⇝ 𝑥))
11281, 111bitrd 266 . . 3 (𝜑 → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ↔ seq𝑀( + , 𝐹) ⇝ 𝑥))
113112iotabidv 5771 . 2 (𝜑 → (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))) = (℩𝑥seq𝑀( + , 𝐹) ⇝ 𝑥))
114 df-sum 14207 . 2 Σ𝑘𝐴 𝐵 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))
115 df-fv 5794 . 2 ( ⇝ ‘seq𝑀( + , 𝐹)) = (℩𝑥seq𝑀( + , 𝐹) ⇝ 𝑥)
116113, 114, 1153eqtr4g 2664 1 (𝜑 → Σ𝑘𝐴 𝐵 = ( ⇝ ‘seq𝑀( + , 𝐹)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wo 381  wa 382   = wceq 1474  wex 1694  wcel 1975  wral 2891  wrex 2892  Vcvv 3168  csb 3494  wss 3535  ifcif 4031   class class class wbr 4573  cmpt 4633   Or wor 4944  cio 5748  1-1-ontowf1o 5785  cfv 5786   Isom wiso 5787  (class class class)co 6523  cen 7811  Fincfn 7814  cc 9786  cr 9787  0cc0 9788  1c1 9789   + caddc 9791   < clt 9926  cn 10863  cz 11206  cuz 11515  ...cfz 12148  seqcseq 12614  #chash 12930  cli 14005  Σcsu 14206
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1711  ax-4 1726  ax-5 1825  ax-6 1873  ax-7 1920  ax-8 1977  ax-9 1984  ax-10 2004  ax-11 2019  ax-12 2031  ax-13 2228  ax-ext 2585  ax-rep 4689  ax-sep 4699  ax-nul 4708  ax-pow 4760  ax-pr 4824  ax-un 6820  ax-inf2 8394  ax-cnex 9844  ax-resscn 9845  ax-1cn 9846  ax-icn 9847  ax-addcl 9848  ax-addrcl 9849  ax-mulcl 9850  ax-mulrcl 9851  ax-mulcom 9852  ax-addass 9853  ax-mulass 9854  ax-distr 9855  ax-i2m1 9856  ax-1ne0 9857  ax-1rid 9858  ax-rnegex 9859  ax-rrecex 9860  ax-cnre 9861  ax-pre-lttri 9862  ax-pre-lttrn 9863  ax-pre-ltadd 9864  ax-pre-mulgt0 9865
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1866  df-eu 2457  df-mo 2458  df-clab 2592  df-cleq 2598  df-clel 2601  df-nfc 2735  df-ne 2777  df-nel 2778  df-ral 2896  df-rex 2897  df-reu 2898  df-rmo 2899  df-rab 2900  df-v 3170  df-sbc 3398  df-csb 3495  df-dif 3538  df-un 3540  df-in 3542  df-ss 3549  df-pss 3551  df-nul 3870  df-if 4032  df-pw 4105  df-sn 4121  df-pr 4123  df-tp 4125  df-op 4127  df-uni 4363  df-int 4401  df-iun 4447  df-br 4574  df-opab 4634  df-mpt 4635  df-tr 4671  df-eprel 4935  df-id 4939  df-po 4945  df-so 4946  df-fr 4983  df-se 4984  df-we 4985  df-xp 5030  df-rel 5031  df-cnv 5032  df-co 5033  df-dm 5034  df-rn 5035  df-res 5036  df-ima 5037  df-pred 5579  df-ord 5625  df-on 5626  df-lim 5627  df-suc 5628  df-iota 5750  df-fun 5788  df-fn 5789  df-f 5790  df-f1 5791  df-fo 5792  df-f1o 5793  df-fv 5794  df-isom 5795  df-riota 6485  df-ov 6526  df-oprab 6527  df-mpt2 6528  df-om 6931  df-1st 7032  df-2nd 7033  df-wrecs 7267  df-recs 7328  df-rdg 7366  df-1o 7420  df-oadd 7424  df-er 7602  df-en 7815  df-dom 7816  df-sdom 7817  df-fin 7818  df-oi 8271  df-card 8621  df-pnf 9928  df-mnf 9929  df-xr 9930  df-ltxr 9931  df-le 9932  df-sub 10115  df-neg 10116  df-div 10530  df-nn 10864  df-2 10922  df-n0 11136  df-z 11207  df-uz 11516  df-rp 11661  df-fz 12149  df-fzo 12286  df-seq 12615  df-exp 12674  df-hash 12931  df-cj 13629  df-re 13630  df-im 13631  df-sqrt 13765  df-abs 13766  df-clim 14009  df-sum 14207
This theorem is referenced by:  isum  14239  sum0  14241  sumz  14242  sumss  14244  fsumsers  14248
  Copyright terms: Public domain W3C validator