2sqcoprm - Metamath Proof Explorer

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

Theorem 2sqcoprm 27396

Description: If the sum of two squares is prime, the two original numbers are coprime. (Contributed by Thierry Arnoux, 2-Feb-2020.)

**Hypotheses**
Ref	Expression
2sqcoprm.1	⊢ (𝜑 → 𝑃 ∈ ℙ)
2sqcoprm.2	⊢ (𝜑 → 𝐴 ∈ ℤ)
2sqcoprm.3	⊢ (𝜑 → 𝐵 ∈ ℤ)
2sqcoprm.4	⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) = 𝑃)

**Assertion**
Ref	Expression
2sqcoprm	⊢ (𝜑 → (𝐴 gcd 𝐵) = 1)

**Proof of Theorem 2sqcoprm**
Step	Hyp	Ref	Expression
1		2sqcoprm.1	. . 3 ⊢ (𝜑 → 𝑃 ∈ ℙ)
2		2sqcoprm.2	. . 3 ⊢ (𝜑 → 𝐴 ∈ ℤ)
3		2sqcoprm.3	. . 3 ⊢ (𝜑 → 𝐵 ∈ ℤ)
4		2sqcoprm.4	. . 3 ⊢ (𝜑 → ((𝐴↑2) + (𝐵↑2)) = 𝑃)
5	1, 2, 3, 4	2sqn0 27395	. 2 ⊢ (𝜑 → 𝐴 ≠ 0)
6	2, 3	gcdcld 16525	. . . 4 ⊢ (𝜑 → (𝐴 gcd 𝐵) ∈ ℕ₀)
7	6	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → (𝐴 gcd 𝐵) ∈ ℕ₀)
8	2	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → 𝐴 ∈ ℤ)
9	3	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → 𝐵 ∈ ℤ)
10		simpr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → 𝐴 ≠ 0)
11	10	neneqd 2937	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → ¬ 𝐴 = 0)
12	11	intnanrd 489	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → ¬ (𝐴 = 0 ∧ 𝐵 = 0))
13		gcdn0cl 16519	. . . . . . . 8 ⊢ (((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ ¬ (𝐴 = 0 ∧ 𝐵 = 0)) → (𝐴 gcd 𝐵) ∈ ℕ)
14	8, 9, 12, 13	syl21anc 837	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → (𝐴 gcd 𝐵) ∈ ℕ)
15	14	nnsqcld 14260	. . . . . 6 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → ((𝐴 gcd 𝐵)↑2) ∈ ℕ)
16	6	nn0zd 12612	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 gcd 𝐵) ∈ ℤ)
17		sqnprm 16719	. . . . . . . . . . 11 ⊢ ((𝐴 gcd 𝐵) ∈ ℤ → ¬ ((𝐴 gcd 𝐵)↑2) ∈ ℙ)
18	16, 17	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → ¬ ((𝐴 gcd 𝐵)↑2) ∈ ℙ)
19		zsqcl 14145	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 gcd 𝐵) ∈ ℤ → ((𝐴 gcd 𝐵)↑2) ∈ ℤ)
20	16, 19	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 gcd 𝐵)↑2) ∈ ℤ)
21		zsqcl 14145	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℤ → (𝐴↑2) ∈ ℤ)
22	2, 21	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴↑2) ∈ ℤ)
23		zsqcl 14145	. . . . . . . . . . . . . . . 16 ⊢ (𝐵 ∈ ℤ → (𝐵↑2) ∈ ℤ)
24	3, 23	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐵↑2) ∈ ℤ)
25		gcddvds 16520	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵))
26	2, 3, 25	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐴 gcd 𝐵) ∥ 𝐴 ∧ (𝐴 gcd 𝐵) ∥ 𝐵))
27	26	simpld 494	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐴 gcd 𝐵) ∥ 𝐴)
28		dvdssqim 16571	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 gcd 𝐵) ∈ ℤ ∧ 𝐴 ∈ ℤ) → ((𝐴 gcd 𝐵) ∥ 𝐴 → ((𝐴 gcd 𝐵)↑2) ∥ (𝐴↑2)))
29	28	imp 406	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴 gcd 𝐵) ∈ ℤ ∧ 𝐴 ∈ ℤ) ∧ (𝐴 gcd 𝐵) ∥ 𝐴) → ((𝐴 gcd 𝐵)↑2) ∥ (𝐴↑2))
30	16, 2, 27, 29	syl21anc 837	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 gcd 𝐵)↑2) ∥ (𝐴↑2))
31	26	simprd 495	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐴 gcd 𝐵) ∥ 𝐵)
32		dvdssqim 16571	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐴 gcd 𝐵) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((𝐴 gcd 𝐵) ∥ 𝐵 → ((𝐴 gcd 𝐵)↑2) ∥ (𝐵↑2)))
33	32	imp 406	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐴 gcd 𝐵) ∈ ℤ ∧ 𝐵 ∈ ℤ) ∧ (𝐴 gcd 𝐵) ∥ 𝐵) → ((𝐴 gcd 𝐵)↑2) ∥ (𝐵↑2))
34	16, 3, 31, 33	syl21anc 837	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 gcd 𝐵)↑2) ∥ (𝐵↑2))
35	20, 22, 24, 30, 34	dvds2addd 16309	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 gcd 𝐵)↑2) ∥ ((𝐴↑2) + (𝐵↑2)))
36	35, 4	breqtrd 5145	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 gcd 𝐵)↑2) ∥ 𝑃)
37	36	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝐴 gcd 𝐵)↑2) ∈ (ℤ_≥‘2)) → ((𝐴 gcd 𝐵)↑2) ∥ 𝑃)
38		simpr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝐴 gcd 𝐵)↑2) ∈ (ℤ_≥‘2)) → ((𝐴 gcd 𝐵)↑2) ∈ (ℤ_≥‘2))
39	1	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝐴 gcd 𝐵)↑2) ∈ (ℤ_≥‘2)) → 𝑃 ∈ ℙ)
40		dvdsprm 16720	. . . . . . . . . . . . 13 ⊢ ((((𝐴 gcd 𝐵)↑2) ∈ (ℤ_≥‘2) ∧ 𝑃 ∈ ℙ) → (((𝐴 gcd 𝐵)↑2) ∥ 𝑃 ↔ ((𝐴 gcd 𝐵)↑2) = 𝑃))
41	38, 39, 40	syl2anc 584	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝐴 gcd 𝐵)↑2) ∈ (ℤ_≥‘2)) → (((𝐴 gcd 𝐵)↑2) ∥ 𝑃 ↔ ((𝐴 gcd 𝐵)↑2) = 𝑃))
42	37, 41	mpbid 232	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((𝐴 gcd 𝐵)↑2) ∈ (ℤ_≥‘2)) → ((𝐴 gcd 𝐵)↑2) = 𝑃)
43	42, 39	eqeltrd 2834	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝐴 gcd 𝐵)↑2) ∈ (ℤ_≥‘2)) → ((𝐴 gcd 𝐵)↑2) ∈ ℙ)
44	18, 43	mtand 815	. . . . . . . . 9 ⊢ (𝜑 → ¬ ((𝐴 gcd 𝐵)↑2) ∈ (ℤ_≥‘2))
45		eluz2b3 12936	. . . . . . . . 9 ⊢ (((𝐴 gcd 𝐵)↑2) ∈ (ℤ_≥‘2) ↔ (((𝐴 gcd 𝐵)↑2) ∈ ℕ ∧ ((𝐴 gcd 𝐵)↑2) ≠ 1))
46	44, 45	sylnib 328	. . . . . . . 8 ⊢ (𝜑 → ¬ (((𝐴 gcd 𝐵)↑2) ∈ ℕ ∧ ((𝐴 gcd 𝐵)↑2) ≠ 1))
47		imnan 399	. . . . . . . 8 ⊢ ((((𝐴 gcd 𝐵)↑2) ∈ ℕ → ¬ ((𝐴 gcd 𝐵)↑2) ≠ 1) ↔ ¬ (((𝐴 gcd 𝐵)↑2) ∈ ℕ ∧ ((𝐴 gcd 𝐵)↑2) ≠ 1))
48	46, 47	sylibr 234	. . . . . . 7 ⊢ (𝜑 → (((𝐴 gcd 𝐵)↑2) ∈ ℕ → ¬ ((𝐴 gcd 𝐵)↑2) ≠ 1))
49	48	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → (((𝐴 gcd 𝐵)↑2) ∈ ℕ → ¬ ((𝐴 gcd 𝐵)↑2) ≠ 1))
50	15, 49	mpd 15	. . . . 5 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → ¬ ((𝐴 gcd 𝐵)↑2) ≠ 1)
51		df-ne 2933	. . . . 5 ⊢ (((𝐴 gcd 𝐵)↑2) ≠ 1 ↔ ¬ ((𝐴 gcd 𝐵)↑2) = 1)
52	50, 51	sylnib 328	. . . 4 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → ¬ ¬ ((𝐴 gcd 𝐵)↑2) = 1)
53	52	notnotrd 133	. . 3 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → ((𝐴 gcd 𝐵)↑2) = 1)
54		nn0sqeq1 15293	. . 3 ⊢ (((𝐴 gcd 𝐵) ∈ ℕ₀ ∧ ((𝐴 gcd 𝐵)↑2) = 1) → (𝐴 gcd 𝐵) = 1)
55	7, 53, 54	syl2anc 584	. 2 ⊢ ((𝜑 ∧ 𝐴 ≠ 0) → (𝐴 gcd 𝐵) = 1)
56	5, 55	mpdan 687	1 ⊢ (𝜑 → (𝐴 gcd 𝐵) = 1)

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1540 ∈ wcel 2108 ≠ wne 2932 class class class wbr 5119 ‘cfv 6530 (class class class)co 7403 0cc0 11127 1c1 11128 + caddc 11130 ℕcn 12238 2c2 12293 ℕ₀cn0 12499 ℤcz 12586 ℤ_≥cuz 12850 ↑cexp 14077 ∥ cdvds 16270 gcd cgcd 16511 ℙcprime 16688

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 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2157 ax-12 2177 ax-ext 2707 ax-sep 5266 ax-nul 5276 ax-pow 5335 ax-pr 5402 ax-un 7727 ax-cnex 11183 ax-resscn 11184 ax-1cn 11185 ax-icn 11186 ax-addcl 11187 ax-addrcl 11188 ax-mulcl 11189 ax-mulrcl 11190 ax-mulcom 11191 ax-addass 11192 ax-mulass 11193 ax-distr 11194 ax-i2m1 11195 ax-1ne0 11196 ax-1rid 11197 ax-rnegex 11198 ax-rrecex 11199 ax-cnre 11200 ax-pre-lttri 11201 ax-pre-lttrn 11202 ax-pre-ltadd 11203 ax-pre-mulgt0 11204 ax-pre-sup 11205

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 2065 df-mo 2539 df-eu 2568 df-clab 2714 df-cleq 2727 df-clel 2809 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3359 df-reu 3360 df-rab 3416 df-v 3461 df-sbc 3766 df-csb 3875 df-dif 3929 df-un 3931 df-in 3933 df-ss 3943 df-pss 3946 df-nul 4309 df-if 4501 df-pw 4577 df-sn 4602 df-pr 4604 df-op 4608 df-uni 4884 df-iun 4969 df-br 5120 df-opab 5182 df-mpt 5202 df-tr 5230 df-id 5548 df-eprel 5553 df-po 5561 df-so 5562 df-fr 5606 df-we 5608 df-xp 5660 df-rel 5661 df-cnv 5662 df-co 5663 df-dm 5664 df-rn 5665 df-res 5666 df-ima 5667 df-pred 6290 df-ord 6355 df-on 6356 df-lim 6357 df-suc 6358 df-iota 6483 df-fun 6532 df-fn 6533 df-f 6534 df-f1 6535 df-fo 6536 df-f1o 6537 df-fv 6538 df-riota 7360 df-ov 7406 df-oprab 7407 df-mpo 7408 df-om 7860 df-2nd 7987 df-frecs 8278 df-wrecs 8309 df-recs 8383 df-rdg 8422 df-1o 8478 df-2o 8479 df-er 8717 df-en 8958 df-dom 8959 df-sdom 8960 df-fin 8961 df-sup 9452 df-inf 9453 df-pnf 11269 df-mnf 11270 df-xr 11271 df-ltxr 11272 df-le 11273 df-sub 11466 df-neg 11467 df-div 11893 df-nn 12239 df-2 12301 df-3 12302 df-n0 12500 df-z 12587 df-uz 12851 df-rp 13007 df-seq 14018 df-exp 14078 df-cj 15116 df-re 15117 df-im 15118 df-sqrt 15252 df-abs 15253 df-dvds 16271 df-gcd 16512 df-prm 16689

This theorem is referenced by: 2sqmod 27397

W3C validator