Step | Hyp | Ref
| Expression |
1 | | eqid 2165 |
. . . 4
⊢
(ℤ≥‘𝑀) = (ℤ≥‘𝑀) |
2 | | simp1 987 |
. . . 4
⊢ ((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) → 𝑀 ∈ ℤ) |
3 | | simp2 988 |
. . . 4
⊢ ((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) → 𝐴 ⊆ (ℤ≥‘𝑀)) |
4 | | c0ex 7893 |
. . . . . . 7
⊢ 0 ∈
V |
5 | 4 | fvconst2 5701 |
. . . . . 6
⊢ (𝑘 ∈
(ℤ≥‘𝑀) →
(((ℤ≥‘𝑀) × {0})‘𝑘) = 0) |
6 | 5 | adantl 275 |
. . . . 5
⊢ (((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) ∧ 𝑘 ∈ (ℤ≥‘𝑀)) →
(((ℤ≥‘𝑀) × {0})‘𝑘) = 0) |
7 | | eleq1w 2227 |
. . . . . . . 8
⊢ (𝑗 = 𝑘 → (𝑗 ∈ 𝐴 ↔ 𝑘 ∈ 𝐴)) |
8 | 7 | dcbid 828 |
. . . . . . 7
⊢ (𝑗 = 𝑘 → (DECID 𝑗 ∈ 𝐴 ↔ DECID 𝑘 ∈ 𝐴)) |
9 | | simpl3 992 |
. . . . . . 7
⊢ (((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → ∀𝑗 ∈
(ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) |
10 | | simpr 109 |
. . . . . . 7
⊢ (((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → 𝑘 ∈ (ℤ≥‘𝑀)) |
11 | 8, 9, 10 | rspcdva 2835 |
. . . . . 6
⊢ (((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → DECID
𝑘 ∈ 𝐴) |
12 | | ifiddc 3553 |
. . . . . 6
⊢
(DECID 𝑘 ∈ 𝐴 → if(𝑘 ∈ 𝐴, 0, 0) = 0) |
13 | 11, 12 | syl 14 |
. . . . 5
⊢ (((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → if(𝑘 ∈ 𝐴, 0, 0) = 0) |
14 | 6, 13 | eqtr4d 2201 |
. . . 4
⊢ (((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) ∧ 𝑘 ∈ (ℤ≥‘𝑀)) →
(((ℤ≥‘𝑀) × {0})‘𝑘) = if(𝑘 ∈ 𝐴, 0, 0)) |
15 | | simp3 989 |
. . . . 5
⊢ ((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) → ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) |
16 | | eleq1w 2227 |
. . . . . . 7
⊢ (𝑗 = 𝑎 → (𝑗 ∈ 𝐴 ↔ 𝑎 ∈ 𝐴)) |
17 | 16 | dcbid 828 |
. . . . . 6
⊢ (𝑗 = 𝑎 → (DECID 𝑗 ∈ 𝐴 ↔ DECID 𝑎 ∈ 𝐴)) |
18 | 17 | cbvralv 2692 |
. . . . 5
⊢
(∀𝑗 ∈
(ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴 ↔ ∀𝑎 ∈ (ℤ≥‘𝑀)DECID 𝑎 ∈ 𝐴) |
19 | 15, 18 | sylib 121 |
. . . 4
⊢ ((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) → ∀𝑎 ∈ (ℤ≥‘𝑀)DECID 𝑎 ∈ 𝐴) |
20 | | 0cnd 7892 |
. . . 4
⊢ (((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) ∧ 𝑘 ∈ 𝐴) → 0 ∈ ℂ) |
21 | 1, 2, 3, 14, 19, 20 | zsumdc 11325 |
. . 3
⊢ ((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) → Σ𝑘 ∈ 𝐴 0 = ( ⇝ ‘seq𝑀( + , ((ℤ≥‘𝑀) ×
{0})))) |
22 | | fclim 11235 |
. . . . 5
⊢ ⇝
:dom ⇝ ⟶ℂ |
23 | | ffun 5340 |
. . . . 5
⊢ ( ⇝
:dom ⇝ ⟶ℂ → Fun ⇝ ) |
24 | 22, 23 | ax-mp 5 |
. . . 4
⊢ Fun
⇝ |
25 | | serclim0 11246 |
. . . . 5
⊢ (𝑀 ∈ ℤ → seq𝑀( + ,
((ℤ≥‘𝑀) × {0})) ⇝ 0) |
26 | 2, 25 | syl 14 |
. . . 4
⊢ ((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) → seq𝑀( + , ((ℤ≥‘𝑀) × {0})) ⇝
0) |
27 | | funbrfv 5525 |
. . . 4
⊢ (Fun
⇝ → (seq𝑀( + ,
((ℤ≥‘𝑀) × {0})) ⇝ 0 → ( ⇝
‘seq𝑀( + ,
((ℤ≥‘𝑀) × {0}))) = 0)) |
28 | 24, 26, 27 | mpsyl 65 |
. . 3
⊢ ((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) → ( ⇝ ‘seq𝑀( + ,
((ℤ≥‘𝑀) × {0}))) = 0) |
29 | 21, 28 | eqtrd 2198 |
. 2
⊢ ((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) → Σ𝑘 ∈ 𝐴 0 = 0) |
30 | | fz1f1o 11316 |
. . 3
⊢ (𝐴 ∈ Fin → (𝐴 = ∅ ∨
((♯‘𝐴) ∈
ℕ ∧ ∃𝑓
𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴))) |
31 | | sumeq1 11296 |
. . . . 5
⊢ (𝐴 = ∅ → Σ𝑘 ∈ 𝐴 0 = Σ𝑘 ∈ ∅ 0) |
32 | | sum0 11329 |
. . . . 5
⊢
Σ𝑘 ∈
∅ 0 = 0 |
33 | 31, 32 | eqtrdi 2215 |
. . . 4
⊢ (𝐴 = ∅ → Σ𝑘 ∈ 𝐴 0 = 0) |
34 | | eqidd 2166 |
. . . . . . . . 9
⊢ (𝑘 = (𝑓‘𝑛) → 0 = 0) |
35 | | simpl 108 |
. . . . . . . . 9
⊢
(((♯‘𝐴)
∈ ℕ ∧ 𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴) → (♯‘𝐴) ∈
ℕ) |
36 | | simpr 109 |
. . . . . . . . 9
⊢
(((♯‘𝐴)
∈ ℕ ∧ 𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴) → 𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴) |
37 | | 0cnd 7892 |
. . . . . . . . 9
⊢
((((♯‘𝐴)
∈ ℕ ∧ 𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴) ∧ 𝑘 ∈ 𝐴) → 0 ∈ ℂ) |
38 | | elfznn 9989 |
. . . . . . . . . . 11
⊢ (𝑛 ∈
(1...(♯‘𝐴))
→ 𝑛 ∈
ℕ) |
39 | 4 | fvconst2 5701 |
. . . . . . . . . . 11
⊢ (𝑛 ∈ ℕ → ((ℕ
× {0})‘𝑛) =
0) |
40 | 38, 39 | syl 14 |
. . . . . . . . . 10
⊢ (𝑛 ∈
(1...(♯‘𝐴))
→ ((ℕ × {0})‘𝑛) = 0) |
41 | 40 | adantl 275 |
. . . . . . . . 9
⊢
((((♯‘𝐴)
∈ ℕ ∧ 𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴) ∧ 𝑛 ∈ (1...(♯‘𝐴))) → ((ℕ ×
{0})‘𝑛) =
0) |
42 | 34, 35, 36, 37, 41 | fsum3 11328 |
. . . . . . . 8
⊢
(((♯‘𝐴)
∈ ℕ ∧ 𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴) → Σ𝑘 ∈ 𝐴 0 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ (♯‘𝐴), ((ℕ × {0})‘𝑛),
0)))‘(♯‘𝐴))) |
43 | | nnuz 9501 |
. . . . . . . . . . . . 13
⊢ ℕ =
(ℤ≥‘1) |
44 | 43 | fser0const 10451 |
. . . . . . . . . . . 12
⊢
((♯‘𝐴)
∈ ℕ → (𝑛
∈ ℕ ↦ if(𝑛
≤ (♯‘𝐴),
((ℕ × {0})‘𝑛), 0)) = (ℕ ×
{0})) |
45 | 44 | seqeq3d 10388 |
. . . . . . . . . . 11
⊢
((♯‘𝐴)
∈ ℕ → seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ (♯‘𝐴), ((ℕ × {0})‘𝑛), 0))) = seq1( + , (ℕ
× {0}))) |
46 | 45 | fveq1d 5488 |
. . . . . . . . . 10
⊢
((♯‘𝐴)
∈ ℕ → (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ (♯‘𝐴), ((ℕ × {0})‘𝑛),
0)))‘(♯‘𝐴)) = (seq1( + , (ℕ ×
{0}))‘(♯‘𝐴))) |
47 | 43 | ser0 10449 |
. . . . . . . . . 10
⊢
((♯‘𝐴)
∈ ℕ → (seq1( + , (ℕ ×
{0}))‘(♯‘𝐴)) = 0) |
48 | 46, 47 | eqtrd 2198 |
. . . . . . . . 9
⊢
((♯‘𝐴)
∈ ℕ → (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ (♯‘𝐴), ((ℕ × {0})‘𝑛),
0)))‘(♯‘𝐴)) = 0) |
49 | 35, 48 | syl 14 |
. . . . . . . 8
⊢
(((♯‘𝐴)
∈ ℕ ∧ 𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴) → (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ (♯‘𝐴), ((ℕ ×
{0})‘𝑛),
0)))‘(♯‘𝐴)) = 0) |
50 | 42, 49 | eqtrd 2198 |
. . . . . . 7
⊢
(((♯‘𝐴)
∈ ℕ ∧ 𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴) → Σ𝑘 ∈ 𝐴 0 = 0) |
51 | 50 | ex 114 |
. . . . . 6
⊢
((♯‘𝐴)
∈ ℕ → (𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴 → Σ𝑘 ∈ 𝐴 0 = 0)) |
52 | 51 | exlimdv 1807 |
. . . . 5
⊢
((♯‘𝐴)
∈ ℕ → (∃𝑓 𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴 → Σ𝑘 ∈ 𝐴 0 = 0)) |
53 | 52 | imp 123 |
. . . 4
⊢
(((♯‘𝐴)
∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴) → Σ𝑘 ∈ 𝐴 0 = 0) |
54 | 33, 53 | jaoi 706 |
. . 3
⊢ ((𝐴 = ∅ ∨
((♯‘𝐴) ∈
ℕ ∧ ∃𝑓
𝑓:(1...(♯‘𝐴))–1-1-onto→𝐴)) → Σ𝑘 ∈ 𝐴 0 = 0) |
55 | 30, 54 | syl 14 |
. 2
⊢ (𝐴 ∈ Fin → Σ𝑘 ∈ 𝐴 0 = 0) |
56 | 29, 55 | jaoi 706 |
1
⊢ (((𝑀 ∈ ℤ ∧ 𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) ∨ 𝐴 ∈ Fin) → Σ𝑘 ∈ 𝐴 0 = 0) |