Metamath Proof Explorer


Theorem 2sqlem10

Description: Lemma for 2sq . Every factor of a "proper" sum of two squares (where the summands are coprime) is a sum of two squares. (Contributed by Mario Carneiro, 19-Jun-2015)

Ref Expression
Hypotheses 2sq.1 ⊢ S = ran ⁡ w ∈ ℤ i ⟼ w 2
2sqlem7.2 ⊢ Y = z | ∃ x ∈ ℤ ∃ y ∈ ℤ x gcd y = 1 ∧ z = x 2 + y 2
Assertion 2sqlem10 ⊢ A ∈ Y ∧ B ∈ ℕ ∧ B ∥ A → B ∈ S

Proof

Step Hyp Ref Expression
1 2sq.1 ⊢ S = ran ⁡ w ∈ ℤ i ⟼ w 2
2 2sqlem7.2 ⊢ Y = z | ∃ x ∈ ℤ ∃ y ∈ ℤ x gcd y = 1 ∧ z = x 2 + y 2
3 breq1 ⊢ b = B → b ∥ a ↔ B ∥ a
4 eleq1 ⊢ b = B → b ∈ S ↔ B ∈ S
5 3 4 imbi12d ⊢ b = B → b ∥ a → b ∈ S ↔ B ∥ a → B ∈ S
6 5 ralbidv ⊢ b = B → ∀ a ∈ Y b ∥ a → b ∈ S ↔ ∀ a ∈ Y B ∥ a → B ∈ S
7 oveq2 ⊢ m = 1 → 1 … m = 1 … 1
8 7 raleqdv ⊢ m = 1 → ∀ b ∈ 1 … m ∀ a ∈ Y b ∥ a → b ∈ S ↔ ∀ b ∈ 1 … 1 ∀ a ∈ Y b ∥ a → b ∈ S
9 oveq2 ⊢ m = n → 1 … m = 1 … n
10 9 raleqdv ⊢ m = n → ∀ b ∈ 1 … m ∀ a ∈ Y b ∥ a → b ∈ S ↔ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S
11 oveq2 ⊢ m = n + 1 → 1 … m = 1 … n + 1
12 11 raleqdv ⊢ m = n + 1 → ∀ b ∈ 1 … m ∀ a ∈ Y b ∥ a → b ∈ S ↔ ∀ b ∈ 1 … n + 1 ∀ a ∈ Y b ∥ a → b ∈ S
13 oveq2 ⊢ m = B → 1 … m = 1 … B
14 13 raleqdv ⊢ m = B → ∀ b ∈ 1 … m ∀ a ∈ Y b ∥ a → b ∈ S ↔ ∀ b ∈ 1 … B ∀ a ∈ Y b ∥ a → b ∈ S
15 elfz1eq ⊢ b ∈ 1 … 1 → b = 1
16 1z ⊢ 1 ∈ ℤ
17 zgz ⊢ 1 ∈ ℤ → 1 ∈ ℤ i
18 16 17 ax-mp ⊢ 1 ∈ ℤ i
19 sq1 ⊢ 1 2 = 1
20 19 eqcomi ⊢ 1 = 1 2
21 fveq2 ⊢ x = 1 → x = 1
22 abs1 ⊢ 1 = 1
23 21 22 eqtrdi ⊢ x = 1 → x = 1
24 23 oveq1d ⊢ x = 1 → x 2 = 1 2
25 24 rspceeqv ⊢ 1 ∈ ℤ i ∧ 1 = 1 2 → ∃ x ∈ ℤ i 1 = x 2
26 18 20 25 mp2an ⊢ ∃ x ∈ ℤ i 1 = x 2
27 1 2sqlem1 ⊢ 1 ∈ S ↔ ∃ x ∈ ℤ i 1 = x 2
28 26 27 mpbir ⊢ 1 ∈ S
29 15 28 eqeltrdi ⊢ b ∈ 1 … 1 → b ∈ S
30 29 a1d ⊢ b ∈ 1 … 1 → b ∥ a → b ∈ S
31 30 ralrimivw ⊢ b ∈ 1 … 1 → ∀ a ∈ Y b ∥ a → b ∈ S
32 31 rgen ⊢ ∀ b ∈ 1 … 1 ∀ a ∈ Y b ∥ a → b ∈ S
33 simplr ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ m ∈ Y ∧ n + 1 ∥ m → ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S
34 nncn ⊢ n ∈ ℕ → n ∈ ℂ
35 34 ad2antrr ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ m ∈ Y ∧ n + 1 ∥ m → n ∈ ℂ
36 ax-1cn ⊢ 1 ∈ ℂ
37 pncan ⊢ n ∈ ℂ ∧ 1 ∈ ℂ → n + 1 - 1 = n
38 35 36 37 sylancl ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ m ∈ Y ∧ n + 1 ∥ m → n + 1 - 1 = n
39 38 oveq2d ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ m ∈ Y ∧ n + 1 ∥ m → 1 … n + 1 - 1 = 1 … n
40 33 39 raleqtrrdv ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ m ∈ Y ∧ n + 1 ∥ m → ∀ b ∈ 1 … n + 1 - 1 ∀ a ∈ Y b ∥ a → b ∈ S
41 simprr ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ m ∈ Y ∧ n + 1 ∥ m → n + 1 ∥ m
42 peano2nn ⊢ n ∈ ℕ → n + 1 ∈ ℕ
43 42 ad2antrr ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ m ∈ Y ∧ n + 1 ∥ m → n + 1 ∈ ℕ
44 simprl ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ m ∈ Y ∧ n + 1 ∥ m → m ∈ Y
45 1 2 40 41 43 44 2sqlem9 ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ m ∈ Y ∧ n + 1 ∥ m → n + 1 ∈ S
46 45 expr ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ m ∈ Y → n + 1 ∥ m → n + 1 ∈ S
47 46 ralrimiva ⊢ n ∈ ℕ ∧ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S → ∀ m ∈ Y n + 1 ∥ m → n + 1 ∈ S
48 47 ex ⊢ n ∈ ℕ → ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S → ∀ m ∈ Y n + 1 ∥ m → n + 1 ∈ S
49 breq2 ⊢ a = m → n + 1 ∥ a ↔ n + 1 ∥ m
50 49 imbi1d ⊢ a = m → n + 1 ∥ a → n + 1 ∈ S ↔ n + 1 ∥ m → n + 1 ∈ S
51 50 cbvralvw ⊢ ∀ a ∈ Y n + 1 ∥ a → n + 1 ∈ S ↔ ∀ m ∈ Y n + 1 ∥ m → n + 1 ∈ S
52 48 51 imbitrrdi ⊢ n ∈ ℕ → ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S → ∀ a ∈ Y n + 1 ∥ a → n + 1 ∈ S
53 ovex ⊢ n + 1 ∈ V
54 breq1 ⊢ b = n + 1 → b ∥ a ↔ n + 1 ∥ a
55 eleq1 ⊢ b = n + 1 → b ∈ S ↔ n + 1 ∈ S
56 54 55 imbi12d ⊢ b = n + 1 → b ∥ a → b ∈ S ↔ n + 1 ∥ a → n + 1 ∈ S
57 56 ralbidv ⊢ b = n + 1 → ∀ a ∈ Y b ∥ a → b ∈ S ↔ ∀ a ∈ Y n + 1 ∥ a → n + 1 ∈ S
58 53 57 ralsn ⊢ ∀ b ∈ n + 1 ∀ a ∈ Y b ∥ a → b ∈ S ↔ ∀ a ∈ Y n + 1 ∥ a → n + 1 ∈ S
59 52 58 imbitrrdi ⊢ n ∈ ℕ → ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S → ∀ b ∈ n + 1 ∀ a ∈ Y b ∥ a → b ∈ S
60 59 ancld ⊢ n ∈ ℕ → ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S → ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ ∀ b ∈ n + 1 ∀ a ∈ Y b ∥ a → b ∈ S
61 elnnuz ⊢ n ∈ ℕ ↔ n ∈ ℤ ≥ 1
62 fzsuc ⊢ n ∈ ℤ ≥ 1 → 1 … n + 1 = 1 … n ∪ n + 1
63 61 62 sylbi ⊢ n ∈ ℕ → 1 … n + 1 = 1 … n ∪ n + 1
64 63 raleqdv ⊢ n ∈ ℕ → ∀ b ∈ 1 … n + 1 ∀ a ∈ Y b ∥ a → b ∈ S ↔ ∀ b ∈ 1 … n ∪ n + 1 ∀ a ∈ Y b ∥ a → b ∈ S
65 ralunb ⊢ ∀ b ∈ 1 … n ∪ n + 1 ∀ a ∈ Y b ∥ a → b ∈ S ↔ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ ∀ b ∈ n + 1 ∀ a ∈ Y b ∥ a → b ∈ S
66 64 65 bitrdi ⊢ n ∈ ℕ → ∀ b ∈ 1 … n + 1 ∀ a ∈ Y b ∥ a → b ∈ S ↔ ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S ∧ ∀ b ∈ n + 1 ∀ a ∈ Y b ∥ a → b ∈ S
67 60 66 sylibrd ⊢ n ∈ ℕ → ∀ b ∈ 1 … n ∀ a ∈ Y b ∥ a → b ∈ S → ∀ b ∈ 1 … n + 1 ∀ a ∈ Y b ∥ a → b ∈ S
68 8 10 12 14 32 67 nnind ⊢ B ∈ ℕ → ∀ b ∈ 1 … B ∀ a ∈ Y b ∥ a → b ∈ S
69 elfz1end ⊢ B ∈ ℕ ↔ B ∈ 1 … B
70 69 biimpi ⊢ B ∈ ℕ → B ∈ 1 … B
71 6 68 70 rspcdva ⊢ B ∈ ℕ → ∀ a ∈ Y B ∥ a → B ∈ S
72 breq2 ⊢ a = A → B ∥ a ↔ B ∥ A
73 72 imbi1d ⊢ a = A → B ∥ a → B ∈ S ↔ B ∥ A → B ∈ S
74 73 rspcv ⊢ A ∈ Y → ∀ a ∈ Y B ∥ a → B ∈ S → B ∥ A → B ∈ S
75 71 74 syl5 ⊢ A ∈ Y → B ∈ ℕ → B ∥ A → B ∈ S
76 75 3imp ⊢ A ∈ Y ∧ B ∈ ℕ ∧ B ∥ A → B ∈ S