Theorem coprm 16919

Description: A prime number either divides an integer or is coprime to it, but not both. Theorem 1.8 in [ApostolNT] p. 17. (Contributed by Paul Chapman, 22-Jun-2011.)

Assertion

Ref	Expression
coprm	⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ 𝑃 ∥ 𝑁 ↔ (𝑃 gcd 𝑁) = 1))

Proof of Theorem coprm

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		prmz 16882	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
2		gcddvds 16705	. . . . . . 7 ⊢ ((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) ∥ 𝑃 ∧ (𝑃 gcd 𝑁) ∥ 𝑁))
3	1, 2	sylan 592	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) ∥ 𝑃 ∧ (𝑃 gcd 𝑁) ∥ 𝑁))
4	3	simprd 501	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 gcd 𝑁) ∥ 𝑁)
5		breq1 5109	. . . . 5 ⊢ ((𝑃 gcd 𝑁) = 𝑃 → ((𝑃 gcd 𝑁) ∥ 𝑁 ↔ 𝑃 ∥ 𝑁))
6	4, 5	syl5ibcom 248	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) = 𝑃 → 𝑃 ∥ 𝑁))
7	6	con3d 153	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ 𝑃 ∥ 𝑁 → ¬ (𝑃 gcd 𝑁) = 𝑃))
8		0nnn 12404	. . . . . . . . 9 ⊢ ¬ 0 ∈ ℕ
9		prmnn 16881	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
10		eleq1 2852	. . . . . . . . . 10 ⊢ (𝑃 = 0 → (𝑃 ∈ ℕ ↔ 0 ∈ ℕ))
11	9, 10	syl5ibcom 248	. . . . . . . . 9 ⊢ (𝑃 ∈ ℙ → (𝑃 = 0 → 0 ∈ ℕ))
12	8, 11	mtoi 202	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ → ¬ 𝑃 = 0)
13	12	intnanrd 495	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → ¬ (𝑃 = 0 ∧ 𝑁 = 0))
14	13	adantr 486	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ¬ (𝑃 = 0 ∧ 𝑁 = 0))
15		gcdn0cl 16704	. . . . . . . 8 ⊢ (((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬ (𝑃 = 0 ∧ 𝑁 = 0)) → (𝑃 gcd 𝑁) ∈ ℕ)
16	15	ex 418	. . . . . . 7 ⊢ ((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 = 0 ∧ 𝑁 = 0) → (𝑃 gcd 𝑁) ∈ ℕ))
17	1, 16	sylan 592	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 = 0 ∧ 𝑁 = 0) → (𝑃 gcd 𝑁) ∈ ℕ))
18	14, 17	mpd 16	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 gcd 𝑁) ∈ ℕ)
19	3	simpld 500	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 gcd 𝑁) ∥ 𝑃)
20		isprm2 16889	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ ↔ (𝑃 ∈ (ℤ≥‘2) ∧ ∀𝑧 ∈ ℕ (𝑧 ∥ 𝑃 → (𝑧 = 1 ∨ 𝑧 = 𝑃))))
21	20	simprbi 503	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → ∀𝑧 ∈ ℕ (𝑧 ∥ 𝑃 → (𝑧 = 1 ∨ 𝑧 = 𝑃)))
22		breq1 5109	. . . . . . . . 9 ⊢ (𝑧 = (𝑃 gcd 𝑁) → (𝑧 ∥ 𝑃 ↔ (𝑃 gcd 𝑁) ∥ 𝑃))
23		eqeq1 2767	. . . . . . . . . 10 ⊢ (𝑧 = (𝑃 gcd 𝑁) → (𝑧 = 1 ↔ (𝑃 gcd 𝑁) = 1))
24		eqeq1 2767	. . . . . . . . . 10 ⊢ (𝑧 = (𝑃 gcd 𝑁) → (𝑧 = 𝑃 ↔ (𝑃 gcd 𝑁) = 𝑃))
25	23, 24	orbi12d 932	. . . . . . . . 9 ⊢ (𝑧 = (𝑃 gcd 𝑁) → ((𝑧 = 1 ∨ 𝑧 = 𝑃) ↔ ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃)))
26	22, 25	imbi12d 347	. . . . . . . 8 ⊢ (𝑧 = (𝑃 gcd 𝑁) → ((𝑧 ∥ 𝑃 → (𝑧 = 1 ∨ 𝑧 = 𝑃)) ↔ ((𝑃 gcd 𝑁) ∥ 𝑃 → ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))))
27	26	rspcv 3576	. . . . . . 7 ⊢ ((𝑃 gcd 𝑁) ∈ ℕ → (∀𝑧 ∈ ℕ (𝑧 ∥ 𝑃 → (𝑧 = 1 ∨ 𝑧 = 𝑃)) → ((𝑃 gcd 𝑁) ∥ 𝑃 → ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))))
28	21, 27	syl5com 32	. . . . . 6 ⊢ (𝑃 ∈ ℙ → ((𝑃 gcd 𝑁) ∈ ℕ → ((𝑃 gcd 𝑁) ∥ 𝑃 → ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))))
29	28	adantr 486	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) ∈ ℕ → ((𝑃 gcd 𝑁) ∥ 𝑃 → ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))))
30	18, 19, 29	mp2d 50	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))
31		biorf 950	. . . . 5 ⊢ (¬ (𝑃 gcd 𝑁) = 𝑃 → ((𝑃 gcd 𝑁) = 1 ↔ ((𝑃 gcd 𝑁) = 𝑃 ∨ (𝑃 gcd 𝑁) = 1)))
32		orcom 884	. . . . 5 ⊢ (((𝑃 gcd 𝑁) = 𝑃 ∨ (𝑃 gcd 𝑁) = 1) ↔ ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))
33	31, 32	bitrdi 290	. . . 4 ⊢ (¬ (𝑃 gcd 𝑁) = 𝑃 → ((𝑃 gcd 𝑁) = 1 ↔ ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃)))
34	30, 33	syl5ibrcom 250	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 gcd 𝑁) = 𝑃 → (𝑃 gcd 𝑁) = 1))
35	7, 34	syld 48	. 2 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ 𝑃 ∥ 𝑁 → (𝑃 gcd 𝑁) = 1))
36		iddvds 16471	. . . . . . 7 ⊢ (𝑃 ∈ ℤ → 𝑃 ∥ 𝑃)
37	1, 36	syl 18	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 𝑃 ∥ 𝑃)
38	37	adantr 486	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → 𝑃 ∥ 𝑃)
39		dvdslegcd 16706	. . . . . . . . 9 ⊢ (((𝑃 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬ (𝑃 = 0 ∧ 𝑁 = 0)) → ((𝑃 ∥ 𝑃 ∧ 𝑃 ∥ 𝑁) → 𝑃 ≤ (𝑃 gcd 𝑁)))
40	39	ex 418	. . . . . . . 8 ⊢ ((𝑃 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 = 0 ∧ 𝑁 = 0) → ((𝑃 ∥ 𝑃 ∧ 𝑃 ∥ 𝑁) → 𝑃 ≤ (𝑃 gcd 𝑁))))
41	40	3anidm12 1447	. . . . . . 7 ⊢ ((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 = 0 ∧ 𝑁 = 0) → ((𝑃 ∥ 𝑃 ∧ 𝑃 ∥ 𝑁) → 𝑃 ≤ (𝑃 gcd 𝑁))))
42	1, 41	sylan 592	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 = 0 ∧ 𝑁 = 0) → ((𝑃 ∥ 𝑃 ∧ 𝑃 ∥ 𝑁) → 𝑃 ≤ (𝑃 gcd 𝑁))))
43	14, 42	mpd 16	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 ∥ 𝑃 ∧ 𝑃 ∥ 𝑁) → 𝑃 ≤ (𝑃 gcd 𝑁)))
44	38, 43	mpand 708	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 → 𝑃 ≤ (𝑃 gcd 𝑁)))
45		prmgt1 16905	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 1 < 𝑃)
46	45	adantr 486	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → 1 < 𝑃)
47		1re 11338	. . . . . 6 ⊢ 1 ∈ ℝ
48	1	zred 12833	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℝ)
49	18	nnred 12380	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 gcd 𝑁) ∈ ℝ)
50		ltletr 11432	. . . . . 6 ⊢ ((1 ∈ ℝ ∧ 𝑃 ∈ ℝ ∧ (𝑃 gcd 𝑁) ∈ ℝ) → ((1 < 𝑃 ∧ 𝑃 ≤ (𝑃 gcd 𝑁)) → 1 < (𝑃 gcd 𝑁)))
51	47, 48, 49, 50	mp3an2ani 1498	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((1 < 𝑃 ∧ 𝑃 ≤ (𝑃 gcd 𝑁)) → 1 < (𝑃 gcd 𝑁)))
52	46, 51	mpand 708	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 ≤ (𝑃 gcd 𝑁) → 1 < (𝑃 gcd 𝑁)))
53		ltne 11437	. . . . . 6 ⊢ ((1 ∈ ℝ ∧ 1 < (𝑃 gcd 𝑁)) → (𝑃 gcd 𝑁) ≠ 1)
54	47, 53	mpan 703	. . . . 5 ⊢ (1 < (𝑃 gcd 𝑁) → (𝑃 gcd 𝑁) ≠ 1)
55	54	a1i 11	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (1 < (𝑃 gcd 𝑁) → (𝑃 gcd 𝑁) ≠ 1))
56	44, 52, 55	3syld 61	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 → (𝑃 gcd 𝑁) ≠ 1))
57	56	necon2bd 2975	. 2 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) = 1 → ¬ 𝑃 ∥ 𝑁))
58	35, 57	impbid 215	1 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ 𝑃 ∥ 𝑁 ↔ (𝑃 gcd 𝑁) = 1))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ∀wral 3080   class class class wbr 5106  ‘cfv 6561  (class class class)co 7446  ℝcr 11229  0cc0 11230  1c1 11231   < clt 11373   ≤ cle 11374  ℕcn 12365  2c2 12427  ℤcz 12723  ℤ_≥cuz 12995   ∥ cdvds 16454   gcd cgcd 16696  ℙcprime 16878

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-sep 5253  ax-nul 5264  ax-pow 5332  ax-pr 5396  ax-un 7778  ax-cnex 11286  ax-resscn 11287  ax-1cn 11288  ax-icn 11289  ax-addcl 11290  ax-addrcl 11291  ax-mulcl 11292  ax-mulrcl 11293  ax-mulcom 11294  ax-addass 11295  ax-mulass 11296  ax-distr 11297  ax-i2m1 11298  ax-1ne0 11299  ax-1rid 11300  ax-rnegex 11301  ax-rrecex 11302  ax-cnre 11303  ax-pre-lttri 11304  ax-pre-lttrn 11305  ax-pre-ltadd 11306  ax-pre-mulgt0 11307  ax-pre-sup 11308

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5551  df-eprel 5556  df-po 5564  df-so 5565  df-fr 5609  df-we 5611  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-pred 6325  df-ord 6386  df-on 6387  df-lim 6388  df-suc 6389  df-iota 6515  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-riota 7403  df-ov 7449  df-oprab 7450  df-mpo 7451  df-om 7905  df-2nd 8029  df-frecs 8330  df-wrecs 8361  df-recs 8410  df-rdg 8449  df-1o 8507  df-2o 8508  df-er 8748  df-en 9005  df-dom 9006  df-sdom 9007  df-fin 9008  df-sup 9464  df-inf 9465  df-pnf 11375  df-mnf 11376  df-xr 11377  df-ltxr 11378  df-le 11379  df-sub 11573  df-neg 11574  df-div 12004  df-nn 12366  df-2 12435  df-3 12436  df-n0 12637  df-z 12724  df-uz 12996  df-rp 13151  df-seq 14175  df-exp 14235  df-cj 15298  df-re 15299  df-im 15300  df-sqrt 15434  df-abs 15435  df-dvds 16455  df-gcd 16697  df-prm 16879

This theorem is used by:  prmrp  16920  euclemma  16921  cncongrprm  16937  isoddgcd1  16939  phiprmpw  16985  fermltl  16993  prmdiv  16994  prmdiveq  16995  vfermltl  17011  prmpwdvds  17114  1259lem5  17345  2503lem3  17349  4001lem4  17354  gexexlem  20099  ablfac1lem  20317  ablfac1eu  20322  pgpfac1lem3  20326  perfect1  27588  perfectlem1  27589  perfectlem2  27590  lgslem1  27657  lgsprme0  27699  lgsqrlem2  27707  lgsqr  27711  gausslemma2dlem0c  27718  lgsquad2lem2  27745  2sqblem  27791  rpvmasumlem  27847  dchrisum0flblem2  27869  nn0prpwlem  37301  aks4d1p8d1  43337  aks4d1p8d2  43338  aks4d1p8d3  43339  aks6d1c6lem4  43426  isodd7  48978  gcd2odd1  48981