Metamath Proof Explorer


Theorem 4sqlem19

Description: Lemma for 4sq . The proof is by strong induction - we show that if all the integers less than k are in S , then k is as well. In this part of the proof we do the induction argument and dispense with all the cases except the odd prime case, which is sent to 4sqlem18 . If k is 0 , 1 , 2 , we show k e. S directly; otherwise if k is composite, k is the product of two numbers less than it (and hence in S by assumption), so by mul4sq k e. S . (Contributed by Mario Carneiro, 14-Jul-2014) (Revised by Mario Carneiro, 20-Jun-2015)

Ref Expression
Hypothesis 4sq.1 ⊢ S = n | ∃ x ∈ ℤ ∃ y ∈ ℤ ∃ z ∈ ℤ ∃ w ∈ ℤ n = x 2 + y 2 + z 2 + w 2
Assertion 4sqlem19 ⊢ ℕ 0 = S

Proof

Step Hyp Ref Expression
1 4sq.1 ⊢ S = n | ∃ x ∈ ℤ ∃ y ∈ ℤ ∃ z ∈ ℤ ∃ w ∈ ℤ n = x 2 + y 2 + z 2 + w 2
2 elnn0 ⊢ k ∈ ℕ 0 ↔ k ∈ ℕ ∨ k = 0
3 eleq1 ⊢ j = 1 → j ∈ S ↔ 1 ∈ S
4 eleq1 ⊢ j = m → j ∈ S ↔ m ∈ S
5 eleq1 ⊢ j = i → j ∈ S ↔ i ∈ S
6 eleq1 ⊢ j = m ⁢ i → j ∈ S ↔ m ⁢ i ∈ S
7 eleq1 ⊢ j = k → j ∈ S ↔ k ∈ S
8 abs1 ⊢ 1 = 1
9 8 oveq1i ⊢ 1 2 = 1 2
10 sq1 ⊢ 1 2 = 1
11 9 10 eqtri ⊢ 1 2 = 1
12 abs0 ⊢ 0 = 0
13 12 oveq1i ⊢ 0 2 = 0 2
14 sq0 ⊢ 0 2 = 0
15 13 14 eqtri ⊢ 0 2 = 0
16 11 15 oveq12i ⊢ 1 2 + 0 2 = 1 + 0
17 1p0e1 ⊢ 1 + 0 = 1
18 16 17 eqtri ⊢ 1 2 + 0 2 = 1
19 1z ⊢ 1 ∈ ℤ
20 zgz ⊢ 1 ∈ ℤ → 1 ∈ ℤ i
21 19 20 ax-mp ⊢ 1 ∈ ℤ i
22 0z ⊢ 0 ∈ ℤ
23 zgz ⊢ 0 ∈ ℤ → 0 ∈ ℤ i
24 22 23 ax-mp ⊢ 0 ∈ ℤ i
25 1 4sqlem4a ⊢ 1 ∈ ℤ i ∧ 0 ∈ ℤ i → 1 2 + 0 2 ∈ S
26 21 24 25 mp2an ⊢ 1 2 + 0 2 ∈ S
27 18 26 eqeltrri ⊢ 1 ∈ S
28 eleq1 ⊢ j = 2 → j ∈ S ↔ 2 ∈ S
29 eldifsn ⊢ j ∈ ℙ ∖ 2 ↔ j ∈ ℙ ∧ j ≠ 2
30 oddprm ⊢ j ∈ ℙ ∖ 2 → j − 1 2 ∈ ℕ
31 30 adantr ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j − 1 2 ∈ ℕ
32 eldifi ⊢ j ∈ ℙ ∖ 2 → j ∈ ℙ
33 32 adantr ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j ∈ ℙ
34 prmnn ⊢ j ∈ ℙ → j ∈ ℕ
35 nncn ⊢ j ∈ ℕ → j ∈ ℂ
36 33 34 35 3syl ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j ∈ ℂ
37 ax-1cn ⊢ 1 ∈ ℂ
38 subcl ⊢ j ∈ ℂ ∧ 1 ∈ ℂ → j − 1 ∈ ℂ
39 36 37 38 sylancl ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j − 1 ∈ ℂ
40 2cnd ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 2 ∈ ℂ
41 2ne0 ⊢ 2 ≠ 0
42 41 a1i ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 2 ≠ 0
43 39 40 42 divcan2d ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 2 ⁢ j − 1 2 = j − 1
44 43 oveq1d ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 2 ⁢ j − 1 2 + 1 = j - 1 + 1
45 npcan ⊢ j ∈ ℂ ∧ 1 ∈ ℂ → j - 1 + 1 = j
46 36 37 45 sylancl ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j - 1 + 1 = j
47 44 46 eqtr2d ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j = 2 ⁢ j − 1 2 + 1
48 43 oveq2d ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 0 … 2 ⁢ j − 1 2 = 0 … j − 1
49 nnm1nn0 ⊢ j ∈ ℕ → j − 1 ∈ ℕ 0
50 33 34 49 3syl ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j − 1 ∈ ℕ 0
51 elnn0uz ⊢ j − 1 ∈ ℕ 0 ↔ j − 1 ∈ ℤ ≥ 0
52 50 51 sylib ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j − 1 ∈ ℤ ≥ 0
53 eluzfz1 ⊢ j − 1 ∈ ℤ ≥ 0 → 0 ∈ 0 … j − 1
54 fzsplit ⊢ 0 ∈ 0 … j − 1 → 0 … j − 1 = 0 … 0 ∪ 0 + 1 … j − 1
55 52 53 54 3syl ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 0 … j − 1 = 0 … 0 ∪ 0 + 1 … j − 1
56 48 55 eqtrd ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 0 … 2 ⁢ j − 1 2 = 0 … 0 ∪ 0 + 1 … j − 1
57 fz0sn ⊢ 0 … 0 = 0
58 15 15 oveq12i ⊢ 0 2 + 0 2 = 0 + 0
59 00id ⊢ 0 + 0 = 0
60 58 59 eqtri ⊢ 0 2 + 0 2 = 0
61 1 4sqlem4a ⊢ 0 ∈ ℤ i ∧ 0 ∈ ℤ i → 0 2 + 0 2 ∈ S
62 24 24 61 mp2an ⊢ 0 2 + 0 2 ∈ S
63 60 62 eqeltrri ⊢ 0 ∈ S
64 snssi ⊢ 0 ∈ S → 0 ⊆ S
65 63 64 ax-mp ⊢ 0 ⊆ S
66 57 65 eqsstri ⊢ 0 … 0 ⊆ S
67 66 a1i ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 0 … 0 ⊆ S
68 0p1e1 ⊢ 0 + 1 = 1
69 68 oveq1i ⊢ 0 + 1 … j − 1 = 1 … j − 1
70 dfss3 ⊢ 1 … j − 1 ⊆ S ↔ ∀ m ∈ 1 … j − 1 m ∈ S
71 70 bilanri ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 1 … j − 1 ⊆ S
72 69 71 eqsstrid ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 0 + 1 … j − 1 ⊆ S
73 67 72 unssd ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 0 … 0 ∪ 0 + 1 … j − 1 ⊆ S
74 56 73 eqsstrd ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 0 … 2 ⁢ j − 1 2 ⊆ S
75 oveq1 ⊢ k = i → k ⁢ j = i ⁢ j
76 75 eleq1d ⊢ k = i → k ⁢ j ∈ S ↔ i ⁢ j ∈ S
77 76 cbvrabv ⊢ k ∈ ℕ | k ⁢ j ∈ S = i ∈ ℕ | i ⁢ j ∈ S
78 eqid ⊢ inf k ∈ ℕ | k ⁢ j ∈ S ℝ < = inf k ∈ ℕ | k ⁢ j ∈ S ℝ <
79 1 31 47 33 74 77 78 4sqlem18 ⊢ j ∈ ℙ ∖ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j ∈ S
80 29 79 sylanbr ⊢ j ∈ ℙ ∧ j ≠ 2 ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j ∈ S
81 80 an32s ⊢ j ∈ ℙ ∧ ∀ m ∈ 1 … j − 1 m ∈ S ∧ j ≠ 2 → j ∈ S
82 11 11 oveq12i ⊢ 1 2 + 1 2 = 1 + 1
83 df-2 ⊢ 2 = 1 + 1
84 82 83 eqtr4i ⊢ 1 2 + 1 2 = 2
85 1 4sqlem4a ⊢ 1 ∈ ℤ i ∧ 1 ∈ ℤ i → 1 2 + 1 2 ∈ S
86 21 21 85 mp2an ⊢ 1 2 + 1 2 ∈ S
87 84 86 eqeltrri ⊢ 2 ∈ S
88 87 a1i ⊢ j ∈ ℙ ∧ ∀ m ∈ 1 … j − 1 m ∈ S → 2 ∈ S
89 28 81 88 pm2.61ne ⊢ j ∈ ℙ ∧ ∀ m ∈ 1 … j − 1 m ∈ S → j ∈ S
90 1 mul4sq ⊢ m ∈ S ∧ i ∈ S → m ⁢ i ∈ S
91 90 a1i ⊢ m ∈ ℤ ≥ 2 ∧ i ∈ ℤ ≥ 2 → m ∈ S ∧ i ∈ S → m ⁢ i ∈ S
92 3 4 5 6 7 27 89 91 prmind2 ⊢ k ∈ ℕ → k ∈ S
93 id ⊢ k = 0 → k = 0
94 93 63 eqeltrdi ⊢ k = 0 → k ∈ S
95 92 94 jaoi ⊢ k ∈ ℕ ∨ k = 0 → k ∈ S
96 2 95 sylbi ⊢ k ∈ ℕ 0 → k ∈ S
97 96 ssriv ⊢ ℕ 0 ⊆ S
98 1 4sqlem1 ⊢ S ⊆ ℕ 0
99 97 98 eqssi ⊢ ℕ 0 = S