Proof of Theorem numclwwlk1lem2foalemOLD
Step | Hyp | Ref
| Expression |
1 | | simpl 475 |
. . . . . . . 8
⊢ ((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) → 𝑊 ∈ Word 𝑉) |
2 | | s1cl 13622 |
. . . . . . . 8
⊢ (𝑋 ∈ 𝑉 → 〈“𝑋”〉 ∈ Word 𝑉) |
3 | | s1cl 13622 |
. . . . . . . 8
⊢ (𝑌 ∈ 𝑉 → 〈“𝑌”〉 ∈ Word 𝑉) |
4 | 1, 2, 3 | 3anim123i 1191 |
. . . . . . 7
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ 𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) → (𝑊 ∈ Word 𝑉 ∧ 〈“𝑋”〉 ∈ Word 𝑉 ∧ 〈“𝑌”〉 ∈ Word 𝑉)) |
5 | 4 | 3expb 1150 |
. . . . . 6
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (𝑊 ∈ Word 𝑉 ∧ 〈“𝑋”〉 ∈ Word 𝑉 ∧ 〈“𝑌”〉 ∈ Word 𝑉)) |
6 | | ccatass 13608 |
. . . . . 6
⊢ ((𝑊 ∈ Word 𝑉 ∧ 〈“𝑋”〉 ∈ Word 𝑉 ∧ 〈“𝑌”〉 ∈ Word 𝑉) → ((𝑊 ++ 〈“𝑋”〉) ++ 〈“𝑌”〉) = (𝑊 ++ (〈“𝑋”〉 ++
〈“𝑌”〉))) |
7 | 5, 6 | syl 17 |
. . . . 5
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → ((𝑊 ++ 〈“𝑋”〉) ++ 〈“𝑌”〉) = (𝑊 ++ (〈“𝑋”〉 ++
〈“𝑌”〉))) |
8 | 7 | oveq1d 6893 |
. . . 4
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (((𝑊 ++ 〈“𝑋”〉) ++ 〈“𝑌”〉) substr 〈0,
(𝑁 − 2)〉) =
((𝑊 ++ (〈“𝑋”〉 ++
〈“𝑌”〉)) substr 〈0, (𝑁 −
2)〉)) |
9 | 1 | adantr 473 |
. . . . 5
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → 𝑊 ∈ Word 𝑉) |
10 | | ccat2s1cl 13638 |
. . . . . 6
⊢ ((𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) → (〈“𝑋”〉 ++ 〈“𝑌”〉) ∈ Word 𝑉) |
11 | 10 | adantl 474 |
. . . . 5
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (〈“𝑋”〉 ++ 〈“𝑌”〉) ∈ Word 𝑉) |
12 | | simpr 478 |
. . . . . . 7
⊢ ((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) → (♯‘𝑊) = (𝑁 − 2)) |
13 | 12 | eqcomd 2805 |
. . . . . 6
⊢ ((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) → (𝑁 − 2) = (♯‘𝑊)) |
14 | 13 | adantr 473 |
. . . . 5
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (𝑁 − 2) = (♯‘𝑊)) |
15 | | swrdccatidOLD 13809 |
. . . . 5
⊢ ((𝑊 ∈ Word 𝑉 ∧ (〈“𝑋”〉 ++ 〈“𝑌”〉) ∈ Word 𝑉 ∧ (𝑁 − 2) = (♯‘𝑊)) → ((𝑊 ++ (〈“𝑋”〉 ++ 〈“𝑌”〉)) substr 〈0,
(𝑁 − 2)〉) =
𝑊) |
16 | 9, 11, 14, 15 | syl3anc 1491 |
. . . 4
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → ((𝑊 ++ (〈“𝑋”〉 ++ 〈“𝑌”〉)) substr 〈0,
(𝑁 − 2)〉) =
𝑊) |
17 | 8, 16 | eqtrd 2833 |
. . 3
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (((𝑊 ++ 〈“𝑋”〉) ++ 〈“𝑌”〉) substr 〈0,
(𝑁 − 2)〉) =
𝑊) |
18 | 17 | 3adant3 1163 |
. 2
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) ∧ 𝑁 ∈ (ℤ≥‘3))
→ (((𝑊 ++
〈“𝑋”〉) ++ 〈“𝑌”〉) substr 〈0,
(𝑁 − 2)〉) =
𝑊) |
19 | | 1e2m1 11447 |
. . . . . . 7
⊢ 1 = (2
− 1) |
20 | 19 | oveq2i 6889 |
. . . . . 6
⊢ (𝑁 − 1) = (𝑁 − (2 − 1)) |
21 | | eluzelcn 11942 |
. . . . . . 7
⊢ (𝑁 ∈
(ℤ≥‘3) → 𝑁 ∈ ℂ) |
22 | | 2cnd 11391 |
. . . . . . 7
⊢ (𝑁 ∈
(ℤ≥‘3) → 2 ∈ ℂ) |
23 | | 1cnd 10323 |
. . . . . . 7
⊢ (𝑁 ∈
(ℤ≥‘3) → 1 ∈ ℂ) |
24 | 21, 22, 23 | subsubd 10712 |
. . . . . 6
⊢ (𝑁 ∈
(ℤ≥‘3) → (𝑁 − (2 − 1)) = ((𝑁 − 2) +
1)) |
25 | 20, 24 | syl5eq 2845 |
. . . . 5
⊢ (𝑁 ∈
(ℤ≥‘3) → (𝑁 − 1) = ((𝑁 − 2) + 1)) |
26 | 25 | 3ad2ant3 1166 |
. . . 4
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) ∧ 𝑁 ∈ (ℤ≥‘3))
→ (𝑁 − 1) =
((𝑁 − 2) +
1)) |
27 | 26 | fveq2d 6415 |
. . 3
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) ∧ 𝑁 ∈ (ℤ≥‘3))
→ (((𝑊 ++
〈“𝑋”〉) ++ 〈“𝑌”〉)‘(𝑁 − 1)) = (((𝑊 ++ 〈“𝑋”〉) ++
〈“𝑌”〉)‘((𝑁 − 2) + 1))) |
28 | | ccatw2s1p2 13661 |
. . . 4
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (((𝑊 ++ 〈“𝑋”〉) ++ 〈“𝑌”〉)‘((𝑁 − 2) + 1)) = 𝑌) |
29 | 28 | 3adant3 1163 |
. . 3
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) ∧ 𝑁 ∈ (ℤ≥‘3))
→ (((𝑊 ++
〈“𝑋”〉) ++ 〈“𝑌”〉)‘((𝑁 − 2) + 1)) = 𝑌) |
30 | 27, 29 | eqtrd 2833 |
. 2
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) ∧ 𝑁 ∈ (ℤ≥‘3))
→ (((𝑊 ++
〈“𝑋”〉) ++ 〈“𝑌”〉)‘(𝑁 − 1)) = 𝑌) |
31 | | ccatw2s1p1 13660 |
. . 3
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (((𝑊 ++ 〈“𝑋”〉) ++ 〈“𝑌”〉)‘(𝑁 − 2)) = 𝑋) |
32 | 31 | 3adant3 1163 |
. 2
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) ∧ 𝑁 ∈ (ℤ≥‘3))
→ (((𝑊 ++
〈“𝑋”〉) ++ 〈“𝑌”〉)‘(𝑁 − 2)) = 𝑋) |
33 | 18, 30, 32 | 3jca 1159 |
1
⊢ (((𝑊 ∈ Word 𝑉 ∧ (♯‘𝑊) = (𝑁 − 2)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) ∧ 𝑁 ∈ (ℤ≥‘3))
→ ((((𝑊 ++
〈“𝑋”〉) ++ 〈“𝑌”〉) substr 〈0,
(𝑁 − 2)〉) =
𝑊 ∧ (((𝑊 ++ 〈“𝑋”〉) ++
〈“𝑌”〉)‘(𝑁 − 1)) = 𝑌 ∧ (((𝑊 ++ 〈“𝑋”〉) ++ 〈“𝑌”〉)‘(𝑁 − 2)) = 𝑋)) |