perfectlem2 - Intuitionistic Logic Explorer

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

Theorem perfectlem2 15727

Description: Lemma for perfect 15728. (Contributed by Mario Carneiro, 17-May-2016.) (Revised by Wolf Lammen, 17-Sep-2020.)

**Hypotheses**
Ref	Expression
perfectlem.1	⊢ (𝜑 → 𝐴 ∈ ℕ)
perfectlem.2	⊢ (𝜑 → 𝐵 ∈ ℕ)
perfectlem.3	⊢ (𝜑 → ¬ 2 ∥ 𝐵)
perfectlem.4	⊢ (𝜑 → (1 σ ((2↑𝐴) · 𝐵)) = (2 · ((2↑𝐴) · 𝐵)))

**Assertion**
Ref	Expression
perfectlem2	⊢ (𝜑 → (𝐵 ∈ ℙ ∧ 𝐵 = ((2↑(𝐴 + 1)) − 1)))

Proof of Theorem perfectlem2 Dummy variables 𝑘 𝑛 𝑥 𝑝 𝑞 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		perfectlem.2	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℕ)
2		1red 8194	. . . . 5 ⊢ (𝜑 → 1 ∈ ℝ)
3		perfectlem.1	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ ℕ)
4		perfectlem.3	. . . . . . . 8 ⊢ (𝜑 → ¬ 2 ∥ 𝐵)
5		perfectlem.4	. . . . . . . 8 ⊢ (𝜑 → (1 σ ((2↑𝐴) · 𝐵)) = (2 · ((2↑𝐴) · 𝐵)))
6	3, 1, 4, 5	perfectlem1 15726	. . . . . . 7 ⊢ (𝜑 → ((2↑(𝐴 + 1)) ∈ ℕ ∧ ((2↑(𝐴 + 1)) − 1) ∈ ℕ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ))
7	6	simp3d 1037	. . . . . 6 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ)
8	7	nnred 9156	. . . . 5 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℝ)
9	1	nnred 9156	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ ℝ)
10	7	nnge1d 9186	. . . . 5 ⊢ (𝜑 → 1 ≤ (𝐵 / ((2↑(𝐴 + 1)) − 1)))
11		2cn 9214	. . . . . . . . . . 11 ⊢ 2 ∈ ℂ
12		exp1 10808	. . . . . . . . . . 11 ⊢ (2 ∈ ℂ → (2↑1) = 2)
13	11, 12	ax-mp 5	. . . . . . . . . 10 ⊢ (2↑1) = 2
14		df-2 9202	. . . . . . . . . 10 ⊢ 2 = (1 + 1)
15	13, 14	eqtri 2252	. . . . . . . . 9 ⊢ (2↑1) = (1 + 1)
16		2re 9213	. . . . . . . . . . 11 ⊢ 2 ∈ ℝ
17	16	a1i 9	. . . . . . . . . 10 ⊢ (𝜑 → 2 ∈ ℝ)
18		1zzd 9506	. . . . . . . . . 10 ⊢ (𝜑 → 1 ∈ ℤ)
19	3	peano2nnd 9158	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 + 1) ∈ ℕ)
20	19	nnzd 9601	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 + 1) ∈ ℤ)
21		1lt2 9313	. . . . . . . . . . 11 ⊢ 1 < 2
22	21	a1i 9	. . . . . . . . . 10 ⊢ (𝜑 → 1 < 2)
23		1re 8178	. . . . . . . . . . . 12 ⊢ 1 ∈ ℝ
24	3	nnrpd 9929	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
25		ltaddrp 9926	. . . . . . . . . . . 12 ⊢ ((1 ∈ ℝ ∧ 𝐴 ∈ ℝ⁺) → 1 < (1 + 𝐴))
26	23, 24, 25	sylancr 414	. . . . . . . . . . 11 ⊢ (𝜑 → 1 < (1 + 𝐴))
27		ax-1cn 8125	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
28	3	nncnd 9157	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ ℂ)
29		addcom 8316	. . . . . . . . . . . 12 ⊢ ((1 ∈ ℂ ∧ 𝐴 ∈ ℂ) → (1 + 𝐴) = (𝐴 + 1))
30	27, 28, 29	sylancr 414	. . . . . . . . . . 11 ⊢ (𝜑 → (1 + 𝐴) = (𝐴 + 1))
31	26, 30	breqtrd 4114	. . . . . . . . . 10 ⊢ (𝜑 → 1 < (𝐴 + 1))
32		ltexp2a 10854	. . . . . . . . . 10 ⊢ (((2 ∈ ℝ ∧ 1 ∈ ℤ ∧ (𝐴 + 1) ∈ ℤ) ∧ (1 < 2 ∧ 1 < (𝐴 + 1))) → (2↑1) < (2↑(𝐴 + 1)))
33	17, 18, 20, 22, 31, 32	syl32anc 1281	. . . . . . . . 9 ⊢ (𝜑 → (2↑1) < (2↑(𝐴 + 1)))
34	15, 33	eqbrtrrid 4124	. . . . . . . 8 ⊢ (𝜑 → (1 + 1) < (2↑(𝐴 + 1)))
35	6	simp1d 1035	. . . . . . . . . 10 ⊢ (𝜑 → (2↑(𝐴 + 1)) ∈ ℕ)
36	35	nnred 9156	. . . . . . . . 9 ⊢ (𝜑 → (2↑(𝐴 + 1)) ∈ ℝ)
37	2, 2, 36	ltaddsubd 8725	. . . . . . . 8 ⊢ (𝜑 → ((1 + 1) < (2↑(𝐴 + 1)) ↔ 1 < ((2↑(𝐴 + 1)) − 1)))
38	34, 37	mpbid 147	. . . . . . 7 ⊢ (𝜑 → 1 < ((2↑(𝐴 + 1)) − 1))
39		0lt1 8306	. . . . . . . . 9 ⊢ 0 < 1
40	39	a1i 9	. . . . . . . 8 ⊢ (𝜑 → 0 < 1)
41		peano2rem 8446	. . . . . . . . 9 ⊢ ((2↑(𝐴 + 1)) ∈ ℝ → ((2↑(𝐴 + 1)) − 1) ∈ ℝ)
42	36, 41	syl 14	. . . . . . . 8 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℝ)
43		expgt1 10840	. . . . . . . . . 10 ⊢ ((2 ∈ ℝ ∧ (𝐴 + 1) ∈ ℕ ∧ 1 < 2) → 1 < (2↑(𝐴 + 1)))
44	16, 19, 22, 43	mp3an2i 1378	. . . . . . . . 9 ⊢ (𝜑 → 1 < (2↑(𝐴 + 1)))
45		posdif 8635	. . . . . . . . . 10 ⊢ ((1 ∈ ℝ ∧ (2↑(𝐴 + 1)) ∈ ℝ) → (1 < (2↑(𝐴 + 1)) ↔ 0 < ((2↑(𝐴 + 1)) − 1)))
46	23, 36, 45	sylancr 414	. . . . . . . . 9 ⊢ (𝜑 → (1 < (2↑(𝐴 + 1)) ↔ 0 < ((2↑(𝐴 + 1)) − 1)))
47	44, 46	mpbid 147	. . . . . . . 8 ⊢ (𝜑 → 0 < ((2↑(𝐴 + 1)) − 1))
48	1	nngt0d 9187	. . . . . . . 8 ⊢ (𝜑 → 0 < 𝐵)
49		ltdiv2 9067	. . . . . . . 8 ⊢ (((1 ∈ ℝ ∧ 0 < 1) ∧ (((2↑(𝐴 + 1)) − 1) ∈ ℝ ∧ 0 < ((2↑(𝐴 + 1)) − 1)) ∧ (𝐵 ∈ ℝ ∧ 0 < 𝐵)) → (1 < ((2↑(𝐴 + 1)) − 1) ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) < (𝐵 / 1)))
50	2, 40, 42, 47, 9, 48, 49	syl222anc 1289	. . . . . . 7 ⊢ (𝜑 → (1 < ((2↑(𝐴 + 1)) − 1) ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) < (𝐵 / 1)))
51	38, 50	mpbid 147	. . . . . 6 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) < (𝐵 / 1))
52	1	nncnd 9157	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℂ)
53	52	div1d 8960	. . . . . 6 ⊢ (𝜑 → (𝐵 / 1) = 𝐵)
54	51, 53	breqtrd 4114	. . . . 5 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) < 𝐵)
55	2, 8, 9, 10, 54	lelttrd 8304	. . . 4 ⊢ (𝜑 → 1 < 𝐵)
56		eluz2b2 9837	. . . 4 ⊢ (𝐵 ∈ (ℤ_≥‘2) ↔ (𝐵 ∈ ℕ ∧ 1 < 𝐵))
57	1, 55, 56	sylanbrc 417	. . 3 ⊢ (𝜑 → 𝐵 ∈ (ℤ_≥‘2))
58		simprl 531	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → 𝑛 ∈ ℕ)
59	58	nnzd 9601	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → 𝑛 ∈ ℤ)
60	7	nnzd 9601	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℤ)
61	60	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℤ)
62		zdceq 9555	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ℤ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℤ) → DECID 𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
63	59, 61, 62	syl2anc 411	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → DECID 𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
64	1	nnzd 9601	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℤ)
65	64	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → 𝐵 ∈ ℤ)
66		zdceq 9555	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ℤ ∧ 𝐵 ∈ ℤ) → DECID 𝑛 = 𝐵)
67	59, 65, 66	syl2anc 411	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → DECID 𝑛 = 𝐵)
68		dcor 943	. . . . . . . . . 10 ⊢ (DECID 𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → (DECID 𝑛 = 𝐵 → DECID (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
69	63, 67, 68	sylc 62	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → DECID (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))
70		elprg 3689	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ↔ (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
71	58, 70	syl 14	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → (𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ↔ (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
72	71	dcbid 845	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → (DECID 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ↔ DECID (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
73	69, 72	mpbird 167	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → DECID 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
74		dvdsfi 12813	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ ℕ → {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ∈ Fin)
75	1, 74	syl 14	. . . . . . . . . . . 12 ⊢ (𝜑 → {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ∈ Fin)
76	75	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ∈ Fin)
77		ssrab2 3312	. . . . . . . . . . . . . 14 ⊢ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ⊆ ℕ
78	77	a1i 9	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ⊆ ℕ)
79	78	sselda 3227	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℕ)
80	79	nnred 9156	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℝ)
81	79	nnnn0d 9455	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℕ₀)
82	81	nn0ge0d 9458	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 0 ≤ 𝑘)
83		df-tp 3677	. . . . . . . . . . . . 13 ⊢ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {𝑛})
84	7, 1	prssd 3832	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ⊆ ℕ)
85	84	ad2antrr 488	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ⊆ ℕ)
86		simplrl 537	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℕ)
87	86	snssd 3818	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {𝑛} ⊆ ℕ)
88	85, 87	unssd 3383	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {𝑛}) ⊆ ℕ)
89	83, 88	eqsstrid 3273	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ⊆ ℕ)
90	6	simp2d 1036	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℕ)
91	90	nnzd 9601	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℤ)
92		dvdsmul2 12377	. . . . . . . . . . . . . . . . . 18 ⊢ ((((2↑(𝐴 + 1)) − 1) ∈ ℤ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℤ) → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ (((2↑(𝐴 + 1)) − 1) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
93	91, 60, 92	syl2anc 411	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ (((2↑(𝐴 + 1)) − 1) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
94	90	nncnd 9157	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℂ)
95	42, 47	gt0ap0d 8809	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) # 0)
96	52, 94, 95	divcanap2d 8972	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) = 𝐵)
97	93, 96	breqtrd 4114	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ 𝐵)
98		breq1 4091	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → (𝑥 ∥ 𝐵 ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ 𝐵))
99	97, 98	syl5ibrcom 157	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 𝑥 ∥ 𝐵))
100	99	ad2antrr 488	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 𝑥 ∥ 𝐵))
101		iddvds 12367	. . . . . . . . . . . . . . . . 17 ⊢ (𝐵 ∈ ℤ → 𝐵 ∥ 𝐵)
102	64, 101	syl 14	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐵 ∥ 𝐵)
103		breq1 4091	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝐵 → (𝑥 ∥ 𝐵 ↔ 𝐵 ∥ 𝐵))
104	102, 103	syl5ibrcom 157	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑥 = 𝐵 → 𝑥 ∥ 𝐵))
105	104	ad2antrr 488	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (𝑥 = 𝐵 → 𝑥 ∥ 𝐵))
106		simplrr 538	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∥ 𝐵)
107		breq1 4091	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑛 → (𝑥 ∥ 𝐵 ↔ 𝑛 ∥ 𝐵))
108	106, 107	syl5ibrcom 157	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (𝑥 = 𝑛 → 𝑥 ∥ 𝐵))
109	100, 105, 108	3jaod 1340	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ((𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵 ∨ 𝑥 = 𝑛) → 𝑥 ∥ 𝐵))
110		eltpi 3716	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵 ∨ 𝑥 = 𝑛))
111	109, 110	impel 280	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}) → 𝑥 ∥ 𝐵)
112	89, 111	ssrabdv 3306	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ⊆ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵})
113		zdceq 9555	. . . . . . . . . . . . . . 15 ⊢ ((𝑝 ∈ ℤ ∧ 𝑞 ∈ ℤ) → DECID 𝑝 = 𝑞)
114	113	rgen2 2618	. . . . . . . . . . . . . 14 ⊢ ∀𝑝 ∈ ℤ ∀𝑞 ∈ ℤ DECID 𝑝 = 𝑞
115	114	a1i 9	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → ∀𝑝 ∈ ℤ ∀𝑞 ∈ ℤ DECID 𝑝 = 𝑞)
116	61, 65, 59, 115	tpfidceq 7122	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ∈ Fin)
117	116	adantr 276	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ∈ Fin)
118	76, 80, 82, 112, 117	fsumlessfi 12023	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}𝑘 ≤ Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘)
119		simpr 110	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
120		disjsn 3731	. . . . . . . . . . . . 13 ⊢ (({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {𝑛}) = ∅ ↔ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
121	119, 120	sylibr 134	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {𝑛}) = ∅)
122	83	a1i 9	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {𝑛}))
123	89	sselda 3227	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}) → 𝑘 ∈ ℕ)
124	123	nncnd 9157	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}) → 𝑘 ∈ ℂ)
125	121, 122, 117, 124	fsumsplit 11970	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}𝑘 = (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {𝑛}𝑘))
126	7	nncnd 9157	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℂ)
127		id 19	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
128	127	sumsn 11974	. . . . . . . . . . . . . . . 16 ⊢ (((𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℂ) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
129	7, 126, 128	syl2anc 411	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
130		id 19	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = 𝐵 → 𝑘 = 𝐵)
131	130	sumsn 11974	. . . . . . . . . . . . . . . 16 ⊢ ((𝐵 ∈ ℕ ∧ 𝐵 ∈ ℂ) → Σ𝑘 ∈ {𝐵}𝑘 = 𝐵)
132	1, 52, 131	syl2anc 411	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → Σ𝑘 ∈ {𝐵}𝑘 = 𝐵)
133	129, 132	oveq12d 6036	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 + Σ𝑘 ∈ {𝐵}𝑘) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + 𝐵))
134		incom 3399	. . . . . . . . . . . . . . . 16 ⊢ ({𝐵} ∩ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}) = ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∩ {𝐵})
135	8, 54	gtned 8292	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐵 ≠ (𝐵 / ((2↑(𝐴 + 1)) − 1)))
136		disjsn2 3732	. . . . . . . . . . . . . . . . 17 ⊢ (𝐵 ≠ (𝐵 / ((2↑(𝐴 + 1)) − 1)) → ({𝐵} ∩ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}) = ∅)
137	135, 136	syl 14	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ({𝐵} ∩ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}) = ∅)
138	134, 137	eqtr3id 2278	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∩ {𝐵}) = ∅)
139		df-pr 3676	. . . . . . . . . . . . . . . 16 ⊢ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∪ {𝐵})
140	139	a1i 9	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∪ {𝐵}))
141	114	a1i 9	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ∀𝑝 ∈ ℤ ∀𝑞 ∈ ℤ DECID 𝑝 = 𝑞)
142	60, 64, 141	prfidceq 7120	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∈ Fin)
143	84	sselda 3227	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑘 ∈ ℕ)
144	143	nncnd 9157	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑘 ∈ ℂ)
145	138, 140, 142, 144	fsumsplit 11970	. . . . . . . . . . . . . 14 ⊢ (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 = (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 + Σ𝑘 ∈ {𝐵}𝑘))
146	94, 52	mulcld 8200	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) · 𝐵) ∈ ℂ)
147	52, 146, 94, 95	divdirapd 9009	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + ((((2↑(𝐴 + 1)) − 1) · 𝐵) / ((2↑(𝐴 + 1)) − 1))))
148	35	nncnd 9157	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (2↑(𝐴 + 1)) ∈ ℂ)
149		1cnd 8195	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 1 ∈ ℂ)
150	148, 149, 52	subdird 8594	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) · 𝐵) = (((2↑(𝐴 + 1)) · 𝐵) − (1 · 𝐵)))
151	52	mullidd 8197	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (1 · 𝐵) = 𝐵)
152	151	oveq2d 6034	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((2↑(𝐴 + 1)) · 𝐵) − (1 · 𝐵)) = (((2↑(𝐴 + 1)) · 𝐵) − 𝐵))
153	150, 152	eqtrd 2264	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) · 𝐵) = (((2↑(𝐴 + 1)) · 𝐵) − 𝐵))
154	153	oveq2d 6034	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) = (𝐵 + (((2↑(𝐴 + 1)) · 𝐵) − 𝐵)))
155	148, 52	mulcld 8200	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) ∈ ℂ)
156	52, 155	pncan3d 8493	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐵 + (((2↑(𝐴 + 1)) · 𝐵) − 𝐵)) = ((2↑(𝐴 + 1)) · 𝐵))
157	154, 156	eqtrd 2264	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) = ((2↑(𝐴 + 1)) · 𝐵))
158	157	oveq1d 6033	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = (((2↑(𝐴 + 1)) · 𝐵) / ((2↑(𝐴 + 1)) − 1)))
159	148, 52, 94, 95	divassapd 9006	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((2↑(𝐴 + 1)) · 𝐵) / ((2↑(𝐴 + 1)) − 1)) = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
160	158, 159	eqtrd 2264	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
161	52, 94, 95	divcanap3d 8975	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((((2↑(𝐴 + 1)) − 1) · 𝐵) / ((2↑(𝐴 + 1)) − 1)) = 𝐵)
162	161	oveq2d 6034	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + ((((2↑(𝐴 + 1)) − 1) · 𝐵) / ((2↑(𝐴 + 1)) − 1))) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + 𝐵))
163	147, 160, 162	3eqtr3d 2272	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + 𝐵))
164	133, 145, 163	3eqtr4d 2274	. . . . . . . . . . . . 13 ⊢ (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
165	164	ad2antrr 488	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
166	86	nncnd 9157	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℂ)
167		id 19	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑛 → 𝑘 = 𝑛)
168	167	sumsn 11974	. . . . . . . . . . . . 13 ⊢ ((𝑛 ∈ ℂ ∧ 𝑛 ∈ ℂ) → Σ𝑘 ∈ {𝑛}𝑘 = 𝑛)
169	166, 166, 168	syl2anc 411	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {𝑛}𝑘 = 𝑛)
170	165, 169	oveq12d 6036	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {𝑛}𝑘) = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛))
171	125, 170	eqtrd 2264	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}𝑘 = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛))
172	3	nnnn0d 9455	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
173		expp1 10809	. . . . . . . . . . . . . . . . . 18 ⊢ ((2 ∈ ℂ ∧ 𝐴 ∈ ℕ₀) → (2↑(𝐴 + 1)) = ((2↑𝐴) · 2))
174	11, 172, 173	sylancr 414	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2↑(𝐴 + 1)) = ((2↑𝐴) · 2))
175		2nn 9305	. . . . . . . . . . . . . . . . . . . 20 ⊢ 2 ∈ ℕ
176		nnexpcl 10815	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((2 ∈ ℕ ∧ 𝐴 ∈ ℕ₀) → (2↑𝐴) ∈ ℕ)
177	175, 172, 176	sylancr 414	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (2↑𝐴) ∈ ℕ)
178	177	nncnd 9157	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (2↑𝐴) ∈ ℂ)
179		mulcom 8161	. . . . . . . . . . . . . . . . . 18 ⊢ (((2↑𝐴) ∈ ℂ ∧ 2 ∈ ℂ) → ((2↑𝐴) · 2) = (2 · (2↑𝐴)))
180	178, 11, 179	sylancl 413	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2↑𝐴) · 2) = (2 · (2↑𝐴)))
181	174, 180	eqtrd 2264	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (2↑(𝐴 + 1)) = (2 · (2↑𝐴)))
182	181	oveq1d 6033	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) = ((2 · (2↑𝐴)) · 𝐵))
183		2cnd 9216	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 2 ∈ ℂ)
184	183, 178, 52	mulassd 8203	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2 · (2↑𝐴)) · 𝐵) = (2 · ((2↑𝐴) · 𝐵)))
185		2prm 12701	. . . . . . . . . . . . . . . . . . . 20 ⊢ 2 ∈ ℙ
186		coprm 12718	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((2 ∈ ℙ ∧ 𝐵 ∈ ℤ) → (¬ 2 ∥ 𝐵 ↔ (2 gcd 𝐵) = 1))
187	185, 64, 186	sylancr 414	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (¬ 2 ∥ 𝐵 ↔ (2 gcd 𝐵) = 1))
188	4, 187	mpbid 147	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (2 gcd 𝐵) = 1)
189		2z 9507	. . . . . . . . . . . . . . . . . . 19 ⊢ 2 ∈ ℤ
190		rpexp1i 12728	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐴 ∈ ℕ₀) → ((2 gcd 𝐵) = 1 → ((2↑𝐴) gcd 𝐵) = 1))
191	189, 64, 172, 190	mp3an2i 1378	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2 gcd 𝐵) = 1 → ((2↑𝐴) gcd 𝐵) = 1))
192	188, 191	mpd 13	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2↑𝐴) gcd 𝐵) = 1)
193		sgmmul 15723	. . . . . . . . . . . . . . . . 17 ⊢ ((1 ∈ ℂ ∧ ((2↑𝐴) ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ ((2↑𝐴) gcd 𝐵) = 1)) → (1 σ ((2↑𝐴) · 𝐵)) = ((1 σ (2↑𝐴)) · (1 σ 𝐵)))
194	149, 177, 1, 192, 193	syl13anc 1275	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 σ ((2↑𝐴) · 𝐵)) = ((1 σ (2↑𝐴)) · (1 σ 𝐵)))
195		pncan 8385	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐴 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐴 + 1) − 1) = 𝐴)
196	28, 27, 195	sylancl 413	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝐴 + 1) − 1) = 𝐴)
197	196	oveq2d 6034	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (2↑((𝐴 + 1) − 1)) = (2↑𝐴))
198	197	oveq2d 6034	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (1 σ (2↑((𝐴 + 1) − 1))) = (1 σ (2↑𝐴)))
199		1sgm2ppw 15722	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐴 + 1) ∈ ℕ → (1 σ (2↑((𝐴 + 1) − 1))) = ((2↑(𝐴 + 1)) − 1))
200	19, 199	syl 14	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (1 σ (2↑((𝐴 + 1) − 1))) = ((2↑(𝐴 + 1)) − 1))
201	198, 200	eqtr3d 2266	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 σ (2↑𝐴)) = ((2↑(𝐴 + 1)) − 1))
202	201	oveq1d 6033	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((1 σ (2↑𝐴)) · (1 σ 𝐵)) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
203	194, 5, 202	3eqtr3d 2272	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (2 · ((2↑𝐴) · 𝐵)) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
204	182, 184, 203	3eqtrd 2268	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
205	204	oveq1d 6033	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2↑(𝐴 + 1)) · 𝐵) / ((2↑(𝐴 + 1)) − 1)) = ((((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)) / ((2↑(𝐴 + 1)) − 1)))
206		1nn0 9418	. . . . . . . . . . . . . . . 16 ⊢ 1 ∈ ℕ₀
207		sgmnncl 15715	. . . . . . . . . . . . . . . 16 ⊢ ((1 ∈ ℕ₀ ∧ 𝐵 ∈ ℕ) → (1 σ 𝐵) ∈ ℕ)
208	206, 1, 207	sylancr 414	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (1 σ 𝐵) ∈ ℕ)
209	208	nncnd 9157	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1 σ 𝐵) ∈ ℂ)
210	209, 94, 95	divcanap3d 8975	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = (1 σ 𝐵))
211	205, 159, 210	3eqtr3d 2272	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) = (1 σ 𝐵))
212		sgmval 15710	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ 𝐵 ∈ ℕ) → (1 σ 𝐵) = Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} (𝑘↑_𝑐1))
213	27, 1, 212	sylancr 414	. . . . . . . . . . . 12 ⊢ (𝜑 → (1 σ 𝐵) = Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} (𝑘↑_𝑐1))
214		simpr 110	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵})
215	77, 214	sselid 3225	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℕ)
216	215	nnrpd 9929	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℝ⁺)
217	216	rpcxp1d 15652	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → (𝑘↑_𝑐1) = 𝑘)
218	217	sumeq2dv 11930	. . . . . . . . . . . 12 ⊢ (𝜑 → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} (𝑘↑_𝑐1) = Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘)
219	211, 213, 218	3eqtrrd 2269	. . . . . . . . . . 11 ⊢ (𝜑 → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
220	219	ad2antrr 488	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
221	118, 171, 220	3brtr3d 4119	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
222	36, 8	remulcld 8210	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℝ)
223	222	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℝ)
224	86	nnrpd 9929	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℝ⁺)
225	223, 224	ltaddrpd 9965	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛))
226	211, 208	eqeltrd 2308	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℕ)
227	226	nnzd 9601	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℤ)
228	227	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℤ)
229	226	adantr 276	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℕ)
230	229, 58	nnaddcld 9191	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ∈ ℕ)
231	230	nnzd 9601	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ∈ ℤ)
232	231	adantr 276	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ∈ ℤ)
233		zltnle 9525	. . . . . . . . . . 11 ⊢ ((((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℤ ∧ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ∈ ℤ) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ↔ ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
234	228, 232, 233	syl2anc 411	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ↔ ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
235	225, 234	mpbid 147	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
236	221, 235	condandc 888	. . . . . . . 8 ⊢ (DECID 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} → ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}))
237	73, 236	mpcom 36	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
238		elpri 3692	. . . . . . 7 ⊢ (𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))
239	237, 238	syl 14	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))
240	239	expr 375	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
241	240	ralrimiva 2605	. . . 4 ⊢ (𝜑 → ∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
242	2, 55	gtned 8292	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 ≠ 1)
243	242	necomd 2488	. . . . . . . . . 10 ⊢ (𝜑 → 1 ≠ 𝐵)
244	243	neneqd 2423	. . . . . . . . 9 ⊢ (𝜑 → ¬ 1 = 𝐵)
245		1dvds 12368	. . . . . . . . . . 11 ⊢ (𝐵 ∈ ℤ → 1 ∥ 𝐵)
246	64, 245	syl 14	. . . . . . . . . 10 ⊢ (𝜑 → 1 ∥ 𝐵)
247		breq1 4091	. . . . . . . . . . . 12 ⊢ (𝑛 = 1 → (𝑛 ∥ 𝐵 ↔ 1 ∥ 𝐵))
248		eqeq1 2238	. . . . . . . . . . . . 13 ⊢ (𝑛 = 1 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ↔ 1 = (𝐵 / ((2↑(𝐴 + 1)) − 1))))
249		eqeq1 2238	. . . . . . . . . . . . 13 ⊢ (𝑛 = 1 → (𝑛 = 𝐵 ↔ 1 = 𝐵))
250	248, 249	orbi12d 800	. . . . . . . . . . . 12 ⊢ (𝑛 = 1 → ((𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵) ↔ (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵)))
251	247, 250	imbi12d 234	. . . . . . . . . . 11 ⊢ (𝑛 = 1 → ((𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)) ↔ (1 ∥ 𝐵 → (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵))))
252		1nn 9154	. . . . . . . . . . . 12 ⊢ 1 ∈ ℕ
253	252	a1i 9	. . . . . . . . . . 11 ⊢ (𝜑 → 1 ∈ ℕ)
254	251, 241, 253	rspcdva 2915	. . . . . . . . . 10 ⊢ (𝜑 → (1 ∥ 𝐵 → (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵)))
255	246, 254	mpd 13	. . . . . . . . 9 ⊢ (𝜑 → (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵))
256	244, 255	ecased 1385	. . . . . . . 8 ⊢ (𝜑 → 1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
257	256	eqeq2d 2243	. . . . . . 7 ⊢ (𝜑 → (𝑛 = 1 ↔ 𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1))))
258	257	orbi1d 798	. . . . . 6 ⊢ (𝜑 → ((𝑛 = 1 ∨ 𝑛 = 𝐵) ↔ (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
259	258	imbi2d 230	. . . . 5 ⊢ (𝜑 → ((𝑛 ∥ 𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵)) ↔ (𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))))
260	259	ralbidv 2532	. . . 4 ⊢ (𝜑 → (∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵)) ↔ ∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))))
261	241, 260	mpbird 167	. . 3 ⊢ (𝜑 → ∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵)))
262		isprm2 12691	. . 3 ⊢ (𝐵 ∈ ℙ ↔ (𝐵 ∈ (ℤ_≥‘2) ∧ ∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵))))
263	57, 261, 262	sylanbrc 417	. 2 ⊢ (𝜑 → 𝐵 ∈ ℙ)
264		zdceq 9555	. . . 4 ⊢ ((𝐵 ∈ ℤ ∧ ((2↑(𝐴 + 1)) − 1) ∈ ℤ) → DECID 𝐵 = ((2↑(𝐴 + 1)) − 1))
265	64, 91, 264	syl2anc 411	. . 3 ⊢ (𝜑 → DECID 𝐵 = ((2↑(𝐴 + 1)) − 1))
266	222	ltp1d 9110	. . . 4 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
267	227	peano2zd 9605	. . . . 5 ⊢ (𝜑 → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ∈ ℤ)
268		zltnle 9525	. . . . 5 ⊢ ((((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℤ ∧ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ∈ ℤ) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ↔ ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
269	227, 267, 268	syl2anc 411	. . . 4 ⊢ (𝜑 → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ↔ ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
270	266, 269	mpbid 147	. . 3 ⊢ (𝜑 → ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
271	215	nnred 9156	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℝ)
272	215	nnnn0d 9455	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℕ₀)
273	272	nn0ge0d 9458	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 0 ≤ 𝑘)
274		df-tp 3677	. . . . . . . . . . 11 ⊢ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {1})
275		snssi 3817	. . . . . . . . . . . . 13 ⊢ (1 ∈ ℕ → {1} ⊆ ℕ)
276	252, 275	mp1i 10	. . . . . . . . . . . 12 ⊢ (𝜑 → {1} ⊆ ℕ)
277	84, 276	unssd 3383	. . . . . . . . . . 11 ⊢ (𝜑 → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {1}) ⊆ ℕ)
278	274, 277	eqsstrid 3273	. . . . . . . . . 10 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ⊆ ℕ)
279		breq1 4091	. . . . . . . . . . . . 13 ⊢ (𝑥 = 1 → (𝑥 ∥ 𝐵 ↔ 1 ∥ 𝐵))
280	246, 279	syl5ibrcom 157	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑥 = 1 → 𝑥 ∥ 𝐵))
281	99, 104, 280	3jaod 1340	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵 ∨ 𝑥 = 1) → 𝑥 ∥ 𝐵))
282		eltpi 3716	. . . . . . . . . . 11 ⊢ (𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵 ∨ 𝑥 = 1))
283	281, 282	impel 280	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}) → 𝑥 ∥ 𝐵)
284	278, 283	ssrabdv 3306	. . . . . . . . 9 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ⊆ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵})
285	60, 64, 18, 141	tpfidceq 7122	. . . . . . . . 9 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ∈ Fin)
286	75, 271, 273, 284, 285	fsumlessfi 12023	. . . . . . . 8 ⊢ (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 ≤ Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘)
287	286	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 ≤ Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘)
288	52, 94, 95	diveqap1ad 8979	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐵 / ((2↑(𝐴 + 1)) − 1)) = 1 ↔ 𝐵 = ((2↑(𝐴 + 1)) − 1)))
289	288	necon3bid 2443	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐵 / ((2↑(𝐴 + 1)) − 1)) ≠ 1 ↔ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)))
290	289	biimpar 297	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ≠ 1)
291	290	necomd 2488	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → 1 ≠ (𝐵 / ((2↑(𝐴 + 1)) − 1)))
292	243	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → 1 ≠ 𝐵)
293	291, 292	nelprd 3695	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → ¬ 1 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
294		disjsn 3731	. . . . . . . . . 10 ⊢ (({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {1}) = ∅ ↔ ¬ 1 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
295	293, 294	sylibr 134	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {1}) = ∅)
296	274	a1i 9	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {1}))
297	285	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ∈ Fin)
298	278	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ⊆ ℕ)
299	298	sselda 3227	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}) → 𝑘 ∈ ℕ)
300	299	nncnd 9157	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}) → 𝑘 ∈ ℂ)
301	295, 296, 297, 300	fsumsplit 11970	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 = (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {1}𝑘))
302		id 19	. . . . . . . . . . . 12 ⊢ (𝑘 = 1 → 𝑘 = 1)
303	302	sumsn 11974	. . . . . . . . . . 11 ⊢ ((1 ∈ ℝ ∧ 1 ∈ ℂ) → Σ𝑘 ∈ {1}𝑘 = 1)
304	2, 27, 303	sylancl 413	. . . . . . . . . 10 ⊢ (𝜑 → Σ𝑘 ∈ {1}𝑘 = 1)
305	164, 304	oveq12d 6036	. . . . . . . . 9 ⊢ (𝜑 → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {1}𝑘) = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
306	305	adantr 276	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {1}𝑘) = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
307	301, 306	eqtrd 2264	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
308	219	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
309	287, 307, 308	3brtr3d 4119	. . . . . 6 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
310	309	ex 115	. . . . 5 ⊢ (𝜑 → (𝐵 ≠ ((2↑(𝐴 + 1)) − 1) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
311	310	a1d 22	. . . 4 ⊢ (𝜑 → (DECID 𝐵 = ((2↑(𝐴 + 1)) − 1) → (𝐵 ≠ ((2↑(𝐴 + 1)) − 1) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))))
312	311	necon1bddc 2479	. . 3 ⊢ (𝜑 → (DECID 𝐵 = ((2↑(𝐴 + 1)) − 1) → (¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) → 𝐵 = ((2↑(𝐴 + 1)) − 1))))
313	265, 270, 312	mp2d 47	. 2 ⊢ (𝜑 → 𝐵 = ((2↑(𝐴 + 1)) − 1))
314	263, 313	jca 306	1 ⊢ (𝜑 → (𝐵 ∈ ℙ ∧ 𝐵 = ((2↑(𝐴 + 1)) − 1)))

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 715 DECID wdc 841 ∨ w3o 1003 = wceq 1397 ∈ wcel 2202 ≠ wne 2402 ∀wral 2510 {crab 2514 ∪ cun 3198 ∩ cin 3199 ⊆ wss 3200 ∅c0 3494 {csn 3669 {cpr 3670 {ctp 3671 class class class wbr 4088 ‘cfv 5326 (class class class)co 6018 Fincfn 6909 ℂcc 8030 ℝcr 8031 0cc0 8032 1c1 8033 + caddc 8035 · cmul 8037 < clt 8214 ≤ cle 8215 − cmin 8350 / cdiv 8852 ℕcn 9143 2c2 9194 ℕ₀cn0 9402 ℤcz 9479 ℤ_≥cuz 9755 ℝ⁺crp 9888 ↑cexp 10801 Σcsu 11915 ∥ cdvds 12350 gcd cgcd 12526 ℙcprime 12681 ↑_𝑐ccxp 15584 σ csgm 15708

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 619 ax-in2 620 ax-io 716 ax-5 1495 ax-7 1496 ax-gen 1497 ax-ie1 1541 ax-ie2 1542 ax-8 1552 ax-10 1553 ax-11 1554 ax-i12 1555 ax-bndl 1557 ax-4 1558 ax-17 1574 ax-i9 1578 ax-ial 1582 ax-i5r 1583 ax-13 2204 ax-14 2205 ax-ext 2213 ax-coll 4204 ax-sep 4207 ax-nul 4215 ax-pow 4264 ax-pr 4299 ax-un 4530 ax-setind 4635 ax-iinf 4686 ax-cnex 8123 ax-resscn 8124 ax-1cn 8125 ax-1re 8126 ax-icn 8127 ax-addcl 8128 ax-addrcl 8129 ax-mulcl 8130 ax-mulrcl 8131 ax-addcom 8132 ax-mulcom 8133 ax-addass 8134 ax-mulass 8135 ax-distr 8136 ax-i2m1 8137 ax-0lt1 8138 ax-1rid 8139 ax-0id 8140 ax-rnegex 8141 ax-precex 8142 ax-cnre 8143 ax-pre-ltirr 8144 ax-pre-ltwlin 8145 ax-pre-lttrn 8146 ax-pre-apti 8147 ax-pre-ltadd 8148 ax-pre-mulgt0 8149 ax-pre-mulext 8150 ax-arch 8151 ax-caucvg 8152 ax-pre-suploc 8153 ax-addf 8154 ax-mulf 8155

This theorem depends on definitions: df-bi 117 df-stab 838 df-dc 842 df-3or 1005 df-3an 1006 df-tru 1400 df-fal 1403 df-nf 1509 df-sb 1811 df-eu 2082 df-mo 2083 df-clab 2218 df-cleq 2224 df-clel 2227 df-nfc 2363 df-ne 2403 df-nel 2498 df-ral 2515 df-rex 2516 df-reu 2517 df-rmo 2518 df-rab 2519 df-v 2804 df-sbc 3032 df-csb 3128 df-dif 3202 df-un 3204 df-in 3206 df-ss 3213 df-nul 3495 df-if 3606 df-pw 3654 df-sn 3675 df-pr 3676 df-tp 3677 df-op 3678 df-uni 3894 df-int 3929 df-iun 3972 df-disj 4065 df-br 4089 df-opab 4151 df-mpt 4152 df-tr 4188 df-id 4390 df-po 4393 df-iso 4394 df-iord 4463 df-on 4465 df-ilim 4466 df-suc 4468 df-iom 4689 df-xp 4731 df-rel 4732 df-cnv 4733 df-co 4734 df-dm 4735 df-rn 4736 df-res 4737 df-ima 4738 df-iota 5286 df-fun 5328 df-fn 5329 df-f 5330 df-f1 5331 df-fo 5332 df-f1o 5333 df-fv 5334 df-isom 5335 df-riota 5971 df-ov 6021 df-oprab 6022 df-mpo 6023 df-of 6235 df-1st 6303 df-2nd 6304 df-recs 6471 df-irdg 6536 df-frec 6557 df-1o 6582 df-2o 6583 df-oadd 6586 df-er 6702 df-map 6819 df-pm 6820 df-en 6910 df-dom 6911 df-fin 6912 df-sup 7183 df-inf 7184 df-pnf 8216 df-mnf 8217 df-xr 8218 df-ltxr 8219 df-le 8220 df-sub 8352 df-neg 8353 df-reap 8755 df-ap 8762 df-div 8853 df-inn 9144 df-2 9202 df-3 9203 df-4 9204 df-n0 9403 df-xnn0 9466 df-z 9480 df-uz 9756 df-q 9854 df-rp 9889 df-xneg 10007 df-xadd 10008 df-ioo 10127 df-ico 10129 df-icc 10130 df-fz 10244 df-fzo 10378 df-fl 10531 df-mod 10586 df-seqfrec 10711 df-exp 10802 df-fac 10989 df-bc 11011 df-ihash 11039 df-shft 11377 df-cj 11404 df-re 11405 df-im 11406 df-rsqrt 11560 df-abs 11561 df-clim 11841 df-sumdc 11916 df-ef 12211 df-e 12212 df-dvds 12351 df-gcd 12527 df-prm 12682 df-pc 12860 df-rest 13326 df-topgen 13345 df-psmet 14560 df-xmet 14561 df-met 14562 df-bl 14563 df-mopn 14564 df-top 14725 df-topon 14738 df-bases 14770 df-ntr 14823 df-cn 14915 df-cnp 14916 df-tx 14980 df-cncf 15298 df-limced 15383 df-dvap 15384 df-relog 15585 df-rpcxp 15586 df-sgm 15709

This theorem is referenced by: perfect 15728

W3C validator