Proof of Theorem fsumdvdsdiaglem
Step | Hyp | Ref
| Expression |
1 | | elrabi 3359 |
. . . . 5
⊢ (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)} → 𝑘 ∈ ℕ) |
2 | 1 | ad2antll 765 |
. . . 4
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∈ ℕ) |
3 | | breq1 4656 |
. . . . . . . 8
⊢ (𝑥 = 𝑘 → (𝑥 ∥ (𝑁 / 𝑗) ↔ 𝑘 ∥ (𝑁 / 𝑗))) |
4 | 3 | elrab 3363 |
. . . . . . 7
⊢ (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)} ↔ (𝑘 ∈ ℕ ∧ 𝑘 ∥ (𝑁 / 𝑗))) |
5 | 4 | simprbi 480 |
. . . . . 6
⊢ (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)} → 𝑘 ∥ (𝑁 / 𝑗)) |
6 | 5 | ad2antll 765 |
. . . . 5
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∥ (𝑁 / 𝑗)) |
7 | | fsumdvdsdiag.1 |
. . . . . . . 8
⊢ (𝜑 → 𝑁 ∈ ℕ) |
8 | 7 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑁 ∈ ℕ) |
9 | | simprl 794 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁}) |
10 | | dvdsdivcl 15038 |
. . . . . . 7
⊢ ((𝑁 ∈ ℕ ∧ 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁}) → (𝑁 / 𝑗) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁}) |
11 | 8, 9, 10 | syl2anc 693 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑗) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁}) |
12 | | breq1 4656 |
. . . . . . . 8
⊢ (𝑥 = (𝑁 / 𝑗) → (𝑥 ∥ 𝑁 ↔ (𝑁 / 𝑗) ∥ 𝑁)) |
13 | 12 | elrab 3363 |
. . . . . . 7
⊢ ((𝑁 / 𝑗) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ↔ ((𝑁 / 𝑗) ∈ ℕ ∧ (𝑁 / 𝑗) ∥ 𝑁)) |
14 | 13 | simprbi 480 |
. . . . . 6
⊢ ((𝑁 / 𝑗) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} → (𝑁 / 𝑗) ∥ 𝑁) |
15 | 11, 14 | syl 17 |
. . . . 5
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑗) ∥ 𝑁) |
16 | 2 | nnzd 11481 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∈ ℤ) |
17 | | elrabi 3359 |
. . . . . . . 8
⊢ ((𝑁 / 𝑗) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} → (𝑁 / 𝑗) ∈ ℕ) |
18 | 11, 17 | syl 17 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑗) ∈ ℕ) |
19 | 18 | nnzd 11481 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑗) ∈ ℤ) |
20 | 8 | nnzd 11481 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑁 ∈ ℤ) |
21 | | dvdstr 15018 |
. . . . . 6
⊢ ((𝑘 ∈ ℤ ∧ (𝑁 / 𝑗) ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑘 ∥ (𝑁 / 𝑗) ∧ (𝑁 / 𝑗) ∥ 𝑁) → 𝑘 ∥ 𝑁)) |
22 | 16, 19, 20, 21 | syl3anc 1326 |
. . . . 5
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → ((𝑘 ∥ (𝑁 / 𝑗) ∧ (𝑁 / 𝑗) ∥ 𝑁) → 𝑘 ∥ 𝑁)) |
23 | 6, 15, 22 | mp2and 715 |
. . . 4
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∥ 𝑁) |
24 | | breq1 4656 |
. . . . 5
⊢ (𝑥 = 𝑘 → (𝑥 ∥ 𝑁 ↔ 𝑘 ∥ 𝑁)) |
25 | 24 | elrab 3363 |
. . . 4
⊢ (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ↔ (𝑘 ∈ ℕ ∧ 𝑘 ∥ 𝑁)) |
26 | 2, 23, 25 | sylanbrc 698 |
. . 3
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁}) |
27 | | elrabi 3359 |
. . . . 5
⊢ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} → 𝑗 ∈ ℕ) |
28 | 27 | ad2antrl 764 |
. . . 4
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∈ ℕ) |
29 | 28 | nnzd 11481 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∈ ℤ) |
30 | 28 | nnne0d 11065 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ≠ 0) |
31 | | dvdsmulcr 15011 |
. . . . . . . 8
⊢ ((𝑘 ∈ ℤ ∧ (𝑁 / 𝑗) ∈ ℤ ∧ (𝑗 ∈ ℤ ∧ 𝑗 ≠ 0)) → ((𝑘 · 𝑗) ∥ ((𝑁 / 𝑗) · 𝑗) ↔ 𝑘 ∥ (𝑁 / 𝑗))) |
32 | 16, 19, 29, 30, 31 | syl112anc 1330 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → ((𝑘 · 𝑗) ∥ ((𝑁 / 𝑗) · 𝑗) ↔ 𝑘 ∥ (𝑁 / 𝑗))) |
33 | 6, 32 | mpbird 247 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑘 · 𝑗) ∥ ((𝑁 / 𝑗) · 𝑗)) |
34 | 8 | nncnd 11036 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑁 ∈ ℂ) |
35 | 28 | nncnd 11036 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∈ ℂ) |
36 | 34, 35, 30 | divcan1d 10802 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → ((𝑁 / 𝑗) · 𝑗) = 𝑁) |
37 | 2 | nncnd 11036 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ∈ ℂ) |
38 | 2 | nnne0d 11065 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑘 ≠ 0) |
39 | 34, 37, 38 | divcan2d 10803 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑘 · (𝑁 / 𝑘)) = 𝑁) |
40 | 36, 39 | eqtr4d 2659 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → ((𝑁 / 𝑗) · 𝑗) = (𝑘 · (𝑁 / 𝑘))) |
41 | 33, 40 | breqtrd 4679 |
. . . . 5
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑘 · 𝑗) ∥ (𝑘 · (𝑁 / 𝑘))) |
42 | | ssrab2 3687 |
. . . . . . . 8
⊢ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ⊆ ℕ |
43 | | dvdsdivcl 15038 |
. . . . . . . . 9
⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁}) → (𝑁 / 𝑘) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁}) |
44 | 8, 26, 43 | syl2anc 693 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑘) ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁}) |
45 | 42, 44 | sseldi 3601 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑘) ∈ ℕ) |
46 | 45 | nnzd 11481 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑁 / 𝑘) ∈ ℤ) |
47 | | dvdscmulr 15010 |
. . . . . 6
⊢ ((𝑗 ∈ ℤ ∧ (𝑁 / 𝑘) ∈ ℤ ∧ (𝑘 ∈ ℤ ∧ 𝑘 ≠ 0)) → ((𝑘 · 𝑗) ∥ (𝑘 · (𝑁 / 𝑘)) ↔ 𝑗 ∥ (𝑁 / 𝑘))) |
48 | 29, 46, 16, 38, 47 | syl112anc 1330 |
. . . . 5
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → ((𝑘 · 𝑗) ∥ (𝑘 · (𝑁 / 𝑘)) ↔ 𝑗 ∥ (𝑁 / 𝑘))) |
49 | 41, 48 | mpbid 222 |
. . . 4
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∥ (𝑁 / 𝑘)) |
50 | | breq1 4656 |
. . . . 5
⊢ (𝑥 = 𝑗 → (𝑥 ∥ (𝑁 / 𝑘) ↔ 𝑗 ∥ (𝑁 / 𝑘))) |
51 | 50 | elrab 3363 |
. . . 4
⊢ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑘)} ↔ (𝑗 ∈ ℕ ∧ 𝑗 ∥ (𝑁 / 𝑘))) |
52 | 28, 49, 51 | sylanbrc 698 |
. . 3
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑘)}) |
53 | 26, 52 | jca 554 |
. 2
⊢ ((𝜑 ∧ (𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)})) → (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑘)})) |
54 | 53 | ex 450 |
1
⊢ (𝜑 → ((𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑗)}) → (𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝑁} ∧ 𝑗 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ (𝑁 / 𝑘)}))) |