Proof of Theorem crctcshwlkn0lem7
Step | Hyp | Ref
| Expression |
1 | | crctcshwlkn0lem.s |
. . . . . 6
⊢ (𝜑 → 𝑆 ∈ (1..^𝑁)) |
2 | | crctcshwlkn0lem.q |
. . . . . 6
⊢ 𝑄 = (𝑥 ∈ (0...𝑁) ↦ if(𝑥 ≤ (𝑁 − 𝑆), (𝑃‘(𝑥 + 𝑆)), (𝑃‘((𝑥 + 𝑆) − 𝑁)))) |
3 | | crctcshwlkn0lem.h |
. . . . . 6
⊢ 𝐻 = (𝐹 cyclShift 𝑆) |
4 | | crctcshwlkn0lem.n |
. . . . . 6
⊢ 𝑁 = (♯‘𝐹) |
5 | | crctcshwlkn0lem.f |
. . . . . 6
⊢ (𝜑 → 𝐹 ∈ Word 𝐴) |
6 | | crctcshwlkn0lem.p |
. . . . . 6
⊢ (𝜑 → ∀𝑖 ∈ (0..^𝑁)if-((𝑃‘𝑖) = (𝑃‘(𝑖 + 1)), (𝐼‘(𝐹‘𝑖)) = {(𝑃‘𝑖)}, {(𝑃‘𝑖), (𝑃‘(𝑖 + 1))} ⊆ (𝐼‘(𝐹‘𝑖)))) |
7 | 1, 2, 3, 4, 5, 6 | crctcshwlkn0lem4 28178 |
. . . . 5
⊢ (𝜑 → ∀𝑗 ∈ (0..^(𝑁 − 𝑆))if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗)))) |
8 | | eqidd 2739 |
. . . . . . 7
⊢ (𝜑 → (𝑁 − 𝑆) = (𝑁 − 𝑆)) |
9 | | crctcshwlkn0lem.e |
. . . . . . . 8
⊢ (𝜑 → (𝑃‘𝑁) = (𝑃‘0)) |
10 | 1, 2, 3, 4, 5, 6, 9 | crctcshwlkn0lem6 28180 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑁 − 𝑆) = (𝑁 − 𝑆)) → if-((𝑄‘(𝑁 − 𝑆)) = (𝑄‘((𝑁 − 𝑆) + 1)), (𝐼‘(𝐻‘(𝑁 − 𝑆))) = {(𝑄‘(𝑁 − 𝑆))}, {(𝑄‘(𝑁 − 𝑆)), (𝑄‘((𝑁 − 𝑆) + 1))} ⊆ (𝐼‘(𝐻‘(𝑁 − 𝑆))))) |
11 | 8, 10 | mpdan 684 |
. . . . . 6
⊢ (𝜑 → if-((𝑄‘(𝑁 − 𝑆)) = (𝑄‘((𝑁 − 𝑆) + 1)), (𝐼‘(𝐻‘(𝑁 − 𝑆))) = {(𝑄‘(𝑁 − 𝑆))}, {(𝑄‘(𝑁 − 𝑆)), (𝑄‘((𝑁 − 𝑆) + 1))} ⊆ (𝐼‘(𝐻‘(𝑁 − 𝑆))))) |
12 | | ovex 7308 |
. . . . . . 7
⊢ (𝑁 − 𝑆) ∈ V |
13 | | wkslem1 27974 |
. . . . . . 7
⊢ (𝑗 = (𝑁 − 𝑆) → (if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))) ↔ if-((𝑄‘(𝑁 − 𝑆)) = (𝑄‘((𝑁 − 𝑆) + 1)), (𝐼‘(𝐻‘(𝑁 − 𝑆))) = {(𝑄‘(𝑁 − 𝑆))}, {(𝑄‘(𝑁 − 𝑆)), (𝑄‘((𝑁 − 𝑆) + 1))} ⊆ (𝐼‘(𝐻‘(𝑁 − 𝑆)))))) |
14 | 12, 13 | ralsn 4617 |
. . . . . 6
⊢
(∀𝑗 ∈
{(𝑁 − 𝑆)}if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))) ↔ if-((𝑄‘(𝑁 − 𝑆)) = (𝑄‘((𝑁 − 𝑆) + 1)), (𝐼‘(𝐻‘(𝑁 − 𝑆))) = {(𝑄‘(𝑁 − 𝑆))}, {(𝑄‘(𝑁 − 𝑆)), (𝑄‘((𝑁 − 𝑆) + 1))} ⊆ (𝐼‘(𝐻‘(𝑁 − 𝑆))))) |
15 | 11, 14 | sylibr 233 |
. . . . 5
⊢ (𝜑 → ∀𝑗 ∈ {(𝑁 − 𝑆)}if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗)))) |
16 | | ralunb 4125 |
. . . . 5
⊢
(∀𝑗 ∈
((0..^(𝑁 − 𝑆)) ∪ {(𝑁 − 𝑆)})if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))) ↔ (∀𝑗 ∈ (0..^(𝑁 − 𝑆))if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))) ∧ ∀𝑗 ∈ {(𝑁 − 𝑆)}if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))))) |
17 | 7, 15, 16 | sylanbrc 583 |
. . . 4
⊢ (𝜑 → ∀𝑗 ∈ ((0..^(𝑁 − 𝑆)) ∪ {(𝑁 − 𝑆)})if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗)))) |
18 | | elfzo1 13437 |
. . . . . . 7
⊢ (𝑆 ∈ (1..^𝑁) ↔ (𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁)) |
19 | | nnz 12342 |
. . . . . . . . . . . 12
⊢ (𝑁 ∈ ℕ → 𝑁 ∈
ℤ) |
20 | | nnz 12342 |
. . . . . . . . . . . 12
⊢ (𝑆 ∈ ℕ → 𝑆 ∈
ℤ) |
21 | | zsubcl 12362 |
. . . . . . . . . . . 12
⊢ ((𝑁 ∈ ℤ ∧ 𝑆 ∈ ℤ) → (𝑁 − 𝑆) ∈ ℤ) |
22 | 19, 20, 21 | syl2anr 597 |
. . . . . . . . . . 11
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑁 − 𝑆) ∈ ℤ) |
23 | 22 | 3adant3 1131 |
. . . . . . . . . 10
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁) → (𝑁 − 𝑆) ∈ ℤ) |
24 | | nnre 11980 |
. . . . . . . . . . . 12
⊢ (𝑆 ∈ ℕ → 𝑆 ∈
ℝ) |
25 | | nnre 11980 |
. . . . . . . . . . . 12
⊢ (𝑁 ∈ ℕ → 𝑁 ∈
ℝ) |
26 | | posdif 11468 |
. . . . . . . . . . . . 13
⊢ ((𝑆 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑆 < 𝑁 ↔ 0 < (𝑁 − 𝑆))) |
27 | | 0re 10977 |
. . . . . . . . . . . . . 14
⊢ 0 ∈
ℝ |
28 | | resubcl 11285 |
. . . . . . . . . . . . . . 15
⊢ ((𝑁 ∈ ℝ ∧ 𝑆 ∈ ℝ) → (𝑁 − 𝑆) ∈ ℝ) |
29 | 28 | ancoms 459 |
. . . . . . . . . . . . . 14
⊢ ((𝑆 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑁 − 𝑆) ∈ ℝ) |
30 | | ltle 11063 |
. . . . . . . . . . . . . 14
⊢ ((0
∈ ℝ ∧ (𝑁
− 𝑆) ∈ ℝ)
→ (0 < (𝑁 −
𝑆) → 0 ≤ (𝑁 − 𝑆))) |
31 | 27, 29, 30 | sylancr 587 |
. . . . . . . . . . . . 13
⊢ ((𝑆 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (0 <
(𝑁 − 𝑆) → 0 ≤ (𝑁 − 𝑆))) |
32 | 26, 31 | sylbid 239 |
. . . . . . . . . . . 12
⊢ ((𝑆 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑆 < 𝑁 → 0 ≤ (𝑁 − 𝑆))) |
33 | 24, 25, 32 | syl2an 596 |
. . . . . . . . . . 11
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑆 < 𝑁 → 0 ≤ (𝑁 − 𝑆))) |
34 | 33 | 3impia 1116 |
. . . . . . . . . 10
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁) → 0 ≤ (𝑁 − 𝑆)) |
35 | | elnn0z 12332 |
. . . . . . . . . 10
⊢ ((𝑁 − 𝑆) ∈ ℕ0 ↔ ((𝑁 − 𝑆) ∈ ℤ ∧ 0 ≤ (𝑁 − 𝑆))) |
36 | 23, 34, 35 | sylanbrc 583 |
. . . . . . . . 9
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁) → (𝑁 − 𝑆) ∈
ℕ0) |
37 | | elnn0uz 12623 |
. . . . . . . . 9
⊢ ((𝑁 − 𝑆) ∈ ℕ0 ↔ (𝑁 − 𝑆) ∈
(ℤ≥‘0)) |
38 | 36, 37 | sylib 217 |
. . . . . . . 8
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁) → (𝑁 − 𝑆) ∈
(ℤ≥‘0)) |
39 | | fzosplitsn 13495 |
. . . . . . . 8
⊢ ((𝑁 − 𝑆) ∈ (ℤ≥‘0)
→ (0..^((𝑁 −
𝑆) + 1)) = ((0..^(𝑁 − 𝑆)) ∪ {(𝑁 − 𝑆)})) |
40 | 38, 39 | syl 17 |
. . . . . . 7
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁) → (0..^((𝑁 − 𝑆) + 1)) = ((0..^(𝑁 − 𝑆)) ∪ {(𝑁 − 𝑆)})) |
41 | 18, 40 | sylbi 216 |
. . . . . 6
⊢ (𝑆 ∈ (1..^𝑁) → (0..^((𝑁 − 𝑆) + 1)) = ((0..^(𝑁 − 𝑆)) ∪ {(𝑁 − 𝑆)})) |
42 | 1, 41 | syl 17 |
. . . . 5
⊢ (𝜑 → (0..^((𝑁 − 𝑆) + 1)) = ((0..^(𝑁 − 𝑆)) ∪ {(𝑁 − 𝑆)})) |
43 | 42 | raleqdv 3348 |
. . . 4
⊢ (𝜑 → (∀𝑗 ∈ (0..^((𝑁 − 𝑆) + 1))if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))) ↔ ∀𝑗 ∈ ((0..^(𝑁 − 𝑆)) ∪ {(𝑁 − 𝑆)})if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))))) |
44 | 17, 43 | mpbird 256 |
. . 3
⊢ (𝜑 → ∀𝑗 ∈ (0..^((𝑁 − 𝑆) + 1))if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗)))) |
45 | 1, 2, 3, 4, 5, 6 | crctcshwlkn0lem5 28179 |
. . 3
⊢ (𝜑 → ∀𝑗 ∈ (((𝑁 − 𝑆) + 1)..^𝑁)if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗)))) |
46 | | ralunb 4125 |
. . 3
⊢
(∀𝑗 ∈
((0..^((𝑁 − 𝑆) + 1)) ∪ (((𝑁 − 𝑆) + 1)..^𝑁))if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))) ↔ (∀𝑗 ∈ (0..^((𝑁 − 𝑆) + 1))if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))) ∧ ∀𝑗 ∈ (((𝑁 − 𝑆) + 1)..^𝑁)if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))))) |
47 | 44, 45, 46 | sylanbrc 583 |
. 2
⊢ (𝜑 → ∀𝑗 ∈ ((0..^((𝑁 − 𝑆) + 1)) ∪ (((𝑁 − 𝑆) + 1)..^𝑁))if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗)))) |
48 | | nnsub 12017 |
. . . . . . . 8
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑆 < 𝑁 ↔ (𝑁 − 𝑆) ∈ ℕ)) |
49 | 48 | biimp3a 1468 |
. . . . . . 7
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁) → (𝑁 − 𝑆) ∈ ℕ) |
50 | | nnnn0 12240 |
. . . . . . 7
⊢ ((𝑁 − 𝑆) ∈ ℕ → (𝑁 − 𝑆) ∈
ℕ0) |
51 | | peano2nn0 12273 |
. . . . . . 7
⊢ ((𝑁 − 𝑆) ∈ ℕ0 → ((𝑁 − 𝑆) + 1) ∈
ℕ0) |
52 | 49, 50, 51 | 3syl 18 |
. . . . . 6
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁) → ((𝑁 − 𝑆) + 1) ∈
ℕ0) |
53 | | nnnn0 12240 |
. . . . . . 7
⊢ (𝑁 ∈ ℕ → 𝑁 ∈
ℕ0) |
54 | 53 | 3ad2ant2 1133 |
. . . . . 6
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁) → 𝑁 ∈
ℕ0) |
55 | 25 | anim1i 615 |
. . . . . . . . 9
⊢ ((𝑁 ∈ ℕ ∧ 𝑆 ∈ ℕ) → (𝑁 ∈ ℝ ∧ 𝑆 ∈
ℕ)) |
56 | 55 | ancoms 459 |
. . . . . . . 8
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ) → (𝑁 ∈ ℝ ∧ 𝑆 ∈
ℕ)) |
57 | | crctcshwlkn0lem1 28175 |
. . . . . . . 8
⊢ ((𝑁 ∈ ℝ ∧ 𝑆 ∈ ℕ) → ((𝑁 − 𝑆) + 1) ≤ 𝑁) |
58 | 56, 57 | syl 17 |
. . . . . . 7
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ) → ((𝑁 − 𝑆) + 1) ≤ 𝑁) |
59 | 58 | 3adant3 1131 |
. . . . . 6
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁) → ((𝑁 − 𝑆) + 1) ≤ 𝑁) |
60 | | elfz2nn0 13347 |
. . . . . 6
⊢ (((𝑁 − 𝑆) + 1) ∈ (0...𝑁) ↔ (((𝑁 − 𝑆) + 1) ∈ ℕ0 ∧
𝑁 ∈
ℕ0 ∧ ((𝑁 − 𝑆) + 1) ≤ 𝑁)) |
61 | 52, 54, 59, 60 | syl3anbrc 1342 |
. . . . 5
⊢ ((𝑆 ∈ ℕ ∧ 𝑁 ∈ ℕ ∧ 𝑆 < 𝑁) → ((𝑁 − 𝑆) + 1) ∈ (0...𝑁)) |
62 | 18, 61 | sylbi 216 |
. . . 4
⊢ (𝑆 ∈ (1..^𝑁) → ((𝑁 − 𝑆) + 1) ∈ (0...𝑁)) |
63 | | fzosplit 13420 |
. . . 4
⊢ (((𝑁 − 𝑆) + 1) ∈ (0...𝑁) → (0..^𝑁) = ((0..^((𝑁 − 𝑆) + 1)) ∪ (((𝑁 − 𝑆) + 1)..^𝑁))) |
64 | 1, 62, 63 | 3syl 18 |
. . 3
⊢ (𝜑 → (0..^𝑁) = ((0..^((𝑁 − 𝑆) + 1)) ∪ (((𝑁 − 𝑆) + 1)..^𝑁))) |
65 | 64 | raleqdv 3348 |
. 2
⊢ (𝜑 → (∀𝑗 ∈ (0..^𝑁)if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))) ↔ ∀𝑗 ∈ ((0..^((𝑁 − 𝑆) + 1)) ∪ (((𝑁 − 𝑆) + 1)..^𝑁))if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗))))) |
66 | 47, 65 | mpbird 256 |
1
⊢ (𝜑 → ∀𝑗 ∈ (0..^𝑁)if-((𝑄‘𝑗) = (𝑄‘(𝑗 + 1)), (𝐼‘(𝐻‘𝑗)) = {(𝑄‘𝑗)}, {(𝑄‘𝑗), (𝑄‘(𝑗 + 1))} ⊆ (𝐼‘(𝐻‘𝑗)))) |