divgcdcoprmex - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > divgcdcoprmex		Structured version Visualization version GIF version

Theorem divgcdcoprmex 16642

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.)

**Assertion**
Ref	Expression
divgcdcoprmex	⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1))

Distinct variable groups: 𝐴,𝑎,𝑏 𝐵,𝑎,𝑏 𝑀,𝑎,𝑏

**Proof of Theorem divgcdcoprmex**
Step	Hyp	Ref	Expression
1		simpl 482	. . . . 5 ⊢ ((𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) → 𝐵 ∈ ℤ)
2	1	anim2i 617	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ))
3		zeqzmulgcd 16486	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ∃𝑎 ∈ ℤ 𝐴 = (𝑎 · (𝐴 gcd 𝐵)))
4	2, 3	syl 17	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → ∃𝑎 ∈ ℤ 𝐴 = (𝑎 · (𝐴 gcd 𝐵)))
5	4	3adant3 1132	. 2 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ∃𝑎 ∈ ℤ 𝐴 = (𝑎 · (𝐴 gcd 𝐵)))
6		zeqzmulgcd 16486	. . . . 5 ⊢ ((𝐵 ∈ ℤ ∧ 𝐴 ∈ ℤ) → ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))
7	6	adantlr 715	. . . 4 ⊢ (((𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝐴 ∈ ℤ) → ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))
8	7	ancoms 458	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))
9	8	3adant3 1132	. 2 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))
10		reeanv 3210	. . 3 ⊢ (∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) ↔ (∃𝑎 ∈ ℤ 𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))))
11		zcn 12540	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ ℤ → 𝑎 ∈ ℂ)
12	11	adantl 481	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → 𝑎 ∈ ℂ)
13		gcdcl 16482	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℕ₀)
14	2, 13	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐴 gcd 𝐵) ∈ ℕ₀)
15	14	nn0cnd 12511	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐴 gcd 𝐵) ∈ ℂ)
16	15	3adant3 1132	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) ∈ ℂ)
17	16	adantr 480	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℂ)
18	12, 17	mulcomd 11201	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → (𝑎 · (𝐴 gcd 𝐵)) = ((𝐴 gcd 𝐵) · 𝑎))
19		simp3 1138	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → 𝑀 = (𝐴 gcd 𝐵))
20	19	eqcomd 2736	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) = 𝑀)
21	20	oveq1d 7404	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ((𝐴 gcd 𝐵) · 𝑎) = (𝑀 · 𝑎))
22	21	adantr 480	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → ((𝐴 gcd 𝐵) · 𝑎) = (𝑀 · 𝑎))
23	18, 22	eqtrd 2765	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → (𝑎 · (𝐴 gcd 𝐵)) = (𝑀 · 𝑎))
24	23	ad2antrr 726	. . . . . . . 8 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → (𝑎 · (𝐴 gcd 𝐵)) = (𝑀 · 𝑎))
25		eqeq1 2734	. . . . . . . . . 10 ⊢ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) → (𝐴 = (𝑀 · 𝑎) ↔ (𝑎 · (𝐴 gcd 𝐵)) = (𝑀 · 𝑎)))
26	25	adantr 480	. . . . . . . . 9 ⊢ ((𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → (𝐴 = (𝑀 · 𝑎) ↔ (𝑎 · (𝐴 gcd 𝐵)) = (𝑀 · 𝑎)))
27	26	adantl 481	. . . . . . . 8 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → (𝐴 = (𝑀 · 𝑎) ↔ (𝑎 · (𝐴 gcd 𝐵)) = (𝑀 · 𝑎)))
28	24, 27	mpbird 257	. . . . . . 7 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → 𝐴 = (𝑀 · 𝑎))
29		simpr 484	. . . . . . . 8 ⊢ ((𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))
30	2	ancomd 461	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐵 ∈ ℤ ∧ 𝐴 ∈ ℤ))
31		gcdcom 16489	. . . . . . . . . . . . . 14 ⊢ ((𝐵 ∈ ℤ ∧ 𝐴 ∈ ℤ) → (𝐵 gcd 𝐴) = (𝐴 gcd 𝐵))
32	30, 31	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐵 gcd 𝐴) = (𝐴 gcd 𝐵))
33	32	3adant3 1132	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐵 gcd 𝐴) = (𝐴 gcd 𝐵))
34	33	oveq2d 7405	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝑏 · (𝐵 gcd 𝐴)) = (𝑏 · (𝐴 gcd 𝐵)))
35	34	adantr 480	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝑏 · (𝐵 gcd 𝐴)) = (𝑏 · (𝐴 gcd 𝐵)))
36		zcn 12540	. . . . . . . . . . . 12 ⊢ (𝑏 ∈ ℤ → 𝑏 ∈ ℂ)
37	36	adantl 481	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → 𝑏 ∈ ℂ)
38	14	3adant3 1132	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) ∈ ℕ₀)
39	38	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℕ₀)
40	39	nn0cnd 12511	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℂ)
41	37, 40	mulcomd 11201	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝑏 · (𝐴 gcd 𝐵)) = ((𝐴 gcd 𝐵) · 𝑏))
42	20	adantr 480	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) = 𝑀)
43	42	oveq1d 7404	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → ((𝐴 gcd 𝐵) · 𝑏) = (𝑀 · 𝑏))
44	35, 41, 43	3eqtrd 2769	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝑏 · (𝐵 gcd 𝐴)) = (𝑀 · 𝑏))
45	44	adantlr 715	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝑏 · (𝐵 gcd 𝐴)) = (𝑀 · 𝑏))
46	29, 45	sylan9eqr 2787	. . . . . . 7 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → 𝐵 = (𝑀 · 𝑏))
47		zcn 12540	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℂ)
48	47	3ad2ant1 1133	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → 𝐴 ∈ ℂ)
49	48	ad2antrr 726	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → 𝐴 ∈ ℂ)
50	12	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → 𝑎 ∈ ℂ)
51		simp1 1136	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → 𝐴 ∈ ℤ)
52	1	3ad2ant2 1134	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → 𝐵 ∈ ℤ)
53	51, 52	gcdcld 16484	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) ∈ ℕ₀)
54	53	nn0cnd 12511	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) ∈ ℂ)
55	54	ad2antrr 726	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℂ)
56		gcdeq0 16493	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) = 0 ↔ (𝐴 = 0 ∧ 𝐵 = 0)))
57		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 = 0 ∧ 𝐵 = 0) → 𝐵 = 0)
58	56, 57	biimtrdi 253	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) = 0 → 𝐵 = 0))
59	58	necon3d 2947	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐵 ≠ 0 → (𝐴 gcd 𝐵) ≠ 0))
60	59	impr 454	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐴 gcd 𝐵) ≠ 0)
61	60	3adant3 1132	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) ≠ 0)
62	61	ad2antrr 726	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) ≠ 0)
63	49, 50, 55, 62	divmul3d 11998	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ↔ 𝐴 = (𝑎 · (𝐴 gcd 𝐵))))
64	63	bicomd 223	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ↔ (𝐴 / (𝐴 gcd 𝐵)) = 𝑎))
65		zcn 12540	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ ℤ → 𝐵 ∈ ℂ)
66	65	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) → 𝐵 ∈ ℂ)
67	66	3ad2ant2 1134	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → 𝐵 ∈ ℂ)
68	67	ad2antrr 726	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → 𝐵 ∈ ℂ)
69	36	adantl 481	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → 𝑏 ∈ ℂ)
70	68, 69, 55, 62	divmul3d 11998	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐵 / (𝐴 gcd 𝐵)) = 𝑏 ↔ 𝐵 = (𝑏 · (𝐴 gcd 𝐵))))
71	2	3adant3 1132	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ))
72		gcdcom 16489	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐴 gcd 𝐵) = (𝐵 gcd 𝐴))
73	71, 72	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) = (𝐵 gcd 𝐴))
74	73	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) = (𝐵 gcd 𝐴))
75	74	oveq2d 7405	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝑏 · (𝐴 gcd 𝐵)) = (𝑏 · (𝐵 gcd 𝐴)))
76	75	eqeq2d 2741	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐵 = (𝑏 · (𝐴 gcd 𝐵)) ↔ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))))
77	70, 76	bitr2d 280	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐵 = (𝑏 · (𝐵 gcd 𝐴)) ↔ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏))
78	64, 77	anbi12d 632	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) ↔ ((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ∧ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏)))
79		3anass 1094	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ↔ (𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)))
80	79	biimpri 228	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐵 ≠ 0))
81	80	3adant3 1132	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐵 ≠ 0))
82		divgcdcoprm0 16641	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) → ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) = 1)
83	81, 82	syl 17	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) = 1)
84		oveq12 7398	. . . . . . . . . . . 12 ⊢ (((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ∧ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏) → ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) = (𝑎 gcd 𝑏))
85	84	eqeq1d 2732	. . . . . . . . . . 11 ⊢ (((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ∧ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏) → (((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) = 1 ↔ (𝑎 gcd 𝑏) = 1))
86	83, 85	syl5ibcom 245	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ∧ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏) → (𝑎 gcd 𝑏) = 1))
87	86	ad2antrr 726	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ∧ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏) → (𝑎 gcd 𝑏) = 1))
88	78, 87	sylbid 240	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → (𝑎 gcd 𝑏) = 1))
89	88	imp 406	. . . . . . 7 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → (𝑎 gcd 𝑏) = 1)
90	28, 46, 89	3jca 1128	. . . . . 6 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1))
91	90	ex 412	. . . . 5 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1)))
92	91	reximdva 3147	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → (∃𝑏 ∈ ℤ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → ∃𝑏 ∈ ℤ (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1)))
93	92	reximdva 3147	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → ∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1)))
94	10, 93	biimtrrid 243	. 2 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ((∃𝑎 ∈ ℤ 𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → ∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1)))
95	5, 9, 94	mp2and 699	1 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2109 ≠ wne 2926 ∃wrex 3054 (class class class)co 7389 ℂcc 11072 0cc0 11074 1c1 11075 · cmul 11079 / cdiv 11841 ℕ₀cn0 12448 ℤcz 12535 gcd cgcd 16470

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2702 ax-sep 5253 ax-nul 5263 ax-pow 5322 ax-pr 5389 ax-un 7713 ax-cnex 11130 ax-resscn 11131 ax-1cn 11132 ax-icn 11133 ax-addcl 11134 ax-addrcl 11135 ax-mulcl 11136 ax-mulrcl 11137 ax-mulcom 11138 ax-addass 11139 ax-mulass 11140 ax-distr 11141 ax-i2m1 11142 ax-1ne0 11143 ax-1rid 11144 ax-rnegex 11145 ax-rrecex 11146 ax-cnre 11147 ax-pre-lttri 11148 ax-pre-lttrn 11149 ax-pre-ltadd 11150 ax-pre-mulgt0 11151 ax-pre-sup 11152

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2534 df-eu 2563 df-clab 2709 df-cleq 2722 df-clel 2804 df-nfc 2879 df-ne 2927 df-nel 3031 df-ral 3046 df-rex 3055 df-rmo 3356 df-reu 3357 df-rab 3409 df-v 3452 df-sbc 3756 df-csb 3865 df-dif 3919 df-un 3921 df-in 3923 df-ss 3933 df-pss 3936 df-nul 4299 df-if 4491 df-pw 4567 df-sn 4592 df-pr 4594 df-op 4598 df-uni 4874 df-iun 4959 df-br 5110 df-opab 5172 df-mpt 5191 df-tr 5217 df-id 5535 df-eprel 5540 df-po 5548 df-so 5549 df-fr 5593 df-we 5595 df-xp 5646 df-rel 5647 df-cnv 5648 df-co 5649 df-dm 5650 df-rn 5651 df-res 5652 df-ima 5653 df-pred 6276 df-ord 6337 df-on 6338 df-lim 6339 df-suc 6340 df-iota 6466 df-fun 6515 df-fn 6516 df-f 6517 df-f1 6518 df-fo 6519 df-f1o 6520 df-fv 6521 df-riota 7346 df-ov 7392 df-oprab 7393 df-mpo 7394 df-om 7845 df-2nd 7971 df-frecs 8262 df-wrecs 8293 df-recs 8342 df-rdg 8380 df-er 8673 df-en 8921 df-dom 8922 df-sdom 8923 df-sup 9399 df-inf 9400 df-pnf 11216 df-mnf 11217 df-xr 11218 df-ltxr 11219 df-le 11220 df-sub 11413 df-neg 11414 df-div 11842 df-nn 12188 df-2 12250 df-3 12251 df-n0 12449 df-z 12536 df-uz 12800 df-rp 12958 df-fl 13760 df-mod 13838 df-seq 13973 df-exp 14033 df-cj 15071 df-re 15072 df-im 15073 df-sqrt 15207 df-abs 15208 df-dvds 16229 df-gcd 16471

This theorem is referenced by: cncongr1 16643

W3C validator