perfectALTVlem2 - Mathbox for Alexander van der Vekens

	Mathbox for Alexander van der Vekens		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > perfectALTVlem2		Structured version Visualization version GIF version

Theorem perfectALTVlem2 48819

Description: Lemma for perfectALTV 48820. (Contributed by Mario Carneiro, 17-May-2016.) (Revised by AV, 1-Jul-2020.)

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

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

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

Step	Hyp	Ref	Expression
1		perfectALTVlem.2	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℕ)
2		1re 11308	. . . . . 6 ⊢ 1 ∈ ℝ
3	2	a1i 11	. . . . 5 ⊢ (𝜑 → 1 ∈ ℝ)
4		perfectALTVlem.1	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ ℕ)
5		perfectALTVlem.3	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ Odd )
6		perfectALTVlem.4	. . . . . . . 8 ⊢ (𝜑 → (1 σ ((2↑𝐴) · 𝐵)) = (2 · ((2↑𝐴) · 𝐵)))
7	4, 1, 5, 6	perfectALTVlem1 48818	. . . . . . 7 ⊢ (𝜑 → ((2↑(𝐴 + 1)) ∈ ℕ ∧ ((2↑(𝐴 + 1)) − 1) ∈ ℕ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ))
8	7	simp3d 1162	. . . . . 6 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ)
9	8	nnred 12350	. . . . 5 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℝ)
10	1	nnred 12350	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ ℝ)
11	8	nnge1d 12386	. . . . 5 ⊢ (𝜑 → 1 ≤ (𝐵 / ((2↑(𝐴 + 1)) − 1)))
12		2cn 12418	. . . . . . . . . . 11 ⊢ 2 ∈ ℂ
13		exp1 14210	. . . . . . . . . . 11 ⊢ (2 ∈ ℂ → (2↑1) = 2)
14	12, 13	ax-mp 5	. . . . . . . . . 10 ⊢ (2↑1) = 2
15		df-2 12405	. . . . . . . . . 10 ⊢ 2 = (1 + 1)
16	14, 15	eqtri 2784	. . . . . . . . 9 ⊢ (2↑1) = (1 + 1)
17		2re 12417	. . . . . . . . . . 11 ⊢ 2 ∈ ℝ
18	17	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 2 ∈ ℝ)
19		1zzd 12727	. . . . . . . . . 10 ⊢ (𝜑 → 1 ∈ ℤ)
20	4	peano2nnd 12352	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 + 1) ∈ ℕ)
21	20	nnzd 12719	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 + 1) ∈ ℤ)
22		1lt2 12515	. . . . . . . . . . 11 ⊢ 1 < 2
23	22	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 1 < 2)
24	4	nnrpd 13162	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
25		ltaddrp 13159	. . . . . . . . . . . 12 ⊢ ((1 ∈ ℝ ∧ 𝐴 ∈ ℝ⁺) → 1 < (1 + 𝐴))
26	2, 24, 25	sylancr 599	. . . . . . . . . . 11 ⊢ (𝜑 → 1 < (1 + 𝐴))
27		ax-1cn 11258	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
28	4	nncnd 12351	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ ℂ)
29		addcom 11496	. . . . . . . . . . . 12 ⊢ ((1 ∈ ℂ ∧ 𝐴 ∈ ℂ) → (1 + 𝐴) = (𝐴 + 1))
30	27, 28, 29	sylancr 599	. . . . . . . . . . 11 ⊢ (𝜑 → (1 + 𝐴) = (𝐴 + 1))
31	26, 30	breqtrd 5131	. . . . . . . . . 10 ⊢ (𝜑 → 1 < (𝐴 + 1))
32		ltexp2a 14309	. . . . . . . . . 10 ⊢ (((2 ∈ ℝ ∧ 1 ∈ ℤ ∧ (𝐴 + 1) ∈ ℤ) ∧ (1 < 2 ∧ 1 < (𝐴 + 1))) → (2↑1) < (2↑(𝐴 + 1)))
33	18, 19, 21, 23, 31, 32	syl32anc 1405	. . . . . . . . 9 ⊢ (𝜑 → (2↑1) < (2↑(𝐴 + 1)))
34	16, 33	eqbrtrrid 5141	. . . . . . . 8 ⊢ (𝜑 → (1 + 1) < (2↑(𝐴 + 1)))
35	7	simp1d 1160	. . . . . . . . . 10 ⊢ (𝜑 → (2↑(𝐴 + 1)) ∈ ℕ)
36	35	nnred 12350	. . . . . . . . 9 ⊢ (𝜑 → (2↑(𝐴 + 1)) ∈ ℝ)
37	3, 3, 36	ltaddsubd 11916	. . . . . . . 8 ⊢ (𝜑 → ((1 + 1) < (2↑(𝐴 + 1)) ↔ 1 < ((2↑(𝐴 + 1)) − 1)))
38	34, 37	mpbid 235	. . . . . . 7 ⊢ (𝜑 → 1 < ((2↑(𝐴 + 1)) − 1))
39		1rp 13124	. . . . . . . . 9 ⊢ 1 ∈ ℝ⁺
40	39	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℝ⁺)
41		peano2rem 11625	. . . . . . . . . . 11 ⊢ ((2↑(𝐴 + 1)) ∈ ℝ → ((2↑(𝐴 + 1)) − 1) ∈ ℝ)
42	36, 41	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℝ)
43		expgt1 14243	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℝ ∧ (𝐴 + 1) ∈ ℕ ∧ 1 < 2) → 1 < (2↑(𝐴 + 1)))
44	18, 20, 23, 43	syl3anc 1398	. . . . . . . . . . 11 ⊢ (𝜑 → 1 < (2↑(𝐴 + 1)))
45		posdif 11809	. . . . . . . . . . . 12 ⊢ ((1 ∈ ℝ ∧ (2↑(𝐴 + 1)) ∈ ℝ) → (1 < (2↑(𝐴 + 1)) ↔ 0 < ((2↑(𝐴 + 1)) − 1)))
46	2, 36, 45	sylancr 599	. . . . . . . . . . 11 ⊢ (𝜑 → (1 < (2↑(𝐴 + 1)) ↔ 0 < ((2↑(𝐴 + 1)) − 1)))
47	44, 46	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → 0 < ((2↑(𝐴 + 1)) − 1))
48	42, 47	jca 521	. . . . . . . . 9 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) ∈ ℝ ∧ 0 < ((2↑(𝐴 + 1)) − 1)))
49		elrp 13122	. . . . . . . . 9 ⊢ (((2↑(𝐴 + 1)) − 1) ∈ ℝ⁺ ↔ (((2↑(𝐴 + 1)) − 1) ∈ ℝ ∧ 0 < ((2↑(𝐴 + 1)) − 1)))
50	48, 49	sylibr 237	. . . . . . . 8 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℝ⁺)
51		nnrp 13132	. . . . . . . . 9 ⊢ (𝐵 ∈ ℕ → 𝐵 ∈ ℝ⁺)
52	1, 51	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ ℝ⁺)
53	40, 50, 52	ltdiv2d 13187	. . . . . . 7 ⊢ (𝜑 → (1 < ((2↑(𝐴 + 1)) − 1) ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) < (𝐵 / 1)))
54	38, 53	mpbid 235	. . . . . 6 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) < (𝐵 / 1))
55	1	nncnd 12351	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℂ)
56	55	div1d 12085	. . . . . 6 ⊢ (𝜑 → (𝐵 / 1) = 𝐵)
57	54, 56	breqtrd 5131	. . . . 5 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) < 𝐵)
58	3, 9, 10, 11, 57	lelttrd 11468	. . . 4 ⊢ (𝜑 → 1 < 𝐵)
59		eluz2b2 13048	. . . 4 ⊢ (𝐵 ∈ (ℤ_≥‘2) ↔ (𝐵 ∈ ℕ ∧ 1 < 𝐵))
60	1, 58, 59	sylanbrc 595	. . 3 ⊢ (𝜑 → 𝐵 ∈ (ℤ_≥‘2))
61		fzfid 14116	. . . . . . . . . . . 12 ⊢ (𝜑 → (1...𝐵) ∈ Fin)
62		dvdsssfz1 16488	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ ℕ → {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ⊆ (1...𝐵))
63	1, 62	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ⊆ (1...𝐵))
64		ssfi 9188	. . . . . . . . . . . 12 ⊢ (((1...𝐵) ∈ Fin ∧ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ⊆ (1...𝐵)) → {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ∈ Fin)
65	61, 63, 64	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ∈ Fin)
66	65	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ∈ Fin)
67		ssrab2 4028	. . . . . . . . . . . . 13 ⊢ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ⊆ ℕ
68	67	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} ⊆ ℕ)
69	68	sselda 3931	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℕ)
70	69	nnred 12350	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℝ)
71	69	nnnn0d 12667	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℕ₀)
72	71	nn0ge0d 12670	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 0 ≤ 𝑘)
73		df-tp 4589	. . . . . . . . . . . 12 ⊢ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {𝑛})
74		prssi 4782	. . . . . . . . . . . . . . 15 ⊢ (((𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ ∧ 𝐵 ∈ ℕ) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ⊆ ℕ)
75	8, 1, 74	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ⊆ ℕ)
76	75	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ⊆ ℕ)
77		simplrl 789	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℕ)
78	77	snssd 4747	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {𝑛} ⊆ ℕ)
79	76, 78	unssd 4138	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {𝑛}) ⊆ ℕ)
80	73, 79	eqsstrid 3969	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ⊆ ℕ)
81		eltpi 4649	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵 ∨ 𝑥 = 𝑛))
82	7	simp2d 1161	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℕ)
83	82	nnzd 12719	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℤ)
84	8	nnzd 12719	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℤ)
85		dvdsmul2 16448	. . . . . . . . . . . . . . . . . 18 ⊢ ((((2↑(𝐴 + 1)) − 1) ∈ ℤ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℤ) → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ (((2↑(𝐴 + 1)) − 1) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
86	83, 84, 85	syl2anc 596	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ (((2↑(𝐴 + 1)) − 1) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
87	82	nncnd 12351	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℂ)
88	82	nnne0d 12388	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ≠ 0)
89	55, 87, 88	divcan2d 12095	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) = 𝐵)
90	86, 89	breqtrd 5131	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ 𝐵)
91		breq1 5106	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → (𝑥 ∥ 𝐵 ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∥ 𝐵))
92	90, 91	syl5ibrcom 250	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 𝑥 ∥ 𝐵))
93	92	ad2antrr 739	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 𝑥 ∥ 𝐵))
94	1	nnzd 12719	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐵 ∈ ℤ)
95		iddvds 16439	. . . . . . . . . . . . . . . . 17 ⊢ (𝐵 ∈ ℤ → 𝐵 ∥ 𝐵)
96	94, 95	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐵 ∥ 𝐵)
97		breq1 5106	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝐵 → (𝑥 ∥ 𝐵 ↔ 𝐵 ∥ 𝐵))
98	96, 97	syl5ibrcom 250	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑥 = 𝐵 → 𝑥 ∥ 𝐵))
99	98	ad2antrr 739	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (𝑥 = 𝐵 → 𝑥 ∥ 𝐵))
100		simplrr 790	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∥ 𝐵)
101		breq1 5106	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑛 → (𝑥 ∥ 𝐵 ↔ 𝑛 ∥ 𝐵))
102	100, 101	syl5ibrcom 250	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (𝑥 = 𝑛 → 𝑥 ∥ 𝐵))
103	93, 99, 102	3jaod 1456	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ((𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵 ∨ 𝑥 = 𝑛) → 𝑥 ∥ 𝐵))
104	81, 103	syl5 35	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} → 𝑥 ∥ 𝐵))
105	104	imp 412	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}) → 𝑥 ∥ 𝐵)
106	80, 105	ssrabdv 4021	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ⊆ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵})
107	66, 70, 72, 106	fsumless 15963	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}𝑘 ≤ Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘)
108		simpr 490	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
109		disjsn 4672	. . . . . . . . . . . 12 ⊢ (({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {𝑛}) = ∅ ↔ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
110	108, 109	sylibr 237	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {𝑛}) = ∅)
111	73	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {𝑛}))
112		tpfi 9317	. . . . . . . . . . . 12 ⊢ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ∈ Fin
113	112	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛} ∈ Fin)
114	80	sselda 3931	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}) → 𝑘 ∈ ℕ)
115	114	nncnd 12351	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}) → 𝑘 ∈ ℂ)
116	110, 111, 113, 115	fsumsplit 15907	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}𝑘 = (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {𝑛}𝑘))
117	8	nncnd 12351	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℂ)
118		id 23	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
119	118	sumsn 15912	. . . . . . . . . . . . . . 15 ⊢ (((𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℂ) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
120	8, 117, 119	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
121		id 23	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = 𝐵 → 𝑘 = 𝐵)
122	121	sumsn 15912	. . . . . . . . . . . . . . 15 ⊢ ((𝐵 ∈ ℕ ∧ 𝐵 ∈ ℂ) → Σ𝑘 ∈ {𝐵}𝑘 = 𝐵)
123	1, 55, 122	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (𝜑 → Σ𝑘 ∈ {𝐵}𝑘 = 𝐵)
124	120, 123	oveq12d 7438	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 + Σ𝑘 ∈ {𝐵}𝑘) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + 𝐵))
125		incom 4155	. . . . . . . . . . . . . . 15 ⊢ ({𝐵} ∩ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}) = ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∩ {𝐵})
126	9, 57	gtned 11445	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐵 ≠ (𝐵 / ((2↑(𝐴 + 1)) − 1)))
127		disjsn2 4673	. . . . . . . . . . . . . . . 16 ⊢ (𝐵 ≠ (𝐵 / ((2↑(𝐴 + 1)) − 1)) → ({𝐵} ∩ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}) = ∅)
128	126, 127	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ({𝐵} ∩ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}) = ∅)
129	125, 128	eqtr3id 2810	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∩ {𝐵}) = ∅)
130		df-pr 4587	. . . . . . . . . . . . . . 15 ⊢ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∪ {𝐵})
131	130	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1))} ∪ {𝐵}))
132		prfi 9315	. . . . . . . . . . . . . . 15 ⊢ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∈ Fin
133	132	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∈ Fin)
134	75	sselda 3931	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑘 ∈ ℕ)
135	134	nncnd 12351	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑘 ∈ ℂ)
136	129, 131, 133, 135	fsumsplit 15907	. . . . . . . . . . . . 13 ⊢ (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 = (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1))}𝑘 + Σ𝑘 ∈ {𝐵}𝑘))
137	87, 55	mulcld 11329	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) · 𝐵) ∈ ℂ)
138	55, 137, 87, 88	divdird 12131	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + ((((2↑(𝐴 + 1)) − 1) · 𝐵) / ((2↑(𝐴 + 1)) − 1))))
139	35	nncnd 12351	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (2↑(𝐴 + 1)) ∈ ℂ)
140	27	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 1 ∈ ℂ)
141	139, 140, 55	subdird 11773	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) · 𝐵) = (((2↑(𝐴 + 1)) · 𝐵) − (1 · 𝐵)))
142	55	mullidd 11327	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1 · 𝐵) = 𝐵)
143	142	oveq2d 7436	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((2↑(𝐴 + 1)) · 𝐵) − (1 · 𝐵)) = (((2↑(𝐴 + 1)) · 𝐵) − 𝐵))
144	141, 143	eqtrd 2796	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) · 𝐵) = (((2↑(𝐴 + 1)) · 𝐵) − 𝐵))
145	144	oveq2d 7436	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) = (𝐵 + (((2↑(𝐴 + 1)) · 𝐵) − 𝐵)))
146	139, 55	mulcld 11329	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) ∈ ℂ)
147	55, 146	pncan3d 11672	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐵 + (((2↑(𝐴 + 1)) · 𝐵) − 𝐵)) = ((2↑(𝐴 + 1)) · 𝐵))
148	145, 147	eqtrd 2796	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) = ((2↑(𝐴 + 1)) · 𝐵))
149	148	oveq1d 7435	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = (((2↑(𝐴 + 1)) · 𝐵) / ((2↑(𝐴 + 1)) − 1)))
150	139, 55, 87, 88	divassd 12128	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((2↑(𝐴 + 1)) · 𝐵) / ((2↑(𝐴 + 1)) − 1)) = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
151	149, 150	eqtrd 2796	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐵 + (((2↑(𝐴 + 1)) − 1) · 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
152	55, 87, 88	divcan3d 12098	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((((2↑(𝐴 + 1)) − 1) · 𝐵) / ((2↑(𝐴 + 1)) − 1)) = 𝐵)
153	152	oveq2d 7436	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + ((((2↑(𝐴 + 1)) − 1) · 𝐵) / ((2↑(𝐴 + 1)) − 1))) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + 𝐵))
154	138, 151, 153	3eqtr3d 2804	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) = ((𝐵 / ((2↑(𝐴 + 1)) − 1)) + 𝐵))
155	124, 136, 154	3eqtr4d 2806	. . . . . . . . . . . 12 ⊢ (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
156	155	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
157	77	nncnd 12351	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℂ)
158		id 23	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑛 → 𝑘 = 𝑛)
159	158	sumsn 15912	. . . . . . . . . . . 12 ⊢ ((𝑛 ∈ ℂ ∧ 𝑛 ∈ ℂ) → Σ𝑘 ∈ {𝑛}𝑘 = 𝑛)
160	157, 157, 159	syl2anc 596	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {𝑛}𝑘 = 𝑛)
161	156, 160	oveq12d 7438	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {𝑛}𝑘) = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛))
162	116, 161	eqtrd 2796	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 𝑛}𝑘 = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛))
163	4	nnnn0d 12667	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
164		expp1 14211	. . . . . . . . . . . . . . . . 17 ⊢ ((2 ∈ ℂ ∧ 𝐴 ∈ ℕ₀) → (2↑(𝐴 + 1)) = ((2↑𝐴) · 2))
165	12, 163, 164	sylancr 599	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (2↑(𝐴 + 1)) = ((2↑𝐴) · 2))
166		2nn 12416	. . . . . . . . . . . . . . . . . . 19 ⊢ 2 ∈ ℕ
167		nnexpcl 14217	. . . . . . . . . . . . . . . . . . 19 ⊢ ((2 ∈ ℕ ∧ 𝐴 ∈ ℕ₀) → (2↑𝐴) ∈ ℕ)
168	166, 163, 167	sylancr 599	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (2↑𝐴) ∈ ℕ)
169	168	nncnd 12351	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2↑𝐴) ∈ ℂ)
170		mulcom 11286	. . . . . . . . . . . . . . . . 17 ⊢ (((2↑𝐴) ∈ ℂ ∧ 2 ∈ ℂ) → ((2↑𝐴) · 2) = (2 · (2↑𝐴)))
171	169, 12, 170	sylancl 598	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2↑𝐴) · 2) = (2 · (2↑𝐴)))
172	165, 171	eqtrd 2796	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (2↑(𝐴 + 1)) = (2 · (2↑𝐴)))
173	172	oveq1d 7435	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) = ((2 · (2↑𝐴)) · 𝐵))
174	12	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 2 ∈ ℂ)
175	174, 169, 55	mulassd 11332	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((2 · (2↑𝐴)) · 𝐵) = (2 · ((2↑𝐴) · 𝐵)))
176		isodd7 48762	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐵 ∈ Odd ↔ (𝐵 ∈ ℤ ∧ (2 gcd 𝐵) = 1))
177		simpr 490	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐵 ∈ ℤ ∧ (2 gcd 𝐵) = 1) → (2 gcd 𝐵) = 1)
178	176, 177	sylbi 220	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐵 ∈ Odd → (2 gcd 𝐵) = 1)
179	5, 178	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2 gcd 𝐵) = 1)
180		2z 12728	. . . . . . . . . . . . . . . . . . 19 ⊢ 2 ∈ ℤ
181	180	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 2 ∈ ℤ)
182		rpexp1i 16899	. . . . . . . . . . . . . . . . . 18 ⊢ ((2 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐴 ∈ ℕ₀) → ((2 gcd 𝐵) = 1 → ((2↑𝐴) gcd 𝐵) = 1))
183	181, 94, 163, 182	syl3anc 1398	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((2 gcd 𝐵) = 1 → ((2↑𝐴) gcd 𝐵) = 1))
184	179, 183	mpd 16	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2↑𝐴) gcd 𝐵) = 1)
185		sgmmul 27528	. . . . . . . . . . . . . . . 16 ⊢ ((1 ∈ ℂ ∧ ((2↑𝐴) ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ ((2↑𝐴) gcd 𝐵) = 1)) → (1 σ ((2↑𝐴) · 𝐵)) = ((1 σ (2↑𝐴)) · (1 σ 𝐵)))
186	140, 168, 1, 184, 185	syl13anc 1399	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (1 σ ((2↑𝐴) · 𝐵)) = ((1 σ (2↑𝐴)) · (1 σ 𝐵)))
187		pncan 11563	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐴 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝐴 + 1) − 1) = 𝐴)
188	28, 27, 187	sylancl 598	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐴 + 1) − 1) = 𝐴)
189	188	oveq2d 7436	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (2↑((𝐴 + 1) − 1)) = (2↑𝐴))
190	189	oveq2d 7436	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 σ (2↑((𝐴 + 1) − 1))) = (1 σ (2↑𝐴)))
191		1sgm2ppw 27527	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐴 + 1) ∈ ℕ → (1 σ (2↑((𝐴 + 1) − 1))) = ((2↑(𝐴 + 1)) − 1))
192	20, 191	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (1 σ (2↑((𝐴 + 1) − 1))) = ((2↑(𝐴 + 1)) − 1))
193	190, 192	eqtr3d 2798	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 σ (2↑𝐴)) = ((2↑(𝐴 + 1)) − 1))
194	193	oveq1d 7435	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((1 σ (2↑𝐴)) · (1 σ 𝐵)) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
195	186, 6, 194	3eqtr3d 2804	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (2 · ((2↑𝐴) · 𝐵)) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
196	173, 175, 195	3eqtrd 2800	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
197	196	oveq1d 7435	. . . . . . . . . . . 12 ⊢ (𝜑 → (((2↑(𝐴 + 1)) · 𝐵) / ((2↑(𝐴 + 1)) − 1)) = ((((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)) / ((2↑(𝐴 + 1)) − 1)))
198		1nn0 12622	. . . . . . . . . . . . . . 15 ⊢ 1 ∈ ℕ₀
199		sgmnncl 27474	. . . . . . . . . . . . . . 15 ⊢ ((1 ∈ ℕ₀ ∧ 𝐵 ∈ ℕ) → (1 σ 𝐵) ∈ ℕ)
200	198, 1, 199	sylancr 599	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1 σ 𝐵) ∈ ℕ)
201	200	nncnd 12351	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 σ 𝐵) ∈ ℂ)
202	201, 87, 88	divcan3d 12098	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)) / ((2↑(𝐴 + 1)) − 1)) = (1 σ 𝐵))
203	197, 150, 202	3eqtr3d 2804	. . . . . . . . . . 11 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) = (1 σ 𝐵))
204		sgmval 27469	. . . . . . . . . . . 12 ⊢ ((1 ∈ ℂ ∧ 𝐵 ∈ ℕ) → (1 σ 𝐵) = Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} (𝑘↑_𝑐1))
205	27, 1, 204	sylancr 599	. . . . . . . . . . 11 ⊢ (𝜑 → (1 σ 𝐵) = Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} (𝑘↑_𝑐1))
206		simpr 490	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵})
207	67, 206	sselid 3929	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℕ)
208	207	nncnd 12351	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℂ)
209	208	cxp1d 27034	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → (𝑘↑_𝑐1) = 𝑘)
210	209	sumeq2dv 15869	. . . . . . . . . . 11 ⊢ (𝜑 → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵} (𝑘↑_𝑐1) = Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘)
211	203, 205, 210	3eqtrrd 2801	. . . . . . . . . 10 ⊢ (𝜑 → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
212	211	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
213	107, 162, 212	3brtr3d 5136	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
214	36, 9	remulcld 11339	. . . . . . . . . . 11 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℝ)
215	214	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℝ)
216	77	nnrpd 13162	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℝ⁺)
217	215, 216	ltaddrpd 13197	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛))
218	77	nnred 12350	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → 𝑛 ∈ ℝ)
219	215, 218	readdcld 11338	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ∈ ℝ)
220	215, 219	ltnled 11457	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ↔ ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
221	217, 220	mpbid 235	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) ∧ ¬ 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}) → ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 𝑛) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
222	213, 221	condan 830	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → 𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
223		elpri 4608	. . . . . . 7 ⊢ (𝑛 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))
224	222, 223	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ ∧ 𝑛 ∥ 𝐵)) → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))
225	224	expr 462	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
226	225	ralrimiva 3155	. . . 4 ⊢ (𝜑 → ∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
227	3, 58	gtned 11445	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ≠ 1)
228	227	necomd 3011	. . . . . . . . 9 ⊢ (𝜑 → 1 ≠ 𝐵)
229		1nn 12346	. . . . . . . . . . . . 13 ⊢ 1 ∈ ℕ
230	229	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℕ)
231		1dvds 16440	. . . . . . . . . . . . 13 ⊢ (𝐵 ∈ ℤ → 1 ∥ 𝐵)
232	94, 231	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∥ 𝐵)
233		breq1 5106	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 1 → (𝑛 ∥ 𝐵 ↔ 1 ∥ 𝐵))
234		eqeq1 2765	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 1 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ↔ 1 = (𝐵 / ((2↑(𝐴 + 1)) − 1))))
235		eqeq1 2765	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 1 → (𝑛 = 𝐵 ↔ 1 = 𝐵))
236	234, 235	orbi12d 932	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 1 → ((𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵) ↔ (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵)))
237	233, 236	imbi12d 347	. . . . . . . . . . . . 13 ⊢ (𝑛 = 1 → ((𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)) ↔ (1 ∥ 𝐵 → (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵))))
238	237	rspcv 3573	. . . . . . . . . . . 12 ⊢ (1 ∈ ℕ → (∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)) → (1 ∥ 𝐵 → (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵))))
239	230, 226, 232, 238	syl3c 67	. . . . . . . . . . 11 ⊢ (𝜑 → (1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 1 = 𝐵))
240	239	ord 878	. . . . . . . . . 10 ⊢ (𝜑 → (¬ 1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) → 1 = 𝐵))
241	240	necon1ad 2973	. . . . . . . . 9 ⊢ (𝜑 → (1 ≠ 𝐵 → 1 = (𝐵 / ((2↑(𝐴 + 1)) − 1))))
242	228, 241	mpd 16	. . . . . . . 8 ⊢ (𝜑 → 1 = (𝐵 / ((2↑(𝐴 + 1)) − 1)))
243	242	eqeq2d 2772	. . . . . . 7 ⊢ (𝜑 → (𝑛 = 1 ↔ 𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1))))
244	243	orbi1d 930	. . . . . 6 ⊢ (𝜑 → ((𝑛 = 1 ∨ 𝑛 = 𝐵) ↔ (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵)))
245	244	imbi2d 343	. . . . 5 ⊢ (𝜑 → ((𝑛 ∥ 𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵)) ↔ (𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))))
246	245	ralbidv 3186	. . . 4 ⊢ (𝜑 → (∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵)) ↔ ∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑛 = 𝐵))))
247	226, 246	mpbird 260	. . 3 ⊢ (𝜑 → ∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵)))
248		isprm2 16857	. . 3 ⊢ (𝐵 ∈ ℙ ↔ (𝐵 ∈ (ℤ_≥‘2) ∧ ∀𝑛 ∈ ℕ (𝑛 ∥ 𝐵 → (𝑛 = 1 ∨ 𝑛 = 𝐵))))
249	60, 247, 248	sylanbrc 595	. 2 ⊢ (𝜑 → 𝐵 ∈ ℙ)
250	214	ltp1d 12247	. . . 4 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
251		peano2re 11483	. . . . . 6 ⊢ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) ∈ ℝ → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ∈ ℝ)
252	214, 251	syl 18	. . . . 5 ⊢ (𝜑 → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ∈ ℝ)
253	214, 252	ltnled 11457	. . . 4 ⊢ (𝜑 → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) < (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ↔ ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
254	250, 253	mpbid 235	. . 3 ⊢ (𝜑 → ¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
255	207	nnred 12350	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℝ)
256	207	nnnn0d 12667	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 𝑘 ∈ ℕ₀)
257	256	nn0ge0d 12670	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}) → 0 ≤ 𝑘)
258		df-tp 4589	. . . . . . . . . 10 ⊢ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {1})
259		snssi 4746	. . . . . . . . . . . 12 ⊢ (1 ∈ ℕ → {1} ⊆ ℕ)
260	229, 259	mp1i 14	. . . . . . . . . . 11 ⊢ (𝜑 → {1} ⊆ ℕ)
261	75, 260	unssd 4138	. . . . . . . . . 10 ⊢ (𝜑 → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {1}) ⊆ ℕ)
262	258, 261	eqsstrid 3969	. . . . . . . . 9 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ⊆ ℕ)
263		eltpi 4649	. . . . . . . . . . 11 ⊢ (𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} → (𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵 ∨ 𝑥 = 1))
264		breq1 5106	. . . . . . . . . . . . 13 ⊢ (𝑥 = 1 → (𝑥 ∥ 𝐵 ↔ 1 ∥ 𝐵))
265	232, 264	syl5ibrcom 250	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑥 = 1 → 𝑥 ∥ 𝐵))
266	92, 98, 265	3jaod 1456	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑥 = (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∨ 𝑥 = 𝐵 ∨ 𝑥 = 1) → 𝑥 ∥ 𝐵))
267	263, 266	syl5 35	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} → 𝑥 ∥ 𝐵))
268	267	imp 412	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}) → 𝑥 ∥ 𝐵)
269	262, 268	ssrabdv 4021	. . . . . . . 8 ⊢ (𝜑 → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ⊆ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵})
270	65, 255, 257, 269	fsumless 15963	. . . . . . 7 ⊢ (𝜑 → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 ≤ Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘)
271	270	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 ≤ Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘)
272	55, 87, 88	diveq1ad 12102	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐵 / ((2↑(𝐴 + 1)) − 1)) = 1 ↔ 𝐵 = ((2↑(𝐴 + 1)) − 1)))
273	272	necon3bid 3000	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐵 / ((2↑(𝐴 + 1)) − 1)) ≠ 1 ↔ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)))
274	273	biimpar 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ≠ 1)
275	274	necomd 3011	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → 1 ≠ (𝐵 / ((2↑(𝐴 + 1)) − 1)))
276	228	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → 1 ≠ 𝐵)
277	275, 276	nelprd 4618	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → ¬ 1 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
278		disjsn 4672	. . . . . . . . 9 ⊢ (({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {1}) = ∅ ↔ ¬ 1 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵})
279	277, 278	sylibr 237	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∩ {1}) = ∅)
280	258	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} = ({(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵} ∪ {1}))
281		tpfi 9317	. . . . . . . . 9 ⊢ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ∈ Fin
282	281	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ∈ Fin)
283	262	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1} ⊆ ℕ)
284	283	sselda 3931	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}) → 𝑘 ∈ ℕ)
285	284	nncnd 12351	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) ∧ 𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}) → 𝑘 ∈ ℂ)
286	279, 280, 282, 285	fsumsplit 15907	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 = (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {1}𝑘))
287		id 23	. . . . . . . . . . 11 ⊢ (𝑘 = 1 → 𝑘 = 1)
288	287	sumsn 15912	. . . . . . . . . 10 ⊢ ((1 ∈ ℂ ∧ 1 ∈ ℂ) → Σ𝑘 ∈ {1}𝑘 = 1)
289	140, 27, 288	sylancl 598	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑘 ∈ {1}𝑘 = 1)
290	155, 289	oveq12d 7438	. . . . . . . 8 ⊢ (𝜑 → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {1}𝑘) = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
291	290	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → (Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵}𝑘 + Σ𝑘 ∈ {1}𝑘) = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
292	286, 291	eqtrd 2796	. . . . . 6 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {(𝐵 / ((2↑(𝐴 + 1)) − 1)), 𝐵, 1}𝑘 = (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1))
293	211	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → Σ𝑘 ∈ {𝑥 ∈ ℕ ∣ 𝑥 ∥ 𝐵}𝑘 = ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
294	271, 292, 293	3brtr3d 5136	. . . . 5 ⊢ ((𝜑 ∧ 𝐵 ≠ ((2↑(𝐴 + 1)) − 1)) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))))
295	294	ex 418	. . . 4 ⊢ (𝜑 → (𝐵 ≠ ((2↑(𝐴 + 1)) − 1) → (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1)))))
296	295	necon1bd 2974	. . 3 ⊢ (𝜑 → (¬ (((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) + 1) ≤ ((2↑(𝐴 + 1)) · (𝐵 / ((2↑(𝐴 + 1)) − 1))) → 𝐵 = ((2↑(𝐴 + 1)) − 1)))
297	254, 296	mpd 16	. 2 ⊢ (𝜑 → 𝐵 = ((2↑(𝐴 + 1)) − 1))
298	249, 297	jca 521	1 ⊢ (𝜑 → (𝐵 ∈ ℙ ∧ 𝐵 = ((2↑(𝐴 + 1)) − 1)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 ∨ wo 861 ∨ w3o 1102 = wceq 1570 ∈ wcel 2145 ≠ wne 2956 ∀wral 3077 {crab 3413 ∪ cun 3897 ∩ cin 3898 ⊆ wss 3899 ∅c0 4279 {csn 4584 {cpr 4586 {ctp 4588 class class class wbr 5103 ‘cfv 6538 (class class class)co 7420 Fincfn 8973 ℂcc 11198 ℝcr 11199 0cc0 11200 1c1 11201 + caddc 11203 · cmul 11205 < clt 11343 ≤ cle 11344 − cmin 11541 / cdiv 11973 ℕcn 12335 2c2 12397 ℕ₀cn0 12606 ℤcz 12693 ℤ_≥cuz 12965 ℝ⁺crp 13120 ...cfz 13639 ↑cexp 14204 Σcsu 15853 ∥ cdvds 16422 gcd cgcd 16664 ℙcprime 16846 ↑_𝑐ccxp 26883 σ csgm 27423 Odd codd 48722

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2733 ax-rep 5232 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7751 ax-inf2 9642 ax-cnex 11256 ax-resscn 11257 ax-1cn 11258 ax-icn 11259 ax-addcl 11260 ax-addrcl 11261 ax-mulcl 11262 ax-mulrcl 11263 ax-mulcom 11264 ax-addass 11265 ax-mulass 11266 ax-distr 11267 ax-i2m1 11268 ax-1ne0 11269 ax-1rid 11270 ax-rnegex 11271 ax-rrecex 11272 ax-cnre 11273 ax-pre-lttri 11274 ax-pre-lttrn 11275 ax-pre-ltadd 11276 ax-pre-mulgt0 11277 ax-pre-sup 11278 ax-addf 11279

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3063 df-ral 3078 df-rex 3088 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3453 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4591 df-uni 4868 df-int 4908 df-iun 4953 df-iin 4954 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-se 5605 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6304 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6494 df-fun 6540 df-fn 6541 df-f 6542 df-f1 6543 df-fo 6544 df-f1o 6545 df-fv 6546 df-isom 6547 df-riota 7377 df-ov 7423 df-oprab 7424 df-mpo 7425 df-of 7693 df-om 7878 df-1st 8001 df-2nd 8002 df-supp 8178 df-frecs 8299 df-wrecs 8330 df-recs 8379 df-rdg 8418 df-1o 8476 df-2o 8477 df-er 8717 df-map 8849 df-pm 8850 df-ixp 8926 df-en 8974 df-dom 8975 df-sdom 8976 df-fin 8977 df-fsupp 9354 df-fi 9403 df-sup 9434 df-inf 9435 df-oi 9504 df-card 10020 df-pnf 11345 df-mnf 11346 df-xr 11347 df-ltxr 11348 df-le 11349 df-sub 11543 df-neg 11544 df-div 11974 df-nn 12336 df-2 12405 df-3 12406 df-4 12407 df-5 12408 df-6 12409 df-7 12410 df-8 12411 df-9 12412 df-n0 12607 df-z 12694 df-dec 12815 df-uz 12966 df-q 13076 df-rp 13121 df-xneg 13241 df-xadd 13242 df-xmul 13243 df-ioo 13480 df-ioc 13481 df-ico 13482 df-icc 13483 df-fz 13640 df-fzo 13789 df-fl 13932 df-mod 14010 df-seq 14145 df-exp 14205 df-fac 14418 df-bc 14447 df-hash 14475 df-shft 15220 df-cj 15266 df-re 15267 df-im 15268 df-sqrt 15402 df-abs 15403 df-limsup 15638 df-clim 15655 df-rlim 15656 df-sum 15854 df-ef 16233 df-sin 16235 df-cos 16236 df-pi 16238 df-dvds 16423 df-gcd 16665 df-prm 16847 df-pc 17015 df-struct 17325 df-sets 17342 df-slot 17360 df-ndx 17372 df-base 17388 df-ress 17409 df-plusg 17441 df-mulr 17442 df-starv 17443 df-sca 17444 df-vsca 17445 df-ip 17446 df-tset 17447 df-ple 17448 df-ds 17450 df-unif 17451 df-hom 17452 df-cco 17453 df-rest 17593 df-topn 17594 df-0g 17612 df-gsum 17613 df-topgen 17614 df-pt 17615 df-prds 17618 df-xrs 17674 df-qtop 17679 df-imas 17680 df-xps 17682 df-mre 17756 df-mrc 17757 df-acs 17759 df-mgm 18816 df-sgrp 18908 df-mnd 18924 df-submnd 18979 df-mulg 19278 df-cntz 19531 df-cmn 19996 df-psmet 21670 df-xmet 21671 df-met 21672 df-bl 21673 df-mopn 21674 df-fbas 21675 df-fg 21676 df-cnfld 21679 df-top 23212 df-topon 23229 df-topsp 23251 df-bases 23264 df-cld 23337 df-ntr 23338 df-cls 23339 df-nei 23416 df-lp 23454 df-perf 23455 df-cn 23545 df-cnp 23546 df-haus 23633 df-tx 23881 df-hmeo 24074 df-fil 24165 df-fm 24257 df-flim 24258 df-flf 24259 df-xms 24639 df-ms 24640 df-tms 24641 df-cncf 25199 df-limc 26186 df-dv 26187 df-log 26884 df-cxp 26885 df-sgm 27429 df-even 48723 df-odd 48724

This theorem is used by: perfectALTV 48820

W3C validator