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 48735

Description: Lemma for perfectALTV 48737. (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 12371	. . 3 ⊢ 2 ∈ ℕ
2		perfectALTVlem.1	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ ℕ)
3	2	nnnn0d 12622	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℕ₀)
4		peano2nn0 12601	. . . 4 ⊢ (𝐴 ∈ ℕ₀ → (𝐴 + 1) ∈ ℕ₀)
5	3, 4	syl 18	. . 3 ⊢ (𝜑 → (𝐴 + 1) ∈ ℕ₀)
6		nnexpcl 14171	. . 3 ⊢ ((2 ∈ ℕ ∧ (𝐴 + 1) ∈ ℕ₀) → (2↑(𝐴 + 1)) ∈ ℕ)
7	1, 5, 6	sylancr 599	. 2 ⊢ (𝜑 → (2↑(𝐴 + 1)) ∈ ℕ)
8		2re 12372	. . . . 5 ⊢ 2 ∈ ℝ
9	8	a1i 11	. . . 4 ⊢ (𝜑 → 2 ∈ ℝ)
10	2	peano2nnd 12307	. . . 4 ⊢ (𝜑 → (𝐴 + 1) ∈ ℕ)
11		1lt2 12470	. . . . 5 ⊢ 1 < 2
12	11	a1i 11	. . . 4 ⊢ (𝜑 → 1 < 2)
13		expgt1 14197	. . . 4 ⊢ ((2 ∈ ℝ ∧ (𝐴 + 1) ∈ ℕ ∧ 1 < 2) → 1 < (2↑(𝐴 + 1)))
14	9, 10, 12, 13	syl3anc 1398	. . 3 ⊢ (𝜑 → 1 < (2↑(𝐴 + 1)))
15		1nn 12301	. . . 4 ⊢ 1 ∈ ℕ
16		nnsub 12337	. . . 4 ⊢ ((1 ∈ ℕ ∧ (2↑(𝐴 + 1)) ∈ ℕ) → (1 < (2↑(𝐴 + 1)) ↔ ((2↑(𝐴 + 1)) − 1) ∈ ℕ))
17	15, 7, 16	sylancr 599	. . 3 ⊢ (𝜑 → (1 < (2↑(𝐴 + 1)) ↔ ((2↑(𝐴 + 1)) − 1) ∈ ℕ))
18	14, 17	mpbid 235	. 2 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℕ)
19	7	nnzd 12674	. . . . . . 7 ⊢ (𝜑 → (2↑(𝐴 + 1)) ∈ ℤ)
20		peano2zm 12694	. . . . . . 7 ⊢ ((2↑(𝐴 + 1)) ∈ ℤ → ((2↑(𝐴 + 1)) − 1) ∈ ℤ)
21	19, 20	syl 18	. . . . . 6 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∈ ℤ)
22		1nn0 12577	. . . . . . . 8 ⊢ 1 ∈ ℕ₀
23		perfectALTVlem.2	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ ℕ)
24		sgmnncl 27423	. . . . . . . 8 ⊢ ((1 ∈ ℕ₀ ∧ 𝐵 ∈ ℕ) → (1 σ 𝐵) ∈ ℕ)
25	22, 23, 24	sylancr 599	. . . . . . 7 ⊢ (𝜑 → (1 σ 𝐵) ∈ ℕ)
26	25	nnzd 12674	. . . . . 6 ⊢ (𝜑 → (1 σ 𝐵) ∈ ℤ)
27		dvdsmul1 16400	. . . . . 6 ⊢ ((((2↑(𝐴 + 1)) − 1) ∈ ℤ ∧ (1 σ 𝐵) ∈ ℤ) → ((2↑(𝐴 + 1)) − 1) ∥ (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
28	21, 26, 27	syl2anc 596	. . . . 5 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∥ (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
29		2cn 12373	. . . . . . . . 9 ⊢ 2 ∈ ℂ
30		expp1 14165	. . . . . . . . 9 ⊢ ((2 ∈ ℂ ∧ 𝐴 ∈ ℕ₀) → (2↑(𝐴 + 1)) = ((2↑𝐴) · 2))
31	29, 3, 30	sylancr 599	. . . . . . . 8 ⊢ (𝜑 → (2↑(𝐴 + 1)) = ((2↑𝐴) · 2))
32		nnexpcl 14171	. . . . . . . . . . 11 ⊢ ((2 ∈ ℕ ∧ 𝐴 ∈ ℕ₀) → (2↑𝐴) ∈ ℕ)
33	1, 3, 32	sylancr 599	. . . . . . . . . 10 ⊢ (𝜑 → (2↑𝐴) ∈ ℕ)
34	33	nncnd 12306	. . . . . . . . 9 ⊢ (𝜑 → (2↑𝐴) ∈ ℂ)
35		mulcom 11243	. . . . . . . . 9 ⊢ (((2↑𝐴) ∈ ℂ ∧ 2 ∈ ℂ) → ((2↑𝐴) · 2) = (2 · (2↑𝐴)))
36	34, 29, 35	sylancl 598	. . . . . . . 8 ⊢ (𝜑 → ((2↑𝐴) · 2) = (2 · (2↑𝐴)))
37	31, 36	eqtrd 2795	. . . . . . 7 ⊢ (𝜑 → (2↑(𝐴 + 1)) = (2 · (2↑𝐴)))
38	37	oveq1d 7424	. . . . . 6 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) = ((2 · (2↑𝐴)) · 𝐵))
39	29	a1i 11	. . . . . . 7 ⊢ (𝜑 → 2 ∈ ℂ)
40	23	nncnd 12306	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℂ)
41	39, 34, 40	mulassd 11289	. . . . . 6 ⊢ (𝜑 → ((2 · (2↑𝐴)) · 𝐵) = (2 · ((2↑𝐴) · 𝐵)))
42		1cnd 11259	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℂ)
43		perfectALTVlem.3	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ Odd )
44		isodd7 48679	. . . . . . . . . . 11 ⊢ (𝐵 ∈ Odd ↔ (𝐵 ∈ ℤ ∧ (2 gcd 𝐵) = 1))
45	44	simprbi 503	. . . . . . . . . 10 ⊢ (𝐵 ∈ Odd → (2 gcd 𝐵) = 1)
46	43, 45	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (2 gcd 𝐵) = 1)
47		2z 12683	. . . . . . . . . . 11 ⊢ 2 ∈ ℤ
48	47	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 2 ∈ ℤ)
49	23	nnzd 12674	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ ℤ)
50		rpexp1i 16847	. . . . . . . . . 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 27477	. . . . . . . 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 12306	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ ℂ)
57		pncan1 11695	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℂ → ((𝐴 + 1) − 1) = 𝐴)
58	56, 57	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐴 + 1) − 1) = 𝐴)
59	58	oveq2d 7425	. . . . . . . . . 10 ⊢ (𝜑 → (2↑((𝐴 + 1) − 1)) = (2↑𝐴))
60	59	oveq2d 7425	. . . . . . . . 9 ⊢ (𝜑 → (1 σ (2↑((𝐴 + 1) − 1))) = (1 σ (2↑𝐴)))
61		1sgm2ppw 27476	. . . . . . . . . 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 2797	. . . . . . . 8 ⊢ (𝜑 → (1 σ (2↑𝐴)) = ((2↑(𝐴 + 1)) − 1))
64	63	oveq1d 7424	. . . . . . 7 ⊢ (𝜑 → ((1 σ (2↑𝐴)) · (1 σ 𝐵)) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
65	54, 55, 64	3eqtr3d 2803	. . . . . 6 ⊢ (𝜑 → (2 · ((2↑𝐴) · 𝐵)) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
66	38, 41, 65	3eqtrd 2799	. . . . 5 ⊢ (𝜑 → ((2↑(𝐴 + 1)) · 𝐵) = (((2↑(𝐴 + 1)) − 1) · (1 σ 𝐵)))
67	28, 66	breqtrrd 5133	. . . 4 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∥ ((2↑(𝐴 + 1)) · 𝐵))
68	21, 19	gcdcomd 16637	. . . . 5 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) gcd (2↑(𝐴 + 1))) = ((2↑(𝐴 + 1)) gcd ((2↑(𝐴 + 1)) − 1)))
69		nnpw2evenALTV 48716	. . . . . . 7 ⊢ ((𝐴 + 1) ∈ ℕ → (2↑(𝐴 + 1)) ∈ Even )
70		evenm1odd 48653	. . . . . . 7 ⊢ ((2↑(𝐴 + 1)) ∈ Even → ((2↑(𝐴 + 1)) − 1) ∈ Odd )
71		isodd7 48679	. . . . . . . 8 ⊢ (((2↑(𝐴 + 1)) − 1) ∈ Odd ↔ (((2↑(𝐴 + 1)) − 1) ∈ ℤ ∧ (2 gcd ((2↑(𝐴 + 1)) − 1)) = 1))
72	71	simprbi 503	. . . . . . 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 16847	. . . . . . 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 2795	. . . 4 ⊢ (𝜑 → (((2↑(𝐴 + 1)) − 1) gcd (2↑(𝐴 + 1))) = 1)
78		coprmdvds 16776	. . . . 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 712	. . 3 ⊢ (𝜑 → ((2↑(𝐴 + 1)) − 1) ∥ 𝐵)
81		nndivdvds 16384	. . . 4 ⊢ ((𝐵 ∈ ℕ ∧ ((2↑(𝐴 + 1)) − 1) ∈ ℕ) → (((2↑(𝐴 + 1)) − 1) ∥ 𝐵 ↔ (𝐵 / ((2↑(𝐴 + 1)) − 1)) ∈ ℕ))
82	23, 18, 81	syl2anc 596	. . 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 401 ∧ w3a 1103 = wceq 1570 ∈ wcel 2145 class class class wbr 5103 (class class class)co 7409 ℂcc 11155 ℝcr 11156 1c1 11158 + caddc 11160 · cmul 11162 < clt 11300 − cmin 11498 / cdiv 11928 ℕcn 12290 2c2 12352 ℕ₀cn0 12561 ℤcz 12648 ↑cexp 14158 ∥ cdvds 16375 gcd cgcd 16617 σ csgm 27372 Even ceven 48638 Odd codd 48639

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 2732 ax-rep 5232 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7735 ax-inf2 9620 ax-cnex 11213 ax-resscn 11214 ax-1cn 11215 ax-icn 11216 ax-addcl 11217 ax-addrcl 11218 ax-mulcl 11219 ax-mulrcl 11220 ax-mulcom 11221 ax-addass 11222 ax-mulass 11223 ax-distr 11224 ax-i2m1 11225 ax-1ne0 11226 ax-1rid 11227 ax-rnegex 11228 ax-rrecex 11229 ax-cnre 11230 ax-pre-lttri 11231 ax-pre-lttrn 11232 ax-pre-ltadd 11233 ax-pre-mulgt0 11234 ax-pre-sup 11235 ax-addf 11236

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 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 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 5543 df-eprel 5548 df-po 5556 df-so 5557 df-fr 5601 df-se 5602 df-we 5603 df-xp 5654 df-rel 5655 df-cnv 5656 df-co 5657 df-dm 5658 df-rn 5659 df-res 5660 df-ima 5661 df-pred 6294 df-ord 6355 df-on 6356 df-lim 6357 df-suc 6358 df-iota 6484 df-fun 6530 df-fn 6531 df-f 6532 df-f1 6533 df-fo 6534 df-f1o 6535 df-fv 6536 df-isom 6537 df-riota 7366 df-ov 7412 df-oprab 7413 df-mpo 7414 df-of 7677 df-om 7862 df-1st 7985 df-2nd 7986 df-supp 8157 df-frecs 8278 df-wrecs 8309 df-recs 8358 df-rdg 8397 df-1o 8455 df-2o 8456 df-er 8696 df-map 8828 df-pm 8829 df-ixp 8905 df-en 8953 df-dom 8954 df-sdom 8955 df-fin 8956 df-fsupp 9332 df-fi 9381 df-sup 9412 df-inf 9413 df-oi 9482 df-card 9977 df-pnf 11302 df-mnf 11303 df-xr 11304 df-ltxr 11305 df-le 11306 df-sub 11500 df-neg 11501 df-div 11929 df-nn 12291 df-2 12360 df-3 12361 df-4 12362 df-5 12363 df-6 12364 df-7 12365 df-8 12366 df-9 12367 df-n0 12562 df-z 12649 df-dec 12770 df-uz 12921 df-q 13031 df-rp 13076 df-xneg 13196 df-xadd 13197 df-xmul 13198 df-ioo 13435 df-ioc 13436 df-ico 13437 df-icc 13438 df-fz 13595 df-fzo 13743 df-fl 13886 df-mod 13964 df-seq 14099 df-exp 14159 df-fac 14371 df-bc 14400 df-hash 14428 df-shft 15173 df-cj 15219 df-re 15220 df-im 15221 df-sqrt 15355 df-abs 15356 df-limsup 15591 df-clim 15608 df-rlim 15609 df-sum 15807 df-ef 16186 df-sin 16188 df-cos 16189 df-pi 16191 df-dvds 16376 df-gcd 16618 df-prm 16795 df-pc 16962 df-struct 17272 df-sets 17289 df-slot 17307 df-ndx 17319 df-base 17335 df-ress 17356 df-plusg 17388 df-mulr 17389 df-starv 17390 df-sca 17391 df-vsca 17392 df-ip 17393 df-tset 17394 df-ple 17395 df-ds 17397 df-unif 17398 df-hom 17399 df-cco 17400 df-rest 17540 df-topn 17541 df-0g 17559 df-gsum 17560 df-topgen 17561 df-pt 17562 df-prds 17565 df-xrs 17621 df-qtop 17626 df-imas 17627 df-xps 17629 df-mre 17703 df-mrc 17704 df-acs 17706 df-mgm 18763 df-sgrp 18855 df-mnd 18871 df-submnd 18926 df-mulg 19225 df-cntz 19478 df-cmn 19943 df-psmet 21617 df-xmet 21618 df-met 21619 df-bl 21620 df-mopn 21621 df-fbas 21622 df-fg 21623 df-cnfld 21626 df-top 23159 df-topon 23176 df-topsp 23198 df-bases 23211 df-cld 23284 df-ntr 23285 df-cls 23286 df-nei 23363 df-lp 23401 df-perf 23402 df-cn 23492 df-cnp 23493 df-haus 23580 df-tx 23828 df-hmeo 24021 df-fil 24112 df-fm 24204 df-flim 24205 df-flf 24206 df-xms 24586 df-ms 24587 df-tms 24588 df-cncf 25146 df-limc 26133 df-dv 26134 df-log 26833 df-cxp 26834 df-sgm 27378 df-even 48640 df-odd 48641

This theorem is used by: perfectALTVlem2 48736

W3C validator