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

Theorem isprm7 16150
Description: One need only check prime divisors of 𝑃 up to 𝑃 in order to ensure primality. This version of isprm5 16149 combines the primality and bound on 𝑧 into a finite interval of prime numbers. (Contributed by Steve Rodriguez, 20-Jan-2020.)
Assertion
Ref Expression
isprm7 (𝑃 ∈ ℙ ↔ (𝑃 ∈ (ℤ‘2) ∧ ∀𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ) ¬ 𝑧𝑃))
Distinct variable group:   𝑧,𝑃

Proof of Theorem isprm7
StepHypRef Expression
1 isprm5 16149 . 2 (𝑃 ∈ ℙ ↔ (𝑃 ∈ (ℤ‘2) ∧ ∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧𝑃)))
2 prmz 16117 . . . . . . . 8 (𝑧 ∈ ℙ → 𝑧 ∈ ℤ)
32zred 12169 . . . . . . 7 (𝑧 ∈ ℙ → 𝑧 ∈ ℝ)
4 0red 10723 . . . . . . . 8 (𝑧 ∈ ℙ → 0 ∈ ℝ)
5 1red 10721 . . . . . . . . 9 (𝑧 ∈ ℙ → 1 ∈ ℝ)
6 0lt1 11241 . . . . . . . . . 10 0 < 1
76a1i 11 . . . . . . . . 9 (𝑧 ∈ ℙ → 0 < 1)
8 prmgt1 16139 . . . . . . . . 9 (𝑧 ∈ ℙ → 1 < 𝑧)
94, 5, 3, 7, 8lttrd 10880 . . . . . . . 8 (𝑧 ∈ ℙ → 0 < 𝑧)
104, 3, 9ltled 10867 . . . . . . 7 (𝑧 ∈ ℙ → 0 ≤ 𝑧)
113, 10jca 515 . . . . . 6 (𝑧 ∈ ℙ → (𝑧 ∈ ℝ ∧ 0 ≤ 𝑧))
12 eluzelre 12336 . . . . . . 7 (𝑃 ∈ (ℤ‘2) → 𝑃 ∈ ℝ)
13 0red 10723 . . . . . . . 8 (𝑃 ∈ (ℤ‘2) → 0 ∈ ℝ)
14 2re 11791 . . . . . . . . 9 2 ∈ ℝ
1514a1i 11 . . . . . . . 8 (𝑃 ∈ (ℤ‘2) → 2 ∈ ℝ)
16 0le2 11819 . . . . . . . . 9 0 ≤ 2
1716a1i 11 . . . . . . . 8 (𝑃 ∈ (ℤ‘2) → 0 ≤ 2)
18 eluzle 12338 . . . . . . . 8 (𝑃 ∈ (ℤ‘2) → 2 ≤ 𝑃)
1913, 15, 12, 17, 18letrd 10876 . . . . . . 7 (𝑃 ∈ (ℤ‘2) → 0 ≤ 𝑃)
2012, 19jca 515 . . . . . 6 (𝑃 ∈ (ℤ‘2) → (𝑃 ∈ ℝ ∧ 0 ≤ 𝑃))
21 resqcl 13583 . . . . . . . . . 10 (𝑧 ∈ ℝ → (𝑧↑2) ∈ ℝ)
22 sqge0 13594 . . . . . . . . . 10 (𝑧 ∈ ℝ → 0 ≤ (𝑧↑2))
2321, 22jca 515 . . . . . . . . 9 (𝑧 ∈ ℝ → ((𝑧↑2) ∈ ℝ ∧ 0 ≤ (𝑧↑2)))
2423adantr 484 . . . . . . . 8 ((𝑧 ∈ ℝ ∧ 0 ≤ 𝑧) → ((𝑧↑2) ∈ ℝ ∧ 0 ≤ (𝑧↑2)))
25 sqrtle 14711 . . . . . . . 8 ((((𝑧↑2) ∈ ℝ ∧ 0 ≤ (𝑧↑2)) ∧ (𝑃 ∈ ℝ ∧ 0 ≤ 𝑃)) → ((𝑧↑2) ≤ 𝑃 ↔ (√‘(𝑧↑2)) ≤ (√‘𝑃)))
2624, 25sylan 583 . . . . . . 7 (((𝑧 ∈ ℝ ∧ 0 ≤ 𝑧) ∧ (𝑃 ∈ ℝ ∧ 0 ≤ 𝑃)) → ((𝑧↑2) ≤ 𝑃 ↔ (√‘(𝑧↑2)) ≤ (√‘𝑃)))
27 sqrtsq 14720 . . . . . . . . 9 ((𝑧 ∈ ℝ ∧ 0 ≤ 𝑧) → (√‘(𝑧↑2)) = 𝑧)
2827breq1d 5041 . . . . . . . 8 ((𝑧 ∈ ℝ ∧ 0 ≤ 𝑧) → ((√‘(𝑧↑2)) ≤ (√‘𝑃) ↔ 𝑧 ≤ (√‘𝑃)))
2928adantr 484 . . . . . . 7 (((𝑧 ∈ ℝ ∧ 0 ≤ 𝑧) ∧ (𝑃 ∈ ℝ ∧ 0 ≤ 𝑃)) → ((√‘(𝑧↑2)) ≤ (√‘𝑃) ↔ 𝑧 ≤ (√‘𝑃)))
3026, 29bitrd 282 . . . . . 6 (((𝑧 ∈ ℝ ∧ 0 ≤ 𝑧) ∧ (𝑃 ∈ ℝ ∧ 0 ≤ 𝑃)) → ((𝑧↑2) ≤ 𝑃𝑧 ≤ (√‘𝑃)))
3111, 20, 30syl2anr 600 . . . . 5 ((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ ℙ) → ((𝑧↑2) ≤ 𝑃𝑧 ≤ (√‘𝑃)))
3231imbi1d 345 . . . 4 ((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ ℙ) → (((𝑧↑2) ≤ 𝑃 → ¬ 𝑧𝑃) ↔ (𝑧 ≤ (√‘𝑃) → ¬ 𝑧𝑃)))
3332ralbidva 3108 . . 3 (𝑃 ∈ (ℤ‘2) → (∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧𝑃) ↔ ∀𝑧 ∈ ℙ (𝑧 ≤ (√‘𝑃) → ¬ 𝑧𝑃)))
3433pm5.32i 578 . 2 ((𝑃 ∈ (ℤ‘2) ∧ ∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧𝑃)) ↔ (𝑃 ∈ (ℤ‘2) ∧ ∀𝑧 ∈ ℙ (𝑧 ≤ (√‘𝑃) → ¬ 𝑧𝑃)))
35 impexp 454 . . . . 5 (((𝑧 ∈ ℙ ∧ 𝑧 ≤ (√‘𝑃)) → ¬ 𝑧𝑃) ↔ (𝑧 ∈ ℙ → (𝑧 ≤ (√‘𝑃) → ¬ 𝑧𝑃)))
3612, 19resqrtcld 14868 . . . . . . . . . . . . . 14 (𝑃 ∈ (ℤ‘2) → (√‘𝑃) ∈ ℝ)
3736flcld 13260 . . . . . . . . . . . . 13 (𝑃 ∈ (ℤ‘2) → (⌊‘(√‘𝑃)) ∈ ℤ)
3837, 2anim12i 616 . . . . . . . . . . . 12 ((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ ℙ) → ((⌊‘(√‘𝑃)) ∈ ℤ ∧ 𝑧 ∈ ℤ))
3938adantr 484 . . . . . . . . . . 11 (((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ ℙ) ∧ 𝑧 ≤ (√‘𝑃)) → ((⌊‘(√‘𝑃)) ∈ ℤ ∧ 𝑧 ∈ ℤ))
40 prmuz2 16138 . . . . . . . . . . . . 13 (𝑧 ∈ ℙ → 𝑧 ∈ (ℤ‘2))
41 eluzle 12338 . . . . . . . . . . . . 13 (𝑧 ∈ (ℤ‘2) → 2 ≤ 𝑧)
4240, 41syl 17 . . . . . . . . . . . 12 (𝑧 ∈ ℙ → 2 ≤ 𝑧)
4342ad2antlr 727 . . . . . . . . . . 11 (((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ ℙ) ∧ 𝑧 ≤ (√‘𝑃)) → 2 ≤ 𝑧)
44 flge 13267 . . . . . . . . . . . . 13 (((√‘𝑃) ∈ ℝ ∧ 𝑧 ∈ ℤ) → (𝑧 ≤ (√‘𝑃) ↔ 𝑧 ≤ (⌊‘(√‘𝑃))))
4536, 2, 44syl2an 599 . . . . . . . . . . . 12 ((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ ℙ) → (𝑧 ≤ (√‘𝑃) ↔ 𝑧 ≤ (⌊‘(√‘𝑃))))
4645biimpa 480 . . . . . . . . . . 11 (((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ ℙ) ∧ 𝑧 ≤ (√‘𝑃)) → 𝑧 ≤ (⌊‘(√‘𝑃)))
47 2z 12096 . . . . . . . . . . . 12 2 ∈ ℤ
48 elfz4 12992 . . . . . . . . . . . 12 (((2 ∈ ℤ ∧ (⌊‘(√‘𝑃)) ∈ ℤ ∧ 𝑧 ∈ ℤ) ∧ (2 ≤ 𝑧𝑧 ≤ (⌊‘(√‘𝑃)))) → 𝑧 ∈ (2...(⌊‘(√‘𝑃))))
4947, 48mp3anl1 1456 . . . . . . . . . . 11 ((((⌊‘(√‘𝑃)) ∈ ℤ ∧ 𝑧 ∈ ℤ) ∧ (2 ≤ 𝑧𝑧 ≤ (⌊‘(√‘𝑃)))) → 𝑧 ∈ (2...(⌊‘(√‘𝑃))))
5039, 43, 46, 49syl12anc 836 . . . . . . . . . 10 (((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ ℙ) ∧ 𝑧 ≤ (√‘𝑃)) → 𝑧 ∈ (2...(⌊‘(√‘𝑃))))
5150anasss 470 . . . . . . . . 9 ((𝑃 ∈ (ℤ‘2) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ≤ (√‘𝑃))) → 𝑧 ∈ (2...(⌊‘(√‘𝑃))))
52 simprl 771 . . . . . . . . 9 ((𝑃 ∈ (ℤ‘2) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ≤ (√‘𝑃))) → 𝑧 ∈ ℙ)
5351, 52elind 4085 . . . . . . . 8 ((𝑃 ∈ (ℤ‘2) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ≤ (√‘𝑃))) → 𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ))
5453ex 416 . . . . . . 7 (𝑃 ∈ (ℤ‘2) → ((𝑧 ∈ ℙ ∧ 𝑧 ≤ (√‘𝑃)) → 𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ)))
55 elin 3860 . . . . . . . . 9 (𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ) ↔ (𝑧 ∈ (2...(⌊‘(√‘𝑃))) ∧ 𝑧 ∈ ℙ))
56 elfzelz 12999 . . . . . . . . . . . . . 14 (𝑧 ∈ (2...(⌊‘(√‘𝑃))) → 𝑧 ∈ ℤ)
5756zred 12169 . . . . . . . . . . . . 13 (𝑧 ∈ (2...(⌊‘(√‘𝑃))) → 𝑧 ∈ ℝ)
5857adantl 485 . . . . . . . . . . . 12 ((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ (2...(⌊‘(√‘𝑃)))) → 𝑧 ∈ ℝ)
59 reflcl 13258 . . . . . . . . . . . . . 14 ((√‘𝑃) ∈ ℝ → (⌊‘(√‘𝑃)) ∈ ℝ)
6036, 59syl 17 . . . . . . . . . . . . 13 (𝑃 ∈ (ℤ‘2) → (⌊‘(√‘𝑃)) ∈ ℝ)
6160adantr 484 . . . . . . . . . . . 12 ((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ (2...(⌊‘(√‘𝑃)))) → (⌊‘(√‘𝑃)) ∈ ℝ)
6236adantr 484 . . . . . . . . . . . 12 ((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ (2...(⌊‘(√‘𝑃)))) → (√‘𝑃) ∈ ℝ)
63 elfzle2 13003 . . . . . . . . . . . . 13 (𝑧 ∈ (2...(⌊‘(√‘𝑃))) → 𝑧 ≤ (⌊‘(√‘𝑃)))
6463adantl 485 . . . . . . . . . . . 12 ((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ (2...(⌊‘(√‘𝑃)))) → 𝑧 ≤ (⌊‘(√‘𝑃)))
65 flle 13261 . . . . . . . . . . . . . 14 ((√‘𝑃) ∈ ℝ → (⌊‘(√‘𝑃)) ≤ (√‘𝑃))
6636, 65syl 17 . . . . . . . . . . . . 13 (𝑃 ∈ (ℤ‘2) → (⌊‘(√‘𝑃)) ≤ (√‘𝑃))
6766adantr 484 . . . . . . . . . . . 12 ((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ (2...(⌊‘(√‘𝑃)))) → (⌊‘(√‘𝑃)) ≤ (√‘𝑃))
6858, 61, 62, 64, 67letrd 10876 . . . . . . . . . . 11 ((𝑃 ∈ (ℤ‘2) ∧ 𝑧 ∈ (2...(⌊‘(√‘𝑃)))) → 𝑧 ≤ (√‘𝑃))
6968ex 416 . . . . . . . . . 10 (𝑃 ∈ (ℤ‘2) → (𝑧 ∈ (2...(⌊‘(√‘𝑃))) → 𝑧 ≤ (√‘𝑃)))
7069anim1d 614 . . . . . . . . 9 (𝑃 ∈ (ℤ‘2) → ((𝑧 ∈ (2...(⌊‘(√‘𝑃))) ∧ 𝑧 ∈ ℙ) → (𝑧 ≤ (√‘𝑃) ∧ 𝑧 ∈ ℙ)))
7155, 70syl5bi 245 . . . . . . . 8 (𝑃 ∈ (ℤ‘2) → (𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ) → (𝑧 ≤ (√‘𝑃) ∧ 𝑧 ∈ ℙ)))
72 ancom 464 . . . . . . . 8 ((𝑧 ≤ (√‘𝑃) ∧ 𝑧 ∈ ℙ) ↔ (𝑧 ∈ ℙ ∧ 𝑧 ≤ (√‘𝑃)))
7371, 72syl6ib 254 . . . . . . 7 (𝑃 ∈ (ℤ‘2) → (𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ) → (𝑧 ∈ ℙ ∧ 𝑧 ≤ (√‘𝑃))))
7454, 73impbid 215 . . . . . 6 (𝑃 ∈ (ℤ‘2) → ((𝑧 ∈ ℙ ∧ 𝑧 ≤ (√‘𝑃)) ↔ 𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ)))
7574imbi1d 345 . . . . 5 (𝑃 ∈ (ℤ‘2) → (((𝑧 ∈ ℙ ∧ 𝑧 ≤ (√‘𝑃)) → ¬ 𝑧𝑃) ↔ (𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ) → ¬ 𝑧𝑃)))
7635, 75bitr3id 288 . . . 4 (𝑃 ∈ (ℤ‘2) → ((𝑧 ∈ ℙ → (𝑧 ≤ (√‘𝑃) → ¬ 𝑧𝑃)) ↔ (𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ) → ¬ 𝑧𝑃)))
7776ralbidv2 3107 . . 3 (𝑃 ∈ (ℤ‘2) → (∀𝑧 ∈ ℙ (𝑧 ≤ (√‘𝑃) → ¬ 𝑧𝑃) ↔ ∀𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ) ¬ 𝑧𝑃))
7877pm5.32i 578 . 2 ((𝑃 ∈ (ℤ‘2) ∧ ∀𝑧 ∈ ℙ (𝑧 ≤ (√‘𝑃) → ¬ 𝑧𝑃)) ↔ (𝑃 ∈ (ℤ‘2) ∧ ∀𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ) ¬ 𝑧𝑃))
791, 34, 783bitri 300 1 (𝑃 ∈ ℙ ↔ (𝑃 ∈ (ℤ‘2) ∧ ∀𝑧 ∈ ((2...(⌊‘(√‘𝑃))) ∩ ℙ) ¬ 𝑧𝑃))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  wcel 2113  wral 3053  cin 3843   class class class wbr 5031  cfv 6340  (class class class)co 7171  cr 10615  0cc0 10616  1c1 10617   < clt 10754  cle 10755  2c2 11772  cz 12063  cuz 12325  ...cfz 12982  cfl 13252  cexp 13522  csqrt 14683  cdvds 15700  cprime 16113
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 1916  ax-6 1974  ax-7 2019  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2161  ax-12 2178  ax-ext 2710  ax-sep 5168  ax-nul 5175  ax-pow 5233  ax-pr 5297  ax-un 7480  ax-cnex 10672  ax-resscn 10673  ax-1cn 10674  ax-icn 10675  ax-addcl 10676  ax-addrcl 10677  ax-mulcl 10678  ax-mulrcl 10679  ax-mulcom 10680  ax-addass 10681  ax-mulass 10682  ax-distr 10683  ax-i2m1 10684  ax-1ne0 10685  ax-1rid 10686  ax-rnegex 10687  ax-rrecex 10688  ax-cnre 10689  ax-pre-lttri 10690  ax-pre-lttrn 10691  ax-pre-ltadd 10692  ax-pre-mulgt0 10693  ax-pre-sup 10694
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-nel 3039  df-ral 3058  df-rex 3059  df-reu 3060  df-rmo 3061  df-rab 3062  df-v 3400  df-sbc 3683  df-csb 3792  df-dif 3847  df-un 3849  df-in 3851  df-ss 3861  df-pss 3863  df-nul 4213  df-if 4416  df-pw 4491  df-sn 4518  df-pr 4520  df-tp 4522  df-op 4524  df-uni 4798  df-iun 4884  df-br 5032  df-opab 5094  df-mpt 5112  df-tr 5138  df-id 5430  df-eprel 5435  df-po 5443  df-so 5444  df-fr 5484  df-we 5486  df-xp 5532  df-rel 5533  df-cnv 5534  df-co 5535  df-dm 5536  df-rn 5537  df-res 5538  df-ima 5539  df-pred 6130  df-ord 6176  df-on 6177  df-lim 6178  df-suc 6179  df-iota 6298  df-fun 6342  df-fn 6343  df-f 6344  df-f1 6345  df-fo 6346  df-f1o 6347  df-fv 6348  df-riota 7128  df-ov 7174  df-oprab 7175  df-mpo 7176  df-om 7601  df-1st 7715  df-2nd 7716  df-wrecs 7977  df-recs 8038  df-rdg 8076  df-1o 8132  df-2o 8133  df-er 8321  df-en 8557  df-dom 8558  df-sdom 8559  df-fin 8560  df-sup 8980  df-inf 8981  df-pnf 10756  df-mnf 10757  df-xr 10758  df-ltxr 10759  df-le 10760  df-sub 10951  df-neg 10952  df-div 11377  df-nn 11718  df-2 11780  df-3 11781  df-n0 11978  df-z 12064  df-uz 12326  df-rp 12474  df-fz 12983  df-fl 13254  df-seq 13462  df-exp 13523  df-cj 14549  df-re 14550  df-im 14551  df-sqrt 14685  df-abs 14686  df-dvds 15701  df-prm 16114
This theorem is referenced by:  fmtno4prm  44553  31prm  44575
  Copyright terms: Public domain W3C validator