divgcdcoprmex - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > divgcdcoprmex		GIF version

Theorem divgcdcoprmex 12056

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 108	. . . . 5 ⊢ ((𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) → 𝐵 ∈ ℤ)
2	1	anim2i 340	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ))
3		zeqzmulgcd 11925	. . . 4 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ∃𝑎 ∈ ℤ 𝐴 = (𝑎 · (𝐴 gcd 𝐵)))
4	2, 3	syl 14	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → ∃𝑎 ∈ ℤ 𝐴 = (𝑎 · (𝐴 gcd 𝐵)))
5	4	3adant3 1012	. 2 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ∃𝑎 ∈ ℤ 𝐴 = (𝑎 · (𝐴 gcd 𝐵)))
6		zeqzmulgcd 11925	. . . . 5 ⊢ ((𝐵 ∈ ℤ ∧ 𝐴 ∈ ℤ) → ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))
7	6	adantlr 474	. . . 4 ⊢ (((𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝐴 ∈ ℤ) → ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))
8	7	ancoms 266	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))
9	8	3adant3 1012	. 2 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))
10		reeanv 2639	. . 3 ⊢ (∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) ↔ (∃𝑎 ∈ ℤ 𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))))
11		zcn 9217	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ ℤ → 𝑎 ∈ ℂ)
12	11	adantl 275	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → 𝑎 ∈ ℂ)
13		gcdcl 11921	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℕ₀)
14	2, 13	syl 14	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐴 gcd 𝐵) ∈ ℕ₀)
15	14	nn0cnd 9190	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐴 gcd 𝐵) ∈ ℂ)
16	15	3adant3 1012	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) ∈ ℂ)
17	16	adantr 274	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℂ)
18	12, 17	mulcomd 7941	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → (𝑎 · (𝐴 gcd 𝐵)) = ((𝐴 gcd 𝐵) · 𝑎))
19		simp3 994	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → 𝑀 = (𝐴 gcd 𝐵))
20	19	eqcomd 2176	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) = 𝑀)
21	20	oveq1d 5868	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ((𝐴 gcd 𝐵) · 𝑎) = (𝑀 · 𝑎))
22	21	adantr 274	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → ((𝐴 gcd 𝐵) · 𝑎) = (𝑀 · 𝑎))
23	18, 22	eqtrd 2203	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → (𝑎 · (𝐴 gcd 𝐵)) = (𝑀 · 𝑎))
24	23	ad2antrr 485	. . . . . . . 8 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → (𝑎 · (𝐴 gcd 𝐵)) = (𝑀 · 𝑎))
25		eqeq1 2177	. . . . . . . . . 10 ⊢ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) → (𝐴 = (𝑀 · 𝑎) ↔ (𝑎 · (𝐴 gcd 𝐵)) = (𝑀 · 𝑎)))
26	25	adantr 274	. . . . . . . . 9 ⊢ ((𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → (𝐴 = (𝑀 · 𝑎) ↔ (𝑎 · (𝐴 gcd 𝐵)) = (𝑀 · 𝑎)))
27	26	adantl 275	. . . . . . . 8 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → (𝐴 = (𝑀 · 𝑎) ↔ (𝑎 · (𝐴 gcd 𝐵)) = (𝑀 · 𝑎)))
28	24, 27	mpbird 166	. . . . . . 7 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → 𝐴 = (𝑀 · 𝑎))
29		simpr 109	. . . . . . . 8 ⊢ ((𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))
30	2	ancomd 265	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐵 ∈ ℤ ∧ 𝐴 ∈ ℤ))
31		gcdcom 11928	. . . . . . . . . . . . . 14 ⊢ ((𝐵 ∈ ℤ ∧ 𝐴 ∈ ℤ) → (𝐵 gcd 𝐴) = (𝐴 gcd 𝐵))
32	30, 31	syl 14	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐵 gcd 𝐴) = (𝐴 gcd 𝐵))
33	32	3adant3 1012	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐵 gcd 𝐴) = (𝐴 gcd 𝐵))
34	33	oveq2d 5869	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝑏 · (𝐵 gcd 𝐴)) = (𝑏 · (𝐴 gcd 𝐵)))
35	34	adantr 274	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝑏 · (𝐵 gcd 𝐴)) = (𝑏 · (𝐴 gcd 𝐵)))
36		zcn 9217	. . . . . . . . . . . 12 ⊢ (𝑏 ∈ ℤ → 𝑏 ∈ ℂ)
37	36	adantl 275	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → 𝑏 ∈ ℂ)
38	14	3adant3 1012	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) ∈ ℕ₀)
39	38	adantr 274	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℕ₀)
40	39	nn0cnd 9190	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℂ)
41	37, 40	mulcomd 7941	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝑏 · (𝐴 gcd 𝐵)) = ((𝐴 gcd 𝐵) · 𝑏))
42	20	adantr 274	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) = 𝑀)
43	42	oveq1d 5868	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → ((𝐴 gcd 𝐵) · 𝑏) = (𝑀 · 𝑏))
44	35, 41, 43	3eqtrd 2207	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑏 ∈ ℤ) → (𝑏 · (𝐵 gcd 𝐴)) = (𝑀 · 𝑏))
45	44	adantlr 474	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝑏 · (𝐵 gcd 𝐴)) = (𝑀 · 𝑏))
46	29, 45	sylan9eqr 2225	. . . . . . 7 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → 𝐵 = (𝑀 · 𝑏))
47		zcn 9217	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℂ)
48	47	3ad2ant1 1013	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → 𝐴 ∈ ℂ)
49	48	ad2antrr 485	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → 𝐴 ∈ ℂ)
50	12	adantr 274	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → 𝑎 ∈ ℂ)
51		simp1 992	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → 𝐴 ∈ ℤ)
52	1	3ad2ant2 1014	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → 𝐵 ∈ ℤ)
53	51, 52	gcdcld 11923	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) ∈ ℕ₀)
54	53	nn0cnd 9190	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) ∈ ℂ)
55	54	ad2antrr 485	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℂ)
56		gcdeq0 11932	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) = 0 ↔ (𝐴 = 0 ∧ 𝐵 = 0)))
57		simpr 109	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 = 0 ∧ 𝐵 = 0) → 𝐵 = 0)
58	56, 57	syl6bi 162	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) = 0 → 𝐵 = 0))
59	58	necon3d 2384	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐵 ≠ 0 → (𝐴 gcd 𝐵) ≠ 0))
60	59	impr 377	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐴 gcd 𝐵) ≠ 0)
61	60	3adant3 1012	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) ≠ 0)
62	61	ad2antrr 485	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) ≠ 0)
63	38	ad2antrr 485	. . . . . . . . . . . . . . 15 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℕ₀)
64	63	nn0zd 9332	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) ∈ ℤ)
65		0zd 9224	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → 0 ∈ ℤ)
66		zapne 9286	. . . . . . . . . . . . . 14 ⊢ (((𝐴 gcd 𝐵) ∈ ℤ ∧ 0 ∈ ℤ) → ((𝐴 gcd 𝐵) # 0 ↔ (𝐴 gcd 𝐵) ≠ 0))
67	64, 65, 66	syl2anc 409	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐴 gcd 𝐵) # 0 ↔ (𝐴 gcd 𝐵) ≠ 0))
68	62, 67	mpbird 166	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) # 0)
69	49, 50, 55, 68	divmulap3d 8742	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ↔ 𝐴 = (𝑎 · (𝐴 gcd 𝐵))))
70	69	bicomd 140	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ↔ (𝐴 / (𝐴 gcd 𝐵)) = 𝑎))
71		zcn 9217	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∈ ℤ → 𝐵 ∈ ℂ)
72	71	adantr 274	. . . . . . . . . . . . . 14 ⊢ ((𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) → 𝐵 ∈ ℂ)
73	72	3ad2ant2 1014	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → 𝐵 ∈ ℂ)
74	73	ad2antrr 485	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → 𝐵 ∈ ℂ)
75	36	adantl 275	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → 𝑏 ∈ ℂ)
76	74, 75, 55, 68	divmulap3d 8742	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐵 / (𝐴 gcd 𝐵)) = 𝑏 ↔ 𝐵 = (𝑏 · (𝐴 gcd 𝐵))))
77	2	3adant3 1012	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ))
78		gcdcom 11928	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐴 gcd 𝐵) = (𝐵 gcd 𝐴))
79	77, 78	syl 14	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 gcd 𝐵) = (𝐵 gcd 𝐴))
80	79	ad2antrr 485	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐴 gcd 𝐵) = (𝐵 gcd 𝐴))
81	80	oveq2d 5869	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝑏 · (𝐴 gcd 𝐵)) = (𝑏 · (𝐵 gcd 𝐴)))
82	81	eqeq2d 2182	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐵 = (𝑏 · (𝐴 gcd 𝐵)) ↔ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))))
83	76, 82	bitr2d 188	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (𝐵 = (𝑏 · (𝐵 gcd 𝐴)) ↔ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏))
84	70, 83	anbi12d 470	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) ↔ ((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ∧ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏)))
85		3anass 977	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ↔ (𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)))
86	85	biimpri 132	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0)) → (𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐵 ≠ 0))
87	86	3adant3 1012	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐵 ≠ 0))
88		divgcdcoprm0 12055	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) → ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) = 1)
89	87, 88	syl 14	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) = 1)
90		oveq12 5862	. . . . . . . . . . . 12 ⊢ (((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ∧ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏) → ((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) = (𝑎 gcd 𝑏))
91	90	eqeq1d 2179	. . . . . . . . . . 11 ⊢ (((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ∧ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏) → (((𝐴 / (𝐴 gcd 𝐵)) gcd (𝐵 / (𝐴 gcd 𝐵))) = 1 ↔ (𝑎 gcd 𝑏) = 1))
92	89, 91	syl5ibcom 154	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ∧ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏) → (𝑎 gcd 𝑏) = 1))
93	92	ad2antrr 485	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → (((𝐴 / (𝐴 gcd 𝐵)) = 𝑎 ∧ (𝐵 / (𝐴 gcd 𝐵)) = 𝑏) → (𝑎 gcd 𝑏) = 1))
94	84, 93	sylbid 149	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → (𝑎 gcd 𝑏) = 1))
95	94	imp 123	. . . . . . 7 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → (𝑎 gcd 𝑏) = 1)
96	28, 46, 95	3jca 1172	. . . . . 6 ⊢ (((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) ∧ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴)))) → (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1))
97	96	ex 114	. . . . 5 ⊢ ((((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) ∧ 𝑏 ∈ ℤ) → ((𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1)))
98	97	reximdva 2572	. . . 4 ⊢ (((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) ∧ 𝑎 ∈ ℤ) → (∃𝑏 ∈ ℤ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → ∃𝑏 ∈ ℤ (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1)))
99	98	reximdva 2572	. . 3 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → (∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → ∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1)))
100	10, 99	syl5bir 152	. 2 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ((∃𝑎 ∈ ℤ 𝐴 = (𝑎 · (𝐴 gcd 𝐵)) ∧ ∃𝑏 ∈ ℤ 𝐵 = (𝑏 · (𝐵 gcd 𝐴))) → ∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1)))
101	5, 9, 100	mp2and 431	1 ⊢ ((𝐴 ∈ ℤ ∧ (𝐵 ∈ ℤ ∧ 𝐵 ≠ 0) ∧ 𝑀 = (𝐴 gcd 𝐵)) → ∃𝑎 ∈ ℤ ∃𝑏 ∈ ℤ (𝐴 = (𝑀 · 𝑎) ∧ 𝐵 = (𝑀 · 𝑏) ∧ (𝑎 gcd 𝑏) = 1))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 103 ↔ wb 104 ∧ w3a 973 = wceq 1348 ∈ wcel 2141 ≠ wne 2340 ∃wrex 2449 class class class wbr 3989 (class class class)co 5853 ℂcc 7772 0cc0 7774 1c1 7775 · cmul 7779 # cap 8500 / cdiv 8589 ℕ₀cn0 9135 ℤcz 9212 gcd cgcd 11897

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 105 ax-ia2 106 ax-ia3 107 ax-in1 609 ax-in2 610 ax-io 704 ax-5 1440 ax-7 1441 ax-gen 1442 ax-ie1 1486 ax-ie2 1487 ax-8 1497 ax-10 1498 ax-11 1499 ax-i12 1500 ax-bndl 1502 ax-4 1503 ax-17 1519 ax-i9 1523 ax-ial 1527 ax-i5r 1528 ax-13 2143 ax-14 2144 ax-ext 2152 ax-coll 4104 ax-sep 4107 ax-nul 4115 ax-pow 4160 ax-pr 4194 ax-un 4418 ax-setind 4521 ax-iinf 4572 ax-cnex 7865 ax-resscn 7866 ax-1cn 7867 ax-1re 7868 ax-icn 7869 ax-addcl 7870 ax-addrcl 7871 ax-mulcl 7872 ax-mulrcl 7873 ax-addcom 7874 ax-mulcom 7875 ax-addass 7876 ax-mulass 7877 ax-distr 7878 ax-i2m1 7879 ax-0lt1 7880 ax-1rid 7881 ax-0id 7882 ax-rnegex 7883 ax-precex 7884 ax-cnre 7885 ax-pre-ltirr 7886 ax-pre-ltwlin 7887 ax-pre-lttrn 7888 ax-pre-apti 7889 ax-pre-ltadd 7890 ax-pre-mulgt0 7891 ax-pre-mulext 7892 ax-arch 7893 ax-caucvg 7894

