Proof of Theorem lgsdir2lem2
Step | Hyp | Ref
| Expression |
1 | | lgsdir2lem2.3 |
. . 3
⊢ 𝑁 = (𝑀 + 1) |
2 | | lgsdir2lem2.2 |
. . . . 5
⊢ 𝑀 = (𝐾 + 1) |
3 | | lgsdir2lem2.1 |
. . . . . . 7
⊢ (𝐾 ∈ ℤ ∧ 2 ∥
(𝐾 + 1) ∧ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → ((𝐴 mod 8) ∈ (0...𝐾) → (𝐴 mod 8) ∈ 𝑆))) |
4 | 3 | simp1i 1063 |
. . . . . 6
⊢ 𝐾 ∈ ℤ |
5 | | peano2z 11295 |
. . . . . 6
⊢ (𝐾 ∈ ℤ → (𝐾 + 1) ∈
ℤ) |
6 | 4, 5 | ax-mp 5 |
. . . . 5
⊢ (𝐾 + 1) ∈
ℤ |
7 | 2, 6 | eqeltri 2684 |
. . . 4
⊢ 𝑀 ∈ ℤ |
8 | | peano2z 11295 |
. . . 4
⊢ (𝑀 ∈ ℤ → (𝑀 + 1) ∈
ℤ) |
9 | 7, 8 | ax-mp 5 |
. . 3
⊢ (𝑀 + 1) ∈
ℤ |
10 | 1, 9 | eqeltri 2684 |
. 2
⊢ 𝑁 ∈ ℤ |
11 | 3 | simp2i 1064 |
. . . 4
⊢ 2 ∥
(𝐾 + 1) |
12 | | 2z 11286 |
. . . . 5
⊢ 2 ∈
ℤ |
13 | | dvdsadd 14862 |
. . . . 5
⊢ ((2
∈ ℤ ∧ (𝐾 +
1) ∈ ℤ) → (2 ∥ (𝐾 + 1) ↔ 2 ∥ (2 + (𝐾 + 1)))) |
14 | 12, 6, 13 | mp2an 704 |
. . . 4
⊢ (2
∥ (𝐾 + 1) ↔ 2
∥ (2 + (𝐾 +
1))) |
15 | 11, 14 | mpbi 219 |
. . 3
⊢ 2 ∥
(2 + (𝐾 +
1)) |
16 | | zcn 11259 |
. . . . . . . . . . 11
⊢ (𝐾 ∈ ℤ → 𝐾 ∈
ℂ) |
17 | 4, 16 | ax-mp 5 |
. . . . . . . . . 10
⊢ 𝐾 ∈ ℂ |
18 | | ax-1cn 9873 |
. . . . . . . . . 10
⊢ 1 ∈
ℂ |
19 | 17, 18 | addcomi 10106 |
. . . . . . . . 9
⊢ (𝐾 + 1) = (1 + 𝐾) |
20 | 2, 19 | eqtri 2632 |
. . . . . . . 8
⊢ 𝑀 = (1 + 𝐾) |
21 | 20 | oveq1i 6559 |
. . . . . . 7
⊢ (𝑀 + 1) = ((1 + 𝐾) + 1) |
22 | 1, 21 | eqtri 2632 |
. . . . . 6
⊢ 𝑁 = ((1 + 𝐾) + 1) |
23 | | df-2 10956 |
. . . . . . . 8
⊢ 2 = (1 +
1) |
24 | 23 | oveq1i 6559 |
. . . . . . 7
⊢ (2 +
𝐾) = ((1 + 1) + 𝐾) |
25 | 18, 17, 18 | add32i 10138 |
. . . . . . 7
⊢ ((1 +
𝐾) + 1) = ((1 + 1) + 𝐾) |
26 | 24, 25 | eqtr4i 2635 |
. . . . . 6
⊢ (2 +
𝐾) = ((1 + 𝐾) + 1) |
27 | 22, 26 | eqtr4i 2635 |
. . . . 5
⊢ 𝑁 = (2 + 𝐾) |
28 | 27 | oveq1i 6559 |
. . . 4
⊢ (𝑁 + 1) = ((2 + 𝐾) + 1) |
29 | | 2cn 10968 |
. . . . 5
⊢ 2 ∈
ℂ |
30 | 29, 17, 18 | addassi 9927 |
. . . 4
⊢ ((2 +
𝐾) + 1) = (2 + (𝐾 + 1)) |
31 | 28, 30 | eqtri 2632 |
. . 3
⊢ (𝑁 + 1) = (2 + (𝐾 + 1)) |
32 | 15, 31 | breqtrri 4610 |
. 2
⊢ 2 ∥
(𝑁 + 1) |
33 | | elfzuz2 12217 |
. . . . 5
⊢ ((𝐴 mod 8) ∈ (0...𝑁) → 𝑁 ∈
(ℤ≥‘0)) |
34 | | fzm1 12289 |
. . . . 5
⊢ (𝑁 ∈
(ℤ≥‘0) → ((𝐴 mod 8) ∈ (0...𝑁) ↔ ((𝐴 mod 8) ∈ (0...(𝑁 − 1)) ∨ (𝐴 mod 8) = 𝑁))) |
35 | 33, 34 | syl 17 |
. . . 4
⊢ ((𝐴 mod 8) ∈ (0...𝑁) → ((𝐴 mod 8) ∈ (0...𝑁) ↔ ((𝐴 mod 8) ∈ (0...(𝑁 − 1)) ∨ (𝐴 mod 8) = 𝑁))) |
36 | 35 | ibi 255 |
. . 3
⊢ ((𝐴 mod 8) ∈ (0...𝑁) → ((𝐴 mod 8) ∈ (0...(𝑁 − 1)) ∨ (𝐴 mod 8) = 𝑁)) |
37 | | elfzuz2 12217 |
. . . . . . . 8
⊢ ((𝐴 mod 8) ∈ (0...𝑀) → 𝑀 ∈
(ℤ≥‘0)) |
38 | | fzm1 12289 |
. . . . . . . 8
⊢ (𝑀 ∈
(ℤ≥‘0) → ((𝐴 mod 8) ∈ (0...𝑀) ↔ ((𝐴 mod 8) ∈ (0...(𝑀 − 1)) ∨ (𝐴 mod 8) = 𝑀))) |
39 | 37, 38 | syl 17 |
. . . . . . 7
⊢ ((𝐴 mod 8) ∈ (0...𝑀) → ((𝐴 mod 8) ∈ (0...𝑀) ↔ ((𝐴 mod 8) ∈ (0...(𝑀 − 1)) ∨ (𝐴 mod 8) = 𝑀))) |
40 | 39 | ibi 255 |
. . . . . 6
⊢ ((𝐴 mod 8) ∈ (0...𝑀) → ((𝐴 mod 8) ∈ (0...(𝑀 − 1)) ∨ (𝐴 mod 8) = 𝑀)) |
41 | | zcn 11259 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℤ → 𝑁 ∈
ℂ) |
42 | 10, 41 | ax-mp 5 |
. . . . . . . 8
⊢ 𝑁 ∈ ℂ |
43 | | zcn 11259 |
. . . . . . . . 9
⊢ (𝑀 ∈ ℤ → 𝑀 ∈
ℂ) |
44 | 7, 43 | ax-mp 5 |
. . . . . . . 8
⊢ 𝑀 ∈ ℂ |
45 | 18, 44 | addcomi 10106 |
. . . . . . . . 9
⊢ (1 +
𝑀) = (𝑀 + 1) |
46 | 45, 1 | eqtr4i 2635 |
. . . . . . . 8
⊢ (1 +
𝑀) = 𝑁 |
47 | 42, 18, 44, 46 | subaddrii 10249 |
. . . . . . 7
⊢ (𝑁 − 1) = 𝑀 |
48 | 47 | oveq2i 6560 |
. . . . . 6
⊢
(0...(𝑁 − 1))
= (0...𝑀) |
49 | 40, 48 | eleq2s 2706 |
. . . . 5
⊢ ((𝐴 mod 8) ∈ (0...(𝑁 − 1)) → ((𝐴 mod 8) ∈ (0...(𝑀 − 1)) ∨ (𝐴 mod 8) = 𝑀)) |
50 | 20 | eqcomi 2619 |
. . . . . . . . . 10
⊢ (1 +
𝐾) = 𝑀 |
51 | 44, 18, 17, 50 | subaddrii 10249 |
. . . . . . . . 9
⊢ (𝑀 − 1) = 𝐾 |
52 | 51 | oveq2i 6560 |
. . . . . . . 8
⊢
(0...(𝑀 − 1))
= (0...𝐾) |
53 | 52 | eleq2i 2680 |
. . . . . . 7
⊢ ((𝐴 mod 8) ∈ (0...(𝑀 − 1)) ↔ (𝐴 mod 8) ∈ (0...𝐾)) |
54 | 3 | simp3i 1065 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → ((𝐴 mod 8) ∈ (0...𝐾) → (𝐴 mod 8) ∈ 𝑆)) |
55 | 53, 54 | syl5bi 231 |
. . . . . 6
⊢ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → ((𝐴 mod 8) ∈ (0...(𝑀 − 1)) → (𝐴 mod 8) ∈ 𝑆)) |
56 | | 2nn 11062 |
. . . . . . . . . . 11
⊢ 2 ∈
ℕ |
57 | | 8nn 11068 |
. . . . . . . . . . 11
⊢ 8 ∈
ℕ |
58 | | 4z 11288 |
. . . . . . . . . . . . . 14
⊢ 4 ∈
ℤ |
59 | | dvdsmul2 14842 |
. . . . . . . . . . . . . 14
⊢ ((4
∈ ℤ ∧ 2 ∈ ℤ) → 2 ∥ (4 ·
2)) |
60 | 58, 12, 59 | mp2an 704 |
. . . . . . . . . . . . 13
⊢ 2 ∥
(4 · 2) |
61 | | 4t2e8 11058 |
. . . . . . . . . . . . 13
⊢ (4
· 2) = 8 |
62 | 60, 61 | breqtri 4608 |
. . . . . . . . . . . 12
⊢ 2 ∥
8 |
63 | | dvdsmod 14888 |
. . . . . . . . . . . 12
⊢ (((2
∈ ℕ ∧ 8 ∈ ℕ ∧ 𝐴 ∈ ℤ) ∧ 2 ∥ 8) →
(2 ∥ (𝐴 mod 8) ↔
2 ∥ 𝐴)) |
64 | 62, 63 | mpan2 703 |
. . . . . . . . . . 11
⊢ ((2
∈ ℕ ∧ 8 ∈ ℕ ∧ 𝐴 ∈ ℤ) → (2 ∥ (𝐴 mod 8) ↔ 2 ∥ 𝐴)) |
65 | 56, 57, 64 | mp3an12 1406 |
. . . . . . . . . 10
⊢ (𝐴 ∈ ℤ → (2
∥ (𝐴 mod 8) ↔ 2
∥ 𝐴)) |
66 | 65 | notbid 307 |
. . . . . . . . 9
⊢ (𝐴 ∈ ℤ → (¬ 2
∥ (𝐴 mod 8) ↔
¬ 2 ∥ 𝐴)) |
67 | 66 | biimpar 501 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → ¬ 2
∥ (𝐴 mod
8)) |
68 | 11, 2 | breqtrri 4610 |
. . . . . . . . 9
⊢ 2 ∥
𝑀 |
69 | | id 22 |
. . . . . . . . 9
⊢ ((𝐴 mod 8) = 𝑀 → (𝐴 mod 8) = 𝑀) |
70 | 68, 69 | syl5breqr 4621 |
. . . . . . . 8
⊢ ((𝐴 mod 8) = 𝑀 → 2 ∥ (𝐴 mod 8)) |
71 | 67, 70 | nsyl 134 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → ¬
(𝐴 mod 8) = 𝑀) |
72 | 71 | pm2.21d 117 |
. . . . . 6
⊢ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → ((𝐴 mod 8) = 𝑀 → (𝐴 mod 8) ∈ 𝑆)) |
73 | 55, 72 | jaod 394 |
. . . . 5
⊢ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → (((𝐴 mod 8) ∈ (0...(𝑀 − 1)) ∨ (𝐴 mod 8) = 𝑀) → (𝐴 mod 8) ∈ 𝑆)) |
74 | 49, 73 | syl5 33 |
. . . 4
⊢ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → ((𝐴 mod 8) ∈ (0...(𝑁 − 1)) → (𝐴 mod 8) ∈ 𝑆)) |
75 | | lgsdir2lem2.4 |
. . . . . 6
⊢ 𝑁 ∈ 𝑆 |
76 | | eleq1 2676 |
. . . . . 6
⊢ ((𝐴 mod 8) = 𝑁 → ((𝐴 mod 8) ∈ 𝑆 ↔ 𝑁 ∈ 𝑆)) |
77 | 75, 76 | mpbiri 247 |
. . . . 5
⊢ ((𝐴 mod 8) = 𝑁 → (𝐴 mod 8) ∈ 𝑆) |
78 | 77 | a1i 11 |
. . . 4
⊢ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → ((𝐴 mod 8) = 𝑁 → (𝐴 mod 8) ∈ 𝑆)) |
79 | 74, 78 | jaod 394 |
. . 3
⊢ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → (((𝐴 mod 8) ∈ (0...(𝑁 − 1)) ∨ (𝐴 mod 8) = 𝑁) → (𝐴 mod 8) ∈ 𝑆)) |
80 | 36, 79 | syl5 33 |
. 2
⊢ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → ((𝐴 mod 8) ∈ (0...𝑁) → (𝐴 mod 8) ∈ 𝑆)) |
81 | 10, 32, 80 | 3pm3.2i 1232 |
1
⊢ (𝑁 ∈ ℤ ∧ 2 ∥
(𝑁 + 1) ∧ ((𝐴 ∈ ℤ ∧ ¬ 2
∥ 𝐴) → ((𝐴 mod 8) ∈ (0...𝑁) → (𝐴 mod 8) ∈ 𝑆))) |