Theorem ncoprmlnprm 16948

Description: If two positive integers are not coprime, the larger of them is not a prime number. (Contributed by AV, 9-Aug-2020.)

Assertion

Ref	Expression
ncoprmlnprm	⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) → (1 < (𝐴 gcd 𝐵) → 𝐵 ∉ ℙ))

Proof of Theorem ncoprmlnprm

Dummy variables 𝑖 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ncoprmgcdgt1b 16870	. . . 4 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (∃𝑖 ∈ (ℤ≥‘2)(𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵) ↔ 1 < (𝐴 gcd 𝐵)))
2	1	bicomd 226	. . 3 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ) → (1 < (𝐴 gcd 𝐵) ↔ ∃𝑖 ∈ (ℤ≥‘2)(𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)))
3	2	3adant3 1150	. 2 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) → (1 < (𝐴 gcd 𝐵) ↔ ∃𝑖 ∈ (ℤ≥‘2)(𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)))
4		simp1 1154	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) → 𝐴 ∈ ℕ)
5		eluzelz 13015	. . . . . . . . . . . . 13 ⊢ (𝑖 ∈ (ℤ≥‘2) → 𝑖 ∈ ℤ)
6	4, 5	anim12ci 626	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) → (𝑖 ∈ ℤ ∧ 𝐴 ∈ ℕ))
7		dvdsle 16524	. . . . . . . . . . . 12 ⊢ ((𝑖 ∈ ℤ ∧ 𝐴 ∈ ℕ) → (𝑖 ∥ 𝐴 → 𝑖 ≤ 𝐴))
8	6, 7	syl 18	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) → (𝑖 ∥ 𝐴 → 𝑖 ≤ 𝐴))
9		nnre 12382	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐴 ∈ ℕ → 𝐴 ∈ ℝ)
10		nnre 12382	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐵 ∈ ℕ → 𝐵 ∈ ℝ)
11		eluzelre 13016	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑖 ∈ (ℤ≥‘2) → 𝑖 ∈ ℝ)
12	9, 10, 11	3anim123i 1169	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘2)) → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝑖 ∈ ℝ))
13		3anrot 1117	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑖 ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ↔ (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝑖 ∈ ℝ))
14	12, 13	sylibr 237	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘2)) → (𝑖 ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ))
15		lelttr 11439	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑖 ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((𝑖 ≤ 𝐴 ∧ 𝐴 < 𝐵) → 𝑖 < 𝐵))
16	14, 15	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘2)) → ((𝑖 ≤ 𝐴 ∧ 𝐴 < 𝐵) → 𝑖 < 𝐵))
17	16	expcomd 422	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘2)) → (𝐴 < 𝐵 → (𝑖 ≤ 𝐴 → 𝑖 < 𝐵)))
18	17	3exp 1137	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℕ → (𝐵 ∈ ℕ → (𝑖 ∈ (ℤ≥‘2) → (𝐴 < 𝐵 → (𝑖 ≤ 𝐴 → 𝑖 < 𝐵)))))
19	18	com34 92	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℕ → (𝐵 ∈ ℕ → (𝐴 < 𝐵 → (𝑖 ∈ (ℤ≥‘2) → (𝑖 ≤ 𝐴 → 𝑖 < 𝐵)))))
20	19	3imp1 1366	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) → (𝑖 ≤ 𝐴 → 𝑖 < 𝐵))
21	20	imp 412	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ 𝑖 ≤ 𝐴) → 𝑖 < 𝐵)
22		nnz 12754	. . . . . . . . . . . . . . . . 17 ⊢ (𝐵 ∈ ℕ → 𝐵 ∈ ℤ)
23	22	3ad2ant2 1152	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) → 𝐵 ∈ ℤ)
24	23, 5	anim12ci 626	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) → (𝑖 ∈ ℤ ∧ 𝐵 ∈ ℤ))
25	24	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ 𝑖 ≤ 𝐴) → (𝑖 ∈ ℤ ∧ 𝐵 ∈ ℤ))
26		zltlem1 12789	. . . . . . . . . . . . . 14 ⊢ ((𝑖 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝑖 < 𝐵 ↔ 𝑖 ≤ (𝐵 − 1)))
27	25, 26	syl 18	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ 𝑖 ≤ 𝐴) → (𝑖 < 𝐵 ↔ 𝑖 ≤ (𝐵 − 1)))
28	21, 27	mpbid 235	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ 𝑖 ≤ 𝐴) → 𝑖 ≤ (𝐵 − 1))
29	28	ex 418	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) → (𝑖 ≤ 𝐴 → 𝑖 ≤ (𝐵 − 1)))
30	8, 29	syldc 49	. . . . . . . . . 10 ⊢ (𝑖 ∥ 𝐴 → (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) → 𝑖 ≤ (𝐵 − 1)))
31	30	adantr 486	. . . . . . . . 9 ⊢ ((𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵) → (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) → 𝑖 ≤ (𝐵 − 1)))
32	31	impcom 413	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ (𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)) → 𝑖 ≤ (𝐵 − 1))
33		peano2zm 12779	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ ℤ → (𝐵 − 1) ∈ ℤ)
34	22, 33	syl 18	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ ℕ → (𝐵 − 1) ∈ ℤ)
35	34	3ad2ant2 1152	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) → (𝐵 − 1) ∈ ℤ)
36	35	anim1ci 628	. . . . . . . . . 10 ⊢ (((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) → (𝑖 ∈ (ℤ≥‘2) ∧ (𝐵 − 1) ∈ ℤ))
37	36	adantr 486	. . . . . . . . 9 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ (𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)) → (𝑖 ∈ (ℤ≥‘2) ∧ (𝐵 − 1) ∈ ℤ))
38		elfz5 13688	. . . . . . . . 9 ⊢ ((𝑖 ∈ (ℤ≥‘2) ∧ (𝐵 − 1) ∈ ℤ) → (𝑖 ∈ (2...(𝐵 − 1)) ↔ 𝑖 ≤ (𝐵 − 1)))
39	37, 38	syl 18	. . . . . . . 8 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ (𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)) → (𝑖 ∈ (2...(𝐵 − 1)) ↔ 𝑖 ≤ (𝐵 − 1)))
40	32, 39	mpbird 260	. . . . . . 7 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ (𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)) → 𝑖 ∈ (2...(𝐵 − 1)))
41		breq1 5111	. . . . . . . 8 ⊢ (𝑗 = 𝑖 → (𝑗 ∥ 𝐵 ↔ 𝑖 ∥ 𝐵))
42	41	adantl 487	. . . . . . 7 ⊢ (((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ (𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)) ∧ 𝑗 = 𝑖) → (𝑗 ∥ 𝐵 ↔ 𝑖 ∥ 𝐵))
43		simprr 785	. . . . . . 7 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ (𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)) → 𝑖 ∥ 𝐵)
44	40, 42, 43	rspcedvd 3582	. . . . . 6 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ (𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)) → ∃𝑗 ∈ (2...(𝐵 − 1))𝑗 ∥ 𝐵)
45		rexnal 3118	. . . . . . 7 ⊢ (∃𝑗 ∈ (2...(𝐵 − 1)) ¬ ¬ 𝑗 ∥ 𝐵 ↔ ¬ ∀𝑗 ∈ (2...(𝐵 − 1)) ¬ 𝑗 ∥ 𝐵)
46		notnotb 318	. . . . . . . . 9 ⊢ (𝑗 ∥ 𝐵 ↔ ¬ ¬ 𝑗 ∥ 𝐵)
47	46	bicomi 227	. . . . . . . 8 ⊢ (¬ ¬ 𝑗 ∥ 𝐵 ↔ 𝑗 ∥ 𝐵)
48	47	rexbii 3113	. . . . . . 7 ⊢ (∃𝑗 ∈ (2...(𝐵 − 1)) ¬ ¬ 𝑗 ∥ 𝐵 ↔ ∃𝑗 ∈ (2...(𝐵 − 1))𝑗 ∥ 𝐵)
49	45, 48	bitr3i 280	. . . . . 6 ⊢ (¬ ∀𝑗 ∈ (2...(𝐵 − 1)) ¬ 𝑗 ∥ 𝐵 ↔ ∃𝑗 ∈ (2...(𝐵 − 1))𝑗 ∥ 𝐵)
50	44, 49	sylibr 237	. . . . 5 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ (𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)) → ¬ ∀𝑗 ∈ (2...(𝐵 − 1)) ¬ 𝑗 ∥ 𝐵)
51	50	olcd 888	. . . 4 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ (𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)) → (¬ 𝐵 ∈ (ℤ≥‘2) ∨ ¬ ∀𝑗 ∈ (2...(𝐵 − 1)) ¬ 𝑗 ∥ 𝐵))
52		df-nel 3066	. . . . 5 ⊢ (𝐵 ∉ ℙ ↔ ¬ 𝐵 ∈ ℙ)
53		ianor 997	. . . . . 6 ⊢ (¬ (𝐵 ∈ (ℤ≥‘2) ∧ ∀𝑗 ∈ (2...(𝐵 − 1)) ¬ 𝑗 ∥ 𝐵) ↔ (¬ 𝐵 ∈ (ℤ≥‘2) ∨ ¬ ∀𝑗 ∈ (2...(𝐵 − 1)) ¬ 𝑗 ∥ 𝐵))
54		isprm3 16902	. . . . . 6 ⊢ (𝐵 ∈ ℙ ↔ (𝐵 ∈ (ℤ≥‘2) ∧ ∀𝑗 ∈ (2...(𝐵 − 1)) ¬ 𝑗 ∥ 𝐵))
55	53, 54	xchnxbir 336	. . . . 5 ⊢ (¬ 𝐵 ∈ ℙ ↔ (¬ 𝐵 ∈ (ℤ≥‘2) ∨ ¬ ∀𝑗 ∈ (2...(𝐵 − 1)) ¬ 𝑗 ∥ 𝐵))
56	52, 55	bitri 278	. . . 4 ⊢ (𝐵 ∉ ℙ ↔ (¬ 𝐵 ∈ (ℤ≥‘2) ∨ ¬ ∀𝑗 ∈ (2...(𝐵 − 1)) ¬ 𝑗 ∥ 𝐵))
57	51, 56	sylibr 237	. . 3 ⊢ ((((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) ∧ 𝑖 ∈ (ℤ≥‘2)) ∧ (𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵)) → 𝐵 ∉ ℙ)
58	57	rexlimdva2 3169	. 2 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) → (∃𝑖 ∈ (ℤ≥‘2)(𝑖 ∥ 𝐴 ∧ 𝑖 ∥ 𝐵) → 𝐵 ∉ ℙ))
59	3, 58	sylbid 243	1 ⊢ ((𝐴 ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ 𝐴 < 𝐵) → (1 < (𝐴 gcd 𝐵) → 𝐵 ∉ ℙ))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   ∧ w3a 1103   ∈ wcel 2147   ∉ wnel 3065  ∀wral 3080  ∃wrex 3090   class class class wbr 5108  ‘cfv 6566  (class class class)co 7451  ℝcr 11238  1c1 11240   < clt 11382   ≤ cle 11383   − cmin 11580  ℕcn 12375  2c2 12437  ℤcz 12733  ℤ_≥cuz 13005  ...cfz 13679   ∥ cdvds 16466   gcd cgcd 16708  ℙcprime 16890

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 5255  ax-nul 5266  ax-pow 5334  ax-pr 5398  ax-un 7783  ax-cnex 11295  ax-resscn 11296  ax-1cn 11297  ax-icn 11298  ax-addcl 11299  ax-addrcl 11300  ax-mulcl 11301  ax-mulrcl 11302  ax-mulcom 11303  ax-addass 11304  ax-mulass 11305  ax-distr 11306  ax-i2m1 11307  ax-1ne0 11308  ax-1rid 11309  ax-rnegex 11310  ax-rrecex 11311  ax-cnre 11312  ax-pre-lttri 11313  ax-pre-lttrn 11314  ax-pre-ltadd 11315  ax-pre-mulgt0 11316  ax-pre-sup 11317

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 4841  df-uni 4873  df-iun 4958  df-br 5109  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5553  df-eprel 5558  df-po 5566  df-so 5567  df-fr 5611  df-we 5613  df-xp 5664  df-rel 5665  df-cnv 5666  df-co 5667  df-dm 5668  df-rn 5669  df-res 5670  df-ima 5671  df-pred 6330  df-ord 6391  df-on 6392  df-lim 6393  df-suc 6394  df-iota 6520  df-fun 6568  df-fn 6569  df-f 6570  df-f1 6571  df-fo 6572  df-f1o 6573  df-fv 6574  df-riota 7408  df-ov 7454  df-oprab 7455  df-mpo 7456  df-om 7912  df-1st 8035  df-2nd 8036  df-frecs 8337  df-wrecs 8368  df-recs 8417  df-rdg 8456  df-1o 8514  df-2o 8515  df-er 8755  df-en 9012  df-dom 9013  df-sdom 9014  df-fin 9015  df-sup 9471  df-inf 9472  df-pnf 11384  df-mnf 11385  df-xr 11386  df-ltxr 11387  df-le 11388  df-sub 11582  df-neg 11583  df-div 12014  df-nn 12376  df-2 12445  df-3 12446  df-n0 12647  df-z 12734  df-uz 13006  df-rp 13161  df-fz 13680  df-seq 14185  df-exp 14245  df-cj 15309  df-re 15310  df-im 15311  df-sqrt 15445  df-abs 15446  df-dvds 16467  df-gcd 16709  df-prm 16891

This theorem is used by:  prmgaplem7  17279