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

Theorem fsum 15661
Description: The value of a sum over a nonempty finite set. (Contributed by Mario Carneiro, 20-Apr-2014.) (Revised by Mario Carneiro, 13-Jun-2019.)
Hypotheses
Ref Expression
fsum.1 (𝑘 = (𝐹𝑛) → 𝐵 = 𝐶)
fsum.2 (𝜑𝑀 ∈ ℕ)
fsum.3 (𝜑𝐹:(1...𝑀)–1-1-onto𝐴)
fsum.4 ((𝜑𝑘𝐴) → 𝐵 ∈ ℂ)
fsum.5 ((𝜑𝑛 ∈ (1...𝑀)) → (𝐺𝑛) = 𝐶)
Assertion
Ref Expression
fsum (𝜑 → Σ𝑘𝐴 𝐵 = (seq1( + , 𝐺)‘𝑀))
Distinct variable groups:   𝐵,𝑛   𝐶,𝑘   𝑘,𝑛,𝐹   𝜑,𝑘,𝑛   𝐴,𝑘,𝑛   𝑘,𝐺,𝑛   𝑘,𝑀,𝑛
Allowed substitution hints:   𝐵(𝑘)   𝐶(𝑛)

Proof of Theorem fsum
Dummy variables 𝑓 𝑖 𝑗 𝑚 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-sum 15628 . 2 Σ𝑘𝐴 𝐵 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))
2 fvex 6900 . . 3 (seq1( + , 𝐺)‘𝑀) ∈ V
3 eleq1w 2817 . . . . . . . . . 10 (𝑛 = 𝑗 → (𝑛𝐴𝑗𝐴))
4 csbeq1 3894 . . . . . . . . . 10 (𝑛 = 𝑗𝑛 / 𝑘𝐵 = 𝑗 / 𝑘𝐵)
53, 4ifbieq1d 4550 . . . . . . . . 9 (𝑛 = 𝑗 → if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0) = if(𝑗𝐴, 𝑗 / 𝑘𝐵, 0))
65cbvmptv 5259 . . . . . . . 8 (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0)) = (𝑗 ∈ ℤ ↦ if(𝑗𝐴, 𝑗 / 𝑘𝐵, 0))
7 fsum.4 . . . . . . . . . 10 ((𝜑𝑘𝐴) → 𝐵 ∈ ℂ)
87ralrimiva 3147 . . . . . . . . 9 (𝜑 → ∀𝑘𝐴 𝐵 ∈ ℂ)
9 nfcsb1v 3916 . . . . . . . . . . 11 𝑘𝑗 / 𝑘𝐵
109nfel1 2920 . . . . . . . . . 10 𝑘𝑗 / 𝑘𝐵 ∈ ℂ
11 csbeq1a 3905 . . . . . . . . . . 11 (𝑘 = 𝑗𝐵 = 𝑗 / 𝑘𝐵)
1211eleq1d 2819 . . . . . . . . . 10 (𝑘 = 𝑗 → (𝐵 ∈ ℂ ↔ 𝑗 / 𝑘𝐵 ∈ ℂ))
1310, 12rspc 3599 . . . . . . . . 9 (𝑗𝐴 → (∀𝑘𝐴 𝐵 ∈ ℂ → 𝑗 / 𝑘𝐵 ∈ ℂ))
148, 13mpan9 508 . . . . . . . 8 ((𝜑𝑗𝐴) → 𝑗 / 𝑘𝐵 ∈ ℂ)
15 fveq2 6887 . . . . . . . . . . 11 (𝑛 = 𝑖 → (𝑓𝑛) = (𝑓𝑖))
1615csbeq1d 3895 . . . . . . . . . 10 (𝑛 = 𝑖(𝑓𝑛) / 𝑘𝐵 = (𝑓𝑖) / 𝑘𝐵)
17 csbcow 3906 . . . . . . . . . 10 (𝑓𝑖) / 𝑗𝑗 / 𝑘𝐵 = (𝑓𝑖) / 𝑘𝐵
1816, 17eqtr4di 2791 . . . . . . . . 9 (𝑛 = 𝑖(𝑓𝑛) / 𝑘𝐵 = (𝑓𝑖) / 𝑗𝑗 / 𝑘𝐵)
1918cbvmptv 5259 . . . . . . . 8 (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵) = (𝑖 ∈ ℕ ↦ (𝑓𝑖) / 𝑗𝑗 / 𝑘𝐵)
206, 14, 19summo 15658 . . . . . . 7 (𝜑 → ∃*𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))
21 fsum.2 . . . . . . . . 9 (𝜑𝑀 ∈ ℕ)
22 fsum.3 . . . . . . . . . . . 12 (𝜑𝐹:(1...𝑀)–1-1-onto𝐴)
23 f1of 6829 . . . . . . . . . . . 12 (𝐹:(1...𝑀)–1-1-onto𝐴𝐹:(1...𝑀)⟶𝐴)
2422, 23syl 17 . . . . . . . . . . 11 (𝜑𝐹:(1...𝑀)⟶𝐴)
25 ovex 7436 . . . . . . . . . . 11 (1...𝑀) ∈ V
26 fex 7222 . . . . . . . . . . 11 ((𝐹:(1...𝑀)⟶𝐴 ∧ (1...𝑀) ∈ V) → 𝐹 ∈ V)
2724, 25, 26sylancl 587 . . . . . . . . . 10 (𝜑𝐹 ∈ V)
28 nnuz 12860 . . . . . . . . . . . . 13 ℕ = (ℤ‘1)
2921, 28eleqtrdi 2844 . . . . . . . . . . . 12 (𝜑𝑀 ∈ (ℤ‘1))
30 fsum.5 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑀)) → (𝐺𝑛) = 𝐶)
31 elfznn 13525 . . . . . . . . . . . . . . . 16 (𝑛 ∈ (1...𝑀) → 𝑛 ∈ ℕ)
32 fvex 6900 . . . . . . . . . . . . . . . . 17 (𝐺𝑛) ∈ V
3330, 32eqeltrrdi 2843 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑀)) → 𝐶 ∈ V)
34 eqid 2733 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ ↦ 𝐶) = (𝑛 ∈ ℕ ↦ 𝐶)
3534fvmpt2 7004 . . . . . . . . . . . . . . . 16 ((𝑛 ∈ ℕ ∧ 𝐶 ∈ V) → ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑛) = 𝐶)
3631, 33, 35syl2an2 685 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑀)) → ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑛) = 𝐶)
3730, 36eqtr4d 2776 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑀)) → (𝐺𝑛) = ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑛))
3837ralrimiva 3147 . . . . . . . . . . . . 13 (𝜑 → ∀𝑛 ∈ (1...𝑀)(𝐺𝑛) = ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑛))
39 nffvmpt1 6898 . . . . . . . . . . . . . . 15 𝑛((𝑛 ∈ ℕ ↦ 𝐶)‘𝑘)
4039nfeq2 2921 . . . . . . . . . . . . . 14 𝑛(𝐺𝑘) = ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑘)
41 fveq2 6887 . . . . . . . . . . . . . . 15 (𝑛 = 𝑘 → (𝐺𝑛) = (𝐺𝑘))
42 fveq2 6887 . . . . . . . . . . . . . . 15 (𝑛 = 𝑘 → ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑛) = ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑘))
4341, 42eqeq12d 2749 . . . . . . . . . . . . . 14 (𝑛 = 𝑘 → ((𝐺𝑛) = ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑛) ↔ (𝐺𝑘) = ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑘)))
4440, 43rspc 3599 . . . . . . . . . . . . 13 (𝑘 ∈ (1...𝑀) → (∀𝑛 ∈ (1...𝑀)(𝐺𝑛) = ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑛) → (𝐺𝑘) = ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑘)))
4538, 44mpan9 508 . . . . . . . . . . . 12 ((𝜑𝑘 ∈ (1...𝑀)) → (𝐺𝑘) = ((𝑛 ∈ ℕ ↦ 𝐶)‘𝑘))
4629, 45seqfveq 13987 . . . . . . . . . . 11 (𝜑 → (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ 𝐶))‘𝑀))
4722, 46jca 513 . . . . . . . . . 10 (𝜑 → (𝐹:(1...𝑀)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ 𝐶))‘𝑀)))
48 f1oeq1 6817 . . . . . . . . . . 11 (𝑓 = 𝐹 → (𝑓:(1...𝑀)–1-1-onto𝐴𝐹:(1...𝑀)–1-1-onto𝐴))
49 fveq1 6886 . . . . . . . . . . . . . . . . 17 (𝑓 = 𝐹 → (𝑓𝑛) = (𝐹𝑛))
5049csbeq1d 3895 . . . . . . . . . . . . . . . 16 (𝑓 = 𝐹(𝑓𝑛) / 𝑘𝐵 = (𝐹𝑛) / 𝑘𝐵)
51 fvex 6900 . . . . . . . . . . . . . . . . 17 (𝐹𝑛) ∈ V
52 fsum.1 . . . . . . . . . . . . . . . . 17 (𝑘 = (𝐹𝑛) → 𝐵 = 𝐶)
5351, 52csbie 3927 . . . . . . . . . . . . . . . 16 (𝐹𝑛) / 𝑘𝐵 = 𝐶
5450, 53eqtrdi 2789 . . . . . . . . . . . . . . 15 (𝑓 = 𝐹(𝑓𝑛) / 𝑘𝐵 = 𝐶)
5554mpteq2dv 5248 . . . . . . . . . . . . . 14 (𝑓 = 𝐹 → (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵) = (𝑛 ∈ ℕ ↦ 𝐶))
5655seqeq3d 13969 . . . . . . . . . . . . 13 (𝑓 = 𝐹 → seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵)) = seq1( + , (𝑛 ∈ ℕ ↦ 𝐶)))
5756fveq1d 6889 . . . . . . . . . . . 12 (𝑓 = 𝐹 → (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ 𝐶))‘𝑀))
5857eqeq2d 2744 . . . . . . . . . . 11 (𝑓 = 𝐹 → ((seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑀) ↔ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ 𝐶))‘𝑀)))
5948, 58anbi12d 632 . . . . . . . . . 10 (𝑓 = 𝐹 → ((𝑓:(1...𝑀)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑀)) ↔ (𝐹:(1...𝑀)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ 𝐶))‘𝑀))))
6027, 47, 59spcedv 3587 . . . . . . . . 9 (𝜑 → ∃𝑓(𝑓:(1...𝑀)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑀)))
61 oveq2 7411 . . . . . . . . . . . . 13 (𝑚 = 𝑀 → (1...𝑚) = (1...𝑀))
6261f1oeq2d 6825 . . . . . . . . . . . 12 (𝑚 = 𝑀 → (𝑓:(1...𝑚)–1-1-onto𝐴𝑓:(1...𝑀)–1-1-onto𝐴))
63 fveq2 6887 . . . . . . . . . . . . 13 (𝑚 = 𝑀 → (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑀))
6463eqeq2d 2744 . . . . . . . . . . . 12 (𝑚 = 𝑀 → ((seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚) ↔ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑀)))
6562, 64anbi12d 632 . . . . . . . . . . 11 (𝑚 = 𝑀 → ((𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) ↔ (𝑓:(1...𝑀)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑀))))
6665exbidv 1925 . . . . . . . . . 10 (𝑚 = 𝑀 → (∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) ↔ ∃𝑓(𝑓:(1...𝑀)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑀))))
6766rspcev 3611 . . . . . . . . 9 ((𝑀 ∈ ℕ ∧ ∃𝑓(𝑓:(1...𝑀)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑀))) → ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))
6821, 60, 67syl2anc 585 . . . . . . . 8 (𝜑 → ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))
6968olcd 873 . . . . . . 7 (𝜑 → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , 𝐺)‘𝑀)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))
70 breq2 5150 . . . . . . . . . . . . . 14 (𝑥 = (seq1( + , 𝐺)‘𝑀) → (seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥 ↔ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , 𝐺)‘𝑀)))
7170anbi2d 630 . . . . . . . . . . . . 13 (𝑥 = (seq1( + , 𝐺)‘𝑀) → ((𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ↔ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , 𝐺)‘𝑀))))
7271rexbidv 3179 . . . . . . . . . . . 12 (𝑥 = (seq1( + , 𝐺)‘𝑀) → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ↔ ∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , 𝐺)‘𝑀))))
73 eqeq1 2737 . . . . . . . . . . . . . . 15 (𝑥 = (seq1( + , 𝐺)‘𝑀) → (𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚) ↔ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))
7473anbi2d 630 . . . . . . . . . . . . . 14 (𝑥 = (seq1( + , 𝐺)‘𝑀) → ((𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) ↔ (𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))
7574exbidv 1925 . . . . . . . . . . . . 13 (𝑥 = (seq1( + , 𝐺)‘𝑀) → (∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) ↔ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))
7675rexbidv 3179 . . . . . . . . . . . 12 (𝑥 = (seq1( + , 𝐺)‘𝑀) → (∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)) ↔ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))
7772, 76orbi12d 918 . . . . . . . . . . 11 (𝑥 = (seq1( + , 𝐺)‘𝑀) → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ↔ (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , 𝐺)‘𝑀)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))))
7877moi2 3710 . . . . . . . . . 10 ((((seq1( + , 𝐺)‘𝑀) ∈ V ∧ ∃*𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))) ∧ ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ∧ (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , 𝐺)‘𝑀)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))) → 𝑥 = (seq1( + , 𝐺)‘𝑀))
792, 78mpanl1 699 . . . . . . . . 9 ((∃*𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ∧ ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ∧ (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , 𝐺)‘𝑀)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))) → 𝑥 = (seq1( + , 𝐺)‘𝑀))
8079ancom2s 649 . . . . . . . 8 ((∃*𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ∧ ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , 𝐺)‘𝑀)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ∧ (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))))) → 𝑥 = (seq1( + , 𝐺)‘𝑀))
8180expr 458 . . . . . . 7 ((∃*𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ∧ (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ (seq1( + , 𝐺)‘𝑀)) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴 ∧ (seq1( + , 𝐺)‘𝑀) = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))) → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) → 𝑥 = (seq1( + , 𝐺)‘𝑀)))
8220, 69, 81syl2anc 585 . . . . . 6 (𝜑 → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) → 𝑥 = (seq1( + , 𝐺)‘𝑀)))
8369, 77syl5ibrcom 246 . . . . . 6 (𝜑 → (𝑥 = (seq1( + , 𝐺)‘𝑀) → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))))
8482, 83impbid 211 . . . . 5 (𝜑 → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ↔ 𝑥 = (seq1( + , 𝐺)‘𝑀)))
8584adantr 482 . . . 4 ((𝜑 ∧ (seq1( + , 𝐺)‘𝑀) ∈ V) → ((∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚))) ↔ 𝑥 = (seq1( + , 𝐺)‘𝑀)))
8685iota5 6522 . . 3 ((𝜑 ∧ (seq1( + , 𝐺)‘𝑀) ∈ V) → (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))) = (seq1( + , 𝐺)‘𝑀))
872, 86mpan2 690 . 2 (𝜑 → (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛𝐴, 𝑛 / 𝑘𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto𝐴𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ (𝑓𝑛) / 𝑘𝐵))‘𝑚)))) = (seq1( + , 𝐺)‘𝑀))
881, 87eqtrid 2785 1 (𝜑 → Σ𝑘𝐴 𝐵 = (seq1( + , 𝐺)‘𝑀))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 397  wo 846   = wceq 1542  wex 1782  wcel 2107  ∃*wmo 2533  wral 3062  wrex 3071  Vcvv 3475  csb 3891  wss 3946  ifcif 4526   class class class wbr 5146  cmpt 5229  cio 6489  wf 6535  1-1-ontowf1o 6538  cfv 6539  (class class class)co 7403  cc 11103  0cc0 11105  1c1 11106   + caddc 11108  cn 12207  cz 12553  cuz 12817  ...cfz 13479  seqcseq 13961  cli 15423  Σcsu 15627
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5283  ax-sep 5297  ax-nul 5304  ax-pow 5361  ax-pr 5425  ax-un 7719  ax-inf2 9631  ax-cnex 11161  ax-resscn 11162  ax-1cn 11163  ax-icn 11164  ax-addcl 11165  ax-addrcl 11166  ax-mulcl 11167  ax-mulrcl 11168  ax-mulcom 11169  ax-addass 11170  ax-mulass 11171  ax-distr 11172  ax-i2m1 11173  ax-1ne0 11174  ax-1rid 11175  ax-rnegex 11176  ax-rrecex 11177  ax-cnre 11178  ax-pre-lttri 11179  ax-pre-lttrn 11180  ax-pre-ltadd 11181  ax-pre-mulgt0 11182  ax-pre-sup 11183
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3776  df-csb 3892  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-pss 3965  df-nul 4321  df-if 4527  df-pw 4602  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4907  df-int 4949  df-iun 4997  df-br 5147  df-opab 5209  df-mpt 5230  df-tr 5264  df-id 5572  df-eprel 5578  df-po 5586  df-so 5587  df-fr 5629  df-se 5630  df-we 5631  df-xp 5680  df-rel 5681  df-cnv 5682  df-co 5683  df-dm 5684  df-rn 5685  df-res 5686  df-ima 5687  df-pred 6296  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6491  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-isom 6548  df-riota 7359  df-ov 7406  df-oprab 7407  df-mpo 7408  df-om 7850  df-1st 7969  df-2nd 7970  df-frecs 8260  df-wrecs 8291  df-recs 8365  df-rdg 8404  df-1o 8460  df-er 8698  df-en 8935  df-dom 8936  df-sdom 8937  df-fin 8938  df-sup 9432  df-oi 9500  df-card 9929  df-pnf 11245  df-mnf 11246  df-xr 11247  df-ltxr 11248  df-le 11249  df-sub 11441  df-neg 11442  df-div 11867  df-nn 12208  df-2 12270  df-3 12271  df-n0 12468  df-z 12554  df-uz 12818  df-rp 12970  df-fz 13480  df-fzo 13623  df-seq 13962  df-exp 14023  df-hash 14286  df-cj 15041  df-re 15042  df-im 15043  df-sqrt 15177  df-abs 15178  df-clim 15427  df-sum 15628
This theorem is referenced by:  sumz  15663  fsumf1o  15664  fsumcl2lem  15672  fsumadd  15681  sumsnf  15684  fsummulc2  15725  fsumconst  15731  fsumrelem  15748  gsumfsum  20996  sumsnd  43642
  Copyright terms: Public domain W3C validator