This theorem depends on definitions: df-bi 116 df-stab 826 df-dc 830 df-3or 974 df-3an 975 df-tru 1351 df-fal 1354 df-nf 1454 df-sb 1756 df-eu 2022 df-mo 2023 df-clab 2157 df-cleq 2163 df-clel 2166 df-nfc 2301 df-ne 2341 df-nel 2436 df-ral 2453 df-rex 2454 df-reu 2455 df-rmo 2456 df-rab 2457 df-v 2732 df-sbc 2956 df-csb 3050 df-dif 3123 df-un 3125 df-in 3127 df-ss 3134 df-nul 3415 df-if 3527 df-pw 3568 df-sn 3589 df-pr 3590 df-op 3592 df-uni 3797 df-int 3832 df-iun 3875 df-br 3990 df-opab 4051 df-mpt 4052 df-tr 4088 df-id 4278 df-po 4281 df-iso 4282 df-iord 4351 df-on 4353 df-ilim 4354 df-suc 4356 df-iom 4575 df-xp 4617 df-rel 4618 df-cnv 4619 df-co 4620 df-dm 4621 df-rn 4622 df-res 4623 df-ima 4624 df-iota 5160 df-fun 5200 df-fn 5201 df-f 5202 df-f1 5203 df-fo 5204 df-f1o 5205 df-fv 5206 df-riota 5809 df-ov 5856 df-oprab 5857 df-mpo 5858 df-1st 6119 df-2nd 6120 df-recs 6284 df-frec 6370 df-sup 6961 df-pnf 7956 df-mnf 7957 df-xr 7958 df-ltxr 7959 df-le 7960 df-sub 8092 df-neg 8093 df-reap 8494 df-ap 8501 df-div 8590 df-inn 8879 df-2 8937 df-3 8938 df-4 8939 df-n0 9136 df-z 9213 df-uz 9488 df-q 9579 df-rp 9611 df-fz 9966 df-fzo 10099 df-fl 10226 df-mod 10279 df-seqfrec 10402 df-exp 10476 df-cj 10806 df-re 10807 df-im 10808 df-rsqrt 10962 df-abs 10963 df-dvds 11750 df-gcd 11898

This theorem is referenced by: cncongr1 12057

W3C validator