Theorem aks4d1p7 42583

Description: Technical step in AKS lemma 4.1. (Contributed by metakunt, 31-Oct-2024.)

Hypotheses

Ref	Expression
aks4d1p7.1	⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘3))
aks4d1p7.2	⊢ 𝐴 = ((𝑁↑(⌊‘(2 logb 𝐵))) · ∏𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))((𝑁↑𝑘) − 1))
aks4d1p7.3	⊢ 𝐵 = (⌈‘((2 logb 𝑁)↑5))
aks4d1p7.4	⊢ 𝑅 = inf({𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴}, ℝ, < )

Assertion

Ref	Expression
aks4d1p7	⊢ (𝜑 → ∃𝑝 ∈ ℙ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁))

Distinct variable groups:   𝐴,𝑟   𝐵,𝑟   𝑘,𝑁,𝑝   𝑅,𝑘,𝑝   𝑅,𝑟   𝜑,𝑘

Allowed substitution hints:   𝜑(𝑟,𝑝)   𝐴(𝑘,𝑝)   𝐵(𝑘,𝑝)   𝑁(𝑟)

Proof of Theorem aks4d1p7

Dummy variables 𝑜 𝑞 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		aks4d1p7.1	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ (ℤ≥‘3))
2	1	adantr 482	. . . . 5 ⊢ ((𝜑 ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁)) → 𝑁 ∈ (ℤ≥‘3))
3		aks4d1p7.2	. . . . 5 ⊢ 𝐴 = ((𝑁↑(⌊‘(2 logb 𝐵))) · ∏𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))((𝑁↑𝑘) − 1))
4		aks4d1p7.3	. . . . 5 ⊢ 𝐵 = (⌈‘((2 logb 𝑁)↑5))
5		aks4d1p7.4	. . . . 5 ⊢ 𝑅 = inf({𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴}, ℝ, < )
6		breq1 5078	. . . . . . . 8 ⊢ (𝑝 = 𝑞 → (𝑝 ∥ 𝑅 ↔ 𝑞 ∥ 𝑅))
7		breq1 5078	. . . . . . . 8 ⊢ (𝑝 = 𝑞 → (𝑝 ∥ 𝑁 ↔ 𝑞 ∥ 𝑁))
8	6, 7	imbi12d 346	. . . . . . 7 ⊢ (𝑝 = 𝑞 → ((𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁) ↔ (𝑞 ∥ 𝑅 → 𝑞 ∥ 𝑁)))
9	8	cbvralvw 3219	. . . . . 6 ⊢ (∀𝑝 ∈ ℙ (𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁) ↔ ∀𝑞 ∈ ℙ (𝑞 ∥ 𝑅 → 𝑞 ∥ 𝑁))
10	9	bilani 506	. . . . 5 ⊢ ((𝜑 ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁)) → ∀𝑞 ∈ ℙ (𝑞 ∥ 𝑅 → 𝑞 ∥ 𝑁))
11	2, 3, 4, 5, 10	aks4d1p7d1 42582	. . . 4 ⊢ ((𝜑 ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁)) → 𝑅 ∥ (𝑁↑(⌊‘(2 logb 𝐵))))
12	5	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 = inf({𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴}, ℝ, < ))
13		ltso 11221	. . . . . . . . . . 11 ⊢ < Or ℝ
14	13	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → < Or ℝ)
15		fzfid 13930	. . . . . . . . . . . 12 ⊢ (𝜑 → (1...𝐵) ∈ Fin)
16		ssrab2 4014	. . . . . . . . . . . . 13 ⊢ {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ⊆ (1...𝐵)
17	16	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ⊆ (1...𝐵))
18	15, 17	ssfid 9173	. . . . . . . . . . 11 ⊢ (𝜑 → {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ∈ Fin)
19	1, 3, 4	aks4d1p3 42578	. . . . . . . . . . . 12 ⊢ (𝜑 → ∃𝑟 ∈ (1...𝐵) ¬ 𝑟 ∥ 𝐴)
20		rabn0 4320	. . . . . . . . . . . 12 ⊢ ({𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ≠ ∅ ↔ ∃𝑟 ∈ (1...𝐵) ¬ 𝑟 ∥ 𝐴)
21	19, 20	sylibr 236	. . . . . . . . . . 11 ⊢ (𝜑 → {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ≠ ∅)
22		elfznn 13502	. . . . . . . . . . . . . . . 16 ⊢ (𝑜 ∈ (1...𝐵) → 𝑜 ∈ ℕ)
23	22	adantl 483	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑜 ∈ (1...𝐵)) → 𝑜 ∈ ℕ)
24	23	nnred 12184	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑜 ∈ (1...𝐵)) → 𝑜 ∈ ℝ)
25	24	ex 414	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑜 ∈ (1...𝐵) → 𝑜 ∈ ℝ))
26	25	ssrdv 3923	. . . . . . . . . . . 12 ⊢ (𝜑 → (1...𝐵) ⊆ ℝ)
27	17, 26	sstrd 3927	. . . . . . . . . . 11 ⊢ (𝜑 → {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ⊆ ℝ)
28	18, 21, 27	3jca 1135	. . . . . . . . . 10 ⊢ (𝜑 → ({𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ∈ Fin ∧ {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ≠ ∅ ∧ {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ⊆ ℝ))
29		fiinfcl 9410	. . . . . . . . . 10 ⊢ (( < Or ℝ ∧ ({𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ∈ Fin ∧ {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ≠ ∅ ∧ {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ⊆ ℝ)) → inf({𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴}, ℝ, < ) ∈ {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴})
30	14, 28, 29	syl2anc 591	. . . . . . . . 9 ⊢ (𝜑 → inf({𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴}, ℝ, < ) ∈ {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴})
31	12, 30	eqeltrd 2841	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴})
32		breq1 5078	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (𝑟 ∥ 𝐴 ↔ 𝑅 ∥ 𝐴))
33	32	notbid 320	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (¬ 𝑟 ∥ 𝐴 ↔ ¬ 𝑅 ∥ 𝐴))
34	33	elrab 3631	. . . . . . . 8 ⊢ (𝑅 ∈ {𝑟 ∈ (1...𝐵) ∣ ¬ 𝑟 ∥ 𝐴} ↔ (𝑅 ∈ (1...𝐵) ∧ ¬ 𝑅 ∥ 𝐴))
35	31, 34	sylib 220	. . . . . . 7 ⊢ (𝜑 → (𝑅 ∈ (1...𝐵) ∧ ¬ 𝑅 ∥ 𝐴))
36	35	simprd 497	. . . . . 6 ⊢ (𝜑 → ¬ 𝑅 ∥ 𝐴)
37	1, 3, 4, 5	aks4d1p4 42579	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑅 ∈ (1...𝐵) ∧ ¬ 𝑅 ∥ 𝐴))
38	37	simpld 496	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ (1...𝐵))
39	38	elfzelzd 13474	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ ℤ)
40		eluzelz 12793	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ (ℤ≥‘3) → 𝑁 ∈ ℤ)
41	1, 40	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ ℤ)
42		2re 12250	. . . . . . . . . . . . . . . . 17 ⊢ 2 ∈ ℝ
43	42	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 2 ∈ ℝ)
44		2pos 12279	. . . . . . . . . . . . . . . . 17 ⊢ 0 < 2
45	44	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 < 2)
46	4	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐵 = (⌈‘((2 logb 𝑁)↑5)))
47	41	zred 12628	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑁 ∈ ℝ)
48		0red 11142	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 0 ∈ ℝ)
49		3re 12256	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 3 ∈ ℝ
50	49	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 3 ∈ ℝ)
51		3pos 12281	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 0 < 3
52	51	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 0 < 3)
53		eluzle 12796	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑁 ∈ (ℤ≥‘3) → 3 ≤ 𝑁)
54	1, 53	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 3 ≤ 𝑁)
55	48, 50, 47, 52, 54	ltletrd 11301	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 0 < 𝑁)
56		1red 11140	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 1 ∈ ℝ)
57		1lt2 12342	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ 1 < 2
58	57	a1i 11	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 1 < 2)
59	56, 58	ltned 11277	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 1 ≠ 2)
60	59	necomd 2991	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 2 ≠ 1)
61	43, 45, 47, 55, 60	relogbcld 42474	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (2 logb 𝑁) ∈ ℝ)
62		5nn0 12452	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 5 ∈ ℕ0
63	62	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 5 ∈ ℕ0)
64	61, 63	reexpcld 14120	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((2 logb 𝑁)↑5) ∈ ℝ)
65	64	ceilcld 13797	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (⌈‘((2 logb 𝑁)↑5)) ∈ ℤ)
66	65	zred 12628	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (⌈‘((2 logb 𝑁)↑5)) ∈ ℝ)
67	46, 66	eqeltrd 2841	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐵 ∈ ℝ)
68		9re 12275	. . . . . . . . . . . . . . . . . 18 ⊢ 9 ∈ ℝ
69	68	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 9 ∈ ℝ)
70		9pos 12289	. . . . . . . . . . . . . . . . . 18 ⊢ 0 < 9
71	70	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 0 < 9)
72	47, 54	3lexlogpow5ineq4 42556	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 9 < ((2 logb 𝑁)↑5))
73	64	ceilged 13800	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((2 logb 𝑁)↑5) ≤ (⌈‘((2 logb 𝑁)↑5)))
74	69, 64, 66, 72, 73	ltletrd 11301	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 9 < (⌈‘((2 logb 𝑁)↑5)))
75	74, 46	breqtrrd 5103	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 9 < 𝐵)
76	48, 69, 67, 71, 75	lttrd 11302	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 < 𝐵)
77	43, 45, 67, 76, 60	relogbcld 42474	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (2 logb 𝐵) ∈ ℝ)
78	77	flcld 13752	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (⌊‘(2 logb 𝐵)) ∈ ℤ)
79	43	recnd 11168	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 2 ∈ ℂ)
80	48, 45	gtned 11276	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 2 ≠ 0)
81		logb1 26755	. . . . . . . . . . . . . . . . . 18 ⊢ ((2 ∈ ℂ ∧ 2 ≠ 0 ∧ 2 ≠ 1) → (2 logb 1) = 0)
82	79, 80, 60, 81	syl3anc 1380	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2 logb 1) = 0)
83	82	eqcomd 2747	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 = (2 logb 1))
84		2z 12554	. . . . . . . . . . . . . . . . . 18 ⊢ 2 ∈ ℤ
85	84	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 2 ∈ ℤ)
86	43	leidd 11711	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 2 ≤ 2)
87		0lt1 11667	. . . . . . . . . . . . . . . . . 18 ⊢ 0 < 1
88	87	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 0 < 1)
89		1lt9 12377	. . . . . . . . . . . . . . . . . . . 20 ⊢ 1 < 9
90	89	a1i 11	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 1 < 9)
91	56, 69, 90	ltled 11289	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 1 ≤ 9)
92	69, 67, 75	ltled 11289	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 9 ≤ 𝐵)
93	56, 69, 67, 91, 92	letrd 11298	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 1 ≤ 𝐵)
94	85, 86, 56, 88, 67, 76, 93	logblebd 42477	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (2 logb 1) ≤ (2 logb 𝐵))
95	83, 94	eqbrtrd 5097	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 ≤ (2 logb 𝐵))
96		0zd 12531	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 0 ∈ ℤ)
97		flge 13759	. . . . . . . . . . . . . . . 16 ⊢ (((2 logb 𝐵) ∈ ℝ ∧ 0 ∈ ℤ) → (0 ≤ (2 logb 𝐵) ↔ 0 ≤ (⌊‘(2 logb 𝐵))))
98	77, 96, 97	syl2anc 591	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0 ≤ (2 logb 𝐵) ↔ 0 ≤ (⌊‘(2 logb 𝐵))))
99	95, 98	mpbid 234	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 ≤ (⌊‘(2 logb 𝐵)))
100	78, 99	jca 517	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((⌊‘(2 logb 𝐵)) ∈ ℤ ∧ 0 ≤ (⌊‘(2 logb 𝐵))))
101		elnn0z 12532	. . . . . . . . . . . . 13 ⊢ ((⌊‘(2 logb 𝐵)) ∈ ℕ0 ↔ ((⌊‘(2 logb 𝐵)) ∈ ℤ ∧ 0 ≤ (⌊‘(2 logb 𝐵))))
102	100, 101	sylibr 236	. . . . . . . . . . . 12 ⊢ (𝜑 → (⌊‘(2 logb 𝐵)) ∈ ℕ0)
103	41, 102	zexpcld 14044	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁↑(⌊‘(2 logb 𝐵))) ∈ ℤ)
104		fzfid 13930	. . . . . . . . . . . 12 ⊢ (𝜑 → (1...(⌊‘((2 logb 𝑁)↑2))) ∈ Fin)
105	41	adantr 482	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))) → 𝑁 ∈ ℤ)
106		elfznn 13502	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2))) → 𝑘 ∈ ℕ)
107	106	adantl 483	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))) → 𝑘 ∈ ℕ)
108	107	nnnn0d 12493	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))) → 𝑘 ∈ ℕ0)
109	105, 108	zexpcld 14044	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))) → (𝑁↑𝑘) ∈ ℤ)
110		1zzd 12553	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))) → 1 ∈ ℤ)
111	109, 110	zsubcld 12633	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))) → ((𝑁↑𝑘) − 1) ∈ ℤ)
112	104, 111	fprodzcl 15914	. . . . . . . . . . 11 ⊢ (𝜑 → ∏𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))((𝑁↑𝑘) − 1) ∈ ℤ)
113		dvdsmultr1 16260	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℤ ∧ (𝑁↑(⌊‘(2 logb 𝐵))) ∈ ℤ ∧ ∏𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))((𝑁↑𝑘) − 1) ∈ ℤ) → (𝑅 ∥ (𝑁↑(⌊‘(2 logb 𝐵))) → 𝑅 ∥ ((𝑁↑(⌊‘(2 logb 𝐵))) · ∏𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))((𝑁↑𝑘) − 1))))
114	39, 103, 112, 113	syl3anc 1380	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 ∥ (𝑁↑(⌊‘(2 logb 𝐵))) → 𝑅 ∥ ((𝑁↑(⌊‘(2 logb 𝐵))) · ∏𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))((𝑁↑𝑘) − 1))))
115	114	imp 408	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 ∥ (𝑁↑(⌊‘(2 logb 𝐵)))) → 𝑅 ∥ ((𝑁↑(⌊‘(2 logb 𝐵))) · ∏𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))((𝑁↑𝑘) − 1)))
116	3	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 = ((𝑁↑(⌊‘(2 logb 𝐵))) · ∏𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))((𝑁↑𝑘) − 1)))
117	116	breq2d 5087	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 ∥ 𝐴 ↔ 𝑅 ∥ ((𝑁↑(⌊‘(2 logb 𝐵))) · ∏𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))((𝑁↑𝑘) − 1))))
118	117	adantr 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑅 ∥ (𝑁↑(⌊‘(2 logb 𝐵)))) → (𝑅 ∥ 𝐴 ↔ 𝑅 ∥ ((𝑁↑(⌊‘(2 logb 𝐵))) · ∏𝑘 ∈ (1...(⌊‘((2 logb 𝑁)↑2)))((𝑁↑𝑘) − 1))))
119	115, 118	mpbird 259	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑅 ∥ (𝑁↑(⌊‘(2 logb 𝐵)))) → 𝑅 ∥ 𝐴)
120	119	ex 414	. . . . . . 7 ⊢ (𝜑 → (𝑅 ∥ (𝑁↑(⌊‘(2 logb 𝐵))) → 𝑅 ∥ 𝐴))
121	120	con3d 152	. . . . . 6 ⊢ (𝜑 → (¬ 𝑅 ∥ 𝐴 → ¬ 𝑅 ∥ (𝑁↑(⌊‘(2 logb 𝐵)))))
122	36, 121	mpd 15	. . . . 5 ⊢ (𝜑 → ¬ 𝑅 ∥ (𝑁↑(⌊‘(2 logb 𝐵))))
123	122	adantr 482	. . . 4 ⊢ ((𝜑 ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁)) → ¬ 𝑅 ∥ (𝑁↑(⌊‘(2 logb 𝐵))))
124	11, 123	pm2.65da 823	. . 3 ⊢ (𝜑 → ¬ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁))
125		ianor 990	. . . . . . . 8 ⊢ (¬ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁) ↔ (¬ 𝑝 ∥ 𝑅 ∨ ¬ ¬ 𝑝 ∥ 𝑁))
126		notnotb 317	. . . . . . . . . 10 ⊢ (𝑝 ∥ 𝑁 ↔ ¬ ¬ 𝑝 ∥ 𝑁)
127	126	orbi2i 919	. . . . . . . . 9 ⊢ ((¬ 𝑝 ∥ 𝑅 ∨ 𝑝 ∥ 𝑁) ↔ (¬ 𝑝 ∥ 𝑅 ∨ ¬ ¬ 𝑝 ∥ 𝑁))
128	127	bicomi 226	. . . . . . . 8 ⊢ ((¬ 𝑝 ∥ 𝑅 ∨ ¬ ¬ 𝑝 ∥ 𝑁) ↔ (¬ 𝑝 ∥ 𝑅 ∨ 𝑝 ∥ 𝑁))
129	125, 128	bitri 277	. . . . . . 7 ⊢ (¬ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁) ↔ (¬ 𝑝 ∥ 𝑅 ∨ 𝑝 ∥ 𝑁))
130		df-or 855	. . . . . . 7 ⊢ ((¬ 𝑝 ∥ 𝑅 ∨ 𝑝 ∥ 𝑁) ↔ (¬ ¬ 𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁))
131	129, 130	bitri 277	. . . . . 6 ⊢ (¬ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁) ↔ (¬ ¬ 𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁))
132		notnotb 317	. . . . . . . 8 ⊢ (𝑝 ∥ 𝑅 ↔ ¬ ¬ 𝑝 ∥ 𝑅)
133	132	imbi1i 351	. . . . . . 7 ⊢ ((𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁) ↔ (¬ ¬ 𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁))
134	133	bicomi 226	. . . . . 6 ⊢ ((¬ ¬ 𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁) ↔ (𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁))
135	131, 134	bitri 277	. . . . 5 ⊢ (¬ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁) ↔ (𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁))
136	135	ralbii 3087	. . . 4 ⊢ (∀𝑝 ∈ ℙ ¬ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁) ↔ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁))
137	136	notbii 322	. . 3 ⊢ (¬ ∀𝑝 ∈ ℙ ¬ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁) ↔ ¬ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑅 → 𝑝 ∥ 𝑁))
138	124, 137	sylibr 236	. 2 ⊢ (𝜑 → ¬ ∀𝑝 ∈ ℙ ¬ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁))
139		ralnex 3067	. . . 4 ⊢ (∀𝑝 ∈ ℙ ¬ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁) ↔ ¬ ∃𝑝 ∈ ℙ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁))
140	139	con2bii 359	. . 3 ⊢ (∃𝑝 ∈ ℙ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁) ↔ ¬ ∀𝑝 ∈ ℙ ¬ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁))
141	140	bicomi 226	. 2 ⊢ (¬ ∀𝑝 ∈ ℙ ¬ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁) ↔ ∃𝑝 ∈ ℙ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁))
142	138, 141	sylib 220	1 ⊢ (𝜑 → ∃𝑝 ∈ ℙ (𝑝 ∥ 𝑅 ∧ ¬ 𝑝 ∥ 𝑁))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 397   ∨ wo 854   ∧ w3a 1093   = wceq 1548   ∈ wcel 2121   ≠ wne 2936  ∀wral 3055  ∃wrex 3065  {crab 3393   ⊆ wss 3885  ∅c0 4264   class class class wbr 5075   Or wor 5528  ‘cfv 6489  (class class class)co 7360  Fincfn 8887  infcinf 9348  ℂcc 11031  ℝcr 11032  0cc0 11033  1c1 11034   · cmul 11038   < clt 11174   ≤ cle 11175   − cmin 11372  ℕcn 12169  2c2 12231  3c3 12232  5c5 12234  9c9 12238  ℕ₀cn0 12432  ℤcz 12519  ℤ_≥cuz 12783  ...cfz 13456  ⌊cfl 13744  ⌈cceil 13745  ↑cexp 14018  ∏cprod 15863   ∥ cdvds 16216  ℙcprime 16635   log_b clogb 26750

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-rep 5202  ax-sep 5221  ax-nul 5231  ax-pow 5297  ax-pr 5365  ax-un 7682  ax-inf2 9557  ax-cc 10352  ax-cnex 11089  ax-resscn 11090  ax-1cn 11091  ax-icn 11092  ax-addcl 11093  ax-addrcl 11094  ax-mulcl 11095  ax-mulrcl 11096  ax-mulcom 11097  ax-addass 11098  ax-mulass 11099  ax-distr 11100  ax-i2m1 11101  ax-1ne0 11102  ax-1rid 11103  ax-rnegex 11104  ax-rrecex 11105  ax-cnre 11106  ax-pre-lttri 11107  ax-pre-lttrn 11108  ax-pre-ltadd 11109  ax-pre-mulgt0 11110  ax-pre-sup 11111  ax-addf 11112

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3or 1094  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-nel 3041  df-ral 3056  df-rex 3066  df-rmo 3346  df-reu 3347  df-rab 3394  df-v 3435  df-sbc 3726  df-csb 3834  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-pss 3905  df-symdif 4184  df-nul 4265  df-if 4458  df-pw 4534  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4842  df-int 4881  df-iun 4926  df-iin 4927  df-disj 5043  df-br 5076  df-opab 5138  df-mpt 5157  df-tr 5183  df-id 5516  df-eprel 5521  df-po 5529  df-so 5530  df-fr 5574  df-se 5575  df-we 5576  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-pred 6256  df-ord 6317  df-on 6318  df-lim 6319  df-suc 6320  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-isom 6498  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-of 7624  df-ofr 7625  df-om 7811  df-1st 7935  df-2nd 7936  df-supp 8105  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-rdg 8343  df-1o 8399  df-2o 8400  df-oadd 8403  df-omul 8404  df-er 8637  df-map 8769  df-pm 8770  df-ixp 8840  df-en 8888  df-dom 8889  df-sdom 8890  df-fin 8891  df-fsupp 9269  df-fi 9318  df-sup 9349  df-inf 9350  df-oi 9419  df-dju 9820  df-card 9858  df-acn 9861  df-pnf 11176  df-mnf 11177  df-xr 11178  df-ltxr 11179  df-le 11180  df-sub 11374  df-neg 11375  df-div 11803  df-nn 12170  df-2 12239  df-3 12240  df-4 12241  df-5 12242  df-6 12243  df-7 12244  df-8 12245  df-9 12246  df-n0 12433  df-z 12520  df-dec 12640  df-uz 12784  df-q 12894  df-rp 12938  df-xneg 13058  df-xadd 13059  df-xmul 13060  df-ioo 13297  df-ioc 13298  df-ico 13299  df-icc 13300  df-fz 13457  df-fzo 13604  df-fl 13746  df-ceil 13747  df-mod 13824  df-seq 13959  df-exp 14019  df-fac 14231  df-bc 14260  df-hash 14288  df-shft 15024  df-cj 15056  df-re 15057  df-im 15058  df-sqrt 15192  df-abs 15193  df-limsup 15428  df-clim 15445  df-rlim 15446  df-sum 15644  df-prod 15864  df-ef 16027  df-e 16028  df-sin 16029  df-cos 16030  df-pi 16032  df-dvds 16217  df-gcd 16459  df-lcm 16554  df-lcmf 16555  df-prm 16636  df-pc 16803  df-struct 17112  df-sets 17129  df-slot 17147  df-ndx 17159  df-base 17175  df-ress 17196  df-plusg 17228  df-mulr 17229  df-starv 17230  df-sca 17231  df-vsca 17232  df-ip 17233  df-tset 17234  df-ple 17235  df-ds 17237  df-unif 17238  df-hom 17239  df-cco 17240  df-rest 17380  df-topn 17381  df-0g 17399  df-gsum 17400  df-topgen 17401  df-pt 17402  df-prds 17405  df-xrs 17461  df-qtop 17466  df-imas 17467  df-xps 17469  df-mre 17543  df-mrc 17544  df-acs 17546  df-mgm 18603  df-sgrp 18682  df-mnd 18698  df-submnd 18747  df-mulg 19039  df-cntz 19287  df-cmn 19752  df-psmet 21343  df-xmet 21344  df-met 21345  df-bl 21346  df-mopn 21347  df-fbas 21348  df-fg 21349  df-cnfld 21352  df-top 22881  df-topon 22898  df-topsp 22920  df-bases 22933  df-cld 23006  df-ntr 23007  df-cls 23008  df-nei 23085  df-lp 23123  df-perf 23124  df-cn 23214  df-cnp 23215  df-haus 23302  df-cmp 23374  df-tx 23549  df-hmeo 23742  df-fil 23833  df-fm 23925  df-flim 23926  df-flf 23927  df-xms 24307  df-ms 24308  df-tms 24309  df-cncf 24867  df-ovol 25453  df-vol 25454  df-mbf 25608  df-itg1 25609  df-itg2 25610  df-ibl 25611  df-itg 25612  df-0p 25659  df-limc 25855  df-dv 25856  df-log 26542  df-cxp 26543  df-logb 26751

This theorem is referenced by:  aks4d1p8  42587