Metamath Proof Explorer


Theorem dvdsnprmd

Description: If a number is divisible by an integer greater than 1 and less than the number, the number is not prime. (Contributed by AV, 24-Jul-2021)

Ref Expression
Hypotheses dvdsnprmd.g ⊢ φ → 1 < A
dvdsnprmd.l ⊢ φ → A < N
dvdsnprmd.d ⊢ φ → A ∥ N
Assertion dvdsnprmd ⊢ φ → ¬ N ∈ ℙ

Proof

Step Hyp Ref Expression
1 dvdsnprmd.g ⊢ φ → 1 < A
2 dvdsnprmd.l ⊢ φ → A < N
3 dvdsnprmd.d ⊢ φ → A ∥ N
4 dvdszrcl ⊢ A ∥ N → A ∈ ℤ ∧ N ∈ ℤ
5 divides ⊢ A ∈ ℤ ∧ N ∈ ℤ → A ∥ N ↔ ∃ k ∈ ℤ k ⁢ A = N
6 3 4 5 3syl ⊢ φ → A ∥ N ↔ ∃ k ∈ ℤ k ⁢ A = N
7 2z ⊢ 2 ∈ ℤ
8 7 a1i ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → 2 ∈ ℤ
9 simplr ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → k ∈ ℤ
10 2 adantr ⊢ φ ∧ k ∈ ℤ → A < N
11 10 adantr ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → A < N
12 breq2 ⊢ k ⁢ A = N → A < k ⁢ A ↔ A < N
13 12 adantl ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → A < k ⁢ A ↔ A < N
14 11 13 mpbird ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → A < k ⁢ A
15 zre ⊢ A ∈ ℤ → A ∈ ℝ
16 15 3ad2ant1 ⊢ A ∈ ℤ ∧ 1 < A ∧ k ∈ ℤ → A ∈ ℝ
17 zre ⊢ k ∈ ℤ → k ∈ ℝ
18 17 3ad2ant3 ⊢ A ∈ ℤ ∧ 1 < A ∧ k ∈ ℤ → k ∈ ℝ
19 0lt1 ⊢ 0 < 1
20 0red ⊢ A ∈ ℤ → 0 ∈ ℝ
21 1red ⊢ A ∈ ℤ → 1 ∈ ℝ
22 lttr ⊢ 0 ∈ ℝ ∧ 1 ∈ ℝ ∧ A ∈ ℝ → 0 < 1 ∧ 1 < A → 0 < A
23 20 21 15 22 syl3anc ⊢ A ∈ ℤ → 0 < 1 ∧ 1 < A → 0 < A
24 19 23 mpani ⊢ A ∈ ℤ → 1 < A → 0 < A
25 24 imp ⊢ A ∈ ℤ ∧ 1 < A → 0 < A
26 25 3adant3 ⊢ A ∈ ℤ ∧ 1 < A ∧ k ∈ ℤ → 0 < A
27 16 18 26 3jca ⊢ A ∈ ℤ ∧ 1 < A ∧ k ∈ ℤ → A ∈ ℝ ∧ k ∈ ℝ ∧ 0 < A
28 27 3exp ⊢ A ∈ ℤ → 1 < A → k ∈ ℤ → A ∈ ℝ ∧ k ∈ ℝ ∧ 0 < A
29 28 adantr ⊢ A ∈ ℤ ∧ N ∈ ℤ → 1 < A → k ∈ ℤ → A ∈ ℝ ∧ k ∈ ℝ ∧ 0 < A
30 3 4 29 3syl ⊢ φ → 1 < A → k ∈ ℤ → A ∈ ℝ ∧ k ∈ ℝ ∧ 0 < A
31 1 30 mpd ⊢ φ → k ∈ ℤ → A ∈ ℝ ∧ k ∈ ℝ ∧ 0 < A
32 31 imp ⊢ φ ∧ k ∈ ℤ → A ∈ ℝ ∧ k ∈ ℝ ∧ 0 < A
33 32 adantr ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → A ∈ ℝ ∧ k ∈ ℝ ∧ 0 < A
34 ltmulgt12 ⊢ A ∈ ℝ ∧ k ∈ ℝ ∧ 0 < A → 1 < k ↔ A < k ⁢ A
35 33 34 syl ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → 1 < k ↔ A < k ⁢ A
36 14 35 mpbird ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → 1 < k
37 df-2 ⊢ 2 = 1 + 1
38 37 breq1i ⊢ 2 ≤ k ↔ 1 + 1 ≤ k
39 1zzd ⊢ k ∈ ℤ → 1 ∈ ℤ
40 zltp1le ⊢ 1 ∈ ℤ ∧ k ∈ ℤ → 1 < k ↔ 1 + 1 ≤ k
41 39 40 mpancom ⊢ k ∈ ℤ → 1 < k ↔ 1 + 1 ≤ k
42 41 bicomd ⊢ k ∈ ℤ → 1 + 1 ≤ k ↔ 1 < k
43 42 adantl ⊢ φ ∧ k ∈ ℤ → 1 + 1 ≤ k ↔ 1 < k
44 43 adantr ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → 1 + 1 ≤ k ↔ 1 < k
45 38 44 bitrid ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → 2 ≤ k ↔ 1 < k
46 36 45 mpbird ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → 2 ≤ k
47 eluz2 ⊢ k ∈ ℤ ≥ 2 ↔ 2 ∈ ℤ ∧ k ∈ ℤ ∧ 2 ≤ k
48 8 9 46 47 syl3anbrc ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → k ∈ ℤ ≥ 2
49 7 a1i ⊢ A ∈ ℤ ∧ 1 < A → 2 ∈ ℤ
50 simpl ⊢ A ∈ ℤ ∧ 1 < A → A ∈ ℤ
51 1zzd ⊢ A ∈ ℤ → 1 ∈ ℤ
52 zltp1le ⊢ 1 ∈ ℤ ∧ A ∈ ℤ → 1 < A ↔ 1 + 1 ≤ A
53 51 52 mpancom ⊢ A ∈ ℤ → 1 < A ↔ 1 + 1 ≤ A
54 53 biimpa ⊢ A ∈ ℤ ∧ 1 < A → 1 + 1 ≤ A
55 37 breq1i ⊢ 2 ≤ A ↔ 1 + 1 ≤ A
56 54 55 sylibr ⊢ A ∈ ℤ ∧ 1 < A → 2 ≤ A
57 49 50 56 3jca ⊢ A ∈ ℤ ∧ 1 < A → 2 ∈ ℤ ∧ A ∈ ℤ ∧ 2 ≤ A
58 57 ex ⊢ A ∈ ℤ → 1 < A → 2 ∈ ℤ ∧ A ∈ ℤ ∧ 2 ≤ A
59 58 adantr ⊢ A ∈ ℤ ∧ N ∈ ℤ → 1 < A → 2 ∈ ℤ ∧ A ∈ ℤ ∧ 2 ≤ A
60 3 4 59 3syl ⊢ φ → 1 < A → 2 ∈ ℤ ∧ A ∈ ℤ ∧ 2 ≤ A
61 1 60 mpd ⊢ φ → 2 ∈ ℤ ∧ A ∈ ℤ ∧ 2 ≤ A
62 eluz2 ⊢ A ∈ ℤ ≥ 2 ↔ 2 ∈ ℤ ∧ A ∈ ℤ ∧ 2 ≤ A
63 61 62 sylibr ⊢ φ → A ∈ ℤ ≥ 2
64 63 adantr ⊢ φ ∧ k ∈ ℤ → A ∈ ℤ ≥ 2
65 64 adantr ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → A ∈ ℤ ≥ 2
66 nprm ⊢ k ∈ ℤ ≥ 2 ∧ A ∈ ℤ ≥ 2 → ¬ k ⁢ A ∈ ℙ
67 48 65 66 syl2anc ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → ¬ k ⁢ A ∈ ℙ
68 eleq1 ⊢ k ⁢ A = N → k ⁢ A ∈ ℙ ↔ N ∈ ℙ
69 68 notbid ⊢ k ⁢ A = N → ¬ k ⁢ A ∈ ℙ ↔ ¬ N ∈ ℙ
70 69 adantl ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → ¬ k ⁢ A ∈ ℙ ↔ ¬ N ∈ ℙ
71 67 70 mpbid ⊢ φ ∧ k ∈ ℤ ∧ k ⁢ A = N → ¬ N ∈ ℙ
72 71 rexlimdva2 ⊢ φ → ∃ k ∈ ℤ k ⁢ A = N → ¬ N ∈ ℙ
73 6 72 sylbid ⊢ φ → A ∥ N → ¬ N ∈ ℙ
74 3 73 mpd ⊢ φ → ¬ N ∈ ℙ