Theorem coprm 16679

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 16642	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
2		gcddvds 16470	. . . . . . 7 ⊢ ((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) ∥ 𝑃 ∧ (𝑃 gcd 𝑁) ∥ 𝑁))
3	1, 2	sylan 586	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) ∥ 𝑃 ∧ (𝑃 gcd 𝑁) ∥ 𝑁))
4	3	simprd 496	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 gcd 𝑁) ∥ 𝑁)
5		breq1 5082	. . . . 5 ⊢ ((𝑃 gcd 𝑁) = 𝑃 → ((𝑃 gcd 𝑁) ∥ 𝑁 ↔ 𝑃 ∥ 𝑁))
6	4, 5	syl5ibcom 246	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) = 𝑃 → 𝑃 ∥ 𝑁))
7	6	con3d 152	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ 𝑃 ∥ 𝑁 → ¬ (𝑃 gcd 𝑁) = 𝑃))
8		0nnn 12211	. . . . . . . . 9 ⊢ ¬ 0 ∈ ℕ
9		prmnn 16641	. . . . . . . . . 10 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
10		eleq1 2828	. . . . . . . . . 10 ⊢ (𝑃 = 0 → (𝑃 ∈ ℕ ↔ 0 ∈ ℕ))
11	9, 10	syl5ibcom 246	. . . . . . . . 9 ⊢ (𝑃 ∈ ℙ → (𝑃 = 0 → 0 ∈ ℕ))
12	8, 11	mtoi 200	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ → ¬ 𝑃 = 0)
13	12	intnanrd 490	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → ¬ (𝑃 = 0 ∧ 𝑁 = 0))
14	13	adantr 481	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ¬ (𝑃 = 0 ∧ 𝑁 = 0))
15		gcdn0cl 16469	. . . . . . . 8 ⊢ (((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬ (𝑃 = 0 ∧ 𝑁 = 0)) → (𝑃 gcd 𝑁) ∈ ℕ)
16	15	ex 413	. . . . . . 7 ⊢ ((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 = 0 ∧ 𝑁 = 0) → (𝑃 gcd 𝑁) ∈ ℕ))
17	1, 16	sylan 586	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 = 0 ∧ 𝑁 = 0) → (𝑃 gcd 𝑁) ∈ ℕ))
18	14, 17	mpd 15	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 gcd 𝑁) ∈ ℕ)
19	3	simpld 495	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 gcd 𝑁) ∥ 𝑃)
20		isprm2 16649	. . . . . . . 8 ⊢ (𝑃 ∈ ℙ ↔ (𝑃 ∈ (ℤ≥‘2) ∧ ∀𝑧 ∈ ℕ (𝑧 ∥ 𝑃 → (𝑧 = 1 ∨ 𝑧 = 𝑃))))
21	20	simprbi 498	. . . . . . 7 ⊢ (𝑃 ∈ ℙ → ∀𝑧 ∈ ℕ (𝑧 ∥ 𝑃 → (𝑧 = 1 ∨ 𝑧 = 𝑃)))
22		breq1 5082	. . . . . . . . 9 ⊢ (𝑧 = (𝑃 gcd 𝑁) → (𝑧 ∥ 𝑃 ↔ (𝑃 gcd 𝑁) ∥ 𝑃))
23		eqeq1 2744	. . . . . . . . . 10 ⊢ (𝑧 = (𝑃 gcd 𝑁) → (𝑧 = 1 ↔ (𝑃 gcd 𝑁) = 1))
24		eqeq1 2744	. . . . . . . . . 10 ⊢ (𝑧 = (𝑃 gcd 𝑁) → (𝑧 = 𝑃 ↔ (𝑃 gcd 𝑁) = 𝑃))
25	23, 24	orbi12d 924	. . . . . . . . 9 ⊢ (𝑧 = (𝑃 gcd 𝑁) → ((𝑧 = 1 ∨ 𝑧 = 𝑃) ↔ ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃)))
26	22, 25	imbi12d 345	. . . . . . . 8 ⊢ (𝑧 = (𝑃 gcd 𝑁) → ((𝑧 ∥ 𝑃 → (𝑧 = 1 ∨ 𝑧 = 𝑃)) ↔ ((𝑃 gcd 𝑁) ∥ 𝑃 → ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))))
27	26	rspcv 3563	. . . . . . 7 ⊢ ((𝑃 gcd 𝑁) ∈ ℕ → (∀𝑧 ∈ ℕ (𝑧 ∥ 𝑃 → (𝑧 = 1 ∨ 𝑧 = 𝑃)) → ((𝑃 gcd 𝑁) ∥ 𝑃 → ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))))
28	21, 27	syl5com 31	. . . . . 6 ⊢ (𝑃 ∈ ℙ → ((𝑃 gcd 𝑁) ∈ ℕ → ((𝑃 gcd 𝑁) ∥ 𝑃 → ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))))
29	28	adantr 481	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) ∈ ℕ → ((𝑃 gcd 𝑁) ∥ 𝑃 → ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))))
30	18, 19, 29	mp2d 49	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))
31		biorf 942	. . . . 5 ⊢ (¬ (𝑃 gcd 𝑁) = 𝑃 → ((𝑃 gcd 𝑁) = 1 ↔ ((𝑃 gcd 𝑁) = 𝑃 ∨ (𝑃 gcd 𝑁) = 1)))
32		orcom 876	. . . . 5 ⊢ (((𝑃 gcd 𝑁) = 𝑃 ∨ (𝑃 gcd 𝑁) = 1) ↔ ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃))
33	31, 32	bitrdi 288	. . . 4 ⊢ (¬ (𝑃 gcd 𝑁) = 𝑃 → ((𝑃 gcd 𝑁) = 1 ↔ ((𝑃 gcd 𝑁) = 1 ∨ (𝑃 gcd 𝑁) = 𝑃)))
34	30, 33	syl5ibrcom 248	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 gcd 𝑁) = 𝑃 → (𝑃 gcd 𝑁) = 1))
35	7, 34	syld 47	. 2 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ 𝑃 ∥ 𝑁 → (𝑃 gcd 𝑁) = 1))
36		iddvds 16236	. . . . . . 7 ⊢ (𝑃 ∈ ℤ → 𝑃 ∥ 𝑃)
37	1, 36	syl 17	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 𝑃 ∥ 𝑃)
38	37	adantr 481	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → 𝑃 ∥ 𝑃)
39		dvdslegcd 16471	. . . . . . . . 9 ⊢ (((𝑃 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬ (𝑃 = 0 ∧ 𝑁 = 0)) → ((𝑃 ∥ 𝑃 ∧ 𝑃 ∥ 𝑁) → 𝑃 ≤ (𝑃 gcd 𝑁)))
40	39	ex 413	. . . . . . . 8 ⊢ ((𝑃 ∈ ℤ ∧ 𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 = 0 ∧ 𝑁 = 0) → ((𝑃 ∥ 𝑃 ∧ 𝑃 ∥ 𝑁) → 𝑃 ≤ (𝑃 gcd 𝑁))))
41	40	3anidm12 1427	. . . . . . 7 ⊢ ((𝑃 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 = 0 ∧ 𝑁 = 0) → ((𝑃 ∥ 𝑃 ∧ 𝑃 ∥ 𝑁) → 𝑃 ≤ (𝑃 gcd 𝑁))))
42	1, 41	sylan 586	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ (𝑃 = 0 ∧ 𝑁 = 0) → ((𝑃 ∥ 𝑃 ∧ 𝑃 ∥ 𝑁) → 𝑃 ≤ (𝑃 gcd 𝑁))))
43	14, 42	mpd 15	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 ∥ 𝑃 ∧ 𝑃 ∥ 𝑁) → 𝑃 ≤ (𝑃 gcd 𝑁)))
44	38, 43	mpand 701	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 → 𝑃 ≤ (𝑃 gcd 𝑁)))
45		prmgt1 16665	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 1 < 𝑃)
46	45	adantr 481	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → 1 < 𝑃)
47		1re 11142	. . . . . 6 ⊢ 1 ∈ ℝ
48	1	zred 12631	. . . . . 6 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℝ)
49	18	nnred 12187	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 gcd 𝑁) ∈ ℝ)
50		ltletr 11236	. . . . . 6 ⊢ ((1 ∈ ℝ ∧ 𝑃 ∈ ℝ ∧ (𝑃 gcd 𝑁) ∈ ℝ) → ((1 < 𝑃 ∧ 𝑃 ≤ (𝑃 gcd 𝑁)) → 1 < (𝑃 gcd 𝑁)))
51	47, 48, 49, 50	mp3an2ani 1476	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((1 < 𝑃 ∧ 𝑃 ≤ (𝑃 gcd 𝑁)) → 1 < (𝑃 gcd 𝑁)))
52	46, 51	mpand 701	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 ≤ (𝑃 gcd 𝑁) → 1 < (𝑃 gcd 𝑁)))
53		ltne 11241	. . . . . 6 ⊢ ((1 ∈ ℝ ∧ 1 < (𝑃 gcd 𝑁)) → (𝑃 gcd 𝑁) ≠ 1)
54	47, 53	mpan 696	. . . . 5 ⊢ (1 < (𝑃 gcd 𝑁) → (𝑃 gcd 𝑁) ≠ 1)
55	54	a1i 11	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (1 < (𝑃 gcd 𝑁) → (𝑃 gcd 𝑁) ≠ 1))
56	44, 52, 55	3syld 60	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (𝑃 ∥ 𝑁 → (𝑃 gcd 𝑁) ≠ 1))
57	56	necon2bd 2951	. 2 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → ((𝑃 gcd 𝑁) = 1 → ¬ 𝑃 ∥ 𝑁))
58	35, 57	impbid 213	1 ⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℤ) → (¬ 𝑃 ∥ 𝑁 ↔ (𝑃 gcd 𝑁) = 1))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∨ wo 853   ∧ w3a 1092   = wceq 1547   ∈ wcel 2119   ≠ wne 2935  ∀wral 3054   class class class wbr 5079  ‘cfv 6492  (class class class)co 7363  ℝcr 11035  0cc0 11036  1c1 11037   < clt 11177   ≤ cle 11178  ℕcn 12172  2c2 12234  ℤcz 12522  ℤ_≥cuz 12786   ∥ cdvds 16219   gcd cgcd 16461  ℙcprime 16638

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685  ax-cnex 11092  ax-resscn 11093  ax-1cn 11094  ax-icn 11095  ax-addcl 11096  ax-addrcl 11097  ax-mulcl 11098  ax-mulrcl 11099  ax-mulcom 11100  ax-addass 11101  ax-mulass 11102  ax-distr 11103  ax-i2m1 11104  ax-1ne0 11105  ax-1rid 11106  ax-rnegex 11107  ax-rrecex 11108  ax-cnre 11109  ax-pre-lttri 11110  ax-pre-lttrn 11111  ax-pre-ltadd 11112  ax-pre-mulgt0 11113  ax-pre-sup 11114

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-nel 3040  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-iun 4930  df-br 5080  df-opab 5142  df-mpt 5161  df-tr 5187  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7320  df-ov 7366  df-oprab 7367  df-mpo 7368  df-om 7814  df-2nd 7939  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-rdg 8346  df-1o 8402  df-2o 8403  df-er 8640  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-sup 9352  df-inf 9353  df-pnf 11179  df-mnf 11180  df-xr 11181  df-ltxr 11182  df-le 11183  df-sub 11377  df-neg 11378  df-div 11806  df-nn 12173  df-2 12242  df-3 12243  df-n0 12436  df-z 12523  df-uz 12787  df-rp 12941  df-seq 13962  df-exp 14022  df-cj 15059  df-re 15060  df-im 15061  df-sqrt 15195  df-abs 15196  df-dvds 16220  df-gcd 16462  df-prm 16639

This theorem is referenced by:  prmrp  16680  euclemma  16681  cncongrprm  16697  isoddgcd1  16699  phiprmpw  16744  fermltl  16752  prmdiv  16753  prmdiveq  16754  vfermltl  16770  prmpwdvds  16873  1259lem5  17103  2503lem3  17107  4001lem4  17112  gexexlem  19825  ablfac1lem  20043  ablfac1eu  20048  pgpfac1lem3  20052  perfect1  27216  perfectlem1  27217  perfectlem2  27218  lgslem1  27285  lgsprme0  27327  lgsqrlem2  27335  lgsqr  27339  gausslemma2dlem0c  27346  lgsquad2lem2  27373  2sqblem  27419  rpvmasumlem  27475  dchrisum0flblem2  27497  nn0prpwlem  36557  aks4d1p8d1  42576  aks4d1p8d2  42577  aks4d1p8d3  42578  aks6d1c6lem4  42665  isodd7  48163  gcd2odd1  48166