Metamath Proof Explorer


Theorem 2sqlem3

Description: Lemma for 2sqlem5 . (Contributed by Mario Carneiro, 20-Jun-2015)

Ref Expression
Hypotheses 2sq.1 ⊢ S = ran ⁡ w ∈ ℤ i ⟼ w 2
2sqlem5.1 ⊢ φ → N ∈ ℕ
2sqlem5.2 ⊢ φ → P ∈ ℙ
2sqlem4.3 ⊢ φ → A ∈ ℤ
2sqlem4.4 ⊢ φ → B ∈ ℤ
2sqlem4.5 ⊢ φ → C ∈ ℤ
2sqlem4.6 ⊢ φ → D ∈ ℤ
2sqlem4.7 ⊢ φ → N ⁢ P = A 2 + B 2
2sqlem4.8 ⊢ φ → P = C 2 + D 2
2sqlem4.9 ⊢ φ → P ∥ C ⁢ B + A ⁢ D
Assertion 2sqlem3 ⊢ φ → N ∈ S

Proof

Step Hyp Ref Expression
1 2sq.1 ⊢ S = ran ⁡ w ∈ ℤ i ⟼ w 2
2 2sqlem5.1 ⊢ φ → N ∈ ℕ
3 2sqlem5.2 ⊢ φ → P ∈ ℙ
4 2sqlem4.3 ⊢ φ → A ∈ ℤ
5 2sqlem4.4 ⊢ φ → B ∈ ℤ
6 2sqlem4.5 ⊢ φ → C ∈ ℤ
7 2sqlem4.6 ⊢ φ → D ∈ ℤ
8 2sqlem4.7 ⊢ φ → N ⁢ P = A 2 + B 2
9 2sqlem4.8 ⊢ φ → P = C 2 + D 2
10 2sqlem4.9 ⊢ φ → P ∥ C ⁢ B + A ⁢ D
11 gzreim ⊢ A ∈ ℤ ∧ B ∈ ℤ → A + i ⁢ B ∈ ℤ i
12 4 5 11 syl2anc ⊢ φ → A + i ⁢ B ∈ ℤ i
13 gzreim ⊢ C ∈ ℤ ∧ D ∈ ℤ → C + i ⁢ D ∈ ℤ i
14 6 7 13 syl2anc ⊢ φ → C + i ⁢ D ∈ ℤ i
15 gzmulcl ⊢ A + i ⁢ B ∈ ℤ i ∧ C + i ⁢ D ∈ ℤ i → A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ i
16 12 14 15 syl2anc ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ i
17 gzcn ⊢ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ i → A + i ⁢ B ⁢ C + i ⁢ D ∈ ℂ
18 16 17 syl ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D ∈ ℂ
19 prmnn ⊢ P ∈ ℙ → P ∈ ℕ
20 3 19 syl ⊢ φ → P ∈ ℕ
21 20 nncnd ⊢ φ → P ∈ ℂ
22 20 nnne0d ⊢ φ → P ≠ 0
23 18 21 22 divcld ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℂ
24 20 nnred ⊢ φ → P ∈ ℝ
25 24 18 22 redivd ⊢ φ → ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P = ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P
26 prmz ⊢ P ∈ ℙ → P ∈ ℤ
27 3 26 syl ⊢ φ → P ∈ ℤ
28 zsqcl ⊢ P ∈ ℤ → P 2 ∈ ℤ
29 27 28 syl ⊢ φ → P 2 ∈ ℤ
30 2 nnzd ⊢ φ → N ∈ ℤ
31 30 29 zmulcld ⊢ φ → N ⁢ P 2 ∈ ℤ
32 dvdsmul2 ⊢ P ∈ ℤ ∧ P ∈ ℤ → P ∥ P ⁢ P
33 27 27 32 syl2anc ⊢ φ → P ∥ P ⁢ P
34 21 sqvald ⊢ φ → P 2 = P ⁢ P
35 33 34 breqtrrd ⊢ φ → P ∥ P 2
36 dvdsmul2 ⊢ N ∈ ℤ ∧ P 2 ∈ ℤ → P 2 ∥ N ⁢ P 2
37 30 29 36 syl2anc ⊢ φ → P 2 ∥ N ⁢ P 2
38 27 29 31 35 37 dvdstrd ⊢ φ → P ∥ N ⁢ P 2
39 gzcn ⊢ A + i ⁢ B ∈ ℤ i → A + i ⁢ B ∈ ℂ
40 12 39 syl ⊢ φ → A + i ⁢ B ∈ ℂ
41 40 abscld ⊢ φ → A + i ⁢ B ∈ ℝ
42 41 recnd ⊢ φ → A + i ⁢ B ∈ ℂ
43 gzcn ⊢ C + i ⁢ D ∈ ℤ i → C + i ⁢ D ∈ ℂ
44 14 43 syl ⊢ φ → C + i ⁢ D ∈ ℂ
45 44 abscld ⊢ φ → C + i ⁢ D ∈ ℝ
46 45 recnd ⊢ φ → C + i ⁢ D ∈ ℂ
47 42 46 sqmuld ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D 2 = A + i ⁢ B 2 ⁢ C + i ⁢ D 2
48 4 zred ⊢ φ → A ∈ ℝ
49 5 zred ⊢ φ → B ∈ ℝ
50 48 49 crred ⊢ φ → ℜ ⁡ A + i ⁢ B = A
51 50 oveq1d ⊢ φ → ℜ ⁡ A + i ⁢ B 2 = A 2
52 48 49 crimd ⊢ φ → ℑ ⁡ A + i ⁢ B = B
53 52 oveq1d ⊢ φ → ℑ ⁡ A + i ⁢ B 2 = B 2
54 51 53 oveq12d ⊢ φ → ℜ ⁡ A + i ⁢ B 2 + ℑ ⁡ A + i ⁢ B 2 = A 2 + B 2
55 40 absvalsq2d ⊢ φ → A + i ⁢ B 2 = ℜ ⁡ A + i ⁢ B 2 + ℑ ⁡ A + i ⁢ B 2
56 54 55 8 3eqtr4d ⊢ φ → A + i ⁢ B 2 = N ⁢ P
57 6 zred ⊢ φ → C ∈ ℝ
58 7 zred ⊢ φ → D ∈ ℝ
59 57 58 crred ⊢ φ → ℜ ⁡ C + i ⁢ D = C
60 59 oveq1d ⊢ φ → ℜ ⁡ C + i ⁢ D 2 = C 2
61 57 58 crimd ⊢ φ → ℑ ⁡ C + i ⁢ D = D
62 61 oveq1d ⊢ φ → ℑ ⁡ C + i ⁢ D 2 = D 2
63 60 62 oveq12d ⊢ φ → ℜ ⁡ C + i ⁢ D 2 + ℑ ⁡ C + i ⁢ D 2 = C 2 + D 2
64 44 absvalsq2d ⊢ φ → C + i ⁢ D 2 = ℜ ⁡ C + i ⁢ D 2 + ℑ ⁡ C + i ⁢ D 2
65 63 64 9 3eqtr4d ⊢ φ → C + i ⁢ D 2 = P
66 56 65 oveq12d ⊢ φ → A + i ⁢ B 2 ⁢ C + i ⁢ D 2 = N ⁢ P ⁢ P
67 2 nncnd ⊢ φ → N ∈ ℂ
68 67 21 21 mulassd ⊢ φ → N ⁢ P ⁢ P = N ⁢ P ⁢ P
69 47 66 68 3eqtrd ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D 2 = N ⁢ P ⁢ P
70 40 44 absmuld ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D = A + i ⁢ B ⁢ C + i ⁢ D
71 70 oveq1d ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D 2 = A + i ⁢ B ⁢ C + i ⁢ D 2
72 34 oveq2d ⊢ φ → N ⁢ P 2 = N ⁢ P ⁢ P
73 69 71 72 3eqtr4d ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D 2 = N ⁢ P 2
74 38 73 breqtrrd ⊢ φ → P ∥ A + i ⁢ B ⁢ C + i ⁢ D 2
75 18 absvalsq2d ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D 2 = ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 + ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2
76 elgz ⊢ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ i ↔ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℂ ∧ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ ∧ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ
77 76 simp2bi ⊢ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ i → ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ
78 16 77 syl ⊢ φ → ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ
79 zsqcl ⊢ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ → ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ∈ ℤ
80 78 79 syl ⊢ φ → ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ∈ ℤ
81 80 zcnd ⊢ φ → ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ∈ ℂ
82 76 simp3bi ⊢ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ i → ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ
83 16 82 syl ⊢ φ → ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ
84 zsqcl ⊢ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ → ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ∈ ℤ
85 83 84 syl ⊢ φ → ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ∈ ℤ
86 85 zcnd ⊢ φ → ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ∈ ℂ
87 81 86 addcomd ⊢ φ → ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 + ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 = ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 + ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2
88 75 87 eqtrd ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D 2 = ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 + ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2
89 74 88 breqtrd ⊢ φ → P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 + ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2
90 6 zcnd ⊢ φ → C ∈ ℂ
91 5 zcnd ⊢ φ → B ∈ ℂ
92 90 91 mulcld ⊢ φ → C ⁢ B ∈ ℂ
93 4 zcnd ⊢ φ → A ∈ ℂ
94 7 zcnd ⊢ φ → D ∈ ℂ
95 93 94 mulcld ⊢ φ → A ⁢ D ∈ ℂ
96 92 95 addcomd ⊢ φ → C ⁢ B + A ⁢ D = A ⁢ D + C ⁢ B
97 90 91 mulcomd ⊢ φ → C ⁢ B = B ⁢ C
98 97 oveq2d ⊢ φ → A ⁢ D + C ⁢ B = A ⁢ D + B ⁢ C
99 96 98 eqtrd ⊢ φ → C ⁢ B + A ⁢ D = A ⁢ D + B ⁢ C
100 10 99 breqtrd ⊢ φ → P ∥ A ⁢ D + B ⁢ C
101 40 44 immuld ⊢ φ → ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D = ℜ ⁡ A + i ⁢ B ⁢ ℑ ⁡ C + i ⁢ D + ℑ ⁡ A + i ⁢ B ⁢ ℜ ⁡ C + i ⁢ D
102 50 61 oveq12d ⊢ φ → ℜ ⁡ A + i ⁢ B ⁢ ℑ ⁡ C + i ⁢ D = A ⁢ D
103 52 59 oveq12d ⊢ φ → ℑ ⁡ A + i ⁢ B ⁢ ℜ ⁡ C + i ⁢ D = B ⁢ C
104 102 103 oveq12d ⊢ φ → ℜ ⁡ A + i ⁢ B ⁢ ℑ ⁡ C + i ⁢ D + ℑ ⁡ A + i ⁢ B ⁢ ℜ ⁡ C + i ⁢ D = A ⁢ D + B ⁢ C
105 101 104 eqtrd ⊢ φ → ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D = A ⁢ D + B ⁢ C
106 100 105 breqtrrd ⊢ φ → P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D
107 2nn ⊢ 2 ∈ ℕ
108 107 a1i ⊢ φ → 2 ∈ ℕ
109 prmdvdsexp ⊢ P ∈ ℙ ∧ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ ∧ 2 ∈ ℕ → P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ↔ P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D
110 3 83 108 109 syl3anc ⊢ φ → P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ↔ P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D
111 106 110 mpbird ⊢ φ → P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2
112 dvdsadd2b ⊢ P ∈ ℤ ∧ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ∈ ℤ ∧ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ∈ ℤ ∧ P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 → P ∥ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ↔ P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 + ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2
113 27 80 85 111 112 syl112anc ⊢ φ → P ∥ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ↔ P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 + ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2
114 89 113 mpbird ⊢ φ → P ∥ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2
115 prmdvdsexp ⊢ P ∈ ℙ ∧ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ ∧ 2 ∈ ℕ → P ∥ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ↔ P ∥ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D
116 3 78 108 115 syl3anc ⊢ φ → P ∥ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D 2 ↔ P ∥ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D
117 114 116 mpbid ⊢ φ → P ∥ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D
118 dvdsval2 ⊢ P ∈ ℤ ∧ P ≠ 0 ∧ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ → P ∥ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ↔ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ
119 27 22 78 118 syl3anc ⊢ φ → P ∥ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ↔ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ
120 117 119 mpbid ⊢ φ → ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ
121 25 120 eqeltrd ⊢ φ → ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ
122 24 18 22 imdivd ⊢ φ → ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P = ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P
123 dvdsval2 ⊢ P ∈ ℤ ∧ P ≠ 0 ∧ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ∈ ℤ → P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ↔ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ
124 27 22 83 123 syl3anc ⊢ φ → P ∥ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D ↔ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ
125 106 124 mpbid ⊢ φ → ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ
126 122 125 eqeltrd ⊢ φ → ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ
127 elgz ⊢ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ i ↔ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℂ ∧ ℜ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ ∧ ℑ ⁡ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ
128 23 121 126 127 syl3anbrc ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ i
129 18 21 22 absdivd ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D P = A + i ⁢ B ⁢ C + i ⁢ D P
130 20 nnnn0d ⊢ φ → P ∈ ℕ 0
131 130 nn0ge0d ⊢ φ → 0 ≤ P
132 24 131 absidd ⊢ φ → P = P
133 132 oveq2d ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D P = A + i ⁢ B ⁢ C + i ⁢ D P
134 129 133 eqtrd ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D P = A + i ⁢ B ⁢ C + i ⁢ D P
135 134 oveq1d ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D P 2 = A + i ⁢ B ⁢ C + i ⁢ D P 2
136 18 abscld ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D ∈ ℝ
137 136 recnd ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D ∈ ℂ
138 137 21 22 sqdivd ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D P 2 = A + i ⁢ B ⁢ C + i ⁢ D 2 P 2
139 73 oveq1d ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D 2 P 2 = N ⁢ P 2 P 2
140 20 nnsqcld ⊢ φ → P 2 ∈ ℕ
141 140 nncnd ⊢ φ → P 2 ∈ ℂ
142 140 nnne0d ⊢ φ → P 2 ≠ 0
143 67 141 142 divcan4d ⊢ φ → N ⁢ P 2 P 2 = N
144 139 143 eqtrd ⊢ φ → A + i ⁢ B ⁢ C + i ⁢ D 2 P 2 = N
145 135 138 144 3eqtrrd ⊢ φ → N = A + i ⁢ B ⁢ C + i ⁢ D P 2
146 fveq2 ⊢ x = A + i ⁢ B ⁢ C + i ⁢ D P → x = A + i ⁢ B ⁢ C + i ⁢ D P
147 146 oveq1d ⊢ x = A + i ⁢ B ⁢ C + i ⁢ D P → x 2 = A + i ⁢ B ⁢ C + i ⁢ D P 2
148 147 rspceeqv ⊢ A + i ⁢ B ⁢ C + i ⁢ D P ∈ ℤ i ∧ N = A + i ⁢ B ⁢ C + i ⁢ D P 2 → ∃ x ∈ ℤ i N = x 2
149 128 145 148 syl2anc ⊢ φ → ∃ x ∈ ℤ i N = x 2
150 1 2sqlem1 ⊢ N ∈ S ↔ ∃ x ∈ ℤ i N = x 2
151 149 150 sylibr ⊢ φ → N ∈ S