Proof of Theorem absmulgcd
Step | Hyp | Ref
| Expression |
1 | | gcdcl 16141 |
. . . . 5
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 gcd 𝑁) ∈
ℕ0) |
2 | | nn0re 12172 |
. . . . . 6
⊢ ((𝑀 gcd 𝑁) ∈ ℕ0 → (𝑀 gcd 𝑁) ∈ ℝ) |
3 | | nn0ge0 12188 |
. . . . . 6
⊢ ((𝑀 gcd 𝑁) ∈ ℕ0 → 0 ≤
(𝑀 gcd 𝑁)) |
4 | 2, 3 | absidd 15062 |
. . . . 5
⊢ ((𝑀 gcd 𝑁) ∈ ℕ0 →
(abs‘(𝑀 gcd 𝑁)) = (𝑀 gcd 𝑁)) |
5 | 1, 4 | syl 17 |
. . . 4
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
(abs‘(𝑀 gcd 𝑁)) = (𝑀 gcd 𝑁)) |
6 | 5 | oveq2d 7271 |
. . 3
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
((abs‘𝐾) ·
(abs‘(𝑀 gcd 𝑁))) = ((abs‘𝐾) · (𝑀 gcd 𝑁))) |
7 | 6 | 3adant1 1128 |
. 2
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
((abs‘𝐾) ·
(abs‘(𝑀 gcd 𝑁))) = ((abs‘𝐾) · (𝑀 gcd 𝑁))) |
8 | | zcn 12254 |
. . . 4
⊢ (𝐾 ∈ ℤ → 𝐾 ∈
ℂ) |
9 | 1 | nn0cnd 12225 |
. . . 4
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 gcd 𝑁) ∈ ℂ) |
10 | | absmul 14934 |
. . . 4
⊢ ((𝐾 ∈ ℂ ∧ (𝑀 gcd 𝑁) ∈ ℂ) → (abs‘(𝐾 · (𝑀 gcd 𝑁))) = ((abs‘𝐾) · (abs‘(𝑀 gcd 𝑁)))) |
11 | 8, 9, 10 | syl2an 595 |
. . 3
⊢ ((𝐾 ∈ ℤ ∧ (𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ)) →
(abs‘(𝐾 ·
(𝑀 gcd 𝑁))) = ((abs‘𝐾) · (abs‘(𝑀 gcd 𝑁)))) |
12 | 11 | 3impb 1113 |
. 2
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
(abs‘(𝐾 ·
(𝑀 gcd 𝑁))) = ((abs‘𝐾) · (abs‘(𝑀 gcd 𝑁)))) |
13 | | zcn 12254 |
. . . . 5
⊢ (𝑀 ∈ ℤ → 𝑀 ∈
ℂ) |
14 | | zcn 12254 |
. . . . 5
⊢ (𝑁 ∈ ℤ → 𝑁 ∈
ℂ) |
15 | | absmul 14934 |
. . . . . . 7
⊢ ((𝐾 ∈ ℂ ∧ 𝑀 ∈ ℂ) →
(abs‘(𝐾 ·
𝑀)) = ((abs‘𝐾) · (abs‘𝑀))) |
16 | | absmul 14934 |
. . . . . . 7
⊢ ((𝐾 ∈ ℂ ∧ 𝑁 ∈ ℂ) →
(abs‘(𝐾 ·
𝑁)) = ((abs‘𝐾) · (abs‘𝑁))) |
17 | 15, 16 | oveqan12d 7274 |
. . . . . 6
⊢ (((𝐾 ∈ ℂ ∧ 𝑀 ∈ ℂ) ∧ (𝐾 ∈ ℂ ∧ 𝑁 ∈ ℂ)) →
((abs‘(𝐾 ·
𝑀)) gcd (abs‘(𝐾 · 𝑁))) = (((abs‘𝐾) · (abs‘𝑀)) gcd ((abs‘𝐾) · (abs‘𝑁)))) |
18 | 17 | 3impdi 1348 |
. . . . 5
⊢ ((𝐾 ∈ ℂ ∧ 𝑀 ∈ ℂ ∧ 𝑁 ∈ ℂ) →
((abs‘(𝐾 ·
𝑀)) gcd (abs‘(𝐾 · 𝑁))) = (((abs‘𝐾) · (abs‘𝑀)) gcd ((abs‘𝐾) · (abs‘𝑁)))) |
19 | 8, 13, 14, 18 | syl3an 1158 |
. . . 4
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
((abs‘(𝐾 ·
𝑀)) gcd (abs‘(𝐾 · 𝑁))) = (((abs‘𝐾) · (abs‘𝑀)) gcd ((abs‘𝐾) · (abs‘𝑁)))) |
20 | | zmulcl 12299 |
. . . . . 6
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (𝐾 · 𝑀) ∈ ℤ) |
21 | | zmulcl 12299 |
. . . . . 6
⊢ ((𝐾 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝐾 · 𝑁) ∈ ℤ) |
22 | | gcdabs 16166 |
. . . . . 6
⊢ (((𝐾 · 𝑀) ∈ ℤ ∧ (𝐾 · 𝑁) ∈ ℤ) → ((abs‘(𝐾 · 𝑀)) gcd (abs‘(𝐾 · 𝑁))) = ((𝐾 · 𝑀) gcd (𝐾 · 𝑁))) |
23 | 20, 21, 22 | syl2an 595 |
. . . . 5
⊢ (((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ) ∧ (𝐾 ∈ ℤ ∧ 𝑁 ∈ ℤ)) →
((abs‘(𝐾 ·
𝑀)) gcd (abs‘(𝐾 · 𝑁))) = ((𝐾 · 𝑀) gcd (𝐾 · 𝑁))) |
24 | 23 | 3impdi 1348 |
. . . 4
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
((abs‘(𝐾 ·
𝑀)) gcd (abs‘(𝐾 · 𝑁))) = ((𝐾 · 𝑀) gcd (𝐾 · 𝑁))) |
25 | | nn0abscl 14952 |
. . . . 5
⊢ (𝐾 ∈ ℤ →
(abs‘𝐾) ∈
ℕ0) |
26 | | zabscl 14953 |
. . . . 5
⊢ (𝑀 ∈ ℤ →
(abs‘𝑀) ∈
ℤ) |
27 | | zabscl 14953 |
. . . . 5
⊢ (𝑁 ∈ ℤ →
(abs‘𝑁) ∈
ℤ) |
28 | | mulgcd 16184 |
. . . . 5
⊢
(((abs‘𝐾)
∈ ℕ0 ∧ (abs‘𝑀) ∈ ℤ ∧ (abs‘𝑁) ∈ ℤ) →
(((abs‘𝐾) ·
(abs‘𝑀)) gcd
((abs‘𝐾) ·
(abs‘𝑁))) =
((abs‘𝐾) ·
((abs‘𝑀) gcd
(abs‘𝑁)))) |
29 | 25, 26, 27, 28 | syl3an 1158 |
. . . 4
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
(((abs‘𝐾) ·
(abs‘𝑀)) gcd
((abs‘𝐾) ·
(abs‘𝑁))) =
((abs‘𝐾) ·
((abs‘𝑀) gcd
(abs‘𝑁)))) |
30 | 19, 24, 29 | 3eqtr3d 2786 |
. . 3
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝐾 · 𝑀) gcd (𝐾 · 𝑁)) = ((abs‘𝐾) · ((abs‘𝑀) gcd (abs‘𝑁)))) |
31 | | gcdabs 16166 |
. . . . 5
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
((abs‘𝑀) gcd
(abs‘𝑁)) = (𝑀 gcd 𝑁)) |
32 | 31 | 3adant1 1128 |
. . . 4
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
((abs‘𝑀) gcd
(abs‘𝑁)) = (𝑀 gcd 𝑁)) |
33 | 32 | oveq2d 7271 |
. . 3
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
((abs‘𝐾) ·
((abs‘𝑀) gcd
(abs‘𝑁))) =
((abs‘𝐾) ·
(𝑀 gcd 𝑁))) |
34 | 30, 33 | eqtrd 2778 |
. 2
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝐾 · 𝑀) gcd (𝐾 · 𝑁)) = ((abs‘𝐾) · (𝑀 gcd 𝑁))) |
35 | 7, 12, 34 | 3eqtr4rd 2789 |
1
⊢ ((𝐾 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝐾 · 𝑀) gcd (𝐾 · 𝑁)) = (abs‘(𝐾 · (𝑀 gcd 𝑁)))) |