Proof of Theorem divalglem2
Step | Hyp | Ref
| Expression |
1 | | divalglem2.4 |
. . . 4
⊢ 𝑆 = {𝑟 ∈ ℕ0 ∣ 𝐷 ∥ (𝑁 − 𝑟)} |
2 | | ssrab2 3650 |
. . . 4
⊢ {𝑟 ∈ ℕ0
∣ 𝐷 ∥ (𝑁 − 𝑟)} ⊆
ℕ0 |
3 | 1, 2 | eqsstri 3598 |
. . 3
⊢ 𝑆 ⊆
ℕ0 |
4 | | nn0uz 11598 |
. . 3
⊢
ℕ0 = (ℤ≥‘0) |
5 | 3, 4 | sseqtri 3600 |
. 2
⊢ 𝑆 ⊆
(ℤ≥‘0) |
6 | | divalglem0.1 |
. . . . . 6
⊢ 𝑁 ∈ ℤ |
7 | | divalglem0.2 |
. . . . . . . . 9
⊢ 𝐷 ∈ ℤ |
8 | | zmulcl 11303 |
. . . . . . . . 9
⊢ ((𝑁 ∈ ℤ ∧ 𝐷 ∈ ℤ) → (𝑁 · 𝐷) ∈ ℤ) |
9 | 6, 7, 8 | mp2an 704 |
. . . . . . . 8
⊢ (𝑁 · 𝐷) ∈ ℤ |
10 | | nn0abscl 13900 |
. . . . . . . 8
⊢ ((𝑁 · 𝐷) ∈ ℤ → (abs‘(𝑁 · 𝐷)) ∈
ℕ0) |
11 | 9, 10 | ax-mp 5 |
. . . . . . 7
⊢
(abs‘(𝑁
· 𝐷)) ∈
ℕ0 |
12 | 11 | nn0zi 11279 |
. . . . . 6
⊢
(abs‘(𝑁
· 𝐷)) ∈
ℤ |
13 | | zaddcl 11294 |
. . . . . 6
⊢ ((𝑁 ∈ ℤ ∧
(abs‘(𝑁 ·
𝐷)) ∈ ℤ) →
(𝑁 + (abs‘(𝑁 · 𝐷))) ∈ ℤ) |
14 | 6, 12, 13 | mp2an 704 |
. . . . 5
⊢ (𝑁 + (abs‘(𝑁 · 𝐷))) ∈ ℤ |
15 | | divalglem1.3 |
. . . . . 6
⊢ 𝐷 ≠ 0 |
16 | 6, 7, 15 | divalglem1 14955 |
. . . . 5
⊢ 0 ≤
(𝑁 + (abs‘(𝑁 · 𝐷))) |
17 | | elnn0z 11267 |
. . . . 5
⊢ ((𝑁 + (abs‘(𝑁 · 𝐷))) ∈ ℕ0 ↔
((𝑁 + (abs‘(𝑁 · 𝐷))) ∈ ℤ ∧ 0 ≤ (𝑁 + (abs‘(𝑁 · 𝐷))))) |
18 | 14, 16, 17 | mpbir2an 957 |
. . . 4
⊢ (𝑁 + (abs‘(𝑁 · 𝐷))) ∈
ℕ0 |
19 | | iddvds 14833 |
. . . . . . . 8
⊢ (𝐷 ∈ ℤ → 𝐷 ∥ 𝐷) |
20 | | dvdsabsb 14839 |
. . . . . . . . 9
⊢ ((𝐷 ∈ ℤ ∧ 𝐷 ∈ ℤ) → (𝐷 ∥ 𝐷 ↔ 𝐷 ∥ (abs‘𝐷))) |
21 | 20 | anidms 675 |
. . . . . . . 8
⊢ (𝐷 ∈ ℤ → (𝐷 ∥ 𝐷 ↔ 𝐷 ∥ (abs‘𝐷))) |
22 | 19, 21 | mpbid 221 |
. . . . . . 7
⊢ (𝐷 ∈ ℤ → 𝐷 ∥ (abs‘𝐷)) |
23 | 7, 22 | ax-mp 5 |
. . . . . 6
⊢ 𝐷 ∥ (abs‘𝐷) |
24 | | nn0abscl 13900 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℤ →
(abs‘𝑁) ∈
ℕ0) |
25 | 6, 24 | ax-mp 5 |
. . . . . . . 8
⊢
(abs‘𝑁) ∈
ℕ0 |
26 | 25 | nn0negzi 11293 |
. . . . . . 7
⊢
-(abs‘𝑁)
∈ ℤ |
27 | | nn0abscl 13900 |
. . . . . . . . 9
⊢ (𝐷 ∈ ℤ →
(abs‘𝐷) ∈
ℕ0) |
28 | 7, 27 | ax-mp 5 |
. . . . . . . 8
⊢
(abs‘𝐷) ∈
ℕ0 |
29 | 28 | nn0zi 11279 |
. . . . . . 7
⊢
(abs‘𝐷) ∈
ℤ |
30 | | dvdsmultr2 14859 |
. . . . . . 7
⊢ ((𝐷 ∈ ℤ ∧
-(abs‘𝑁) ∈
ℤ ∧ (abs‘𝐷)
∈ ℤ) → (𝐷
∥ (abs‘𝐷)
→ 𝐷 ∥
(-(abs‘𝑁) ·
(abs‘𝐷)))) |
31 | 7, 26, 29, 30 | mp3an 1416 |
. . . . . 6
⊢ (𝐷 ∥ (abs‘𝐷) → 𝐷 ∥ (-(abs‘𝑁) · (abs‘𝐷))) |
32 | 23, 31 | ax-mp 5 |
. . . . 5
⊢ 𝐷 ∥ (-(abs‘𝑁) · (abs‘𝐷)) |
33 | | zcn 11259 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℤ → 𝑁 ∈
ℂ) |
34 | 6, 33 | ax-mp 5 |
. . . . . . . 8
⊢ 𝑁 ∈ ℂ |
35 | | zcn 11259 |
. . . . . . . . 9
⊢ (𝐷 ∈ ℤ → 𝐷 ∈
ℂ) |
36 | 7, 35 | ax-mp 5 |
. . . . . . . 8
⊢ 𝐷 ∈ ℂ |
37 | 34, 36 | absmuli 13991 |
. . . . . . 7
⊢
(abs‘(𝑁
· 𝐷)) =
((abs‘𝑁) ·
(abs‘𝐷)) |
38 | 37 | negeqi 10153 |
. . . . . 6
⊢
-(abs‘(𝑁
· 𝐷)) =
-((abs‘𝑁) ·
(abs‘𝐷)) |
39 | | df-neg 10148 |
. . . . . . 7
⊢
-(abs‘(𝑁
· 𝐷)) = (0 −
(abs‘(𝑁 ·
𝐷))) |
40 | 34 | subidi 10231 |
. . . . . . . 8
⊢ (𝑁 − 𝑁) = 0 |
41 | 40 | oveq1i 6559 |
. . . . . . 7
⊢ ((𝑁 − 𝑁) − (abs‘(𝑁 · 𝐷))) = (0 − (abs‘(𝑁 · 𝐷))) |
42 | 11 | nn0cni 11181 |
. . . . . . . 8
⊢
(abs‘(𝑁
· 𝐷)) ∈
ℂ |
43 | | subsub4 10193 |
. . . . . . . 8
⊢ ((𝑁 ∈ ℂ ∧ 𝑁 ∈ ℂ ∧
(abs‘(𝑁 ·
𝐷)) ∈ ℂ) →
((𝑁 − 𝑁) − (abs‘(𝑁 · 𝐷))) = (𝑁 − (𝑁 + (abs‘(𝑁 · 𝐷))))) |
44 | 34, 34, 42, 43 | mp3an 1416 |
. . . . . . 7
⊢ ((𝑁 − 𝑁) − (abs‘(𝑁 · 𝐷))) = (𝑁 − (𝑁 + (abs‘(𝑁 · 𝐷)))) |
45 | 39, 41, 44 | 3eqtr2ri 2639 |
. . . . . 6
⊢ (𝑁 − (𝑁 + (abs‘(𝑁 · 𝐷)))) = -(abs‘(𝑁 · 𝐷)) |
46 | 34 | abscli 13982 |
. . . . . . . 8
⊢
(abs‘𝑁) ∈
ℝ |
47 | 46 | recni 9931 |
. . . . . . 7
⊢
(abs‘𝑁) ∈
ℂ |
48 | 36 | abscli 13982 |
. . . . . . . 8
⊢
(abs‘𝐷) ∈
ℝ |
49 | 48 | recni 9931 |
. . . . . . 7
⊢
(abs‘𝐷) ∈
ℂ |
50 | 47, 49 | mulneg1i 10355 |
. . . . . 6
⊢
(-(abs‘𝑁)
· (abs‘𝐷)) =
-((abs‘𝑁) ·
(abs‘𝐷)) |
51 | 38, 45, 50 | 3eqtr4i 2642 |
. . . . 5
⊢ (𝑁 − (𝑁 + (abs‘(𝑁 · 𝐷)))) = (-(abs‘𝑁) · (abs‘𝐷)) |
52 | 32, 51 | breqtrri 4610 |
. . . 4
⊢ 𝐷 ∥ (𝑁 − (𝑁 + (abs‘(𝑁 · 𝐷)))) |
53 | | oveq2 6557 |
. . . . . 6
⊢ (𝑟 = (𝑁 + (abs‘(𝑁 · 𝐷))) → (𝑁 − 𝑟) = (𝑁 − (𝑁 + (abs‘(𝑁 · 𝐷))))) |
54 | 53 | breq2d 4595 |
. . . . 5
⊢ (𝑟 = (𝑁 + (abs‘(𝑁 · 𝐷))) → (𝐷 ∥ (𝑁 − 𝑟) ↔ 𝐷 ∥ (𝑁 − (𝑁 + (abs‘(𝑁 · 𝐷)))))) |
55 | 54, 1 | elrab2 3333 |
. . . 4
⊢ ((𝑁 + (abs‘(𝑁 · 𝐷))) ∈ 𝑆 ↔ ((𝑁 + (abs‘(𝑁 · 𝐷))) ∈ ℕ0 ∧ 𝐷 ∥ (𝑁 − (𝑁 + (abs‘(𝑁 · 𝐷)))))) |
56 | 18, 52, 55 | mpbir2an 957 |
. . 3
⊢ (𝑁 + (abs‘(𝑁 · 𝐷))) ∈ 𝑆 |
57 | 56 | ne0ii 3882 |
. 2
⊢ 𝑆 ≠ ∅ |
58 | | infssuzcl 11648 |
. 2
⊢ ((𝑆 ⊆
(ℤ≥‘0) ∧ 𝑆 ≠ ∅) → inf(𝑆, ℝ, < ) ∈ 𝑆) |
59 | 5, 57, 58 | mp2an 704 |
1
⊢ inf(𝑆, ℝ, < ) ∈ 𝑆 |