ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  isprm5lem GIF version

Theorem isprm5lem 12052
Description: Lemma for isprm5 12053. The interesting direction (showing that one only needs to check prime divisors up to the square root of 𝑃). (Contributed by Jim Kingdon, 20-Oct-2024.)
Hypotheses
Ref Expression
isprm5lem.p (𝜑𝑃 ∈ (ℤ‘2))
isprm5lem.z (𝜑 → ∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧𝑃))
isprm5lem.x (𝜑𝑋 ∈ (2...(𝑃 − 1)))
Assertion
Ref Expression
isprm5lem (𝜑 → ¬ 𝑋𝑃)
Distinct variable groups:   𝑧,𝑃   𝑧,𝑋
Allowed substitution hint:   𝜑(𝑧)

Proof of Theorem isprm5lem
Dummy variables 𝑤 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 isprm5lem.x . . 3 (𝜑𝑋 ∈ (2...(𝑃 − 1)))
2 elfzuz 9947 . . 3 (𝑋 ∈ (2...(𝑃 − 1)) → 𝑋 ∈ (ℤ‘2))
3 exprmfct 12049 . . 3 (𝑋 ∈ (ℤ‘2) → ∃𝑦 ∈ ℙ 𝑦𝑋)
41, 2, 33syl 17 . 2 (𝜑 → ∃𝑦 ∈ ℙ 𝑦𝑋)
5 simpr 109 . . . . 5 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) → (𝑦↑2) ≤ 𝑃)
6 oveq1 5843 . . . . . . . 8 (𝑧 = 𝑦 → (𝑧↑2) = (𝑦↑2))
76breq1d 3986 . . . . . . 7 (𝑧 = 𝑦 → ((𝑧↑2) ≤ 𝑃 ↔ (𝑦↑2) ≤ 𝑃))
8 breq1 3979 . . . . . . . 8 (𝑧 = 𝑦 → (𝑧𝑃𝑦𝑃))
98notbid 657 . . . . . . 7 (𝑧 = 𝑦 → (¬ 𝑧𝑃 ↔ ¬ 𝑦𝑃))
107, 9imbi12d 233 . . . . . 6 (𝑧 = 𝑦 → (((𝑧↑2) ≤ 𝑃 → ¬ 𝑧𝑃) ↔ ((𝑦↑2) ≤ 𝑃 → ¬ 𝑦𝑃)))
11 isprm5lem.z . . . . . . 7 (𝜑 → ∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧𝑃))
1211ad2antrr 480 . . . . . 6 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) → ∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧𝑃))
13 simplrl 525 . . . . . 6 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) → 𝑦 ∈ ℙ)
1410, 12, 13rspcdva 2830 . . . . 5 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) → ((𝑦↑2) ≤ 𝑃 → ¬ 𝑦𝑃))
155, 14mpd 13 . . . 4 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) → ¬ 𝑦𝑃)
16 prmz 12022 . . . . . . 7 (𝑦 ∈ ℙ → 𝑦 ∈ ℤ)
1716ad2antrl 482 . . . . . 6 ((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) → 𝑦 ∈ ℤ)
1817ad2antrr 480 . . . . 5 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) ∧ 𝑋𝑃) → 𝑦 ∈ ℤ)
19 elfzelz 9951 . . . . . . . 8 (𝑋 ∈ (2...(𝑃 − 1)) → 𝑋 ∈ ℤ)
201, 19syl 14 . . . . . . 7 (𝜑𝑋 ∈ ℤ)
2120ad2antrr 480 . . . . . 6 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑋𝑃) → 𝑋 ∈ ℤ)
2221adantlr 469 . . . . 5 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) ∧ 𝑋𝑃) → 𝑋 ∈ ℤ)
23 isprm5lem.p . . . . . . . 8 (𝜑𝑃 ∈ (ℤ‘2))
24 eluzelz 9466 . . . . . . . 8 (𝑃 ∈ (ℤ‘2) → 𝑃 ∈ ℤ)
2523, 24syl 14 . . . . . . 7 (𝜑𝑃 ∈ ℤ)
2625ad2antrr 480 . . . . . 6 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑋𝑃) → 𝑃 ∈ ℤ)
2726adantlr 469 . . . . 5 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) ∧ 𝑋𝑃) → 𝑃 ∈ ℤ)
28 simplrr 526 . . . . . 6 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑋𝑃) → 𝑦𝑋)
2928adantlr 469 . . . . 5 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) ∧ 𝑋𝑃) → 𝑦𝑋)
30 simpr 109 . . . . 5 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) ∧ 𝑋𝑃) → 𝑋𝑃)
3118, 22, 27, 29, 30dvdstrd 11755 . . . 4 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) ∧ 𝑋𝑃) → 𝑦𝑃)
3215, 31mtand 655 . . 3 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ (𝑦↑2) ≤ 𝑃) → ¬ 𝑋𝑃)
3317ad2antrr 480 . . . . . . . . 9 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → 𝑦 ∈ ℤ)
3421adantlr 469 . . . . . . . . 9 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → 𝑋 ∈ ℤ)
3525adantr 274 . . . . . . . . . 10 ((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) → 𝑃 ∈ ℤ)
3635ad2antrr 480 . . . . . . . . 9 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → 𝑃 ∈ ℤ)
3728adantlr 469 . . . . . . . . 9 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → 𝑦𝑋)
38 simpr 109 . . . . . . . . 9 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → 𝑋𝑃)
3933, 34, 36, 37, 38dvdstrd 11755 . . . . . . . 8 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → 𝑦𝑃)
4017adantr 274 . . . . . . . . . 10 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑦 ∈ ℤ)
41 prmnn 12021 . . . . . . . . . . . . 13 (𝑦 ∈ ℙ → 𝑦 ∈ ℕ)
4241nnne0d 8893 . . . . . . . . . . . 12 (𝑦 ∈ ℙ → 𝑦 ≠ 0)
4342ad2antrl 482 . . . . . . . . . . 11 ((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) → 𝑦 ≠ 0)
4443adantr 274 . . . . . . . . . 10 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑦 ≠ 0)
4525ad2antrr 480 . . . . . . . . . 10 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑃 ∈ ℤ)
46 dvdsval2 11716 . . . . . . . . . 10 ((𝑦 ∈ ℤ ∧ 𝑦 ≠ 0 ∧ 𝑃 ∈ ℤ) → (𝑦𝑃 ↔ (𝑃 / 𝑦) ∈ ℤ))
4740, 44, 45, 46syl3anc 1227 . . . . . . . . 9 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (𝑦𝑃 ↔ (𝑃 / 𝑦) ∈ ℤ))
4847adantr 274 . . . . . . . 8 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → (𝑦𝑃 ↔ (𝑃 / 𝑦) ∈ ℤ))
4939, 48mpbid 146 . . . . . . 7 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → (𝑃 / 𝑦) ∈ ℤ)
5040zred 9304 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑦 ∈ ℝ)
5150recnd 7918 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑦 ∈ ℂ)
5251mulid2d 7908 . . . . . . . . . 10 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (1 · 𝑦) = 𝑦)
53 2nn 9009 . . . . . . . . . . . . . . 15 2 ∈ ℕ
54 fzssnn 9993 . . . . . . . . . . . . . . 15 (2 ∈ ℕ → (2...(𝑃 − 1)) ⊆ ℕ)
5553, 54ax-mp 5 . . . . . . . . . . . . . 14 (2...(𝑃 − 1)) ⊆ ℕ
5655, 1sseldi 3135 . . . . . . . . . . . . 13 (𝜑𝑋 ∈ ℕ)
5756ad2antrr 480 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑋 ∈ ℕ)
5857nnred 8861 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑋 ∈ ℝ)
5925zred 9304 . . . . . . . . . . . 12 (𝜑𝑃 ∈ ℝ)
6059ad2antrr 480 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑃 ∈ ℝ)
61 simplrr 526 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑦𝑋)
62 dvdsle 11767 . . . . . . . . . . . . 13 ((𝑦 ∈ ℤ ∧ 𝑋 ∈ ℕ) → (𝑦𝑋𝑦𝑋))
6340, 57, 62syl2anc 409 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (𝑦𝑋𝑦𝑋))
6461, 63mpd 13 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑦𝑋)
65 elfzle2 9953 . . . . . . . . . . . . . 14 (𝑋 ∈ (2...(𝑃 − 1)) → 𝑋 ≤ (𝑃 − 1))
661, 65syl 14 . . . . . . . . . . . . 13 (𝜑𝑋 ≤ (𝑃 − 1))
67 zltlem1 9239 . . . . . . . . . . . . . 14 ((𝑋 ∈ ℤ ∧ 𝑃 ∈ ℤ) → (𝑋 < 𝑃𝑋 ≤ (𝑃 − 1)))
6820, 25, 67syl2anc 409 . . . . . . . . . . . . 13 (𝜑 → (𝑋 < 𝑃𝑋 ≤ (𝑃 − 1)))
6966, 68mpbird 166 . . . . . . . . . . . 12 (𝜑𝑋 < 𝑃)
7069ad2antrr 480 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑋 < 𝑃)
7150, 58, 60, 64, 70lelttrd 8014 . . . . . . . . . 10 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑦 < 𝑃)
7252, 71eqbrtrd 3998 . . . . . . . . 9 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (1 · 𝑦) < 𝑃)
73 1red 7905 . . . . . . . . . 10 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 1 ∈ ℝ)
7441nnrpd 9621 . . . . . . . . . . . 12 (𝑦 ∈ ℙ → 𝑦 ∈ ℝ+)
7574ad2antrl 482 . . . . . . . . . . 11 ((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) → 𝑦 ∈ ℝ+)
7675adantr 274 . . . . . . . . . 10 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑦 ∈ ℝ+)
7773, 60, 76ltmuldivd 9671 . . . . . . . . 9 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → ((1 · 𝑦) < 𝑃 ↔ 1 < (𝑃 / 𝑦)))
7872, 77mpbid 146 . . . . . . . 8 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 1 < (𝑃 / 𝑦))
7978adantr 274 . . . . . . 7 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → 1 < (𝑃 / 𝑦))
80 eluz2b1 9530 . . . . . . 7 ((𝑃 / 𝑦) ∈ (ℤ‘2) ↔ ((𝑃 / 𝑦) ∈ ℤ ∧ 1 < (𝑃 / 𝑦)))
8149, 79, 80sylanbrc 414 . . . . . 6 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → (𝑃 / 𝑦) ∈ (ℤ‘2))
82 exprmfct 12049 . . . . . 6 ((𝑃 / 𝑦) ∈ (ℤ‘2) → ∃𝑤 ∈ ℙ 𝑤 ∥ (𝑃 / 𝑦))
8381, 82syl 14 . . . . 5 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → ∃𝑤 ∈ ℙ 𝑤 ∥ (𝑃 / 𝑦))
84 prmz 12022 . . . . . . . 8 (𝑤 ∈ ℙ → 𝑤 ∈ ℤ)
8584ad2antrl 482 . . . . . . 7 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 𝑤 ∈ ℤ)
8649adantr 274 . . . . . . 7 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑃 / 𝑦) ∈ ℤ)
8745ad2antrr 480 . . . . . . 7 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 𝑃 ∈ ℤ)
88 simprr 522 . . . . . . 7 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 𝑤 ∥ (𝑃 / 𝑦))
8939adantr 274 . . . . . . . 8 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 𝑦𝑃)
9044ad2antrr 480 . . . . . . . 8 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 𝑦 ≠ 0)
91 divconjdvds 11772 . . . . . . . 8 ((𝑦𝑃𝑦 ≠ 0) → (𝑃 / 𝑦) ∥ 𝑃)
9289, 90, 91syl2anc 409 . . . . . . 7 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑃 / 𝑦) ∥ 𝑃)
9385, 86, 87, 88, 92dvdstrd 11755 . . . . . 6 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 𝑤𝑃)
9485zred 9304 . . . . . . . . 9 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 𝑤 ∈ ℝ)
9594resqcld 10603 . . . . . . . 8 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑤↑2) ∈ ℝ)
9660ad2antrr 480 . . . . . . . 8 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 𝑃 ∈ ℝ)
9781adantr 274 . . . . . . . . . . . 12 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑃 / 𝑦) ∈ (ℤ‘2))
98 eluz2nn 9495 . . . . . . . . . . . 12 ((𝑃 / 𝑦) ∈ (ℤ‘2) → (𝑃 / 𝑦) ∈ ℕ)
9997, 98syl 14 . . . . . . . . . . 11 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑃 / 𝑦) ∈ ℕ)
10099nnred 8861 . . . . . . . . . 10 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑃 / 𝑦) ∈ ℝ)
101100resqcld 10603 . . . . . . . . 9 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → ((𝑃 / 𝑦)↑2) ∈ ℝ)
102 dvdsle 11767 . . . . . . . . . . . 12 ((𝑤 ∈ ℤ ∧ (𝑃 / 𝑦) ∈ ℕ) → (𝑤 ∥ (𝑃 / 𝑦) → 𝑤 ≤ (𝑃 / 𝑦)))
10385, 99, 102syl2anc 409 . . . . . . . . . . 11 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑤 ∥ (𝑃 / 𝑦) → 𝑤 ≤ (𝑃 / 𝑦)))
10488, 103mpd 13 . . . . . . . . . 10 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 𝑤 ≤ (𝑃 / 𝑦))
105 prmnn 12021 . . . . . . . . . . . . . 14 (𝑤 ∈ ℙ → 𝑤 ∈ ℕ)
106105nnnn0d 9158 . . . . . . . . . . . . 13 (𝑤 ∈ ℙ → 𝑤 ∈ ℕ0)
107106nn0ge0d 9161 . . . . . . . . . . . 12 (𝑤 ∈ ℙ → 0 ≤ 𝑤)
108107ad2antrl 482 . . . . . . . . . . 11 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 0 ≤ 𝑤)
109 0red 7891 . . . . . . . . . . . 12 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 0 ∈ ℝ)
110 1red 7905 . . . . . . . . . . . 12 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 1 ∈ ℝ)
111 0le1 8370 . . . . . . . . . . . . 13 0 ≤ 1
112111a1i 9 . . . . . . . . . . . 12 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 0 ≤ 1)
11399nnge1d 8891 . . . . . . . . . . . 12 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 1 ≤ (𝑃 / 𝑦))
114109, 110, 100, 112, 113letrd 8013 . . . . . . . . . . 11 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 0 ≤ (𝑃 / 𝑦))
11594, 100, 108, 114le2sqd 10609 . . . . . . . . . 10 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑤 ≤ (𝑃 / 𝑦) ↔ (𝑤↑2) ≤ ((𝑃 / 𝑦)↑2)))
116104, 115mpbid 146 . . . . . . . . 9 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑤↑2) ≤ ((𝑃 / 𝑦)↑2))
11760recnd 7918 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑃 ∈ ℂ)
11841ad2antrl 482 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) → 𝑦 ∈ ℕ)
119118adantr 274 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑦 ∈ ℕ)
120119nnap0d 8894 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑦 # 0)
121117, 51, 120sqdivapd 10590 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → ((𝑃 / 𝑦)↑2) = ((𝑃↑2) / (𝑦↑2)))
122117sqvald 10574 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (𝑃↑2) = (𝑃 · 𝑃))
12350resqcld 10603 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (𝑦↑2) ∈ ℝ)
124 eluz2nn 9495 . . . . . . . . . . . . . . . . 17 (𝑃 ∈ (ℤ‘2) → 𝑃 ∈ ℕ)
12523, 124syl 14 . . . . . . . . . . . . . . . 16 (𝜑𝑃 ∈ ℕ)
126125nnrpd 9621 . . . . . . . . . . . . . . 15 (𝜑𝑃 ∈ ℝ+)
127126ad2antrr 480 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑃 ∈ ℝ+)
128 simpr 109 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → 𝑃 < (𝑦↑2))
12960, 123, 127, 128ltmul2dd 9680 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (𝑃 · 𝑃) < (𝑃 · (𝑦↑2)))
130122, 129eqbrtrd 3998 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (𝑃↑2) < (𝑃 · (𝑦↑2)))
13160resqcld 10603 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (𝑃↑2) ∈ ℝ)
132119nnsqcld 10598 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (𝑦↑2) ∈ ℕ)
133132nnrpd 9621 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (𝑦↑2) ∈ ℝ+)
134131, 60, 133ltdivmul2d 9676 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → (((𝑃↑2) / (𝑦↑2)) < 𝑃 ↔ (𝑃↑2) < (𝑃 · (𝑦↑2))))
135130, 134mpbird 166 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → ((𝑃↑2) / (𝑦↑2)) < 𝑃)
136121, 135eqbrtrd 3998 . . . . . . . . . 10 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → ((𝑃 / 𝑦)↑2) < 𝑃)
137136ad2antrr 480 . . . . . . . . 9 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → ((𝑃 / 𝑦)↑2) < 𝑃)
13895, 101, 96, 116, 137lelttrd 8014 . . . . . . . 8 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑤↑2) < 𝑃)
13995, 96, 138ltled 8008 . . . . . . 7 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → (𝑤↑2) ≤ 𝑃)
140 oveq1 5843 . . . . . . . . . 10 (𝑧 = 𝑤 → (𝑧↑2) = (𝑤↑2))
141140breq1d 3986 . . . . . . . . 9 (𝑧 = 𝑤 → ((𝑧↑2) ≤ 𝑃 ↔ (𝑤↑2) ≤ 𝑃))
142 breq1 3979 . . . . . . . . . 10 (𝑧 = 𝑤 → (𝑧𝑃𝑤𝑃))
143142notbid 657 . . . . . . . . 9 (𝑧 = 𝑤 → (¬ 𝑧𝑃 ↔ ¬ 𝑤𝑃))
144141, 143imbi12d 233 . . . . . . . 8 (𝑧 = 𝑤 → (((𝑧↑2) ≤ 𝑃 → ¬ 𝑧𝑃) ↔ ((𝑤↑2) ≤ 𝑃 → ¬ 𝑤𝑃)))
14511ad4antr 486 . . . . . . . 8 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → ∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧𝑃))
146 simprl 521 . . . . . . . 8 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → 𝑤 ∈ ℙ)
147144, 145, 146rspcdva 2830 . . . . . . 7 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → ((𝑤↑2) ≤ 𝑃 → ¬ 𝑤𝑃))
148139, 147mpd 13 . . . . . 6 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → ¬ 𝑤𝑃)
14993, 148pm2.21fal 1362 . . . . 5 (((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) ∧ (𝑤 ∈ ℙ ∧ 𝑤 ∥ (𝑃 / 𝑦))) → ⊥)
15083, 149rexlimddv 2586 . . . 4 ((((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) ∧ 𝑋𝑃) → ⊥)
151150inegd 1361 . . 3 (((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) ∧ 𝑃 < (𝑦↑2)) → ¬ 𝑋𝑃)
152 zsqcl 10515 . . . . 5 (𝑦 ∈ ℤ → (𝑦↑2) ∈ ℤ)
15317, 152syl 14 . . . 4 ((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) → (𝑦↑2) ∈ ℤ)
154 zlelttric 9227 . . . 4 (((𝑦↑2) ∈ ℤ ∧ 𝑃 ∈ ℤ) → ((𝑦↑2) ≤ 𝑃𝑃 < (𝑦↑2)))
155153, 35, 154syl2anc 409 . . 3 ((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) → ((𝑦↑2) ≤ 𝑃𝑃 < (𝑦↑2)))
15632, 151, 155mpjaodan 788 . 2 ((𝜑 ∧ (𝑦 ∈ ℙ ∧ 𝑦𝑋)) → ¬ 𝑋𝑃)
1574, 156rexlimddv 2586 1 (𝜑 → ¬ 𝑋𝑃)
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 103  wb 104  wo 698  wfal 1347  wcel 2135  wne 2334  wral 2442  wrex 2443  wss 3111   class class class wbr 3976  cfv 5182  (class class class)co 5836  cr 7743  0cc0 7744  1c1 7745   · cmul 7749   < clt 7924  cle 7925  cmin 8060   / cdiv 8559  cn 8848  2c2 8899  cz 9182  cuz 9457  +crp 9580  ...cfz 9935  cexp 10444  cdvds 11713  cprime 12018
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1434  ax-7 1435  ax-gen 1436  ax-ie1 1480  ax-ie2 1481  ax-8 1491  ax-10 1492  ax-11 1493  ax-i12 1494  ax-bndl 1496  ax-4 1497  ax-17 1513  ax-i9 1517  ax-ial 1521  ax-i5r 1522  ax-13 2137  ax-14 2138  ax-ext 2146  ax-coll 4091  ax-sep 4094  ax-nul 4102  ax-pow 4147  ax-pr 4181  ax-un 4405  ax-setind 4508  ax-iinf 4559  ax-cnex 7835  ax-resscn 7836  ax-1cn 7837  ax-1re 7838  ax-icn 7839  ax-addcl 7840  ax-addrcl 7841  ax-mulcl 7842  ax-mulrcl 7843  ax-addcom 7844  ax-mulcom 7845  ax-addass 7846  ax-mulass 7847  ax-distr 7848  ax-i2m1 7849  ax-0lt1 7850  ax-1rid 7851  ax-0id 7852  ax-rnegex 7853  ax-precex 7854  ax-cnre 7855  ax-pre-ltirr 7856  ax-pre-ltwlin 7857  ax-pre-lttrn 7858  ax-pre-apti 7859  ax-pre-ltadd 7860  ax-pre-mulgt0 7861  ax-pre-mulext 7862  ax-arch 7863  ax-caucvg 7864
This theorem depends on definitions:  df-bi 116  df-stab 821  df-dc 825  df-3or 968  df-3an 969  df-tru 1345  df-fal 1348  df-nf 1448  df-sb 1750  df-eu 2016  df-mo 2017  df-clab 2151  df-cleq 2157  df-clel 2160  df-nfc 2295  df-ne 2335  df-nel 2430  df-ral 2447  df-rex 2448  df-reu 2449  df-rmo 2450  df-rab 2451  df-v 2723  df-sbc 2947  df-csb 3041  df-dif 3113  df-un 3115  df-in 3117  df-ss 3124  df-nul 3405  df-if 3516  df-pw 3555  df-sn 3576  df-pr 3577  df-op 3579  df-uni 3784  df-int 3819  df-iun 3862  df-br 3977  df-opab 4038  df-mpt 4039  df-tr 4075  df-id 4265  df-po 4268  df-iso 4269  df-iord 4338  df-on 4340  df-ilim 4341  df-suc 4343  df-iom 4562  df-xp 4604  df-rel 4605  df-cnv 4606  df-co 4607  df-dm 4608  df-rn 4609  df-res 4610  df-ima 4611  df-iota 5147  df-fun 5184  df-fn 5185  df-f 5186  df-f1 5187  df-fo 5188  df-f1o 5189  df-fv 5190  df-riota 5792  df-ov 5839  df-oprab 5840  df-mpo 5841  df-1st 6100  df-2nd 6101  df-recs 6264  df-frec 6350  df-1o 6375  df-2o 6376  df-er 6492  df-en 6698  df-pnf 7926  df-mnf 7927  df-xr 7928  df-ltxr 7929  df-le 7930  df-sub 8062  df-neg 8063  df-reap 8464  df-ap 8471  df-div 8560  df-inn 8849  df-2 8907  df-3 8908  df-4 8909  df-n0 9106  df-z 9183  df-uz 9458  df-q 9549  df-rp 9581  df-fz 9936  df-fzo 10068  df-fl 10195  df-mod 10248  df-seqfrec 10371  df-exp 10445  df-cj 10770  df-re 10771  df-im 10772  df-rsqrt 10926  df-abs 10927  df-dvds 11714  df-prm 12019
This theorem is referenced by:  isprm5  12053
  Copyright terms: Public domain W3C validator