2mulprm - Metamath Proof Explorer

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

Theorem 2mulprm 16426

Description: A multiple of two is prime iff the multiplier is one. (Contributed by AV, 8-Jun-2023.)

**Assertion**
Ref	Expression
2mulprm	⊢ (𝐴 ∈ ℤ → ((2 · 𝐴) ∈ ℙ ↔ 𝐴 = 1))

**Proof of Theorem 2mulprm**
Step	Hyp	Ref	Expression
1		zre 12351	. . . . . 6 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℝ)
2		0red 11006	. . . . . 6 ⊢ (𝐴 ∈ ℤ → 0 ∈ ℝ)
3	1, 2	leloed 11146	. . . . 5 ⊢ (𝐴 ∈ ℤ → (𝐴 ≤ 0 ↔ (𝐴 < 0 ∨ 𝐴 = 0)))
4		prmnn 16407	. . . . . . . . . 10 ⊢ ((2 · 𝐴) ∈ ℙ → (2 · 𝐴) ∈ ℕ)
5		nnnn0 12268	. . . . . . . . . 10 ⊢ ((2 · 𝐴) ∈ ℕ → (2 · 𝐴) ∈ ℕ₀)
6		nn0ge0 12286	. . . . . . . . . . 11 ⊢ ((2 · 𝐴) ∈ ℕ₀ → 0 ≤ (2 · 𝐴))
7		2pos 12104	. . . . . . . . . . . . . . . . . . 19 ⊢ 0 < 2
8	7	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐴 ∈ ℤ → 0 < 2)
9	8	anim1i 614	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℤ ∧ 𝐴 < 0) → (0 < 2 ∧ 𝐴 < 0))
10	9	olcd 870	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℤ ∧ 𝐴 < 0) → ((2 < 0 ∧ 0 < 𝐴) ∨ (0 < 2 ∧ 𝐴 < 0)))
11		2re 12075	. . . . . . . . . . . . . . . . . 18 ⊢ 2 ∈ ℝ
12	11	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℤ ∧ 𝐴 < 0) → 2 ∈ ℝ)
13	1	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ ℤ ∧ 𝐴 < 0) → 𝐴 ∈ ℝ)
14	12, 13	mul2lt0bi 12864	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℤ ∧ 𝐴 < 0) → ((2 · 𝐴) < 0 ↔ ((2 < 0 ∧ 0 < 𝐴) ∨ (0 < 2 ∧ 𝐴 < 0))))
15	10, 14	mpbird 256	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝐴 < 0) → (2 · 𝐴) < 0)
16	12, 13	remulcld 11033	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℤ ∧ 𝐴 < 0) → (2 · 𝐴) ∈ ℝ)
17		0red 11006	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℤ ∧ 𝐴 < 0) → 0 ∈ ℝ)
18	16, 17	ltnled 11150	. . . . . . . . . . . . . . 15 ⊢ ((𝐴 ∈ ℤ ∧ 𝐴 < 0) → ((2 · 𝐴) < 0 ↔ ¬ 0 ≤ (2 · 𝐴)))
19	15, 18	mpbid 231	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℤ ∧ 𝐴 < 0) → ¬ 0 ≤ (2 · 𝐴))
20	19	ex 412	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℤ → (𝐴 < 0 → ¬ 0 ≤ (2 · 𝐴)))
21	20	con2d 134	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℤ → (0 ≤ (2 · 𝐴) → ¬ 𝐴 < 0))
22	21	com12 32	. . . . . . . . . . 11 ⊢ (0 ≤ (2 · 𝐴) → (𝐴 ∈ ℤ → ¬ 𝐴 < 0))
23	6, 22	syl 17	. . . . . . . . . 10 ⊢ ((2 · 𝐴) ∈ ℕ₀ → (𝐴 ∈ ℤ → ¬ 𝐴 < 0))
24	4, 5, 23	3syl 18	. . . . . . . . 9 ⊢ ((2 · 𝐴) ∈ ℙ → (𝐴 ∈ ℤ → ¬ 𝐴 < 0))
25	24	com12 32	. . . . . . . 8 ⊢ (𝐴 ∈ ℤ → ((2 · 𝐴) ∈ ℙ → ¬ 𝐴 < 0))
26	25	con2d 134	. . . . . . 7 ⊢ (𝐴 ∈ ℤ → (𝐴 < 0 → ¬ (2 · 𝐴) ∈ ℙ))
27	26	a1dd 50	. . . . . 6 ⊢ (𝐴 ∈ ℤ → (𝐴 < 0 → (¬ 𝐴 = 1 → ¬ (2 · 𝐴) ∈ ℙ)))
28		oveq2 7303	. . . . . . . . 9 ⊢ (𝐴 = 0 → (2 · 𝐴) = (2 · 0))
29		2t0e0 12170	. . . . . . . . 9 ⊢ (2 · 0) = 0
30	28, 29	eqtrdi 2789	. . . . . . . 8 ⊢ (𝐴 = 0 → (2 · 𝐴) = 0)
31		0nprm 16411	. . . . . . . . 9 ⊢ ¬ 0 ∈ ℙ
32	31	a1i 11	. . . . . . . 8 ⊢ (𝐴 = 0 → ¬ 0 ∈ ℙ)
33	30, 32	eqneltrd 2853	. . . . . . 7 ⊢ (𝐴 = 0 → ¬ (2 · 𝐴) ∈ ℙ)
34	33	a1i13 27	. . . . . 6 ⊢ (𝐴 ∈ ℤ → (𝐴 = 0 → (¬ 𝐴 = 1 → ¬ (2 · 𝐴) ∈ ℙ)))
35	27, 34	jaod 855	. . . . 5 ⊢ (𝐴 ∈ ℤ → ((𝐴 < 0 ∨ 𝐴 = 0) → (¬ 𝐴 = 1 → ¬ (2 · 𝐴) ∈ ℙ)))
36	3, 35	sylbid 239	. . . 4 ⊢ (𝐴 ∈ ℤ → (𝐴 ≤ 0 → (¬ 𝐴 = 1 → ¬ (2 · 𝐴) ∈ ℙ)))
37		2z 12380	. . . . . . 7 ⊢ 2 ∈ ℤ
38		uzid 12625	. . . . . . 7 ⊢ (2 ∈ ℤ → 2 ∈ (ℤ_≥‘2))
39	37, 38	ax-mp 5	. . . . . 6 ⊢ 2 ∈ (ℤ_≥‘2)
40	37	a1i 11	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 1 ≤ 𝐴 ∧ ¬ 𝐴 = 1) → 2 ∈ ℤ)
41		simp1 1134	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 1 ≤ 𝐴 ∧ ¬ 𝐴 = 1) → 𝐴 ∈ ℤ)
42		df-ne 2939	. . . . . . . . 9 ⊢ (𝐴 ≠ 1 ↔ ¬ 𝐴 = 1)
43		1red 11004	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℤ → 1 ∈ ℝ)
44	43, 1	ltlend 11148	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℤ → (1 < 𝐴 ↔ (1 ≤ 𝐴 ∧ 𝐴 ≠ 1)))
45		1zzd 12379	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℤ → 1 ∈ ℤ)
46		zltp1le 12398	. . . . . . . . . . . . . 14 ⊢ ((1 ∈ ℤ ∧ 𝐴 ∈ ℤ) → (1 < 𝐴 ↔ (1 + 1) ≤ 𝐴))
47	45, 46	mpancom 684	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℤ → (1 < 𝐴 ↔ (1 + 1) ≤ 𝐴))
48	47	biimpd 228	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℤ → (1 < 𝐴 → (1 + 1) ≤ 𝐴))
49		df-2 12064	. . . . . . . . . . . . 13 ⊢ 2 = (1 + 1)
50	49	breq1i 5084	. . . . . . . . . . . 12 ⊢ (2 ≤ 𝐴 ↔ (1 + 1) ≤ 𝐴)
51	48, 50	syl6ibr 251	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℤ → (1 < 𝐴 → 2 ≤ 𝐴))
52	44, 51	sylbird 259	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℤ → ((1 ≤ 𝐴 ∧ 𝐴 ≠ 1) → 2 ≤ 𝐴))
53	52	expdimp 452	. . . . . . . . 9 ⊢ ((𝐴 ∈ ℤ ∧ 1 ≤ 𝐴) → (𝐴 ≠ 1 → 2 ≤ 𝐴))
54	42, 53	syl5bir 242	. . . . . . . 8 ⊢ ((𝐴 ∈ ℤ ∧ 1 ≤ 𝐴) → (¬ 𝐴 = 1 → 2 ≤ 𝐴))
55	54	3impia 1115	. . . . . . 7 ⊢ ((𝐴 ∈ ℤ ∧ 1 ≤ 𝐴 ∧ ¬ 𝐴 = 1) → 2 ≤ 𝐴)
56		eluz2 12616	. . . . . . 7 ⊢ (𝐴 ∈ (ℤ_≥‘2) ↔ (2 ∈ ℤ ∧ 𝐴 ∈ ℤ ∧ 2 ≤ 𝐴))
57	40, 41, 55, 56	syl3anbrc 1341	. . . . . 6 ⊢ ((𝐴 ∈ ℤ ∧ 1 ≤ 𝐴 ∧ ¬ 𝐴 = 1) → 𝐴 ∈ (ℤ_≥‘2))
58		nprm 16421	. . . . . 6 ⊢ ((2 ∈ (ℤ_≥‘2) ∧ 𝐴 ∈ (ℤ_≥‘2)) → ¬ (2 · 𝐴) ∈ ℙ)
59	39, 57, 58	sylancr 586	. . . . 5 ⊢ ((𝐴 ∈ ℤ ∧ 1 ≤ 𝐴 ∧ ¬ 𝐴 = 1) → ¬ (2 · 𝐴) ∈ ℙ)
60	59	3exp 1117	. . . 4 ⊢ (𝐴 ∈ ℤ → (1 ≤ 𝐴 → (¬ 𝐴 = 1 → ¬ (2 · 𝐴) ∈ ℙ)))
61		zle0orge1 12364	. . . 4 ⊢ (𝐴 ∈ ℤ → (𝐴 ≤ 0 ∨ 1 ≤ 𝐴))
62	36, 60, 61	mpjaod 856	. . 3 ⊢ (𝐴 ∈ ℤ → (¬ 𝐴 = 1 → ¬ (2 · 𝐴) ∈ ℙ))
63	62	con4d 115	. 2 ⊢ (𝐴 ∈ ℤ → ((2 · 𝐴) ∈ ℙ → 𝐴 = 1))
64		oveq2 7303	. . . 4 ⊢ (𝐴 = 1 → (2 · 𝐴) = (2 · 1))
65		2t1e2 12164	. . . 4 ⊢ (2 · 1) = 2
66	64, 65	eqtrdi 2789	. . 3 ⊢ (𝐴 = 1 → (2 · 𝐴) = 2)
67		2prm 16425	. . 3 ⊢ 2 ∈ ℙ
68	66, 67	eqeltrdi 2842	. 2 ⊢ (𝐴 = 1 → (2 · 𝐴) ∈ ℙ)
69	63, 68	impbid1 224	1 ⊢ (𝐴 ∈ ℤ → ((2 · 𝐴) ∈ ℙ ↔ 𝐴 = 1))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 395 ∨ wo 843 ∧ w3a 1085 = wceq 1537 ∈ wcel 2101 ≠ wne 2938 class class class wbr 5077 ‘cfv 6447 (class class class)co 7295 ℝcr 10898 0cc0 10899 1c1 10900 + caddc 10902 · cmul 10904 < clt 11037 ≤ cle 11038 ℕcn 12001 2c2 12056 ℕ₀cn0 12261 ℤcz 12347 ℤ_≥cuz 12610 ℙcprime 16404

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1793 ax-4 1807 ax-5 1909 ax-6 1967 ax-7 2007 ax-8 2103 ax-9 2111 ax-10 2132 ax-11 2149 ax-12 2166 ax-ext 2704 ax-sep 5226 ax-nul 5233 ax-pow 5291 ax-pr 5355 ax-un 7608 ax-cnex 10955 ax-resscn 10956 ax-1cn 10957 ax-icn 10958 ax-addcl 10959 ax-addrcl 10960 ax-mulcl 10961 ax-mulrcl 10962 ax-mulcom 10963 ax-addass 10964 ax-mulass 10965 ax-distr 10966 ax-i2m1 10967 ax-1ne0 10968 ax-1rid 10969 ax-rnegex 10970 ax-rrecex 10971 ax-cnre 10972 ax-pre-lttri 10973 ax-pre-lttrn 10974 ax-pre-ltadd 10975 ax-pre-mulgt0 10976 ax-pre-sup 10977

