perfectALTVlem1 - Mathbox for Alexander van der Vekens

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

Theorem perfectALTVlem1 48514

Description: Lemma for perfectALTV 48516. (Contributed by Mario Carneiro, 7-Jun-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
perfectALTVlem1	⊢ (𝜑 → ((2↑(𝐴 + 1)) ∈ ℕ ∧ ((2↑(𝐴 + 1)) − 1) ∈ ℕ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ))

**Proof of Theorem perfectALTVlem1**
Step	Hyp	Ref	Expression
1		2nn 12318	. . 3 ⊢ 2 ∈ ℕ
2		perfectALTVlem.1	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ ℕ)
3	2	nnnn0d 12569	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
4		peano2nn0 12548	. . . 4 ⊢ (𝐴 ∈ ℕ₀ → (𝐴 + 1) ∈ ℕ₀)
5	3, 4	syl 18	. . 3 ⊢ (𝜑 → (𝐴 + 1) ∈ ℕ₀)
6		nnexpcl 14115	. . 3 ⊢ ((2 ∈ ℕ ∧ (𝐴 + 1) ∈ ℕ₀) → (2↑(𝐴 + 1)) ∈ ℕ)
7	1, 5, 6	sylancr 598	. 2 ⊢ (𝜑 → (2↑(𝐴 + 1)) ∈ ℕ)
8		2re 12319	. . . . 5 ⊢ 2 ∈ ℝ
9	8	a1i 11	. . . 4 ⊢ (𝜑 → 2 ∈ ℝ)
10	2	peano2nnd 12254	. . . 4 ⊢ (𝜑 → (𝐴 + 1) ∈ ℕ)
11		1lt2 12417	. . . . 5 ⊢ 1 < 2
12	11	a1i 11	. . . 4 ⊢ (𝜑 → 1 < 2)
13		expgt1 14141	. . . 4 ⊢ ((2 ∈ ℝ ∧ (𝐴 + 1) ∈ ℕ ∧ 1 < 2) → 1 < (2↑(𝐴 + 1)))
14	9, 10, 12, 13	syl3anc 1398	. . 3 ⊢ (𝜑 → 1 < (2↑(𝐴 + 1)))
15		1nn 12248	. . . 4 ⊢ 1 ∈ ℕ
16		nnsub 12284	. . . 4 ⊢ ((1 ∈ ℕ ∧ (2↑(𝐴 + 1)) ∈ ℕ) → (1 < (2↑(𝐴 + 1)) ↔ ((2↑(𝐴 + 1)) − 1) ∈ ℕ))
17	15, 7, 16	sylancr 598	. . 3 ⊢ (𝜑 → (1 < (2↑(𝐴 + 1)) ↔ ((2↑(𝐴 + 1)) − 1) ∈ ℕ))
18	14, 17	mpbid 235	. 2 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℕ)
19	7	nnzd 12621	. . . . . . 7 ⊢ (𝜑 → (2↑(𝐴 + 1)) ∈ ℤ)
20		peano2zm 12641	. . . . . . 7 ⊢ ((2↑(𝐴 + 1)) ∈ ℤ → ((2↑(𝐴 + 1)) − 1) ∈ ℤ)
21	19, 20	syl 18	. . . . . 6 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℤ)
22		1nn0 12524	. . . . . . . 8 ⊢ 1 ∈ ℕ₀
23		perfectALTVlem.2	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ ℕ)
24		sgmnncl 27320	. . . . . . . 8 ⊢ ((1 ∈ ℕ₀ ∧ 𝐵 ∈ ℕ) → (1 σ 𝐵) ∈ ℕ)
25	22, 23, 24	sylancr 598	. . . . . . 7 ⊢ (𝜑 → (1 σ 𝐵) ∈ ℕ)
26	25	nnzd 12621	. . . . . 6 ⊢ (𝜑 → (1 σ 𝐵) ∈ ℤ)
27		dvdsmul1 16339	. . . . . 6 ⊢ ((((2↑(𝐴 + 1)) − 1) ∈ ℤ ∧ (1 σ 𝐵) ∈ ℤ) → ((2↑(𝐴 + 1)) − 1) ∥ (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
28	21, 26, 27	syl2anc 595	. . . . 5 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∥ (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
29		2cn 12320	. . . . . . . . 9 ⊢ 2 ∈ ℂ
30		expp1 14109	. . . . . . . . 9 ⊢ ((2 ∈ ℂ ∧ 𝐴 ∈ ℕ₀) → (2↑(𝐴 + 1)) = ((2↑𝐴) · 2))
31	29, 3, 30	sylancr 598	. . . . . . . 8 ⊢ (𝜑 → (2↑(𝐴 + 1)) = ((2↑𝐴) · 2))
32		nnexpcl 14115	. . . . . . . . . . 11 ⊢ ((2 ∈ ℕ ∧ 𝐴 ∈ ℕ₀) → (2↑𝐴) ∈ ℕ)
33	1, 3, 32	sylancr 598	. . . . . . . . . 10 ⊢ (𝜑 → (2↑𝐴) ∈ ℕ)
34	33	nncnd 12253	. . . . . . . . 9 ⊢ (𝜑 → (2↑𝐴) ∈ ℂ)
35		mulcom 11190	. . . . . . . . 9 ⊢ (((2↑𝐴) ∈ ℂ ∧ 2 ∈ ℂ) → ((2↑𝐴) · 2) = (2 · (2↑𝐴)))
36	34, 29, 35	sylancl 597	. . . . . . . 8 ⊢ (𝜑 → ((2↑𝐴) · 2) = (2 · (2↑𝐴)))
37	31, 36	eqtrd 2798	. . . . . . 7 ⊢ (𝜑 → (2↑(𝐴 + 1)) = (2 · (2↑𝐴)))
38	37	oveq1d 7425	. . . . . 6 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) = ((2 · (2↑𝐴)) · 𝐵))
39	29	a1i 11	. . . . . . 7 ⊢ (𝜑 → 2 ∈ ℂ)
40	23	nncnd 12253	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℂ)
41	39, 34, 40	mulassd 11236	. . . . . 6 ⊢ (𝜑 → ((2 · (2↑𝐴)) · 𝐵) = (2 · ((2↑𝐴) · 𝐵)))
42		1cnd 11206	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℂ)
43		perfectALTVlem.3	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ Odd )
44		isodd7 48458	. . . . . . . . . . 11 ⊢ (𝐵 ∈ Odd ↔ (𝐵 ∈ ℤ ∧ (2 gcd 𝐵) = 1))
45	44	simprbi 502	. . . . . . . . . 10 ⊢ (𝐵 ∈ Odd → (2 gcd 𝐵) = 1)
46	43, 45	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (2 gcd 𝐵) = 1)
47		2z 12630	. . . . . . . . . . 11 ⊢ 2 ∈ ℤ
48	47	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 2 ∈ ℤ)
49	23	nnzd 12621	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ ℤ)
50		rpexp1i 16786	. . . . . . . . . 10 ⊢ ((2 ∈ ℤ ∧ 𝐵 ∈ ℤ ∧ 𝐴 ∈ ℕ₀) → ((2 gcd 𝐵) = 1 → ((2↑𝐴) gcd 𝐵) = 1))
51	48, 49, 3, 50	syl3anc 1398	. . . . . . . . 9 ⊢ (𝜑 → ((2 gcd 𝐵) = 1 → ((2↑𝐴) gcd 𝐵) = 1))
52	46, 51	mpd 16	. . . . . . . 8 ⊢ (𝜑 → ((2↑𝐴) gcd 𝐵) = 1)
53		sgmmul 27374	. . . . . . . 8 ⊢ ((1 ∈ ℂ ∧ ((2↑𝐴) ∈ ℕ ∧ 𝐵 ∈ ℕ ∧ ((2↑𝐴) gcd 𝐵) = 1)) → (1 σ ((2↑𝐴) · 𝐵)) = ((1 σ (2↑𝐴)) · (1 σ 𝐵)))
54	42, 33, 23, 52, 53	syl13anc 1399	. . . . . . 7 ⊢ (𝜑 → (1 σ ((2↑𝐴) · 𝐵)) = ((1 σ (2↑𝐴)) · (1 σ 𝐵)))
55		perfectALTVlem.4	. . . . . . 7 ⊢ (𝜑 → (1 σ ((2↑𝐴) · 𝐵)) = (2 · ((2↑𝐴) · 𝐵)))
56	2	nncnd 12253	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ ℂ)
57		pncan1 11642	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → ((𝐴 + 1) − 1) = 𝐴)
58	56, 57	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐴 + 1) − 1) = 𝐴)
59	58	oveq2d 7426	. . . . . . . . . 10 ⊢ (𝜑 → (2↑((𝐴 + 1) − 1)) = (2↑𝐴))
60	59	oveq2d 7426	. . . . . . . . 9 ⊢ (𝜑 → (1 σ (2↑((𝐴 + 1) − 1))) = (1 σ (2↑𝐴)))
61		1sgm2ppw 27373	. . . . . . . . . 10 ⊢ ((𝐴 + 1) ∈ ℕ → (1 σ (2↑((𝐴 + 1) − 1))) = ((2↑(𝐴 + 1)) − 1))
62	10, 61	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (1 σ (2↑((𝐴 + 1) − 1))) = ((2↑(𝐴 + 1)) − 1))
63	60, 62	eqtr3d 2800	. . . . . . . 8 ⊢ (𝜑 → (1 σ (2↑𝐴)) = ((2↑(𝐴 + 1)) − 1))
64	63	oveq1d 7425	. . . . . . 7 ⊢ (𝜑 → ((1 σ (2↑𝐴)) · (1 σ 𝐵)) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
65	54, 55, 64	3eqtr3d 2806	. . . . . 6 ⊢ (𝜑 → (2 · ((2↑𝐴) · 𝐵)) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
66	38, 41, 65	3eqtrd 2802	. . . . 5 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
67	28, 66	breqtrrd 5139	. . . 4 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∥ ((2↑(𝐴 + 1)) · 𝐵))
68	21, 19	gcdcomd 16576	. . . . 5 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) gcd (2↑(𝐴 + 1))) = ((2↑(𝐴 + 1)) gcd ((2↑(𝐴 + 1)) − 1)))
69		nnpw2evenALTV 48495	. . . . . . 7 ⊢ ((𝐴 + 1) ∈ ℕ → (2↑(𝐴 + 1)) ∈ Even )
70		evenm1odd 48432	. . . . . . 7 ⊢ ((2↑(𝐴 + 1)) ∈ Even → ((2↑(𝐴 + 1)) − 1) ∈ Odd )
71		isodd7 48458	. . . . . . . 8 ⊢ (((2↑(𝐴 + 1)) − 1) ∈ Odd ↔ (((2↑(𝐴 + 1)) − 1) ∈ ℤ ∧ (2 gcd ((2↑(𝐴 + 1)) − 1)) = 1))
72	71	simprbi 502	. . . . . . 7 ⊢ (((2↑(𝐴 + 1)) − 1) ∈ Odd → (2 gcd ((2↑(𝐴 + 1)) − 1)) = 1)
73	10, 69, 70, 72	4syl 20	. . . . . 6 ⊢ (𝜑 → (2 gcd ((2↑(𝐴 + 1)) − 1)) = 1)
74		rpexp1i 16786	. . . . . . 7 ⊢ ((2 ∈ ℤ ∧ ((2↑(𝐴 + 1)) − 1) ∈ ℤ ∧ (𝐴 + 1) ∈ ℕ₀) → ((2 gcd ((2↑(𝐴 + 1)) − 1)) = 1 → ((2↑(𝐴 + 1)) gcd ((2↑(𝐴 + 1)) − 1)) = 1))
75	48, 21, 5, 74	syl3anc 1398	. . . . . 6 ⊢ (𝜑 → ((2 gcd ((2↑(𝐴 + 1)) − 1)) = 1 → ((2↑(𝐴 + 1)) gcd ((2↑(𝐴 + 1)) − 1)) = 1))
76	73, 75	mpd 16	. . . . 5 ⊢ (𝜑 → ((2↑(𝐴 + 1)) gcd ((2↑(𝐴 + 1)) − 1)) = 1)
77	68, 76	eqtrd 2798	. . . 4 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) gcd (2↑(𝐴 + 1))) = 1)
78		coprmdvds 16715	. . . . 5 ⊢ ((((2↑(𝐴 + 1)) − 1) ∈ ℤ ∧ (2↑(𝐴 + 1)) ∈ ℤ ∧ 𝐵 ∈ ℤ) → ((((2↑(𝐴 + 1)) − 1) ∥ ((2↑(𝐴 + 1)) · 𝐵) ∧ (((2↑(𝐴 + 1)) − 1) gcd (2↑(𝐴 + 1))) = 1) → ((2↑(𝐴 + 1)) − 1) ∥ 𝐵))
79	21, 19, 49, 78	syl3anc 1398	. . . 4 ⊢ (𝜑 → ((((2↑(𝐴 + 1)) − 1) ∥ ((2↑(𝐴 + 1)) · 𝐵) ∧ (((2↑(𝐴 + 1)) − 1) gcd (2↑(𝐴 + 1))) = 1) → ((2↑(𝐴 + 1)) − 1) ∥ 𝐵))
80	67, 77, 79	mp2and 711	. . 3 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∥ 𝐵)
81		nndivdvds 16323	. . . 4 ⊢ ((𝐵 ∈ ℕ ∧ ((2↑(𝐴 + 1)) − 1) ∈ ℕ) → (((2↑(𝐴 + 1)) − 1) ∥ 𝐵 ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ))
82	23, 18, 81	syl2anc 595	. . 3 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) ∥ 𝐵 ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ))
83	80, 82	mpbid 235	. 2 ⊢ (𝜑 → (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ)
84	7, 18, 83	3jca 1146	1 ⊢ (𝜑 → ((2↑(𝐴 + 1)) ∈ ℕ ∧ ((2↑(𝐴 + 1)) − 1) ∈ ℕ ∧ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 400 ∧ w3a 1103 = wceq 1570 ∈ wcel 2143 class class class wbr 5109 (class class class)co 7410 ℂcc 11102 ℝcr 11103 1c1 11105 + caddc 11107 · cmul 11109 < clt 11247 − cmin 11445 / cdiv 11875 ℕcn 12237 2c2 12299 ℕ₀cn0 12508 ℤcz 12595 ↑cexp 14102 ∥ cdvds 16314 gcd cgcd 16556 σ csgm 27269 Even ceven 48417 Odd codd 48418

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-rep 5238 ax-sep 5257 ax-nul 5269 ax-pow 5336 ax-pr 5404 ax-un 7732 ax-inf2 9606 ax-cnex 11160 ax-resscn 11161 ax-1cn 11162 ax-icn 11163 ax-addcl 11164 ax-addrcl 11165 ax-mulcl 11166 ax-mulrcl 11167 ax-mulcom 11168 ax-addass 11169 ax-mulass 11170 ax-distr 11171 ax-i2m1 11172 ax-1ne0 11173 ax-1rid 11174 ax-rnegex 11175 ax-rrecex 11176 ax-cnre 11177 ax-pre-lttri 11178 ax-pre-lttrn 11179 ax-pre-ltadd 11180 ax-pre-mulgt0 11181 ax-pre-sup 11182 ax-addf 11183

This proof depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3745 df-csb 3854 df-dif 3908 df-un 3910 df-in 3912 df-ss 3922 df-pss 3925 df-nul 4287 df-if 4488 df-pw 4564 df-sn 4590 df-pr 4592 df-tp 4594 df-op 4596 df-uni 4873 df-int 4913 df-iun 4958 df-iin 4959 df-br 5110 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5556 df-eprel 5561 df-po 5569 df-so 5570 df-fr 5614 df-se 5615 df-we 5616 df-xp 5667 df-rel 5668 df-cnv 5669 df-co 5670 df-dm 5671 df-rn 5672 df-res 5673 df-ima 5674 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-isom 6545 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-of 7674 df-om 7859 df-1st 7982 df-2nd 7983 df-supp 8153 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-1o 8449 df-2o 8450 df-er 8690 df-map 8822 df-pm 8823 df-ixp 8892 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-fsupp 9318 df-fi 9367 df-sup 9398 df-inf 9399 df-oi 9468 df-card 9930 df-pnf 11249 df-mnf 11250 df-xr 11251 df-ltxr 11252 df-le 11253 df-sub 11447 df-neg 11448 df-div 11876 df-nn 12238 df-2 12307 df-3 12308 df-4 12309 df-5 12310 df-6 12311 df-7 12312 df-8 12313 df-9 12314 df-n0 12509 df-z 12596 df-dec 12716 df-uz 12867 df-q 12977 df-rp 13021 df-xneg 13141 df-xadd 13142 df-xmul 13143 df-ioo 13380 df-ioc 13381 df-ico 13382 df-icc 13383 df-fz 13540 df-fzo 13688 df-fl 13830 df-mod 13908 df-seq 14043 df-exp 14103 df-fac 14315 df-bc 14344 df-hash 14372 df-shft 15109 df-cj 15155 df-re 15156 df-im 15157 df-sqrt 15291 df-abs 15292 df-limsup 15527 df-clim 15544 df-rlim 15545 df-sum 15743 df-ef 16125 df-sin 16127 df-cos 16128 df-pi 16130 df-dvds 16315 df-gcd 16557 df-prm 16734 df-pc 16901 df-struct 17211 df-sets 17228 df-slot 17246 df-ndx 17258 df-base 17274 df-ress 17295 df-plusg 17327 df-mulr 17328 df-starv 17329 df-sca 17330 df-vsca 17331 df-ip 17332 df-tset 17333 df-ple 17334 df-ds 17336 df-unif 17337 df-hom 17338 df-cco 17339 df-rest 17479 df-topn 17480 df-0g 17498 df-gsum 17499 df-topgen 17500 df-pt 17501 df-prds 17504 df-xrs 17560 df-qtop 17565 df-imas 17566 df-xps 17568 df-mre 17642 df-mrc 17643 df-acs 17645 df-mgm 18702 df-sgrp 18781 df-mnd 18797 df-submnd 18846 df-mulg 19138 df-cntz 19391 df-cmn 19856 df-psmet 21523 df-xmet 21524 df-met 21525 df-bl 21526 df-mopn 21527 df-fbas 21528 df-fg 21529 df-cnfld 21532 df-top 23060 df-topon 23077 df-topsp 23099 df-bases 23112 df-cld 23185 df-ntr 23186 df-cls 23187 df-nei 23264 df-lp 23302 df-perf 23303 df-cn 23393 df-cnp 23394 df-haus 23481 df-tx 23728 df-hmeo 23921 df-fil 24012 df-fm 24104 df-flim 24105 df-flf 24106 df-xms 24486 df-ms 24487 df-tms 24488 df-cncf 25046 df-limc 26034 df-dv 26035 df-log 26730 df-cxp 26731 df-sgm 27275 df-even 48419 df-odd 48420

This theorem is used by: perfectALTVlem2 48515

W3C validator