Step | Hyp | Ref
| Expression |
1 | | 3simpb 990 |
. . . . . . . 8
⊢ ((𝐴 ⊆
(ℤ≥‘𝑚) ∧ ∀𝑗 ∈ (ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) → (𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
2 | | eleq1w 2231 |
. . . . . . . . . . . . 13
⊢ (𝑛 = 𝑖 → (𝑛 ∈ 𝐴 ↔ 𝑖 ∈ 𝐴)) |
3 | | csbeq1 3052 |
. . . . . . . . . . . . 13
⊢ (𝑛 = 𝑖 → ⦋𝑛 / 𝑘⦌𝐵 = ⦋𝑖 / 𝑘⦌𝐵) |
4 | 2, 3 | ifbieq1d 3548 |
. . . . . . . . . . . 12
⊢ (𝑛 = 𝑖 → if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0) = if(𝑖 ∈ 𝐴, ⦋𝑖 / 𝑘⦌𝐵, 0)) |
5 | 4 | cbvmptv 4085 |
. . . . . . . . . . 11
⊢ (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0)) = (𝑖 ∈ ℤ ↦ if(𝑖 ∈ 𝐴, ⦋𝑖 / 𝑘⦌𝐵, 0)) |
6 | | simpr 109 |
. . . . . . . . . . . 12
⊢ ((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) ∧ 𝑖 ∈ 𝐴) → 𝑖 ∈ 𝐴) |
7 | | zisum.5 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑘 ∈ 𝐴) → 𝐵 ∈ ℂ) |
8 | 7 | ralrimiva 2543 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ) |
9 | 8 | ad3antrrr 489 |
. . . . . . . . . . . 12
⊢ ((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) ∧ 𝑖 ∈ 𝐴) → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ) |
10 | | nfcsb1v 3082 |
. . . . . . . . . . . . . 14
⊢
Ⅎ𝑘⦋𝑖 / 𝑘⦌𝐵 |
11 | 10 | nfel1 2323 |
. . . . . . . . . . . . 13
⊢
Ⅎ𝑘⦋𝑖 / 𝑘⦌𝐵 ∈ ℂ |
12 | | csbeq1a 3058 |
. . . . . . . . . . . . . 14
⊢ (𝑘 = 𝑖 → 𝐵 = ⦋𝑖 / 𝑘⦌𝐵) |
13 | 12 | eleq1d 2239 |
. . . . . . . . . . . . 13
⊢ (𝑘 = 𝑖 → (𝐵 ∈ ℂ ↔ ⦋𝑖 / 𝑘⦌𝐵 ∈ ℂ)) |
14 | 11, 13 | rspc 2828 |
. . . . . . . . . . . 12
⊢ (𝑖 ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋𝑖 / 𝑘⦌𝐵 ∈ ℂ)) |
15 | 6, 9, 14 | sylc 62 |
. . . . . . . . . . 11
⊢ ((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) ∧ 𝑖 ∈ 𝐴) → ⦋𝑖 / 𝑘⦌𝐵 ∈ ℂ) |
16 | | simplr 525 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) → 𝑚 ∈ ℤ) |
17 | | zisum.2 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝑀 ∈ ℤ) |
18 | 17 | ad2antrr 485 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) → 𝑀 ∈ ℤ) |
19 | | simpr 109 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) → 𝐴 ⊆ (ℤ≥‘𝑚)) |
20 | | zisum.3 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐴 ⊆ 𝑍) |
21 | | zisum.1 |
. . . . . . . . . . . . 13
⊢ 𝑍 =
(ℤ≥‘𝑀) |
22 | 20, 21 | sseqtrdi 3195 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐴 ⊆ (ℤ≥‘𝑀)) |
23 | 22 | ad2antrr 485 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) → 𝐴 ⊆ (ℤ≥‘𝑀)) |
24 | | zisum.dc |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → ∀𝑥 ∈ 𝑍 DECID 𝑥 ∈ 𝐴) |
25 | 21 | raleqi 2669 |
. . . . . . . . . . . . . . . . . 18
⊢
(∀𝑥 ∈
𝑍 DECID
𝑥 ∈ 𝐴 ↔ ∀𝑥 ∈ (ℤ≥‘𝑀)DECID 𝑥 ∈ 𝐴) |
26 | 24, 25 | sylib 121 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → ∀𝑥 ∈ (ℤ≥‘𝑀)DECID 𝑥 ∈ 𝐴) |
27 | | eleq1w 2231 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑥 = 𝑖 → (𝑥 ∈ 𝐴 ↔ 𝑖 ∈ 𝐴)) |
28 | 27 | dcbid 833 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑥 = 𝑖 → (DECID 𝑥 ∈ 𝐴 ↔ DECID 𝑖 ∈ 𝐴)) |
29 | 28 | cbvralv 2696 |
. . . . . . . . . . . . . . . . 17
⊢
(∀𝑥 ∈
(ℤ≥‘𝑀)DECID 𝑥 ∈ 𝐴 ↔ ∀𝑖 ∈ (ℤ≥‘𝑀)DECID 𝑖 ∈ 𝐴) |
30 | 26, 29 | sylib 121 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → ∀𝑖 ∈ (ℤ≥‘𝑀)DECID 𝑖 ∈ 𝐴) |
31 | 30 | r19.21bi 2558 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → DECID
𝑖 ∈ 𝐴) |
32 | 31 | adantlr 474 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → DECID
𝑖 ∈ 𝐴) |
33 | 32 | adantlr 474 |
. . . . . . . . . . . . 13
⊢ ((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → DECID
𝑖 ∈ 𝐴) |
34 | 33 | adantlr 474 |
. . . . . . . . . . . 12
⊢
(((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆
(ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → DECID
𝑖 ∈ 𝐴) |
35 | | simp-4l 536 |
. . . . . . . . . . . . . . 15
⊢
(((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆
(ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑚)) ∧ ¬ 𝑖 ∈
(ℤ≥‘𝑀)) → 𝜑) |
36 | | simpr 109 |
. . . . . . . . . . . . . . 15
⊢
(((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆
(ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑚)) ∧ ¬ 𝑖 ∈
(ℤ≥‘𝑀)) → ¬ 𝑖 ∈ (ℤ≥‘𝑀)) |
37 | 22 | ssneld 3149 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (¬ 𝑖 ∈ (ℤ≥‘𝑀) → ¬ 𝑖 ∈ 𝐴)) |
38 | 35, 36, 37 | sylc 62 |
. . . . . . . . . . . . . 14
⊢
(((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆
(ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑚)) ∧ ¬ 𝑖 ∈
(ℤ≥‘𝑀)) → ¬ 𝑖 ∈ 𝐴) |
39 | 38 | olcd 729 |
. . . . . . . . . . . . 13
⊢
(((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆
(ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑚)) ∧ ¬ 𝑖 ∈
(ℤ≥‘𝑀)) → (𝑖 ∈ 𝐴 ∨ ¬ 𝑖 ∈ 𝐴)) |
40 | | df-dc 830 |
. . . . . . . . . . . . 13
⊢
(DECID 𝑖 ∈ 𝐴 ↔ (𝑖 ∈ 𝐴 ∨ ¬ 𝑖 ∈ 𝐴)) |
41 | 39, 40 | sylibr 133 |
. . . . . . . . . . . 12
⊢
(((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆
(ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑚)) ∧ ¬ 𝑖 ∈
(ℤ≥‘𝑀)) → DECID 𝑖 ∈ 𝐴) |
42 | | eluzelz 9496 |
. . . . . . . . . . . . . 14
⊢ (𝑖 ∈
(ℤ≥‘𝑚) → 𝑖 ∈ ℤ) |
43 | | eluzdc 9569 |
. . . . . . . . . . . . . 14
⊢ ((𝑀 ∈ ℤ ∧ 𝑖 ∈ ℤ) →
DECID 𝑖
∈ (ℤ≥‘𝑀)) |
44 | 18, 42, 43 | syl2an 287 |
. . . . . . . . . . . . 13
⊢ ((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑚)) → DECID
𝑖 ∈
(ℤ≥‘𝑀)) |
45 | | exmiddc 831 |
. . . . . . . . . . . . 13
⊢
(DECID 𝑖 ∈ (ℤ≥‘𝑀) → (𝑖 ∈ (ℤ≥‘𝑀) ∨ ¬ 𝑖 ∈ (ℤ≥‘𝑀))) |
46 | 44, 45 | syl 14 |
. . . . . . . . . . . 12
⊢ ((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑚)) → (𝑖 ∈ (ℤ≥‘𝑀) ∨ ¬ 𝑖 ∈ (ℤ≥‘𝑀))) |
47 | 34, 41, 46 | mpjaodan 793 |
. . . . . . . . . . 11
⊢ ((((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) ∧ 𝑖 ∈ (ℤ≥‘𝑚)) → DECID
𝑖 ∈ 𝐴) |
48 | 5, 15, 16, 18, 19, 23, 47, 33 | sumrbdc 11342 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) → (seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥 ↔ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
49 | 48 | biimpd 143 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑚 ∈ ℤ) ∧ 𝐴 ⊆ (ℤ≥‘𝑚)) → (seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥 → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
50 | 49 | expimpd 361 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑚 ∈ ℤ) → ((𝐴 ⊆ (ℤ≥‘𝑚) ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
51 | 1, 50 | syl5 32 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑚 ∈ ℤ) → ((𝐴 ⊆ (ℤ≥‘𝑚) ∧ ∀𝑗 ∈
(ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
52 | 51 | rexlimdva 2587 |
. . . . . 6
⊢ (𝜑 → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ ∀𝑗 ∈
(ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
53 | | uzssz 9506 |
. . . . . . . . . . . . . 14
⊢
(ℤ≥‘𝑀) ⊆ ℤ |
54 | 22, 53 | sstrdi 3159 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐴 ⊆ ℤ) |
55 | 54 | ad2antrr 485 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → 𝐴 ⊆ ℤ) |
56 | | 1zzd 9239 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → 1 ∈
ℤ) |
57 | | simplr 525 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → 𝑚 ∈ ℕ) |
58 | 57 | nnzd 9333 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → 𝑚 ∈ ℤ) |
59 | 56, 58 | fzfigd 10387 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → (1...𝑚) ∈ Fin) |
60 | | simpr 109 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → 𝑓:(1...𝑚)–1-1-onto→𝐴) |
61 | | f1oeng 6735 |
. . . . . . . . . . . . . . 15
⊢
(((1...𝑚) ∈ Fin
∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → (1...𝑚) ≈ 𝐴) |
62 | 59, 60, 61 | syl2anc 409 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → (1...𝑚) ≈ 𝐴) |
63 | 62 | ensymd 6761 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → 𝐴 ≈ (1...𝑚)) |
64 | | enfii 6852 |
. . . . . . . . . . . . 13
⊢
(((1...𝑚) ∈ Fin
∧ 𝐴 ≈ (1...𝑚)) → 𝐴 ∈ Fin) |
65 | 59, 63, 64 | syl2anc 409 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → 𝐴 ∈ Fin) |
66 | | zfz1iso 10776 |
. . . . . . . . . . . 12
⊢ ((𝐴 ⊆ ℤ ∧ 𝐴 ∈ Fin) → ∃𝑔 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴)) |
67 | 55, 65, 66 | syl2anc 409 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → ∃𝑔 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴)) |
68 | | simpr 109 |
. . . . . . . . . . . . . . . 16
⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) ∧ 𝑖 ∈ 𝐴) → 𝑖 ∈ 𝐴) |
69 | 8 | ad3antrrr 489 |
. . . . . . . . . . . . . . . 16
⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) ∧ 𝑖 ∈ 𝐴) → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ) |
70 | 68, 69, 14 | sylc 62 |
. . . . . . . . . . . . . . 15
⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) ∧ 𝑖 ∈ 𝐴) → ⦋𝑖 / 𝑘⦌𝐵 ∈ ℂ) |
71 | 31 | adantlr 474 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → DECID
𝑖 ∈ 𝐴) |
72 | 71 | adantlr 474 |
. . . . . . . . . . . . . . 15
⊢ ((((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → DECID
𝑖 ∈ 𝐴) |
73 | | breq1 3992 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑛 = 𝑗 → (𝑛 ≤ (♯‘𝐴) ↔ 𝑗 ≤ (♯‘𝐴))) |
74 | | fveq2 5496 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑛 = 𝑗 → (𝑓‘𝑛) = (𝑓‘𝑗)) |
75 | 74 | csbeq1d 3056 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑛 = 𝑗 → ⦋(𝑓‘𝑛) / 𝑘⦌𝐵 = ⦋(𝑓‘𝑗) / 𝑘⦌𝐵) |
76 | | csbco 3059 |
. . . . . . . . . . . . . . . . . 18
⊢
⦋(𝑓‘𝑗) / 𝑖⦌⦋𝑖 / 𝑘⦌𝐵 = ⦋(𝑓‘𝑗) / 𝑘⦌𝐵 |
77 | 75, 76 | eqtr4di 2221 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑛 = 𝑗 → ⦋(𝑓‘𝑛) / 𝑘⦌𝐵 = ⦋(𝑓‘𝑗) / 𝑖⦌⦋𝑖 / 𝑘⦌𝐵) |
78 | 73, 77 | ifbieq1d 3548 |
. . . . . . . . . . . . . . . 16
⊢ (𝑛 = 𝑗 → if(𝑛 ≤ (♯‘𝐴), ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0) = if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑖⦌⦋𝑖 / 𝑘⦌𝐵, 0)) |
79 | 78 | cbvmptv 4085 |
. . . . . . . . . . . . . . 15
⊢ (𝑛 ∈ ℕ ↦ if(𝑛 ≤ (♯‘𝐴), ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)) = (𝑗 ∈ ℕ ↦ if(𝑗 ≤ (♯‘𝐴), ⦋(𝑓‘𝑗) / 𝑖⦌⦋𝑖 / 𝑘⦌𝐵, 0)) |
80 | | eqid 2170 |
. . . . . . . . . . . . . . 15
⊢ (𝑗 ∈ ℕ ↦ if(𝑗 ≤ 𝑚, ⦋(𝑔‘𝑗) / 𝑖⦌⦋𝑖 / 𝑘⦌𝐵, 0)) = (𝑗 ∈ ℕ ↦ if(𝑗 ≤ 𝑚, ⦋(𝑔‘𝑗) / 𝑖⦌⦋𝑖 / 𝑘⦌𝐵, 0)) |
81 | | simplr 525 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → 𝑚 ∈ ℕ) |
82 | 17 | ad2antrr 485 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → 𝑀 ∈ ℤ) |
83 | 22 | ad2antrr 485 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → 𝐴 ⊆ (ℤ≥‘𝑀)) |
84 | 60 | adantrr 476 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → 𝑓:(1...𝑚)–1-1-onto→𝐴) |
85 | | simprr 527 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴)) |
86 | 5, 70, 72, 79, 80, 81, 82, 83, 84, 85 | summodclem2a 11344 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ (♯‘𝐴), ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚)) |
87 | 59 | adantrr 476 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → (1...𝑚) ∈ Fin) |
88 | 87, 84 | fihasheqf1od 10724 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → (♯‘(1...𝑚)) = (♯‘𝐴)) |
89 | 81 | nnnn0d 9188 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → 𝑚 ∈ ℕ0) |
90 | | hashfz1 10717 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝑚 ∈ ℕ0
→ (♯‘(1...𝑚)) = 𝑚) |
91 | 89, 90 | syl 14 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → (♯‘(1...𝑚)) = 𝑚) |
92 | 88, 91 | eqtr3d 2205 |
. . . . . . . . . . . . . . . . . . 19
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → (♯‘𝐴) = 𝑚) |
93 | 92 | breq2d 4001 |
. . . . . . . . . . . . . . . . . 18
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → (𝑛 ≤ (♯‘𝐴) ↔ 𝑛 ≤ 𝑚)) |
94 | 93 | ifbid 3547 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → if(𝑛 ≤ (♯‘𝐴), ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0) = if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)) |
95 | 94 | mpteq2dv 4080 |
. . . . . . . . . . . . . . . 16
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → (𝑛 ∈ ℕ ↦ if(𝑛 ≤ (♯‘𝐴), ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)) = (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0))) |
96 | 95 | seqeq3d 10409 |
. . . . . . . . . . . . . . 15
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ (♯‘𝐴), ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0))) = seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))) |
97 | 96 | fveq1d 5498 |
. . . . . . . . . . . . . 14
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ (♯‘𝐴), ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚) = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚)) |
98 | 86, 97 | breqtrd 4015 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ (𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴))) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚)) |
99 | 98 | expr 373 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → (𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚))) |
100 | 99 | exlimdv 1812 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → (∃𝑔 𝑔 Isom < , < ((1...(♯‘𝐴)), 𝐴) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚))) |
101 | 67, 100 | mpd 13 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚)) |
102 | | breq2 3993 |
. . . . . . . . . 10
⊢ (𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚) → (seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥 ↔ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚))) |
103 | 101, 102 | syl5ibrcom 156 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑚 ∈ ℕ) ∧ 𝑓:(1...𝑚)–1-1-onto→𝐴) → (𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
104 | 103 | expimpd 361 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑚 ∈ ℕ) → ((𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚)) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
105 | 104 | exlimdv 1812 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑚 ∈ ℕ) → (∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚)) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
106 | 105 | rexlimdva 2587 |
. . . . . 6
⊢ (𝜑 → (∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚)) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
107 | 52, 106 | jaod 712 |
. . . . 5
⊢ (𝜑 → ((∃𝑚 ∈ ℤ (𝐴 ⊆
(ℤ≥‘𝑚) ∧ ∀𝑗 ∈ (ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚))) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
108 | 17 | adantr 274 |
. . . . . . . 8
⊢ ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) → 𝑀 ∈ ℤ) |
109 | 22 | adantr 274 |
. . . . . . . 8
⊢ ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) → 𝐴 ⊆ (ℤ≥‘𝑀)) |
110 | | eleq1w 2231 |
. . . . . . . . . . . 12
⊢ (𝑥 = 𝑗 → (𝑥 ∈ 𝐴 ↔ 𝑗 ∈ 𝐴)) |
111 | 110 | dcbid 833 |
. . . . . . . . . . 11
⊢ (𝑥 = 𝑗 → (DECID 𝑥 ∈ 𝐴 ↔ DECID 𝑗 ∈ 𝐴)) |
112 | 111 | cbvralv 2696 |
. . . . . . . . . 10
⊢
(∀𝑥 ∈
(ℤ≥‘𝑀)DECID 𝑥 ∈ 𝐴 ↔ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) |
113 | 26, 112 | sylib 121 |
. . . . . . . . 9
⊢ (𝜑 → ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) |
114 | 113 | adantr 274 |
. . . . . . . 8
⊢ ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) → ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴) |
115 | | simpr 109 |
. . . . . . . 8
⊢ ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) |
116 | | fveq2 5496 |
. . . . . . . . . . 11
⊢ (𝑚 = 𝑀 → (ℤ≥‘𝑚) =
(ℤ≥‘𝑀)) |
117 | 116 | sseq2d 3177 |
. . . . . . . . . 10
⊢ (𝑚 = 𝑀 → (𝐴 ⊆ (ℤ≥‘𝑚) ↔ 𝐴 ⊆ (ℤ≥‘𝑀))) |
118 | 116 | raleqdv 2671 |
. . . . . . . . . 10
⊢ (𝑚 = 𝑀 → (∀𝑗 ∈ (ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ↔ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴)) |
119 | | seqeq1 10404 |
. . . . . . . . . . 11
⊢ (𝑚 = 𝑀 → seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) = seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0)))) |
120 | 119 | breq1d 3999 |
. . . . . . . . . 10
⊢ (𝑚 = 𝑀 → (seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥 ↔ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
121 | 117, 118,
120 | 3anbi123d 1307 |
. . . . . . . . 9
⊢ (𝑚 = 𝑀 → ((𝐴 ⊆ (ℤ≥‘𝑚) ∧ ∀𝑗 ∈
(ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ↔ (𝐴 ⊆ (ℤ≥‘𝑀) ∧ ∀𝑗 ∈
(ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥))) |
122 | 121 | rspcev 2834 |
. . . . . . . 8
⊢ ((𝑀 ∈ ℤ ∧ (𝐴 ⊆
(ℤ≥‘𝑀) ∧ ∀𝑗 ∈ (ℤ≥‘𝑀)DECID 𝑗 ∈ 𝐴 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) → ∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ ∀𝑗 ∈
(ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
123 | 108, 109,
114, 115, 122 | syl13anc 1235 |
. . . . . . 7
⊢ ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) → ∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ ∀𝑗 ∈
(ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
124 | 123 | orcd 728 |
. . . . . 6
⊢ ((𝜑 ∧ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ ∀𝑗 ∈
(ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚)))) |
125 | 124 | ex 114 |
. . . . 5
⊢ (𝜑 → (seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥 → (∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ ∀𝑗 ∈
(ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚))))) |
126 | 107, 125 | impbid 128 |
. . . 4
⊢ (𝜑 → ((∃𝑚 ∈ ℤ (𝐴 ⊆
(ℤ≥‘𝑚) ∧ ∀𝑗 ∈ (ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚))) ↔ seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥)) |
127 | | eluzelz 9496 |
. . . . . . . 8
⊢ (𝑎 ∈
(ℤ≥‘𝑀) → 𝑎 ∈ ℤ) |
128 | | simpr 109 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑎 ∈ (ℤ≥‘𝑀)) ∧ 𝑎 ∈ 𝐴) → 𝑎 ∈ 𝐴) |
129 | 8 | ad2antrr 485 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑎 ∈ (ℤ≥‘𝑀)) ∧ 𝑎 ∈ 𝐴) → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ) |
130 | | nfcsb1v 3082 |
. . . . . . . . . . . 12
⊢
Ⅎ𝑘⦋𝑎 / 𝑘⦌𝐵 |
131 | 130 | nfel1 2323 |
. . . . . . . . . . 11
⊢
Ⅎ𝑘⦋𝑎 / 𝑘⦌𝐵 ∈ ℂ |
132 | | csbeq1a 3058 |
. . . . . . . . . . . 12
⊢ (𝑘 = 𝑎 → 𝐵 = ⦋𝑎 / 𝑘⦌𝐵) |
133 | 132 | eleq1d 2239 |
. . . . . . . . . . 11
⊢ (𝑘 = 𝑎 → (𝐵 ∈ ℂ ↔ ⦋𝑎 / 𝑘⦌𝐵 ∈ ℂ)) |
134 | 131, 133 | rspc 2828 |
. . . . . . . . . 10
⊢ (𝑎 ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋𝑎 / 𝑘⦌𝐵 ∈ ℂ)) |
135 | 128, 129,
134 | sylc 62 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑎 ∈ (ℤ≥‘𝑀)) ∧ 𝑎 ∈ 𝐴) → ⦋𝑎 / 𝑘⦌𝐵 ∈ ℂ) |
136 | | 0cnd 7913 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑎 ∈ (ℤ≥‘𝑀)) ∧ ¬ 𝑎 ∈ 𝐴) → 0 ∈ ℂ) |
137 | | eleq1w 2231 |
. . . . . . . . . . . . 13
⊢ (𝑥 = 𝑎 → (𝑥 ∈ 𝐴 ↔ 𝑎 ∈ 𝐴)) |
138 | 137 | dcbid 833 |
. . . . . . . . . . . 12
⊢ (𝑥 = 𝑎 → (DECID 𝑥 ∈ 𝐴 ↔ DECID 𝑎 ∈ 𝐴)) |
139 | 138 | cbvralv 2696 |
. . . . . . . . . . 11
⊢
(∀𝑥 ∈
(ℤ≥‘𝑀)DECID 𝑥 ∈ 𝐴 ↔ ∀𝑎 ∈ (ℤ≥‘𝑀)DECID 𝑎 ∈ 𝐴) |
140 | 26, 139 | sylib 121 |
. . . . . . . . . 10
⊢ (𝜑 → ∀𝑎 ∈ (ℤ≥‘𝑀)DECID 𝑎 ∈ 𝐴) |
141 | 140 | r19.21bi 2558 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑎 ∈ (ℤ≥‘𝑀)) → DECID
𝑎 ∈ 𝐴) |
142 | 135, 136,
141 | ifcldadc 3555 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑎 ∈ (ℤ≥‘𝑀)) → if(𝑎 ∈ 𝐴, ⦋𝑎 / 𝑘⦌𝐵, 0) ∈ ℂ) |
143 | | eleq1w 2231 |
. . . . . . . . . 10
⊢ (𝑛 = 𝑎 → (𝑛 ∈ 𝐴 ↔ 𝑎 ∈ 𝐴)) |
144 | | csbeq1 3052 |
. . . . . . . . . 10
⊢ (𝑛 = 𝑎 → ⦋𝑛 / 𝑘⦌𝐵 = ⦋𝑎 / 𝑘⦌𝐵) |
145 | 143, 144 | ifbieq1d 3548 |
. . . . . . . . 9
⊢ (𝑛 = 𝑎 → if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0) = if(𝑎 ∈ 𝐴, ⦋𝑎 / 𝑘⦌𝐵, 0)) |
146 | | eqid 2170 |
. . . . . . . . 9
⊢ (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0)) = (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0)) |
147 | 145, 146 | fvmptg 5572 |
. . . . . . . 8
⊢ ((𝑎 ∈ ℤ ∧ if(𝑎 ∈ 𝐴, ⦋𝑎 / 𝑘⦌𝐵, 0) ∈ ℂ) → ((𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))‘𝑎) = if(𝑎 ∈ 𝐴, ⦋𝑎 / 𝑘⦌𝐵, 0)) |
148 | 127, 142,
147 | syl2an2 589 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑎 ∈ (ℤ≥‘𝑀)) → ((𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))‘𝑎) = if(𝑎 ∈ 𝐴, ⦋𝑎 / 𝑘⦌𝐵, 0)) |
149 | 148, 142 | eqeltrd 2247 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑎 ∈ (ℤ≥‘𝑀)) → ((𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))‘𝑎) ∈ ℂ) |
150 | | simpr 109 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) → 𝑗 ∈ (ℤ≥‘𝑀)) |
151 | 53, 150 | sselid 3145 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) → 𝑗 ∈ ℤ) |
152 | | vex 2733 |
. . . . . . . . . 10
⊢ 𝑗 ∈ V |
153 | | nfv 1521 |
. . . . . . . . . . 11
⊢
Ⅎ𝑘 𝑗 ∈ 𝐴 |
154 | | nfcsb1v 3082 |
. . . . . . . . . . 11
⊢
Ⅎ𝑘⦋𝑗 / 𝑘⦌𝐵 |
155 | | nfcv 2312 |
. . . . . . . . . . 11
⊢
Ⅎ𝑘0 |
156 | 153, 154,
155 | nfif 3554 |
. . . . . . . . . 10
⊢
Ⅎ𝑘if(𝑗 ∈ 𝐴, ⦋𝑗 / 𝑘⦌𝐵, 0) |
157 | | eleq1w 2231 |
. . . . . . . . . . 11
⊢ (𝑘 = 𝑗 → (𝑘 ∈ 𝐴 ↔ 𝑗 ∈ 𝐴)) |
158 | | csbeq1a 3058 |
. . . . . . . . . . 11
⊢ (𝑘 = 𝑗 → 𝐵 = ⦋𝑗 / 𝑘⦌𝐵) |
159 | 157, 158 | ifbieq1d 3548 |
. . . . . . . . . 10
⊢ (𝑘 = 𝑗 → if(𝑘 ∈ 𝐴, 𝐵, 0) = if(𝑗 ∈ 𝐴, ⦋𝑗 / 𝑘⦌𝐵, 0)) |
160 | 152, 156,
159 | csbief 3093 |
. . . . . . . . 9
⊢
⦋𝑗 /
𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0) = if(𝑗 ∈ 𝐴, ⦋𝑗 / 𝑘⦌𝐵, 0) |
161 | | simpr 109 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) ∧ 𝑗 ∈ 𝐴) → 𝑗 ∈ 𝐴) |
162 | 8 | ad2antrr 485 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) ∧ 𝑗 ∈ 𝐴) → ∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ) |
163 | 154 | nfel1 2323 |
. . . . . . . . . . . 12
⊢
Ⅎ𝑘⦋𝑗 / 𝑘⦌𝐵 ∈ ℂ |
164 | 158 | eleq1d 2239 |
. . . . . . . . . . . 12
⊢ (𝑘 = 𝑗 → (𝐵 ∈ ℂ ↔ ⦋𝑗 / 𝑘⦌𝐵 ∈ ℂ)) |
165 | 163, 164 | rspc 2828 |
. . . . . . . . . . 11
⊢ (𝑗 ∈ 𝐴 → (∀𝑘 ∈ 𝐴 𝐵 ∈ ℂ → ⦋𝑗 / 𝑘⦌𝐵 ∈ ℂ)) |
166 | 161, 162,
165 | sylc 62 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) ∧ 𝑗 ∈ 𝐴) → ⦋𝑗 / 𝑘⦌𝐵 ∈ ℂ) |
167 | | 0cnd 7913 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) ∧ ¬ 𝑗 ∈ 𝐴) → 0 ∈ ℂ) |
168 | 113 | r19.21bi 2558 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) → DECID
𝑗 ∈ 𝐴) |
169 | 166, 167,
168 | ifcldadc 3555 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) → if(𝑗 ∈ 𝐴, ⦋𝑗 / 𝑘⦌𝐵, 0) ∈ ℂ) |
170 | 160, 169 | eqeltrid 2257 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) → ⦋𝑗 / 𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ) |
171 | | nfcv 2312 |
. . . . . . . . . . 11
⊢
Ⅎ𝑛if(𝑘 ∈ 𝐴, 𝐵, 0) |
172 | | nfv 1521 |
. . . . . . . . . . . 12
⊢
Ⅎ𝑘 𝑛 ∈ 𝐴 |
173 | | nfcsb1v 3082 |
. . . . . . . . . . . 12
⊢
Ⅎ𝑘⦋𝑛 / 𝑘⦌𝐵 |
174 | 172, 173,
155 | nfif 3554 |
. . . . . . . . . . 11
⊢
Ⅎ𝑘if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0) |
175 | | eleq1w 2231 |
. . . . . . . . . . . 12
⊢ (𝑘 = 𝑛 → (𝑘 ∈ 𝐴 ↔ 𝑛 ∈ 𝐴)) |
176 | | csbeq1a 3058 |
. . . . . . . . . . . 12
⊢ (𝑘 = 𝑛 → 𝐵 = ⦋𝑛 / 𝑘⦌𝐵) |
177 | 175, 176 | ifbieq1d 3548 |
. . . . . . . . . . 11
⊢ (𝑘 = 𝑛 → if(𝑘 ∈ 𝐴, 𝐵, 0) = if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0)) |
178 | 171, 174,
177 | cbvmpt 4084 |
. . . . . . . . . 10
⊢ (𝑘 ∈ ℤ ↦ if(𝑘 ∈ 𝐴, 𝐵, 0)) = (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0)) |
179 | 178 | eqcomi 2174 |
. . . . . . . . 9
⊢ (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0)) = (𝑘 ∈ ℤ ↦ if(𝑘 ∈ 𝐴, 𝐵, 0)) |
180 | 179 | fvmpts 5574 |
. . . . . . . 8
⊢ ((𝑗 ∈ ℤ ∧
⦋𝑗 / 𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0) ∈ ℂ) → ((𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))‘𝑗) = ⦋𝑗 / 𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0)) |
181 | 151, 170,
180 | syl2anc 409 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) → ((𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))‘𝑗) = ⦋𝑗 / 𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0)) |
182 | 150, 21 | eleqtrrdi 2264 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) → 𝑗 ∈ 𝑍) |
183 | | zisum.4 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑘 ∈ 𝑍) → (𝐹‘𝑘) = if(𝑘 ∈ 𝐴, 𝐵, 0)) |
184 | 183 | ralrimiva 2543 |
. . . . . . . . 9
⊢ (𝜑 → ∀𝑘 ∈ 𝑍 (𝐹‘𝑘) = if(𝑘 ∈ 𝐴, 𝐵, 0)) |
185 | 184 | adantr 274 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) → ∀𝑘 ∈ 𝑍 (𝐹‘𝑘) = if(𝑘 ∈ 𝐴, 𝐵, 0)) |
186 | | nfcsb1v 3082 |
. . . . . . . . . 10
⊢
Ⅎ𝑘⦋𝑗 / 𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0) |
187 | 186 | nfeq2 2324 |
. . . . . . . . 9
⊢
Ⅎ𝑘(𝐹‘𝑗) = ⦋𝑗 / 𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0) |
188 | | fveq2 5496 |
. . . . . . . . . 10
⊢ (𝑘 = 𝑗 → (𝐹‘𝑘) = (𝐹‘𝑗)) |
189 | | csbeq1a 3058 |
. . . . . . . . . 10
⊢ (𝑘 = 𝑗 → if(𝑘 ∈ 𝐴, 𝐵, 0) = ⦋𝑗 / 𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0)) |
190 | 188, 189 | eqeq12d 2185 |
. . . . . . . . 9
⊢ (𝑘 = 𝑗 → ((𝐹‘𝑘) = if(𝑘 ∈ 𝐴, 𝐵, 0) ↔ (𝐹‘𝑗) = ⦋𝑗 / 𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0))) |
191 | 187, 190 | rspc 2828 |
. . . . . . . 8
⊢ (𝑗 ∈ 𝑍 → (∀𝑘 ∈ 𝑍 (𝐹‘𝑘) = if(𝑘 ∈ 𝐴, 𝐵, 0) → (𝐹‘𝑗) = ⦋𝑗 / 𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0))) |
192 | 182, 185,
191 | sylc 62 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) → (𝐹‘𝑗) = ⦋𝑗 / 𝑘⦌if(𝑘 ∈ 𝐴, 𝐵, 0)) |
193 | 181, 192 | eqtr4d 2206 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑗 ∈ (ℤ≥‘𝑀)) → ((𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))‘𝑗) = (𝐹‘𝑗)) |
194 | | addcl 7899 |
. . . . . . 7
⊢ ((𝑎 ∈ ℂ ∧ 𝑏 ∈ ℂ) → (𝑎 + 𝑏) ∈ ℂ) |
195 | 194 | adantl 275 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑎 ∈ ℂ ∧ 𝑏 ∈ ℂ)) → (𝑎 + 𝑏) ∈ ℂ) |
196 | 17, 149, 193, 195 | seq3feq 10428 |
. . . . 5
⊢ (𝜑 → seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) = seq𝑀( + , 𝐹)) |
197 | 196 | breq1d 3999 |
. . . 4
⊢ (𝜑 → (seq𝑀( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥 ↔ seq𝑀( + , 𝐹) ⇝ 𝑥)) |
198 | 126, 197 | bitrd 187 |
. . 3
⊢ (𝜑 → ((∃𝑚 ∈ ℤ (𝐴 ⊆
(ℤ≥‘𝑚) ∧ ∀𝑗 ∈ (ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚))) ↔ seq𝑀( + , 𝐹) ⇝ 𝑥)) |
199 | 198 | iotabidv 5181 |
. 2
⊢ (𝜑 → (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ ∀𝑗 ∈
(ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚)))) = (℩𝑥seq𝑀( + , 𝐹) ⇝ 𝑥)) |
200 | | df-sumdc 11317 |
. 2
⊢
Σ𝑘 ∈
𝐴 𝐵 = (℩𝑥(∃𝑚 ∈ ℤ (𝐴 ⊆ (ℤ≥‘𝑚) ∧ ∀𝑗 ∈
(ℤ≥‘𝑚)DECID 𝑗 ∈ 𝐴 ∧ seq𝑚( + , (𝑛 ∈ ℤ ↦ if(𝑛 ∈ 𝐴, ⦋𝑛 / 𝑘⦌𝐵, 0))) ⇝ 𝑥) ∨ ∃𝑚 ∈ ℕ ∃𝑓(𝑓:(1...𝑚)–1-1-onto→𝐴 ∧ 𝑥 = (seq1( + , (𝑛 ∈ ℕ ↦ if(𝑛 ≤ 𝑚, ⦋(𝑓‘𝑛) / 𝑘⦌𝐵, 0)))‘𝑚)))) |
201 | | df-fv 5206 |
. 2
⊢ ( ⇝
‘seq𝑀( + , 𝐹)) = (℩𝑥seq𝑀( + , 𝐹) ⇝ 𝑥) |
202 | 199, 200,
201 | 3eqtr4g 2228 |
1
⊢ (𝜑 → Σ𝑘 ∈ 𝐴 𝐵 = ( ⇝ ‘seq𝑀( + , 𝐹))) |