This theorem depends on definitions: df-bi 206 df-an 396 df-or 844 df-3or 1086 df-3an 1087 df-tru 1540 df-fal 1550 df-ex 1778 df-nf 1782 df-sb 2063 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2884 df-ne 2939 df-nel 3045 df-ral 3060 df-rex 3069 df-rmo 3222 df-reu 3223 df-rab 3224 df-v 3436 df-sbc 3719 df-csb 3835 df-dif 3892 df-un 3894 df-in 3896 df-ss 3906 df-pss 3908 df-nul 4260 df-if 4463 df-pw 4538 df-sn 4565 df-pr 4567 df-op 4571 df-uni 4842 df-iun 4929 df-br 5078 df-opab 5140 df-mpt 5161 df-tr 5195 df-id 5491 df-eprel 5497 df-po 5505 df-so 5506 df-fr 5546 df-we 5548 df-xp 5597 df-rel 5598 df-cnv 5599 df-co 5600 df-dm 5601 df-rn 5602 df-res 5603 df-ima 5604 df-pred 6206 df-ord 6273 df-on 6274 df-lim 6275 df-suc 6276 df-iota 6399 df-fun 6449 df-fn 6450 df-f 6451 df-f1 6452 df-fo 6453 df-f1o 6454 df-fv 6455 df-riota 7252 df-ov 7298 df-oprab 7299 df-mpo 7300 df-om 7733 df-1st 7851 df-2nd 7852 df-frecs 8117 df-wrecs 8148 df-recs 8222 df-rdg 8261 df-1o 8317 df-2o 8318 df-er 8518 df-en 8754 df-dom 8755 df-sdom 8756 df-fin 8757 df-sup 9229 df-pnf 11039 df-mnf 11040 df-xr 11041 df-ltxr 11042 df-le 11043 df-sub 11235 df-neg 11236 df-div 11661 df-nn 12002 df-2 12064 df-3 12065 df-n0 12262 df-z 12348 df-uz 12611 df-rp 12759 df-fz 13268 df-seq 13750 df-exp 13811 df-cj 14838 df-re 14839 df-im 14840 df-sqrt 14974 df-abs 14975 df-dvds 15992 df-prm 16405

This theorem is referenced by: 2sqreultlem 26623 2sqreunnltlem 26626

W3C validator