Theorem 2sqpwodd 12170

Description: The greatest power of two dividing twice the square of an integer is an odd power of two. (Contributed by Jim Kingdon, 17-Nov-2021.)

Hypotheses

Ref	Expression
oddpwdc.j	⊢ 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
oddpwdc.f	⊢ 𝐹 = (𝑥 ∈ 𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))

Assertion

Ref	Expression
2sqpwodd	⊢ (𝐴 ∈ ℕ → ¬ 2 ∥ (2nd ‘(◡𝐹‘(2 · (𝐴↑2)))))

Distinct variable groups:   𝑥,𝑦,𝑧   𝑥,𝐽,𝑦   𝑥,𝐴,𝑦,𝑧   𝑥,𝐹,𝑦,𝑧

Allowed substitution hint:   𝐽(𝑧)

Proof of Theorem 2sqpwodd

Step	Hyp	Ref	Expression
1		oddpwdc.j	. . . . . . . . 9 ⊢ 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
2		oddpwdc.f	. . . . . . . . 9 ⊢ 𝐹 = (𝑥 ∈ 𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
3	1, 2	oddpwdc 12168	. . . . . . . 8 ⊢ 𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ
4		f1ocnv 5474	. . . . . . . 8 ⊢ (𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ → ◡𝐹:ℕ–1-1-onto→(𝐽 × ℕ0))
5		f1of 5461	. . . . . . . 8 ⊢ (◡𝐹:ℕ–1-1-onto→(𝐽 × ℕ0) → ◡𝐹:ℕ⟶(𝐽 × ℕ0))
6	3, 4, 5	mp2b 8	. . . . . . 7 ⊢ ◡𝐹:ℕ⟶(𝐽 × ℕ0)
7	6	ffvelcdmi 5650	. . . . . 6 ⊢ (𝐴 ∈ ℕ → (◡𝐹‘𝐴) ∈ (𝐽 × ℕ0))
8		xp2nd 6166	. . . . . 6 ⊢ ((◡𝐹‘𝐴) ∈ (𝐽 × ℕ0) → (2nd ‘(◡𝐹‘𝐴)) ∈ ℕ0)
9	7, 8	syl 14	. . . . 5 ⊢ (𝐴 ∈ ℕ → (2nd ‘(◡𝐹‘𝐴)) ∈ ℕ0)
10	9	nn0zd 9371	. . . 4 ⊢ (𝐴 ∈ ℕ → (2nd ‘(◡𝐹‘𝐴)) ∈ ℤ)
11		2nn 9078	. . . . . 6 ⊢ 2 ∈ ℕ
12	11	a1i 9	. . . . 5 ⊢ (𝐴 ∈ ℕ → 2 ∈ ℕ)
13	12	nnzd 9372	. . . 4 ⊢ (𝐴 ∈ ℕ → 2 ∈ ℤ)
14	10, 13	zmulcld 9379	. . 3 ⊢ (𝐴 ∈ ℕ → ((2nd ‘(◡𝐹‘𝐴)) · 2) ∈ ℤ)
15		dvdsmul2 11816	. . . 4 ⊢ (((2nd ‘(◡𝐹‘𝐴)) ∈ ℤ ∧ 2 ∈ ℤ) → 2 ∥ ((2nd ‘(◡𝐹‘𝐴)) · 2))
16	10, 13, 15	syl2anc 411	. . 3 ⊢ (𝐴 ∈ ℕ → 2 ∥ ((2nd ‘(◡𝐹‘𝐴)) · 2))
17		oddp1even 11875	. . . . 5 ⊢ (((2nd ‘(◡𝐹‘𝐴)) · 2) ∈ ℤ → (¬ 2 ∥ ((2nd ‘(◡𝐹‘𝐴)) · 2) ↔ 2 ∥ (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)))
18	17	biimprd 158	. . . 4 ⊢ (((2nd ‘(◡𝐹‘𝐴)) · 2) ∈ ℤ → (2 ∥ (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1) → ¬ 2 ∥ ((2nd ‘(◡𝐹‘𝐴)) · 2)))
19	18	con2d 624	. . 3 ⊢ (((2nd ‘(◡𝐹‘𝐴)) · 2) ∈ ℤ → (2 ∥ ((2nd ‘(◡𝐹‘𝐴)) · 2) → ¬ 2 ∥ (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)))
20	14, 16, 19	sylc 62	. 2 ⊢ (𝐴 ∈ ℕ → ¬ 2 ∥ (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1))
21		xp1st 6165	. . . . . . . . . . 11 ⊢ ((◡𝐹‘𝐴) ∈ (𝐽 × ℕ0) → (1st ‘(◡𝐹‘𝐴)) ∈ 𝐽)
22	7, 21	syl 14	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → (1st ‘(◡𝐹‘𝐴)) ∈ 𝐽)
23		breq2 4007	. . . . . . . . . . . . 13 ⊢ (𝑧 = (1st ‘(◡𝐹‘𝐴)) → (2 ∥ 𝑧 ↔ 2 ∥ (1st ‘(◡𝐹‘𝐴))))
24	23	notbid 667	. . . . . . . . . . . 12 ⊢ (𝑧 = (1st ‘(◡𝐹‘𝐴)) → (¬ 2 ∥ 𝑧 ↔ ¬ 2 ∥ (1st ‘(◡𝐹‘𝐴))))
25	24, 1	elrab2 2896	. . . . . . . . . . 11 ⊢ ((1st ‘(◡𝐹‘𝐴)) ∈ 𝐽 ↔ ((1st ‘(◡𝐹‘𝐴)) ∈ ℕ ∧ ¬ 2 ∥ (1st ‘(◡𝐹‘𝐴))))
26	25	simplbi 274	. . . . . . . . . 10 ⊢ ((1st ‘(◡𝐹‘𝐴)) ∈ 𝐽 → (1st ‘(◡𝐹‘𝐴)) ∈ ℕ)
27	22, 26	syl 14	. . . . . . . . 9 ⊢ (𝐴 ∈ ℕ → (1st ‘(◡𝐹‘𝐴)) ∈ ℕ)
28	27	nnsqcld 10671	. . . . . . . 8 ⊢ (𝐴 ∈ ℕ → ((1st ‘(◡𝐹‘𝐴))↑2) ∈ ℕ)
29	25	simprbi 275	. . . . . . . . . . 11 ⊢ ((1st ‘(◡𝐹‘𝐴)) ∈ 𝐽 → ¬ 2 ∥ (1st ‘(◡𝐹‘𝐴)))
30	22, 29	syl 14	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → ¬ 2 ∥ (1st ‘(◡𝐹‘𝐴)))
31		2prm 12121	. . . . . . . . . . 11 ⊢ 2 ∈ ℙ
32	27	nnzd 9372	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℕ → (1st ‘(◡𝐹‘𝐴)) ∈ ℤ)
33		euclemma 12140	. . . . . . . . . . . 12 ⊢ ((2 ∈ ℙ ∧ (1st ‘(◡𝐹‘𝐴)) ∈ ℤ ∧ (1st ‘(◡𝐹‘𝐴)) ∈ ℤ) → (2 ∥ ((1st ‘(◡𝐹‘𝐴)) · (1st ‘(◡𝐹‘𝐴))) ↔ (2 ∥ (1st ‘(◡𝐹‘𝐴)) ∨ 2 ∥ (1st ‘(◡𝐹‘𝐴)))))
34		oridm 757	. . . . . . . . . . . 12 ⊢ ((2 ∥ (1st ‘(◡𝐹‘𝐴)) ∨ 2 ∥ (1st ‘(◡𝐹‘𝐴))) ↔ 2 ∥ (1st ‘(◡𝐹‘𝐴)))
35	33, 34	bitrdi 196	. . . . . . . . . . 11 ⊢ ((2 ∈ ℙ ∧ (1st ‘(◡𝐹‘𝐴)) ∈ ℤ ∧ (1st ‘(◡𝐹‘𝐴)) ∈ ℤ) → (2 ∥ ((1st ‘(◡𝐹‘𝐴)) · (1st ‘(◡𝐹‘𝐴))) ↔ 2 ∥ (1st ‘(◡𝐹‘𝐴))))
36	31, 32, 32, 35	mp3an2i 1342	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → (2 ∥ ((1st ‘(◡𝐹‘𝐴)) · (1st ‘(◡𝐹‘𝐴))) ↔ 2 ∥ (1st ‘(◡𝐹‘𝐴))))
37	30, 36	mtbird 673	. . . . . . . . 9 ⊢ (𝐴 ∈ ℕ → ¬ 2 ∥ ((1st ‘(◡𝐹‘𝐴)) · (1st ‘(◡𝐹‘𝐴))))
38	27	nncnd 8931	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℕ → (1st ‘(◡𝐹‘𝐴)) ∈ ℂ)
39	38	sqvald 10647	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → ((1st ‘(◡𝐹‘𝐴))↑2) = ((1st ‘(◡𝐹‘𝐴)) · (1st ‘(◡𝐹‘𝐴))))
40	39	breq2d 4015	. . . . . . . . 9 ⊢ (𝐴 ∈ ℕ → (2 ∥ ((1st ‘(◡𝐹‘𝐴))↑2) ↔ 2 ∥ ((1st ‘(◡𝐹‘𝐴)) · (1st ‘(◡𝐹‘𝐴)))))
41	37, 40	mtbird 673	. . . . . . . 8 ⊢ (𝐴 ∈ ℕ → ¬ 2 ∥ ((1st ‘(◡𝐹‘𝐴))↑2))
42		breq2 4007	. . . . . . . . . 10 ⊢ (𝑧 = ((1st ‘(◡𝐹‘𝐴))↑2) → (2 ∥ 𝑧 ↔ 2 ∥ ((1st ‘(◡𝐹‘𝐴))↑2)))
43	42	notbid 667	. . . . . . . . 9 ⊢ (𝑧 = ((1st ‘(◡𝐹‘𝐴))↑2) → (¬ 2 ∥ 𝑧 ↔ ¬ 2 ∥ ((1st ‘(◡𝐹‘𝐴))↑2)))
44	43, 1	elrab2 2896	. . . . . . . 8 ⊢ (((1st ‘(◡𝐹‘𝐴))↑2) ∈ 𝐽 ↔ (((1st ‘(◡𝐹‘𝐴))↑2) ∈ ℕ ∧ ¬ 2 ∥ ((1st ‘(◡𝐹‘𝐴))↑2)))
45	28, 41, 44	sylanbrc 417	. . . . . . 7 ⊢ (𝐴 ∈ ℕ → ((1st ‘(◡𝐹‘𝐴))↑2) ∈ 𝐽)
46	12	nnnn0d 9227	. . . . . . . . 9 ⊢ (𝐴 ∈ ℕ → 2 ∈ ℕ0)
47	9, 46	nn0mulcld 9232	. . . . . . . 8 ⊢ (𝐴 ∈ ℕ → ((2nd ‘(◡𝐹‘𝐴)) · 2) ∈ ℕ0)
48		peano2nn0 9214	. . . . . . . 8 ⊢ (((2nd ‘(◡𝐹‘𝐴)) · 2) ∈ ℕ0 → (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1) ∈ ℕ0)
49	47, 48	syl 14	. . . . . . 7 ⊢ (𝐴 ∈ ℕ → (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1) ∈ ℕ0)
50		opelxp 4656	. . . . . . 7 ⊢ (⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩ ∈ (𝐽 × ℕ0) ↔ (((1st ‘(◡𝐹‘𝐴))↑2) ∈ 𝐽 ∧ (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1) ∈ ℕ0))
51	45, 49, 50	sylanbrc 417	. . . . . 6 ⊢ (𝐴 ∈ ℕ → ⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩ ∈ (𝐽 × ℕ0))
52	12	nncnd 8931	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℕ → 2 ∈ ℂ)
53	52, 47	expp1d 10651	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → (2↑(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) = ((2↑((2nd ‘(◡𝐹‘𝐴)) · 2)) · 2))
54	52, 47	expcld 10650	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℕ → (2↑((2nd ‘(◡𝐹‘𝐴)) · 2)) ∈ ℂ)
55	54, 52	mulcomd 7977	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → ((2↑((2nd ‘(◡𝐹‘𝐴)) · 2)) · 2) = (2 · (2↑((2nd ‘(◡𝐹‘𝐴)) · 2))))
56	52, 46, 9	expmuld 10653	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℕ → (2↑((2nd ‘(◡𝐹‘𝐴)) · 2)) = ((2↑(2nd ‘(◡𝐹‘𝐴)))↑2))
57	56	oveq2d 5890	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → (2 · (2↑((2nd ‘(◡𝐹‘𝐴)) · 2))) = (2 · ((2↑(2nd ‘(◡𝐹‘𝐴)))↑2)))
58	53, 55, 57	3eqtrd 2214	. . . . . . . . 9 ⊢ (𝐴 ∈ ℕ → (2↑(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) = (2 · ((2↑(2nd ‘(◡𝐹‘𝐴)))↑2)))
59	58	oveq1d 5889	. . . . . . . 8 ⊢ (𝐴 ∈ ℕ → ((2↑(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) · ((1st ‘(◡𝐹‘𝐴))↑2)) = ((2 · ((2↑(2nd ‘(◡𝐹‘𝐴)))↑2)) · ((1st ‘(◡𝐹‘𝐴))↑2)))
60	12, 49	nnexpcld 10672	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → (2↑(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) ∈ ℕ)
61	60, 28	nnmulcld 8966	. . . . . . . . 9 ⊢ (𝐴 ∈ ℕ → ((2↑(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) · ((1st ‘(◡𝐹‘𝐴))↑2)) ∈ ℕ)
62		oveq2 5882	. . . . . . . . . 10 ⊢ (𝑥 = ((1st ‘(◡𝐹‘𝐴))↑2) → ((2↑𝑦) · 𝑥) = ((2↑𝑦) · ((1st ‘(◡𝐹‘𝐴))↑2)))
63		oveq2 5882	. . . . . . . . . . 11 ⊢ (𝑦 = (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1) → (2↑𝑦) = (2↑(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)))
64	63	oveq1d 5889	. . . . . . . . . 10 ⊢ (𝑦 = (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1) → ((2↑𝑦) · ((1st ‘(◡𝐹‘𝐴))↑2)) = ((2↑(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) · ((1st ‘(◡𝐹‘𝐴))↑2)))
65	62, 64, 2	ovmpog 6008	. . . . . . . . 9 ⊢ ((((1st ‘(◡𝐹‘𝐴))↑2) ∈ 𝐽 ∧ (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1) ∈ ℕ0 ∧ ((2↑(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) · ((1st ‘(◡𝐹‘𝐴))↑2)) ∈ ℕ) → (((1st ‘(◡𝐹‘𝐴))↑2)𝐹(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) = ((2↑(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) · ((1st ‘(◡𝐹‘𝐴))↑2)))
66	45, 49, 61, 65	syl3anc 1238	. . . . . . . 8 ⊢ (𝐴 ∈ ℕ → (((1st ‘(◡𝐹‘𝐴))↑2)𝐹(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) = ((2↑(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) · ((1st ‘(◡𝐹‘𝐴))↑2)))
67		f1ocnvfv2 5778	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ ∧ 𝐴 ∈ ℕ) → (𝐹‘(◡𝐹‘𝐴)) = 𝐴)
68	3, 67	mpan 424	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℕ → (𝐹‘(◡𝐹‘𝐴)) = 𝐴)
69		1st2nd2 6175	. . . . . . . . . . . . . . . . 17 ⊢ ((◡𝐹‘𝐴) ∈ (𝐽 × ℕ0) → (◡𝐹‘𝐴) = ⟨(1st ‘(◡𝐹‘𝐴)), (2nd ‘(◡𝐹‘𝐴))⟩)
70	7, 69	syl 14	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ ℕ → (◡𝐹‘𝐴) = ⟨(1st ‘(◡𝐹‘𝐴)), (2nd ‘(◡𝐹‘𝐴))⟩)
71	70	fveq2d 5519	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℕ → (𝐹‘(◡𝐹‘𝐴)) = (𝐹‘⟨(1st ‘(◡𝐹‘𝐴)), (2nd ‘(◡𝐹‘𝐴))⟩))
72	68, 71	eqtr3d 2212	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℕ → 𝐴 = (𝐹‘⟨(1st ‘(◡𝐹‘𝐴)), (2nd ‘(◡𝐹‘𝐴))⟩))
73		df-ov 5877	. . . . . . . . . . . . . 14 ⊢ ((1st ‘(◡𝐹‘𝐴))𝐹(2nd ‘(◡𝐹‘𝐴))) = (𝐹‘⟨(1st ‘(◡𝐹‘𝐴)), (2nd ‘(◡𝐹‘𝐴))⟩)
74	72, 73	eqtr4di 2228	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℕ → 𝐴 = ((1st ‘(◡𝐹‘𝐴))𝐹(2nd ‘(◡𝐹‘𝐴))))
75	12, 9	nnexpcld 10672	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ ℕ → (2↑(2nd ‘(◡𝐹‘𝐴))) ∈ ℕ)
76	75, 27	nnmulcld 8966	. . . . . . . . . . . . . 14 ⊢ (𝐴 ∈ ℕ → ((2↑(2nd ‘(◡𝐹‘𝐴))) · (1st ‘(◡𝐹‘𝐴))) ∈ ℕ)
77		oveq2 5882	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = (1st ‘(◡𝐹‘𝐴)) → ((2↑𝑦) · 𝑥) = ((2↑𝑦) · (1st ‘(◡𝐹‘𝐴))))
78		oveq2 5882	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = (2nd ‘(◡𝐹‘𝐴)) → (2↑𝑦) = (2↑(2nd ‘(◡𝐹‘𝐴))))
79	78	oveq1d 5889	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = (2nd ‘(◡𝐹‘𝐴)) → ((2↑𝑦) · (1st ‘(◡𝐹‘𝐴))) = ((2↑(2nd ‘(◡𝐹‘𝐴))) · (1st ‘(◡𝐹‘𝐴))))
80	77, 79, 2	ovmpog 6008	. . . . . . . . . . . . . 14 ⊢ (((1st ‘(◡𝐹‘𝐴)) ∈ 𝐽 ∧ (2nd ‘(◡𝐹‘𝐴)) ∈ ℕ0 ∧ ((2↑(2nd ‘(◡𝐹‘𝐴))) · (1st ‘(◡𝐹‘𝐴))) ∈ ℕ) → ((1st ‘(◡𝐹‘𝐴))𝐹(2nd ‘(◡𝐹‘𝐴))) = ((2↑(2nd ‘(◡𝐹‘𝐴))) · (1st ‘(◡𝐹‘𝐴))))
81	22, 9, 76, 80	syl3anc 1238	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ ℕ → ((1st ‘(◡𝐹‘𝐴))𝐹(2nd ‘(◡𝐹‘𝐴))) = ((2↑(2nd ‘(◡𝐹‘𝐴))) · (1st ‘(◡𝐹‘𝐴))))
82	74, 81	eqtrd 2210	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℕ → 𝐴 = ((2↑(2nd ‘(◡𝐹‘𝐴))) · (1st ‘(◡𝐹‘𝐴))))
83	82	oveq1d 5889	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℕ → (𝐴↑2) = (((2↑(2nd ‘(◡𝐹‘𝐴))) · (1st ‘(◡𝐹‘𝐴)))↑2))
84	75	nncnd 8931	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ ℕ → (2↑(2nd ‘(◡𝐹‘𝐴))) ∈ ℂ)
85	84, 38	sqmuld 10662	. . . . . . . . . . 11 ⊢ (𝐴 ∈ ℕ → (((2↑(2nd ‘(◡𝐹‘𝐴))) · (1st ‘(◡𝐹‘𝐴)))↑2) = (((2↑(2nd ‘(◡𝐹‘𝐴)))↑2) · ((1st ‘(◡𝐹‘𝐴))↑2)))
86	83, 85	eqtrd 2210	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → (𝐴↑2) = (((2↑(2nd ‘(◡𝐹‘𝐴)))↑2) · ((1st ‘(◡𝐹‘𝐴))↑2)))
87	86	oveq2d 5890	. . . . . . . . 9 ⊢ (𝐴 ∈ ℕ → (2 · (𝐴↑2)) = (2 · (((2↑(2nd ‘(◡𝐹‘𝐴)))↑2) · ((1st ‘(◡𝐹‘𝐴))↑2))))
88	56, 54	eqeltrrd 2255	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → ((2↑(2nd ‘(◡𝐹‘𝐴)))↑2) ∈ ℂ)
89	28	nncnd 8931	. . . . . . . . . 10 ⊢ (𝐴 ∈ ℕ → ((1st ‘(◡𝐹‘𝐴))↑2) ∈ ℂ)
90	52, 88, 89	mulassd 7979	. . . . . . . . 9 ⊢ (𝐴 ∈ ℕ → ((2 · ((2↑(2nd ‘(◡𝐹‘𝐴)))↑2)) · ((1st ‘(◡𝐹‘𝐴))↑2)) = (2 · (((2↑(2nd ‘(◡𝐹‘𝐴)))↑2) · ((1st ‘(◡𝐹‘𝐴))↑2))))
91	87, 90	eqtr4d 2213	. . . . . . . 8 ⊢ (𝐴 ∈ ℕ → (2 · (𝐴↑2)) = ((2 · ((2↑(2nd ‘(◡𝐹‘𝐴)))↑2)) · ((1st ‘(◡𝐹‘𝐴))↑2)))
92	59, 66, 91	3eqtr4rd 2221	. . . . . . 7 ⊢ (𝐴 ∈ ℕ → (2 · (𝐴↑2)) = (((1st ‘(◡𝐹‘𝐴))↑2)𝐹(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)))
93		df-ov 5877	. . . . . . 7 ⊢ (((1st ‘(◡𝐹‘𝐴))↑2)𝐹(((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)) = (𝐹‘⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩)
94	92, 93	eqtr2di 2227	. . . . . 6 ⊢ (𝐴 ∈ ℕ → (𝐹‘⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩) = (2 · (𝐴↑2)))
95		f1ocnvfv 5779	. . . . . . 7 ⊢ ((𝐹:(𝐽 × ℕ0)–1-1-onto→ℕ ∧ ⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩ ∈ (𝐽 × ℕ0)) → ((𝐹‘⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩) = (2 · (𝐴↑2)) → (◡𝐹‘(2 · (𝐴↑2))) = ⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩))
96	3, 95	mpan 424	. . . . . 6 ⊢ (⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩ ∈ (𝐽 × ℕ0) → ((𝐹‘⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩) = (2 · (𝐴↑2)) → (◡𝐹‘(2 · (𝐴↑2))) = ⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩))
97	51, 94, 96	sylc 62	. . . . 5 ⊢ (𝐴 ∈ ℕ → (◡𝐹‘(2 · (𝐴↑2))) = ⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩)
98	97	fveq2d 5519	. . . 4 ⊢ (𝐴 ∈ ℕ → (2nd ‘(◡𝐹‘(2 · (𝐴↑2)))) = (2nd ‘⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩))
99		op2ndg 6151	. . . . 5 ⊢ ((((1st ‘(◡𝐹‘𝐴))↑2) ∈ 𝐽 ∧ (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1) ∈ ℕ0) → (2nd ‘⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩) = (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1))
100	45, 49, 99	syl2anc 411	. . . 4 ⊢ (𝐴 ∈ ℕ → (2nd ‘⟨((1st ‘(◡𝐹‘𝐴))↑2), (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)⟩) = (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1))
101	98, 100	eqtrd 2210	. . 3 ⊢ (𝐴 ∈ ℕ → (2nd ‘(◡𝐹‘(2 · (𝐴↑2)))) = (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1))
102	101	breq2d 4015	. 2 ⊢ (𝐴 ∈ ℕ → (2 ∥ (2nd ‘(◡𝐹‘(2 · (𝐴↑2)))) ↔ 2 ∥ (((2nd ‘(◡𝐹‘𝐴)) · 2) + 1)))
103	20, 102	mtbird 673	1 ⊢ (𝐴 ∈ ℕ → ¬ 2 ∥ (2nd ‘(◡𝐹‘(2 · (𝐴↑2)))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 105   ∨ wo 708   ∧ w3a 978   = wceq 1353   ∈ wcel 2148  {crab 2459  ⟨cop 3595   class class class wbr 4003   × cxp 4624  ^◡ccnv 4625  ⟶wf 5212  –1-1-onto→wf1o 5215  ‘cfv 5216  (class class class)co 5874   ∈ cmpo 5876  1^st c1st 6138  2^nd c2nd 6139  ℂcc 7808  1c1 7811   + caddc 7813   · cmul 7815  ℕcn 8917  2c2 8968  ℕ₀cn0 9174  ℤcz 9251  ↑cexp 10516   ∥ cdvds 11789  ℙcprime 12101

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 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-coll 4118  ax-sep 4121  ax-nul 4129  ax-pow 4174  ax-pr 4209  ax-un 4433  ax-setind 4536  ax-iinf 4587  ax-cnex 7901  ax-resscn 7902  ax-1cn 7903  ax-1re 7904  ax-icn 7905  ax-addcl 7906  ax-addrcl 7907  ax-mulcl 7908  ax-mulrcl 7909  ax-addcom 7910  ax-mulcom 7911  ax-addass 7912  ax-mulass 7913  ax-distr 7914  ax-i2m1 7915  ax-0lt1 7916  ax-1rid 7917  ax-0id 7918  ax-rnegex 7919  ax-precex 7920  ax-cnre 7921  ax-pre-ltirr 7922  ax-pre-ltwlin 7923  ax-pre-lttrn 7924  ax-pre-apti 7925  ax-pre-ltadd 7926  ax-pre-mulgt0 7927  ax-pre-mulext 7928  ax-arch 7929  ax-caucvg 7930

This theorem depends on definitions:  df-bi 117  df-stab 831  df-dc 835  df-3or 979  df-3an 980  df-tru 1356  df-fal 1359  df-xor 1376  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-nel 2443  df-ral 2460  df-rex 2461  df-reu 2462  df-rmo 2463  df-rab 2464  df-v 2739  df-sbc 2963  df-csb 3058  df-dif 3131  df-un 3133  df-in 3135  df-ss 3142  df-nul 3423  df-if 3535  df-pw 3577  df-sn 3598  df-pr 3599  df-op 3601  df-uni 3810  df-int 3845  df-iun 3888  df-br 4004  df-opab 4065  df-mpt 4066  df-tr 4102  df-id 4293  df-po 4296  df-iso 4297  df-iord 4366  df-on 4368  df-ilim 4369  df-suc 4371  df-iom 4590  df-xp 4632  df-rel 4633  df-cnv 4634  df-co 4635  df-dm 4636  df-rn 4637  df-res 4638  df-ima 4639  df-iota 5178  df-fun 5218  df-fn 5219  df-f 5220  df-f1 5221  df-fo 5222  df-f1o 5223  df-fv 5224  df-riota 5830  df-ov 5877  df-oprab 5878  df-mpo 5879  df-1st 6140  df-2nd 6141  df-recs 6305  df-frec 6391  df-1o 6416  df-2o 6417  df-er 6534  df-en 6740  df-sup 6982  df-pnf 7992  df-mnf 7993  df-xr 7994  df-ltxr 7995  df-le 7996  df-sub 8128  df-neg 8129  df-reap 8530  df-ap 8537  df-div 8628  df-inn 8918  df-2 8976  df-3 8977  df-4 8978  df-n0 9175  df-z 9252  df-uz 9527  df-q 9618  df-rp 9652  df-fz 10007  df-fzo 10140  df-fl 10267  df-mod 10320  df-seqfrec 10443  df-exp 10517  df-cj 10846  df-re 10847  df-im 10848  df-rsqrt 11002  df-abs 11003  df-dvds 11790  df-gcd 11938  df-prm 12102

This theorem is referenced by:  sqne2sq  12171