Theorem 31prm 47585

Description: 31 is a prime number. In contrast to 37prm 17050, the proof of this theorem is not based on the "blanket" prmlem2 17049, but on isprm7 16637. Although the checks for non-divisibility by the primes 7 to 23 are not needed, the proof is much longer (regarding size) than the proof of 37prm 17050 (1810 characters compared with 1213 for 37prm 17050). The number of essential steps, however, is much smaller (138 compared with 213 for 37prm 17050). (Contributed by AV, 17-Aug-2021.) (Proof modification is discouraged.)

Assertion

Ref	Expression
31prm	⊢ ;31 ∈ ℙ

Proof of Theorem 31prm

Step	Hyp	Ref	Expression
1		2z 12525	. . 3 ⊢ 2 ∈ ℤ
2		3nn0 12420	. . . . 5 ⊢ 3 ∈ ℕ0
3		1nn0 12418	. . . . 5 ⊢ 1 ∈ ℕ0
4	2, 3	deccl 12624	. . . 4 ⊢ ;31 ∈ ℕ0
5	4	nn0zi 12518	. . 3 ⊢ ;31 ∈ ℤ
6		3nn 12225	. . . 4 ⊢ 3 ∈ ℕ
7		2nn0 12419	. . . 4 ⊢ 2 ∈ ℕ0
8		2re 12220	. . . . 5 ⊢ 2 ∈ ℝ
9		9re 12245	. . . . 5 ⊢ 9 ∈ ℝ
10		2lt9 12346	. . . . 5 ⊢ 2 < 9
11	8, 9, 10	ltleii 11257	. . . 4 ⊢ 2 ≤ 9
12	6, 3, 7, 11	declei 12645	. . 3 ⊢ 2 ≤ ;31
13		eluz2 12759	. . 3 ⊢ (;31 ∈ (ℤ≥‘2) ↔ (2 ∈ ℤ ∧ ;31 ∈ ℤ ∧ 2 ≤ ;31))
14	1, 5, 12, 13	mpbir3an 1342	. 2 ⊢ ;31 ∈ (ℤ≥‘2)
15		elun 4106	. . . . . 6 ⊢ (𝑛 ∈ (({2, 3} ∩ ℙ) ∪ ({4, 5} ∩ ℙ)) ↔ (𝑛 ∈ ({2, 3} ∩ ℙ) ∨ 𝑛 ∈ ({4, 5} ∩ ℙ)))
16		elin 3921	. . . . . . . 8 ⊢ (𝑛 ∈ ({2, 3} ∩ ℙ) ↔ (𝑛 ∈ {2, 3} ∧ 𝑛 ∈ ℙ))
17		vex 3442	. . . . . . . . . . 11 ⊢ 𝑛 ∈ V
18	17	elpr 4604	. . . . . . . . . 10 ⊢ (𝑛 ∈ {2, 3} ↔ (𝑛 = 2 ∨ 𝑛 = 3))
19		0nn0 12417	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℕ0
20		2cn 12221	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℂ
21	20	mul02i 11323	. . . . . . . . . . . . 13 ⊢ (0 · 2) = 0
22		1e0p1 12651	. . . . . . . . . . . . 13 ⊢ 1 = (0 + 1)
23	2, 19, 21, 22	dec2dvds 16993	. . . . . . . . . . . 12 ⊢ ¬ 2 ∥ ;31
24		breq1 5098	. . . . . . . . . . . 12 ⊢ (𝑛 = 2 → (𝑛 ∥ ;31 ↔ 2 ∥ ;31))
25	23, 24	mtbiri 327	. . . . . . . . . . 11 ⊢ (𝑛 = 2 → ¬ 𝑛 ∥ ;31)
26		3ndvds4 47583	. . . . . . . . . . . . 13 ⊢ ¬ 3 ∥ 4
27	2, 3	3dvdsdec 16261	. . . . . . . . . . . . . 14 ⊢ (3 ∥ ;31 ↔ 3 ∥ (3 + 1))
28		3p1e4 12286	. . . . . . . . . . . . . . 15 ⊢ (3 + 1) = 4
29	28	breq2i 5103	. . . . . . . . . . . . . 14 ⊢ (3 ∥ (3 + 1) ↔ 3 ∥ 4)
30	27, 29	bitri 275	. . . . . . . . . . . . 13 ⊢ (3 ∥ ;31 ↔ 3 ∥ 4)
31	26, 30	mtbir 323	. . . . . . . . . . . 12 ⊢ ¬ 3 ∥ ;31
32		breq1 5098	. . . . . . . . . . . 12 ⊢ (𝑛 = 3 → (𝑛 ∥ ;31 ↔ 3 ∥ ;31))
33	31, 32	mtbiri 327	. . . . . . . . . . 11 ⊢ (𝑛 = 3 → ¬ 𝑛 ∥ ;31)
34	25, 33	jaoi 857	. . . . . . . . . 10 ⊢ ((𝑛 = 2 ∨ 𝑛 = 3) → ¬ 𝑛 ∥ ;31)
35	18, 34	sylbi 217	. . . . . . . . 9 ⊢ (𝑛 ∈ {2, 3} → ¬ 𝑛 ∥ ;31)
36	35	adantr 480	. . . . . . . 8 ⊢ ((𝑛 ∈ {2, 3} ∧ 𝑛 ∈ ℙ) → ¬ 𝑛 ∥ ;31)
37	16, 36	sylbi 217	. . . . . . 7 ⊢ (𝑛 ∈ ({2, 3} ∩ ℙ) → ¬ 𝑛 ∥ ;31)
38		elin 3921	. . . . . . . 8 ⊢ (𝑛 ∈ ({4, 5} ∩ ℙ) ↔ (𝑛 ∈ {4, 5} ∧ 𝑛 ∈ ℙ))
39	17	elpr 4604	. . . . . . . . . 10 ⊢ (𝑛 ∈ {4, 5} ↔ (𝑛 = 4 ∨ 𝑛 = 5))
40		eleq1 2816	. . . . . . . . . . . 12 ⊢ (𝑛 = 4 → (𝑛 ∈ ℙ ↔ 4 ∈ ℙ))
41		4nprm 16624	. . . . . . . . . . . . 13 ⊢ ¬ 4 ∈ ℙ
42	41	pm2.21i 119	. . . . . . . . . . . 12 ⊢ (4 ∈ ℙ → ¬ 𝑛 ∥ ;31)
43	40, 42	biimtrdi 253	. . . . . . . . . . 11 ⊢ (𝑛 = 4 → (𝑛 ∈ ℙ → ¬ 𝑛 ∥ ;31))
44		1nn 12157	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ
45		1lt5 12321	. . . . . . . . . . . . . 14 ⊢ 1 < 5
46	2, 44, 45	dec5dvds 16994	. . . . . . . . . . . . 13 ⊢ ¬ 5 ∥ ;31
47		breq1 5098	. . . . . . . . . . . . 13 ⊢ (𝑛 = 5 → (𝑛 ∥ ;31 ↔ 5 ∥ ;31))
48	46, 47	mtbiri 327	. . . . . . . . . . . 12 ⊢ (𝑛 = 5 → ¬ 𝑛 ∥ ;31)
49	48	a1d 25	. . . . . . . . . . 11 ⊢ (𝑛 = 5 → (𝑛 ∈ ℙ → ¬ 𝑛 ∥ ;31))
50	43, 49	jaoi 857	. . . . . . . . . 10 ⊢ ((𝑛 = 4 ∨ 𝑛 = 5) → (𝑛 ∈ ℙ → ¬ 𝑛 ∥ ;31))
51	39, 50	sylbi 217	. . . . . . . . 9 ⊢ (𝑛 ∈ {4, 5} → (𝑛 ∈ ℙ → ¬ 𝑛 ∥ ;31))
52	51	imp 406	. . . . . . . 8 ⊢ ((𝑛 ∈ {4, 5} ∧ 𝑛 ∈ ℙ) → ¬ 𝑛 ∥ ;31)
53	38, 52	sylbi 217	. . . . . . 7 ⊢ (𝑛 ∈ ({4, 5} ∩ ℙ) → ¬ 𝑛 ∥ ;31)
54	37, 53	jaoi 857	. . . . . 6 ⊢ ((𝑛 ∈ ({2, 3} ∩ ℙ) ∨ 𝑛 ∈ ({4, 5} ∩ ℙ)) → ¬ 𝑛 ∥ ;31)
55	15, 54	sylbi 217	. . . . 5 ⊢ (𝑛 ∈ (({2, 3} ∩ ℙ) ∪ ({4, 5} ∩ ℙ)) → ¬ 𝑛 ∥ ;31)
56		indir 4239	. . . . 5 ⊢ (({2, 3} ∪ {4, 5}) ∩ ℙ) = (({2, 3} ∩ ℙ) ∪ ({4, 5} ∩ ℙ))
57	55, 56	eleq2s 2846	. . . 4 ⊢ (𝑛 ∈ (({2, 3} ∪ {4, 5}) ∩ ℙ) → ¬ 𝑛 ∥ ;31)
58		5nn0 12422	. . . . . . . . 9 ⊢ 5 ∈ ℕ0
59		5re 12233	. . . . . . . . . 10 ⊢ 5 ∈ ℝ
60		5lt9 12343	. . . . . . . . . 10 ⊢ 5 < 9
61	59, 9, 60	ltleii 11257	. . . . . . . . 9 ⊢ 5 ≤ 9
62		2lt3 12313	. . . . . . . . 9 ⊢ 2 < 3
63	7, 2, 58, 3, 61, 62	decleh 12644	. . . . . . . 8 ⊢ ;25 ≤ ;31
64		6nn 12235	. . . . . . . . 9 ⊢ 6 ∈ ℕ
65		1lt6 12326	. . . . . . . . 9 ⊢ 1 < 6
66	2, 3, 64, 65	declt 12637	. . . . . . . 8 ⊢ ;31 < ;36
67	4	nn0rei 12413	. . . . . . . . . 10 ⊢ ;31 ∈ ℝ
68		0re 11136	. . . . . . . . . . . 12 ⊢ 0 ∈ ℝ
69		9pos 12259	. . . . . . . . . . . 12 ⊢ 0 < 9
70	68, 9, 69	ltleii 11257	. . . . . . . . . . 11 ⊢ 0 ≤ 9
71	6, 3, 19, 70	declei 12645	. . . . . . . . . 10 ⊢ 0 ≤ ;31
72	67, 71	pm3.2i 470	. . . . . . . . 9 ⊢ (;31 ∈ ℝ ∧ 0 ≤ ;31)
73		flsqrt5 47582	. . . . . . . . . 10 ⊢ ((;31 ∈ ℝ ∧ 0 ≤ ;31) → ((;25 ≤ ;31 ∧ ;31 < ;36) ↔ (⌊‘(√‘;31)) = 5))
74	73	bicomd 223	. . . . . . . . 9 ⊢ ((;31 ∈ ℝ ∧ 0 ≤ ;31) → ((⌊‘(√‘;31)) = 5 ↔ (;25 ≤ ;31 ∧ ;31 < ;36)))
75	72, 74	ax-mp 5	. . . . . . . 8 ⊢ ((⌊‘(√‘;31)) = 5 ↔ (;25 ≤ ;31 ∧ ;31 < ;36))
76	63, 66, 75	mpbir2an 711	. . . . . . 7 ⊢ (⌊‘(√‘;31)) = 5
77	76	oveq2i 7364	. . . . . 6 ⊢ (2...(⌊‘(√‘;31))) = (2...5)
78		5nn 12232	. . . . . . . . . 10 ⊢ 5 ∈ ℕ
79	78	nnzi 12517	. . . . . . . . 9 ⊢ 5 ∈ ℤ
80		3z 12526	. . . . . . . . 9 ⊢ 3 ∈ ℤ
81	1, 79, 80	3pm3.2i 1340	. . . . . . . 8 ⊢ (2 ∈ ℤ ∧ 5 ∈ ℤ ∧ 3 ∈ ℤ)
82		3re 12226	. . . . . . . . . 10 ⊢ 3 ∈ ℝ
83	8, 82, 62	ltleii 11257	. . . . . . . . 9 ⊢ 2 ≤ 3
84		3lt5 12319	. . . . . . . . . 10 ⊢ 3 < 5
85	82, 59, 84	ltleii 11257	. . . . . . . . 9 ⊢ 3 ≤ 5
86	83, 85	pm3.2i 470	. . . . . . . 8 ⊢ (2 ≤ 3 ∧ 3 ≤ 5)
87		elfz2 13435	. . . . . . . 8 ⊢ (3 ∈ (2...5) ↔ ((2 ∈ ℤ ∧ 5 ∈ ℤ ∧ 3 ∈ ℤ) ∧ (2 ≤ 3 ∧ 3 ≤ 5)))
88	81, 86, 87	mpbir2an 711	. . . . . . 7 ⊢ 3 ∈ (2...5)
89		fzsplit 13471	. . . . . . 7 ⊢ (3 ∈ (2...5) → (2...5) = ((2...3) ∪ ((3 + 1)...5)))
90	88, 89	ax-mp 5	. . . . . 6 ⊢ (2...5) = ((2...3) ∪ ((3 + 1)...5))
91		df-3 12210	. . . . . . . . 9 ⊢ 3 = (2 + 1)
92	91	oveq2i 7364	. . . . . . . 8 ⊢ (2...3) = (2...(2 + 1))
93		fzpr 13500	. . . . . . . . 9 ⊢ (2 ∈ ℤ → (2...(2 + 1)) = {2, (2 + 1)})
94	1, 93	ax-mp 5	. . . . . . . 8 ⊢ (2...(2 + 1)) = {2, (2 + 1)}
95		2p1e3 12283	. . . . . . . . 9 ⊢ (2 + 1) = 3
96	95	preq2i 4691	. . . . . . . 8 ⊢ {2, (2 + 1)} = {2, 3}
97	92, 94, 96	3eqtri 2756	. . . . . . 7 ⊢ (2...3) = {2, 3}
98	28	oveq1i 7363	. . . . . . . 8 ⊢ ((3 + 1)...5) = (4...5)
99		df-5 12212	. . . . . . . . 9 ⊢ 5 = (4 + 1)
100	99	oveq2i 7364	. . . . . . . 8 ⊢ (4...5) = (4...(4 + 1))
101		4z 12527	. . . . . . . . . 10 ⊢ 4 ∈ ℤ
102		fzpr 13500	. . . . . . . . . 10 ⊢ (4 ∈ ℤ → (4...(4 + 1)) = {4, (4 + 1)})
103	101, 102	ax-mp 5	. . . . . . . . 9 ⊢ (4...(4 + 1)) = {4, (4 + 1)}
104		4p1e5 12287	. . . . . . . . . 10 ⊢ (4 + 1) = 5
105	104	preq2i 4691	. . . . . . . . 9 ⊢ {4, (4 + 1)} = {4, 5}
106	103, 105	eqtri 2752	. . . . . . . 8 ⊢ (4...(4 + 1)) = {4, 5}
107	98, 100, 106	3eqtri 2756	. . . . . . 7 ⊢ ((3 + 1)...5) = {4, 5}
108	97, 107	uneq12i 4119	. . . . . 6 ⊢ ((2...3) ∪ ((3 + 1)...5)) = ({2, 3} ∪ {4, 5})
109	77, 90, 108	3eqtri 2756	. . . . 5 ⊢ (2...(⌊‘(√‘;31))) = ({2, 3} ∪ {4, 5})
110	109	ineq1i 4169	. . . 4 ⊢ ((2...(⌊‘(√‘;31))) ∩ ℙ) = (({2, 3} ∪ {4, 5}) ∩ ℙ)
111	57, 110	eleq2s 2846	. . 3 ⊢ (𝑛 ∈ ((2...(⌊‘(√‘;31))) ∩ ℙ) → ¬ 𝑛 ∥ ;31)
112	111	rgen 3046	. 2 ⊢ ∀𝑛 ∈ ((2...(⌊‘(√‘;31))) ∩ ℙ) ¬ 𝑛 ∥ ;31
113		isprm7 16637	. 2 ⊢ (;31 ∈ ℙ ↔ (;31 ∈ (ℤ≥‘2) ∧ ∀𝑛 ∈ ((2...(⌊‘(√‘;31))) ∩ ℙ) ¬ 𝑛 ∥ ;31))
114	14, 112, 113	mpbir2an 711	1 ⊢ ;31 ∈ ℙ

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109  ∀wral 3044   ∪ cun 3903   ∩ cin 3904  {cpr 4581   class class class wbr 5095  ‘cfv 6486  (class class class)co 7353  ℝcr 11027  0cc0 11028  1c1 11029   + caddc 11031   < clt 11168   ≤ cle 11169  2c2 12201  3c3 12202  4c4 12203  5c5 12204  6c6 12205  9c9 12208  ℤcz 12489  ;cdc 12609  ℤ_≥cuz 12753  ...cfz 13428  ⌊cfl 13712  √csqrt 15158   ∥ cdvds 16181  ℙcprime 16600

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7675  ax-cnex 11084  ax-resscn 11085  ax-1cn 11086  ax-icn 11087  ax-addcl 11088  ax-addrcl 11089  ax-mulcl 11090  ax-mulrcl 11091  ax-mulcom 11092  ax-addass 11093  ax-mulass 11094  ax-distr 11095  ax-i2m1 11096  ax-1ne0 11097  ax-1rid 11098  ax-rnegex 11099  ax-rrecex 11100  ax-cnre 11101  ax-pre-lttri 11102  ax-pre-lttrn 11103  ax-pre-ltadd 11104  ax-pre-mulgt0 11105  ax-pre-sup 11106

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3345  df-reu 3346  df-rab 3397  df-v 3440  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4862  df-iun 4946  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-riota 7310  df-ov 7356  df-oprab 7357  df-mpo 7358  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8632  df-en 8880  df-dom 8881  df-sdom 8882  df-fin 8883  df-sup 9351  df-inf 9352  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11367  df-neg 11368  df-div 11796  df-nn 12147  df-2 12209  df-3 12210  df-4 12211  df-5 12212  df-6 12213  df-7 12214  df-8 12215  df-9 12216  df-n0 12403  df-z 12490  df-dec 12610  df-uz 12754  df-rp 12912  df-fz 13429  df-fl 13714  df-seq 13927  df-exp 13987  df-cj 15024  df-re 15025  df-im 15026  df-sqrt 15160  df-abs 15161  df-dvds 16182  df-prm 16601

This theorem is referenced by:  m5prm  47586