Metamath Proof Explorer


Theorem divgcdcoprmex

Description: Integers divided by gcd are coprime (see ProofWiki "Integers Divided by GCD are Coprime", 11-Jul-2021, https://proofwiki.org/wiki/Integers_Divided_by_GCD_are_Coprime ): Any pair of integers, not both zero, can be reduced to a pair of coprime ones by dividing them by their gcd. (Contributed by AV, 12-Jul-2021)

Ref Expression
Assertion divgcdcoprmex ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → ∃ a ∈ ℤ ∃ b ∈ ℤ A = M ⁢ a ∧ B = M ⁢ b ∧ a gcd b = 1

Proof

Step Hyp Ref Expression
1 simpl ⊢ B ∈ ℤ ∧ B ≠ 0 → B ∈ ℤ
2 1 anim2i ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 → A ∈ ℤ ∧ B ∈ ℤ
3 zeqzmulgcd ⊢ A ∈ ℤ ∧ B ∈ ℤ → ∃ a ∈ ℤ A = a ⁢ A gcd B
4 2 3 syl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 → ∃ a ∈ ℤ A = a ⁢ A gcd B
5 4 3adant3 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → ∃ a ∈ ℤ A = a ⁢ A gcd B
6 zeqzmulgcd ⊢ B ∈ ℤ ∧ A ∈ ℤ → ∃ b ∈ ℤ B = b ⁢ B gcd A
7 6 adantlr ⊢ B ∈ ℤ ∧ B ≠ 0 ∧ A ∈ ℤ → ∃ b ∈ ℤ B = b ⁢ B gcd A
8 7 ancoms ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 → ∃ b ∈ ℤ B = b ⁢ B gcd A
9 8 3adant3 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → ∃ b ∈ ℤ B = b ⁢ B gcd A
10 reeanv ⊢ ∃ a ∈ ℤ ∃ b ∈ ℤ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A ↔ ∃ a ∈ ℤ A = a ⁢ A gcd B ∧ ∃ b ∈ ℤ B = b ⁢ B gcd A
11 zcn ⊢ a ∈ ℤ → a ∈ ℂ
12 11 adantl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ → a ∈ ℂ
13 gcdcl ⊢ A ∈ ℤ ∧ B ∈ ℤ → A gcd B ∈ ℕ 0
14 2 13 syl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 → A gcd B ∈ ℕ 0
15 14 nn0cnd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 → A gcd B ∈ ℂ
16 15 3adant3 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A gcd B ∈ ℂ
17 16 adantr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ → A gcd B ∈ ℂ
18 12 17 mulcomd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ → a ⁢ A gcd B = A gcd B ⁢ a
19 simp3 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → M = A gcd B
20 19 eqcomd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A gcd B = M
21 20 oveq1d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A gcd B ⁢ a = M ⁢ a
22 21 adantr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ → A gcd B ⁢ a = M ⁢ a
23 18 22 eqtrd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ → a ⁢ A gcd B = M ⁢ a
24 23 ad2antrr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → a ⁢ A gcd B = M ⁢ a
25 eqeq1 ⊢ A = a ⁢ A gcd B → A = M ⁢ a ↔ a ⁢ A gcd B = M ⁢ a
26 25 adantr ⊢ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → A = M ⁢ a ↔ a ⁢ A gcd B = M ⁢ a
27 26 adantl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → A = M ⁢ a ↔ a ⁢ A gcd B = M ⁢ a
28 24 27 mpbird ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → A = M ⁢ a
29 simpr ⊢ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → B = b ⁢ B gcd A
30 2 ancomd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 → B ∈ ℤ ∧ A ∈ ℤ
31 gcdcom ⊢ B ∈ ℤ ∧ A ∈ ℤ → B gcd A = A gcd B
32 30 31 syl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 → B gcd A = A gcd B
33 32 3adant3 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → B gcd A = A gcd B
34 33 oveq2d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → b ⁢ B gcd A = b ⁢ A gcd B
35 34 adantr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ b ∈ ℤ → b ⁢ B gcd A = b ⁢ A gcd B
36 zcn ⊢ b ∈ ℤ → b ∈ ℂ
37 36 adantl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ b ∈ ℤ → b ∈ ℂ
38 14 3adant3 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A gcd B ∈ ℕ 0
39 38 adantr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ b ∈ ℤ → A gcd B ∈ ℕ 0
40 39 nn0cnd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ b ∈ ℤ → A gcd B ∈ ℂ
41 37 40 mulcomd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ b ∈ ℤ → b ⁢ A gcd B = A gcd B ⁢ b
42 20 adantr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ b ∈ ℤ → A gcd B = M
43 42 oveq1d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ b ∈ ℤ → A gcd B ⁢ b = M ⁢ b
44 35 41 43 3eqtrd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ b ∈ ℤ → b ⁢ B gcd A = M ⁢ b
45 44 adantlr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → b ⁢ B gcd A = M ⁢ b
46 29 45 sylan9eqr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → B = M ⁢ b
47 zcn ⊢ A ∈ ℤ → A ∈ ℂ
48 47 3ad2ant1 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A ∈ ℂ
49 48 ad2antrr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → A ∈ ℂ
50 12 adantr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → a ∈ ℂ
51 simp1 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A ∈ ℤ
52 1 3ad2ant2 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → B ∈ ℤ
53 51 52 gcdcld ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A gcd B ∈ ℕ 0
54 53 nn0cnd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A gcd B ∈ ℂ
55 54 ad2antrr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → A gcd B ∈ ℂ
56 gcdeq0 ⊢ A ∈ ℤ ∧ B ∈ ℤ → A gcd B = 0 ↔ A = 0 ∧ B = 0
57 simpr ⊢ A = 0 ∧ B = 0 → B = 0
58 56 57 biimtrdi ⊢ A ∈ ℤ ∧ B ∈ ℤ → A gcd B = 0 → B = 0
59 58 necon3d ⊢ A ∈ ℤ ∧ B ∈ ℤ → B ≠ 0 → A gcd B ≠ 0
60 59 impr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 → A gcd B ≠ 0
61 60 3adant3 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A gcd B ≠ 0
62 61 ad2antrr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → A gcd B ≠ 0
63 49 50 55 62 divmul3d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → A A gcd B = a ↔ A = a ⁢ A gcd B
64 63 bicomd ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → A = a ⁢ A gcd B ↔ A A gcd B = a
65 zcn ⊢ B ∈ ℤ → B ∈ ℂ
66 65 adantr ⊢ B ∈ ℤ ∧ B ≠ 0 → B ∈ ℂ
67 66 3ad2ant2 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → B ∈ ℂ
68 67 ad2antrr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → B ∈ ℂ
69 36 adantl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → b ∈ ℂ
70 68 69 55 62 divmul3d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → B A gcd B = b ↔ B = b ⁢ A gcd B
71 2 3adant3 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A ∈ ℤ ∧ B ∈ ℤ
72 gcdcom ⊢ A ∈ ℤ ∧ B ∈ ℤ → A gcd B = B gcd A
73 71 72 syl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A gcd B = B gcd A
74 73 ad2antrr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → A gcd B = B gcd A
75 74 oveq2d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → b ⁢ A gcd B = b ⁢ B gcd A
76 75 eqeq2d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → B = b ⁢ A gcd B ↔ B = b ⁢ B gcd A
77 70 76 bitr2d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → B = b ⁢ B gcd A ↔ B A gcd B = b
78 64 77 anbi12d ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A ↔ A A gcd B = a ∧ B A gcd B = b
79 3anass ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ↔ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0
80 79 biimpri ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 → A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0
81 80 3adant3 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0
82 divgcdcoprm0 ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 → A A gcd B gcd B A gcd B = 1
83 81 82 syl ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A A gcd B gcd B A gcd B = 1
84 oveq12 ⊢ A A gcd B = a ∧ B A gcd B = b → A A gcd B gcd B A gcd B = a gcd b
85 84 eqeq1d ⊢ A A gcd B = a ∧ B A gcd B = b → A A gcd B gcd B A gcd B = 1 ↔ a gcd b = 1
86 83 85 syl5ibcom ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → A A gcd B = a ∧ B A gcd B = b → a gcd b = 1
87 86 ad2antrr ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → A A gcd B = a ∧ B A gcd B = b → a gcd b = 1
88 78 87 sylbid ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → a gcd b = 1
89 88 imp ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → a gcd b = 1
90 28 46 89 3jca ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ ∧ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → A = M ⁢ a ∧ B = M ⁢ b ∧ a gcd b = 1
91 90 ex ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ ∧ b ∈ ℤ → A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → A = M ⁢ a ∧ B = M ⁢ b ∧ a gcd b = 1
92 91 reximdva ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B ∧ a ∈ ℤ → ∃ b ∈ ℤ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → ∃ b ∈ ℤ A = M ⁢ a ∧ B = M ⁢ b ∧ a gcd b = 1
93 92 reximdva ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → ∃ a ∈ ℤ ∃ b ∈ ℤ A = a ⁢ A gcd B ∧ B = b ⁢ B gcd A → ∃ a ∈ ℤ ∃ b ∈ ℤ A = M ⁢ a ∧ B = M ⁢ b ∧ a gcd b = 1
94 10 93 biimtrrid ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → ∃ a ∈ ℤ A = a ⁢ A gcd B ∧ ∃ b ∈ ℤ B = b ⁢ B gcd A → ∃ a ∈ ℤ ∃ b ∈ ℤ A = M ⁢ a ∧ B = M ⁢ b ∧ a gcd b = 1
95 5 9 94 mp2and ⊢ A ∈ ℤ ∧ B ∈ ℤ ∧ B ≠ 0 ∧ M = A gcd B → ∃ a ∈ ℤ ∃ b ∈ ℤ A = M ⁢ a ∧ B = M ⁢ b ∧ a gcd b = 1