Theorem isprm5 16053

Description: One need only check prime divisors of 𝑃 up to √𝑃 in order to ensure primality. (Contributed by Mario Carneiro, 18-Feb-2014.)

Assertion

Ref	Expression
isprm5	⊢ (𝑃 ∈ ℙ ↔ (𝑃 ∈ (ℤ≥‘2) ∧ ∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))

Distinct variable group:   𝑧,𝑃

Proof of Theorem isprm5

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		isprm4 16030	. 2 ⊢ (𝑃 ∈ ℙ ↔ (𝑃 ∈ (ℤ≥‘2) ∧ ∀𝑧 ∈ (ℤ≥‘2)(𝑧 ∥ 𝑃 → 𝑧 = 𝑃)))
2		prmuz2 16042	. . . . . . . 8 ⊢ (𝑧 ∈ ℙ → 𝑧 ∈ (ℤ≥‘2))
3	2	a1i 11	. . . . . . 7 ⊢ (𝑃 ∈ (ℤ≥‘2) → (𝑧 ∈ ℙ → 𝑧 ∈ (ℤ≥‘2)))
4		eluz2gt1 12323	. . . . . . . . . . . 12 ⊢ (𝑃 ∈ (ℤ≥‘2) → 1 < 𝑃)
5		eluzelre 12257	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ (ℤ≥‘2) → 𝑃 ∈ ℝ)
6		eluz2nn 12287	. . . . . . . . . . . . . 14 ⊢ (𝑃 ∈ (ℤ≥‘2) → 𝑃 ∈ ℕ)
7	6	nngt0d 11689	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ (ℤ≥‘2) → 0 < 𝑃)
8		ltmulgt11 11502	. . . . . . . . . . . . 13 ⊢ ((𝑃 ∈ ℝ ∧ 𝑃 ∈ ℝ ∧ 0 < 𝑃) → (1 < 𝑃 ↔ 𝑃 < (𝑃 · 𝑃)))
9	5, 5, 7, 8	syl3anc 1367	. . . . . . . . . . . 12 ⊢ (𝑃 ∈ (ℤ≥‘2) → (1 < 𝑃 ↔ 𝑃 < (𝑃 · 𝑃)))
10	4, 9	mpbid 234	. . . . . . . . . . 11 ⊢ (𝑃 ∈ (ℤ≥‘2) → 𝑃 < (𝑃 · 𝑃))
11	5, 5	remulcld 10673	. . . . . . . . . . . 12 ⊢ (𝑃 ∈ (ℤ≥‘2) → (𝑃 · 𝑃) ∈ ℝ)
12	5, 11	ltnled 10789	. . . . . . . . . . 11 ⊢ (𝑃 ∈ (ℤ≥‘2) → (𝑃 < (𝑃 · 𝑃) ↔ ¬ (𝑃 · 𝑃) ≤ 𝑃))
13	10, 12	mpbid 234	. . . . . . . . . 10 ⊢ (𝑃 ∈ (ℤ≥‘2) → ¬ (𝑃 · 𝑃) ≤ 𝑃)
14		oveq12 7167	. . . . . . . . . . . . 13 ⊢ ((𝑧 = 𝑃 ∧ 𝑧 = 𝑃) → (𝑧 · 𝑧) = (𝑃 · 𝑃))
15	14	anidms 569	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑃 → (𝑧 · 𝑧) = (𝑃 · 𝑃))
16	15	breq1d 5078	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑃 → ((𝑧 · 𝑧) ≤ 𝑃 ↔ (𝑃 · 𝑃) ≤ 𝑃))
17	16	notbid 320	. . . . . . . . . 10 ⊢ (𝑧 = 𝑃 → (¬ (𝑧 · 𝑧) ≤ 𝑃 ↔ ¬ (𝑃 · 𝑃) ≤ 𝑃))
18	13, 17	syl5ibrcom 249	. . . . . . . . 9 ⊢ (𝑃 ∈ (ℤ≥‘2) → (𝑧 = 𝑃 → ¬ (𝑧 · 𝑧) ≤ 𝑃))
19	18	imim2d 57	. . . . . . . 8 ⊢ (𝑃 ∈ (ℤ≥‘2) → ((𝑧 ∥ 𝑃 → 𝑧 = 𝑃) → (𝑧 ∥ 𝑃 → ¬ (𝑧 · 𝑧) ≤ 𝑃)))
20		con2 137	. . . . . . . 8 ⊢ ((𝑧 ∥ 𝑃 → ¬ (𝑧 · 𝑧) ≤ 𝑃) → ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃))
21	19, 20	syl6 35	. . . . . . 7 ⊢ (𝑃 ∈ (ℤ≥‘2) → ((𝑧 ∥ 𝑃 → 𝑧 = 𝑃) → ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))
22	3, 21	imim12d 81	. . . . . 6 ⊢ (𝑃 ∈ (ℤ≥‘2) → ((𝑧 ∈ (ℤ≥‘2) → (𝑧 ∥ 𝑃 → 𝑧 = 𝑃)) → (𝑧 ∈ ℙ → ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃))))
23	22	ralimdv2 3178	. . . . 5 ⊢ (𝑃 ∈ (ℤ≥‘2) → (∀𝑧 ∈ (ℤ≥‘2)(𝑧 ∥ 𝑃 → 𝑧 = 𝑃) → ∀𝑧 ∈ ℙ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))
24		annim 406	. . . . . . . . 9 ⊢ ((𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃) ↔ ¬ (𝑧 ∥ 𝑃 → 𝑧 = 𝑃))
25		oveq12 7167	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑧 ∧ 𝑥 = 𝑧) → (𝑥 · 𝑥) = (𝑧 · 𝑧))
26	25	anidms 569	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑧 → (𝑥 · 𝑥) = (𝑧 · 𝑧))
27	26	breq1d 5078	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑧 → ((𝑥 · 𝑥) ≤ 𝑃 ↔ (𝑧 · 𝑧) ≤ 𝑃))
28		breq1 5071	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑧 → (𝑥 ∥ 𝑃 ↔ 𝑧 ∥ 𝑃))
29	27, 28	anbi12d 632	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑧 → (((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃) ↔ ((𝑧 · 𝑧) ≤ 𝑃 ∧ 𝑧 ∥ 𝑃)))
30	29	rspcev 3625	. . . . . . . . . . . . . 14 ⊢ ((𝑧 ∈ (ℤ≥‘2) ∧ ((𝑧 · 𝑧) ≤ 𝑃 ∧ 𝑧 ∥ 𝑃)) → ∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃))
31	30	ancom2s 648	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ (ℤ≥‘2) ∧ (𝑧 ∥ 𝑃 ∧ (𝑧 · 𝑧) ≤ 𝑃)) → ∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃))
32	31	expr 459	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ (ℤ≥‘2) ∧ 𝑧 ∥ 𝑃) → ((𝑧 · 𝑧) ≤ 𝑃 → ∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)))
33	32	ad2ant2lr 746	. . . . . . . . . . 11 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → ((𝑧 · 𝑧) ≤ 𝑃 → ∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)))
34		simprl 769	. . . . . . . . . . . . . 14 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑧 ∥ 𝑃)
35		eluzelz 12256	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ (ℤ≥‘2) → 𝑧 ∈ ℤ)
36	35	ad2antlr 725	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑧 ∈ ℤ)
37		eluz2nn 12287	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 ∈ (ℤ≥‘2) → 𝑧 ∈ ℕ)
38	37	ad2antlr 725	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑧 ∈ ℕ)
39	38	nnne0d 11690	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑧 ≠ 0)
40		eluzelz 12256	. . . . . . . . . . . . . . . 16 ⊢ (𝑃 ∈ (ℤ≥‘2) → 𝑃 ∈ ℤ)
41	40	ad2antrr 724	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑃 ∈ ℤ)
42		dvdsval2 15612	. . . . . . . . . . . . . . 15 ⊢ ((𝑧 ∈ ℤ ∧ 𝑧 ≠ 0 ∧ 𝑃 ∈ ℤ) → (𝑧 ∥ 𝑃 ↔ (𝑃 / 𝑧) ∈ ℤ))
43	36, 39, 41, 42	syl3anc 1367	. . . . . . . . . . . . . 14 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑧 ∥ 𝑃 ↔ (𝑃 / 𝑧) ∈ ℤ))
44	34, 43	mpbid 234	. . . . . . . . . . . . 13 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑃 / 𝑧) ∈ ℤ)
45		eluzelre 12257	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 ∈ (ℤ≥‘2) → 𝑧 ∈ ℝ)
46	45	ad2antlr 725	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑧 ∈ ℝ)
47	46	recnd 10671	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑧 ∈ ℂ)
48	47	mulid2d 10661	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (1 · 𝑧) = 𝑧)
49	5	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑃 ∈ ℝ)
50	6	ad2antrr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑃 ∈ ℕ)
51		dvdsle 15662	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑧 ∈ ℤ ∧ 𝑃 ∈ ℕ) → (𝑧 ∥ 𝑃 → 𝑧 ≤ 𝑃))
52	51	imp 409	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑧 ∈ ℤ ∧ 𝑃 ∈ ℕ) ∧ 𝑧 ∥ 𝑃) → 𝑧 ≤ 𝑃)
53	36, 50, 34, 52	syl21anc 835	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑧 ≤ 𝑃)
54		simprr 771	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → ¬ 𝑧 = 𝑃)
55	54	neqned 3025	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑧 ≠ 𝑃)
56	55	necomd 3073	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑃 ≠ 𝑧)
57	46, 49, 53, 56	leneltd 10796	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑧 < 𝑃)
58	48, 57	eqbrtrd 5090	. . . . . . . . . . . . . 14 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (1 · 𝑧) < 𝑃)
59		1red 10644	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 1 ∈ ℝ)
60	41	zred 12090	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑃 ∈ ℝ)
61		nnre 11647	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 ∈ ℕ → 𝑧 ∈ ℝ)
62		nngt0 11671	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 ∈ ℕ → 0 < 𝑧)
63	61, 62	jca 514	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ ℕ → (𝑧 ∈ ℝ ∧ 0 < 𝑧))
64	38, 63	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑧 ∈ ℝ ∧ 0 < 𝑧))
65		ltmuldiv 11515	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℝ ∧ 𝑃 ∈ ℝ ∧ (𝑧 ∈ ℝ ∧ 0 < 𝑧)) → ((1 · 𝑧) < 𝑃 ↔ 1 < (𝑃 / 𝑧)))
66	59, 60, 64, 65	syl3anc 1367	. . . . . . . . . . . . . 14 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → ((1 · 𝑧) < 𝑃 ↔ 1 < (𝑃 / 𝑧)))
67	58, 66	mpbid 234	. . . . . . . . . . . . 13 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 1 < (𝑃 / 𝑧))
68		eluz2b1 12322	. . . . . . . . . . . . 13 ⊢ ((𝑃 / 𝑧) ∈ (ℤ≥‘2) ↔ ((𝑃 / 𝑧) ∈ ℤ ∧ 1 < (𝑃 / 𝑧)))
69	44, 67, 68	sylanbrc 585	. . . . . . . . . . . 12 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑃 / 𝑧) ∈ (ℤ≥‘2))
70	46, 46	remulcld 10673	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑧 · 𝑧) ∈ ℝ)
71	38, 38	nnmulcld 11693	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑧 · 𝑧) ∈ ℕ)
72		nnrp 12403	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑃 ∈ ℕ → 𝑃 ∈ ℝ+)
73		nnrp 12403	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑧 · 𝑧) ∈ ℕ → (𝑧 · 𝑧) ∈ ℝ+)
74		rpdivcl 12417	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ ℝ+ ∧ (𝑧 · 𝑧) ∈ ℝ+) → (𝑃 / (𝑧 · 𝑧)) ∈ ℝ+)
75	72, 73, 74	syl2an 597	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 ∈ ℕ ∧ (𝑧 · 𝑧) ∈ ℕ) → (𝑃 / (𝑧 · 𝑧)) ∈ ℝ+)
76	50, 71, 75	syl2anc 586	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑃 / (𝑧 · 𝑧)) ∈ ℝ+)
77	49, 70, 76	lemul1d 12477	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑃 ≤ (𝑧 · 𝑧) ↔ (𝑃 · (𝑃 / (𝑧 · 𝑧))) ≤ ((𝑧 · 𝑧) · (𝑃 / (𝑧 · 𝑧)))))
78	49	recnd 10671	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑃 ∈ ℂ)
79	78, 47, 78, 47, 39, 39	divmuldivd 11459	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → ((𝑃 / 𝑧) · (𝑃 / 𝑧)) = ((𝑃 · 𝑃) / (𝑧 · 𝑧)))
80	71	nncnd 11656	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑧 · 𝑧) ∈ ℂ)
81	71	nnne0d 11690	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑧 · 𝑧) ≠ 0)
82	78, 78, 80, 81	divassd 11453	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → ((𝑃 · 𝑃) / (𝑧 · 𝑧)) = (𝑃 · (𝑃 / (𝑧 · 𝑧))))
83	79, 82	eqtrd 2858	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → ((𝑃 / 𝑧) · (𝑃 / 𝑧)) = (𝑃 · (𝑃 / (𝑧 · 𝑧))))
84	78, 80, 81	divcan2d 11420	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → ((𝑧 · 𝑧) · (𝑃 / (𝑧 · 𝑧))) = 𝑃)
85	84	eqcomd 2829	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → 𝑃 = ((𝑧 · 𝑧) · (𝑃 / (𝑧 · 𝑧))))
86	83, 85	breq12d 5081	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (((𝑃 / 𝑧) · (𝑃 / 𝑧)) ≤ 𝑃 ↔ (𝑃 · (𝑃 / (𝑧 · 𝑧))) ≤ ((𝑧 · 𝑧) · (𝑃 / (𝑧 · 𝑧)))))
87	77, 86	bitr4d 284	. . . . . . . . . . . . . 14 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑃 ≤ (𝑧 · 𝑧) ↔ ((𝑃 / 𝑧) · (𝑃 / 𝑧)) ≤ 𝑃))
88	87	biimpd 231	. . . . . . . . . . . . 13 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑃 ≤ (𝑧 · 𝑧) → ((𝑃 / 𝑧) · (𝑃 / 𝑧)) ≤ 𝑃))
89	78, 47, 39	divcan2d 11420	. . . . . . . . . . . . . 14 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑧 · (𝑃 / 𝑧)) = 𝑃)
90		dvds0lem 15622	. . . . . . . . . . . . . 14 ⊢ (((𝑧 ∈ ℤ ∧ (𝑃 / 𝑧) ∈ ℤ ∧ 𝑃 ∈ ℤ) ∧ (𝑧 · (𝑃 / 𝑧)) = 𝑃) → (𝑃 / 𝑧) ∥ 𝑃)
91	36, 44, 41, 89, 90	syl31anc 1369	. . . . . . . . . . . . 13 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑃 / 𝑧) ∥ 𝑃)
92	88, 91	jctird 529	. . . . . . . . . . . 12 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑃 ≤ (𝑧 · 𝑧) → (((𝑃 / 𝑧) · (𝑃 / 𝑧)) ≤ 𝑃 ∧ (𝑃 / 𝑧) ∥ 𝑃)))
93		oveq12 7167	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = (𝑃 / 𝑧) ∧ 𝑥 = (𝑃 / 𝑧)) → (𝑥 · 𝑥) = ((𝑃 / 𝑧) · (𝑃 / 𝑧)))
94	93	anidms 569	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (𝑃 / 𝑧) → (𝑥 · 𝑥) = ((𝑃 / 𝑧) · (𝑃 / 𝑧)))
95	94	breq1d 5078	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝑃 / 𝑧) → ((𝑥 · 𝑥) ≤ 𝑃 ↔ ((𝑃 / 𝑧) · (𝑃 / 𝑧)) ≤ 𝑃))
96		breq1 5071	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝑃 / 𝑧) → (𝑥 ∥ 𝑃 ↔ (𝑃 / 𝑧) ∥ 𝑃))
97	95, 96	anbi12d 632	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝑃 / 𝑧) → (((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃) ↔ (((𝑃 / 𝑧) · (𝑃 / 𝑧)) ≤ 𝑃 ∧ (𝑃 / 𝑧) ∥ 𝑃)))
98	97	rspcev 3625	. . . . . . . . . . . 12 ⊢ (((𝑃 / 𝑧) ∈ (ℤ≥‘2) ∧ (((𝑃 / 𝑧) · (𝑃 / 𝑧)) ≤ 𝑃 ∧ (𝑃 / 𝑧) ∥ 𝑃)) → ∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃))
99	69, 92, 98	syl6an 682	. . . . . . . . . . 11 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → (𝑃 ≤ (𝑧 · 𝑧) → ∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)))
100	70, 49	letrid 10794	. . . . . . . . . . 11 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → ((𝑧 · 𝑧) ≤ 𝑃 ∨ 𝑃 ≤ (𝑧 · 𝑧)))
101	33, 99, 100	mpjaod 856	. . . . . . . . . 10 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) ∧ (𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃)) → ∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃))
102	101	ex 415	. . . . . . . . 9 ⊢ ((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) → ((𝑧 ∥ 𝑃 ∧ ¬ 𝑧 = 𝑃) → ∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)))
103	24, 102	syl5bir 245	. . . . . . . 8 ⊢ ((𝑃 ∈ (ℤ≥‘2) ∧ 𝑧 ∈ (ℤ≥‘2)) → (¬ (𝑧 ∥ 𝑃 → 𝑧 = 𝑃) → ∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)))
104	103	rexlimdva 3286	. . . . . . 7 ⊢ (𝑃 ∈ (ℤ≥‘2) → (∃𝑧 ∈ (ℤ≥‘2) ¬ (𝑧 ∥ 𝑃 → 𝑧 = 𝑃) → ∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)))
105		prmz 16021	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ ℙ → 𝑧 ∈ ℤ)
106	105	ad2antrl 726	. . . . . . . . . . . . . 14 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑧 ∈ ℤ)
107	106	zred 12090	. . . . . . . . . . . . 13 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑧 ∈ ℝ)
108	107, 107	remulcld 10673	. . . . . . . . . . . 12 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → (𝑧 · 𝑧) ∈ ℝ)
109		eluzelz 12256	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (ℤ≥‘2) → 𝑥 ∈ ℤ)
110	109	ad3antlr 729	. . . . . . . . . . . . . 14 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑥 ∈ ℤ)
111	110	zred 12090	. . . . . . . . . . . . 13 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑥 ∈ ℝ)
112	111, 111	remulcld 10673	. . . . . . . . . . . 12 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → (𝑥 · 𝑥) ∈ ℝ)
113	40	ad3antrrr 728	. . . . . . . . . . . . 13 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑃 ∈ ℤ)
114	113	zred 12090	. . . . . . . . . . . 12 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑃 ∈ ℝ)
115		eluz2nn 12287	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (ℤ≥‘2) → 𝑥 ∈ ℕ)
116	115	ad3antlr 729	. . . . . . . . . . . . . 14 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑥 ∈ ℕ)
117		simprr 771	. . . . . . . . . . . . . 14 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑧 ∥ 𝑥)
118		dvdsle 15662	. . . . . . . . . . . . . . 15 ⊢ ((𝑧 ∈ ℤ ∧ 𝑥 ∈ ℕ) → (𝑧 ∥ 𝑥 → 𝑧 ≤ 𝑥))
119	118	imp 409	. . . . . . . . . . . . . 14 ⊢ (((𝑧 ∈ ℤ ∧ 𝑥 ∈ ℕ) ∧ 𝑧 ∥ 𝑥) → 𝑧 ≤ 𝑥)
120	106, 116, 117, 119	syl21anc 835	. . . . . . . . . . . . 13 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑧 ≤ 𝑥)
121		eluzge2nn0 12290	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 ∈ (ℤ≥‘2) → 𝑧 ∈ ℕ0)
122	121	nn0ge0d 11961	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ (ℤ≥‘2) → 0 ≤ 𝑧)
123	2, 122	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ ℙ → 0 ≤ 𝑧)
124	123	ad2antrl 726	. . . . . . . . . . . . . 14 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 0 ≤ 𝑧)
125		nnnn0 11907	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ ℕ → 𝑥 ∈ ℕ0)
126	125	nn0ge0d 11961	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ ℕ → 0 ≤ 𝑥)
127	116, 126	syl 17	. . . . . . . . . . . . . 14 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 0 ≤ 𝑥)
128		le2msq 11542	. . . . . . . . . . . . . 14 ⊢ (((𝑧 ∈ ℝ ∧ 0 ≤ 𝑧) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (𝑧 ≤ 𝑥 ↔ (𝑧 · 𝑧) ≤ (𝑥 · 𝑥)))
129	107, 124, 111, 127, 128	syl22anc 836	. . . . . . . . . . . . 13 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → (𝑧 ≤ 𝑥 ↔ (𝑧 · 𝑧) ≤ (𝑥 · 𝑥)))
130	120, 129	mpbid 234	. . . . . . . . . . . 12 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → (𝑧 · 𝑧) ≤ (𝑥 · 𝑥))
131		simplrl 775	. . . . . . . . . . . 12 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → (𝑥 · 𝑥) ≤ 𝑃)
132	108, 112, 114, 130, 131	letrd 10799	. . . . . . . . . . 11 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → (𝑧 · 𝑧) ≤ 𝑃)
133		simplrr 776	. . . . . . . . . . . 12 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑥 ∥ 𝑃)
134		dvdstr 15648	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ ℤ ∧ 𝑥 ∈ ℤ ∧ 𝑃 ∈ ℤ) → ((𝑧 ∥ 𝑥 ∧ 𝑥 ∥ 𝑃) → 𝑧 ∥ 𝑃))
135	106, 110, 113, 134	syl3anc 1367	. . . . . . . . . . . 12 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → ((𝑧 ∥ 𝑥 ∧ 𝑥 ∥ 𝑃) → 𝑧 ∥ 𝑃))
136	117, 133, 135	mp2and 697	. . . . . . . . . . 11 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → 𝑧 ∥ 𝑃)
137	132, 136	jc 163	. . . . . . . . . 10 ⊢ ((((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) ∧ (𝑧 ∈ ℙ ∧ 𝑧 ∥ 𝑥)) → ¬ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃))
138		exprmfct 16050	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (ℤ≥‘2) → ∃𝑧 ∈ ℙ 𝑧 ∥ 𝑥)
139	138	ad2antlr 725	. . . . . . . . . 10 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) → ∃𝑧 ∈ ℙ 𝑧 ∥ 𝑥)
140	137, 139	reximddv 3277	. . . . . . . . 9 ⊢ (((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) ∧ ((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃)) → ∃𝑧 ∈ ℙ ¬ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃))
141	140	ex 415	. . . . . . . 8 ⊢ ((𝑃 ∈ (ℤ≥‘2) ∧ 𝑥 ∈ (ℤ≥‘2)) → (((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃) → ∃𝑧 ∈ ℙ ¬ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))
142	141	rexlimdva 3286	. . . . . . 7 ⊢ (𝑃 ∈ (ℤ≥‘2) → (∃𝑥 ∈ (ℤ≥‘2)((𝑥 · 𝑥) ≤ 𝑃 ∧ 𝑥 ∥ 𝑃) → ∃𝑧 ∈ ℙ ¬ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))
143	104, 142	syld 47	. . . . . 6 ⊢ (𝑃 ∈ (ℤ≥‘2) → (∃𝑧 ∈ (ℤ≥‘2) ¬ (𝑧 ∥ 𝑃 → 𝑧 = 𝑃) → ∃𝑧 ∈ ℙ ¬ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))
144		rexnal 3240	. . . . . 6 ⊢ (∃𝑧 ∈ (ℤ≥‘2) ¬ (𝑧 ∥ 𝑃 → 𝑧 = 𝑃) ↔ ¬ ∀𝑧 ∈ (ℤ≥‘2)(𝑧 ∥ 𝑃 → 𝑧 = 𝑃))
145		rexnal 3240	. . . . . 6 ⊢ (∃𝑧 ∈ ℙ ¬ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃) ↔ ¬ ∀𝑧 ∈ ℙ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃))
146	143, 144, 145	3imtr3g 297	. . . . 5 ⊢ (𝑃 ∈ (ℤ≥‘2) → (¬ ∀𝑧 ∈ (ℤ≥‘2)(𝑧 ∥ 𝑃 → 𝑧 = 𝑃) → ¬ ∀𝑧 ∈ ℙ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))
147	23, 146	impcon4bid 229	. . . 4 ⊢ (𝑃 ∈ (ℤ≥‘2) → (∀𝑧 ∈ (ℤ≥‘2)(𝑧 ∥ 𝑃 → 𝑧 = 𝑃) ↔ ∀𝑧 ∈ ℙ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))
148		prmnn 16020	. . . . . . . . 9 ⊢ (𝑧 ∈ ℙ → 𝑧 ∈ ℕ)
149	148	nncnd 11656	. . . . . . . 8 ⊢ (𝑧 ∈ ℙ → 𝑧 ∈ ℂ)
150	149	sqvald 13510	. . . . . . 7 ⊢ (𝑧 ∈ ℙ → (𝑧↑2) = (𝑧 · 𝑧))
151	150	breq1d 5078	. . . . . 6 ⊢ (𝑧 ∈ ℙ → ((𝑧↑2) ≤ 𝑃 ↔ (𝑧 · 𝑧) ≤ 𝑃))
152	151	imbi1d 344	. . . . 5 ⊢ (𝑧 ∈ ℙ → (((𝑧↑2) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃) ↔ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))
153	152	ralbiia 3166	. . . 4 ⊢ (∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃) ↔ ∀𝑧 ∈ ℙ ((𝑧 · 𝑧) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃))
154	147, 153	syl6bbr 291	. . 3 ⊢ (𝑃 ∈ (ℤ≥‘2) → (∀𝑧 ∈ (ℤ≥‘2)(𝑧 ∥ 𝑃 → 𝑧 = 𝑃) ↔ ∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))
155	154	pm5.32i 577	. 2 ⊢ ((𝑃 ∈ (ℤ≥‘2) ∧ ∀𝑧 ∈ (ℤ≥‘2)(𝑧 ∥ 𝑃 → 𝑧 = 𝑃)) ↔ (𝑃 ∈ (ℤ≥‘2) ∧ ∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))
156	1, 155	bitri 277	1 ⊢ (𝑃 ∈ ℙ ↔ (𝑃 ∈ (ℤ≥‘2) ∧ ∀𝑧 ∈ ℙ ((𝑧↑2) ≤ 𝑃 → ¬ 𝑧 ∥ 𝑃)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1537   ∈ wcel 2114   ≠ wne 3018  ∀wral 3140  ∃wrex 3141   class class class wbr 5068  ‘cfv 6357  (class class class)co 7158  ℝcr 10538  0cc0 10539  1c1 10540   · cmul 10544   < clt 10677   ≤ cle 10678   / cdiv 11299  ℕcn 11640  2c2 11695  ℤcz 11984  ℤ_≥cuz 12246  ℝ⁺crp 12392  ↑cexp 13432   ∥ cdvds 15609  ℙcprime 16017

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616  ax-pre-sup 10617

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-om 7583  df-1st 7691  df-2nd 7692  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-2o 8105  df-er 8291  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-sup 8908  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-div 11300  df-nn 11641  df-2 11703  df-3 11704  df-n0 11901  df-z 11985  df-uz 12247  df-rp 12393  df-fz 12896  df-seq 13373  df-exp 13433  df-cj 14460  df-re 14461  df-im 14462  df-sqrt 14596  df-abs 14597  df-dvds 15610  df-prm 16018

This theorem is referenced by:  isprm7  16054  pockthg  16244  prmlem1a  16442