Step | Hyp | Ref
| Expression |
1 | | breq1 5078 |
. . . . . 6
⊢ (𝑏 = 𝐵 → (𝑏 ∥ 𝑎 ↔ 𝐵 ∥ 𝑎)) |
2 | | eleq1 2827 |
. . . . . 6
⊢ (𝑏 = 𝐵 → (𝑏 ∈ 𝑆 ↔ 𝐵 ∈ 𝑆)) |
3 | 1, 2 | imbi12d 345 |
. . . . 5
⊢ (𝑏 = 𝐵 → ((𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ (𝐵 ∥ 𝑎 → 𝐵 ∈ 𝑆))) |
4 | 3 | ralbidv 3113 |
. . . 4
⊢ (𝑏 = 𝐵 → (∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ ∀𝑎 ∈ 𝑌 (𝐵 ∥ 𝑎 → 𝐵 ∈ 𝑆))) |
5 | | oveq2 7292 |
. . . . . 6
⊢ (𝑚 = 1 → (1...𝑚) = (1...1)) |
6 | 5 | raleqdv 3349 |
. . . . 5
⊢ (𝑚 = 1 → (∀𝑏 ∈ (1...𝑚)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ ∀𝑏 ∈ (1...1)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆))) |
7 | | oveq2 7292 |
. . . . . 6
⊢ (𝑚 = 𝑛 → (1...𝑚) = (1...𝑛)) |
8 | 7 | raleqdv 3349 |
. . . . 5
⊢ (𝑚 = 𝑛 → (∀𝑏 ∈ (1...𝑚)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ ∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆))) |
9 | | oveq2 7292 |
. . . . . 6
⊢ (𝑚 = (𝑛 + 1) → (1...𝑚) = (1...(𝑛 + 1))) |
10 | 9 | raleqdv 3349 |
. . . . 5
⊢ (𝑚 = (𝑛 + 1) → (∀𝑏 ∈ (1...𝑚)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ ∀𝑏 ∈ (1...(𝑛 + 1))∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆))) |
11 | | oveq2 7292 |
. . . . . 6
⊢ (𝑚 = 𝐵 → (1...𝑚) = (1...𝐵)) |
12 | 11 | raleqdv 3349 |
. . . . 5
⊢ (𝑚 = 𝐵 → (∀𝑏 ∈ (1...𝑚)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ ∀𝑏 ∈ (1...𝐵)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆))) |
13 | | elfz1eq 13276 |
. . . . . . . . 9
⊢ (𝑏 ∈ (1...1) → 𝑏 = 1) |
14 | | 1z 12359 |
. . . . . . . . . . . 12
⊢ 1 ∈
ℤ |
15 | | zgz 16643 |
. . . . . . . . . . . 12
⊢ (1 ∈
ℤ → 1 ∈ ℤ[i]) |
16 | 14, 15 | ax-mp 5 |
. . . . . . . . . . 11
⊢ 1 ∈
ℤ[i] |
17 | | sq1 13921 |
. . . . . . . . . . . 12
⊢
(1↑2) = 1 |
18 | 17 | eqcomi 2748 |
. . . . . . . . . . 11
⊢ 1 =
(1↑2) |
19 | | fveq2 6783 |
. . . . . . . . . . . . . 14
⊢ (𝑥 = 1 → (abs‘𝑥) =
(abs‘1)) |
20 | | abs1 15018 |
. . . . . . . . . . . . . 14
⊢
(abs‘1) = 1 |
21 | 19, 20 | eqtrdi 2795 |
. . . . . . . . . . . . 13
⊢ (𝑥 = 1 → (abs‘𝑥) = 1) |
22 | 21 | oveq1d 7299 |
. . . . . . . . . . . 12
⊢ (𝑥 = 1 → ((abs‘𝑥)↑2) =
(1↑2)) |
23 | 22 | rspceeqv 3576 |
. . . . . . . . . . 11
⊢ ((1
∈ ℤ[i] ∧ 1 = (1↑2)) → ∃𝑥 ∈ ℤ[i] 1 = ((abs‘𝑥)↑2)) |
24 | 16, 18, 23 | mp2an 689 |
. . . . . . . . . 10
⊢
∃𝑥 ∈
ℤ[i] 1 = ((abs‘𝑥)↑2) |
25 | | 2sq.1 |
. . . . . . . . . . 11
⊢ 𝑆 = ran (𝑤 ∈ ℤ[i] ↦ ((abs‘𝑤)↑2)) |
26 | 25 | 2sqlem1 26574 |
. . . . . . . . . 10
⊢ (1 ∈
𝑆 ↔ ∃𝑥 ∈ ℤ[i] 1 =
((abs‘𝑥)↑2)) |
27 | 24, 26 | mpbir 230 |
. . . . . . . . 9
⊢ 1 ∈
𝑆 |
28 | 13, 27 | eqeltrdi 2848 |
. . . . . . . 8
⊢ (𝑏 ∈ (1...1) → 𝑏 ∈ 𝑆) |
29 | 28 | a1d 25 |
. . . . . . 7
⊢ (𝑏 ∈ (1...1) → (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) |
30 | 29 | ralrimivw 3105 |
. . . . . 6
⊢ (𝑏 ∈ (1...1) →
∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) |
31 | 30 | rgen 3075 |
. . . . 5
⊢
∀𝑏 ∈
(1...1)∀𝑎 ∈
𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) |
32 | | 2sqlem7.2 |
. . . . . . . . . . . . 13
⊢ 𝑌 = {𝑧 ∣ ∃𝑥 ∈ ℤ ∃𝑦 ∈ ℤ ((𝑥 gcd 𝑦) = 1 ∧ 𝑧 = ((𝑥↑2) + (𝑦↑2)))} |
33 | | simplr 766 |
. . . . . . . . . . . . . 14
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ (𝑚 ∈ 𝑌 ∧ (𝑛 + 1) ∥ 𝑚)) → ∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) |
34 | | nncn 11990 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑛 ∈ ℕ → 𝑛 ∈
ℂ) |
35 | 34 | ad2antrr 723 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ (𝑚 ∈ 𝑌 ∧ (𝑛 + 1) ∥ 𝑚)) → 𝑛 ∈ ℂ) |
36 | | ax-1cn 10938 |
. . . . . . . . . . . . . . . . 17
⊢ 1 ∈
ℂ |
37 | | pncan 11236 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑛 ∈ ℂ ∧ 1 ∈
ℂ) → ((𝑛 + 1)
− 1) = 𝑛) |
38 | 35, 36, 37 | sylancl 586 |
. . . . . . . . . . . . . . . 16
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ (𝑚 ∈ 𝑌 ∧ (𝑛 + 1) ∥ 𝑚)) → ((𝑛 + 1) − 1) = 𝑛) |
39 | 38 | oveq2d 7300 |
. . . . . . . . . . . . . . 15
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ (𝑚 ∈ 𝑌 ∧ (𝑛 + 1) ∥ 𝑚)) → (1...((𝑛 + 1) − 1)) = (1...𝑛)) |
40 | 39 | raleqdv 3349 |
. . . . . . . . . . . . . 14
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ (𝑚 ∈ 𝑌 ∧ (𝑛 + 1) ∥ 𝑚)) → (∀𝑏 ∈ (1...((𝑛 + 1) − 1))∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ ∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆))) |
41 | 33, 40 | mpbird 256 |
. . . . . . . . . . . . 13
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ (𝑚 ∈ 𝑌 ∧ (𝑛 + 1) ∥ 𝑚)) → ∀𝑏 ∈ (1...((𝑛 + 1) − 1))∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) |
42 | | simprr 770 |
. . . . . . . . . . . . 13
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ (𝑚 ∈ 𝑌 ∧ (𝑛 + 1) ∥ 𝑚)) → (𝑛 + 1) ∥ 𝑚) |
43 | | peano2nn 11994 |
. . . . . . . . . . . . . 14
⊢ (𝑛 ∈ ℕ → (𝑛 + 1) ∈
ℕ) |
44 | 43 | ad2antrr 723 |
. . . . . . . . . . . . 13
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ (𝑚 ∈ 𝑌 ∧ (𝑛 + 1) ∥ 𝑚)) → (𝑛 + 1) ∈ ℕ) |
45 | | simprl 768 |
. . . . . . . . . . . . 13
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ (𝑚 ∈ 𝑌 ∧ (𝑛 + 1) ∥ 𝑚)) → 𝑚 ∈ 𝑌) |
46 | 25, 32, 41, 42, 44, 45 | 2sqlem9 26584 |
. . . . . . . . . . . 12
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ (𝑚 ∈ 𝑌 ∧ (𝑛 + 1) ∥ 𝑚)) → (𝑛 + 1) ∈ 𝑆) |
47 | 46 | expr 457 |
. . . . . . . . . . 11
⊢ (((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) ∧ 𝑚 ∈ 𝑌) → ((𝑛 + 1) ∥ 𝑚 → (𝑛 + 1) ∈ 𝑆)) |
48 | 47 | ralrimiva 3104 |
. . . . . . . . . 10
⊢ ((𝑛 ∈ ℕ ∧
∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) → ∀𝑚 ∈ 𝑌 ((𝑛 + 1) ∥ 𝑚 → (𝑛 + 1) ∈ 𝑆)) |
49 | 48 | ex 413 |
. . . . . . . . 9
⊢ (𝑛 ∈ ℕ →
(∀𝑏 ∈
(1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) → ∀𝑚 ∈ 𝑌 ((𝑛 + 1) ∥ 𝑚 → (𝑛 + 1) ∈ 𝑆))) |
50 | | breq2 5079 |
. . . . . . . . . . 11
⊢ (𝑎 = 𝑚 → ((𝑛 + 1) ∥ 𝑎 ↔ (𝑛 + 1) ∥ 𝑚)) |
51 | 50 | imbi1d 342 |
. . . . . . . . . 10
⊢ (𝑎 = 𝑚 → (((𝑛 + 1) ∥ 𝑎 → (𝑛 + 1) ∈ 𝑆) ↔ ((𝑛 + 1) ∥ 𝑚 → (𝑛 + 1) ∈ 𝑆))) |
52 | 51 | cbvralvw 3384 |
. . . . . . . . 9
⊢
(∀𝑎 ∈
𝑌 ((𝑛 + 1) ∥ 𝑎 → (𝑛 + 1) ∈ 𝑆) ↔ ∀𝑚 ∈ 𝑌 ((𝑛 + 1) ∥ 𝑚 → (𝑛 + 1) ∈ 𝑆)) |
53 | 49, 52 | syl6ibr 251 |
. . . . . . . 8
⊢ (𝑛 ∈ ℕ →
(∀𝑏 ∈
(1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) → ∀𝑎 ∈ 𝑌 ((𝑛 + 1) ∥ 𝑎 → (𝑛 + 1) ∈ 𝑆))) |
54 | | ovex 7317 |
. . . . . . . . 9
⊢ (𝑛 + 1) ∈ V |
55 | | breq1 5078 |
. . . . . . . . . . 11
⊢ (𝑏 = (𝑛 + 1) → (𝑏 ∥ 𝑎 ↔ (𝑛 + 1) ∥ 𝑎)) |
56 | | eleq1 2827 |
. . . . . . . . . . 11
⊢ (𝑏 = (𝑛 + 1) → (𝑏 ∈ 𝑆 ↔ (𝑛 + 1) ∈ 𝑆)) |
57 | 55, 56 | imbi12d 345 |
. . . . . . . . . 10
⊢ (𝑏 = (𝑛 + 1) → ((𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ ((𝑛 + 1) ∥ 𝑎 → (𝑛 + 1) ∈ 𝑆))) |
58 | 57 | ralbidv 3113 |
. . . . . . . . 9
⊢ (𝑏 = (𝑛 + 1) → (∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ ∀𝑎 ∈ 𝑌 ((𝑛 + 1) ∥ 𝑎 → (𝑛 + 1) ∈ 𝑆))) |
59 | 54, 58 | ralsn 4618 |
. . . . . . . 8
⊢
(∀𝑏 ∈
{(𝑛 + 1)}∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ ∀𝑎 ∈ 𝑌 ((𝑛 + 1) ∥ 𝑎 → (𝑛 + 1) ∈ 𝑆)) |
60 | 53, 59 | syl6ibr 251 |
. . . . . . 7
⊢ (𝑛 ∈ ℕ →
(∀𝑏 ∈
(1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) → ∀𝑏 ∈ {(𝑛 + 1)}∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆))) |
61 | 60 | ancld 551 |
. . . . . 6
⊢ (𝑛 ∈ ℕ →
(∀𝑏 ∈
(1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) → (∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ∧ ∀𝑏 ∈ {(𝑛 + 1)}∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)))) |
62 | | elnnuz 12631 |
. . . . . . . . 9
⊢ (𝑛 ∈ ℕ ↔ 𝑛 ∈
(ℤ≥‘1)) |
63 | | fzsuc 13312 |
. . . . . . . . 9
⊢ (𝑛 ∈
(ℤ≥‘1) → (1...(𝑛 + 1)) = ((1...𝑛) ∪ {(𝑛 + 1)})) |
64 | 62, 63 | sylbi 216 |
. . . . . . . 8
⊢ (𝑛 ∈ ℕ →
(1...(𝑛 + 1)) = ((1...𝑛) ∪ {(𝑛 + 1)})) |
65 | 64 | raleqdv 3349 |
. . . . . . 7
⊢ (𝑛 ∈ ℕ →
(∀𝑏 ∈
(1...(𝑛 + 1))∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ ∀𝑏 ∈ ((1...𝑛) ∪ {(𝑛 + 1)})∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆))) |
66 | | ralunb 4126 |
. . . . . . 7
⊢
(∀𝑏 ∈
((1...𝑛) ∪ {(𝑛 + 1)})∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ (∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ∧ ∀𝑏 ∈ {(𝑛 + 1)}∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆))) |
67 | 65, 66 | bitrdi 287 |
. . . . . 6
⊢ (𝑛 ∈ ℕ →
(∀𝑏 ∈
(1...(𝑛 + 1))∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ↔ (∀𝑏 ∈ (1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) ∧ ∀𝑏 ∈ {(𝑛 + 1)}∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)))) |
68 | 61, 67 | sylibrd 258 |
. . . . 5
⊢ (𝑛 ∈ ℕ →
(∀𝑏 ∈
(1...𝑛)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆) → ∀𝑏 ∈ (1...(𝑛 + 1))∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆))) |
69 | 6, 8, 10, 12, 31, 68 | nnind 12000 |
. . . 4
⊢ (𝐵 ∈ ℕ →
∀𝑏 ∈ (1...𝐵)∀𝑎 ∈ 𝑌 (𝑏 ∥ 𝑎 → 𝑏 ∈ 𝑆)) |
70 | | elfz1end 13295 |
. . . . 5
⊢ (𝐵 ∈ ℕ ↔ 𝐵 ∈ (1...𝐵)) |
71 | 70 | biimpi 215 |
. . . 4
⊢ (𝐵 ∈ ℕ → 𝐵 ∈ (1...𝐵)) |
72 | 4, 69, 71 | rspcdva 3563 |
. . 3
⊢ (𝐵 ∈ ℕ →
∀𝑎 ∈ 𝑌 (𝐵 ∥ 𝑎 → 𝐵 ∈ 𝑆)) |
73 | | breq2 5079 |
. . . . 5
⊢ (𝑎 = 𝐴 → (𝐵 ∥ 𝑎 ↔ 𝐵 ∥ 𝐴)) |
74 | 73 | imbi1d 342 |
. . . 4
⊢ (𝑎 = 𝐴 → ((𝐵 ∥ 𝑎 → 𝐵 ∈ 𝑆) ↔ (𝐵 ∥ 𝐴 → 𝐵 ∈ 𝑆))) |
75 | 74 | rspcv 3558 |
. . 3
⊢ (𝐴 ∈ 𝑌 → (∀𝑎 ∈ 𝑌 (𝐵 ∥ 𝑎 → 𝐵 ∈ 𝑆) → (𝐵 ∥ 𝐴 → 𝐵 ∈ 𝑆))) |
76 | 72, 75 | syl5 34 |
. 2
⊢ (𝐴 ∈ 𝑌 → (𝐵 ∈ ℕ → (𝐵 ∥ 𝐴 → 𝐵 ∈ 𝑆))) |
77 | 76 | 3imp 1110 |
1
⊢ ((𝐴 ∈ 𝑌 ∧ 𝐵 ∈ ℕ ∧ 𝐵 ∥ 𝐴) → 𝐵 ∈ 𝑆) |