Step | Hyp | Ref
| Expression |
1 | | simpl1 1191 |
. . . . . 6
β’ (((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β§ π β (0...π)) β πΉ β Word β) |
2 | | s1cl 14517 |
. . . . . . . 8
β’ (πΎ β β β
β¨βπΎββ©
β Word β) |
3 | 2 | 3ad2ant2 1134 |
. . . . . . 7
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β β¨βπΎββ© β Word
β) |
4 | 3 | adantr 481 |
. . . . . 6
β’ (((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β§ π β (0...π)) β β¨βπΎββ© β Word
β) |
5 | | fzssfzo 33274 |
. . . . . . . 8
β’ (π β
(0..^(β―βπΉ))
β (0...π) β
(0..^(β―βπΉ))) |
6 | 5 | 3ad2ant3 1135 |
. . . . . . 7
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β (0...π) β
(0..^(β―βπΉ))) |
7 | 6 | sselda 3962 |
. . . . . 6
β’ (((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β§ π β (0...π)) β π β (0..^(β―βπΉ))) |
8 | | ccatval1 14492 |
. . . . . 6
β’ ((πΉ β Word β β§
β¨βπΎββ©
β Word β β§ π
β (0..^(β―βπΉ))) β ((πΉ ++ β¨βπΎββ©)βπ) = (πΉβπ)) |
9 | 1, 4, 7, 8 | syl3anc 1371 |
. . . . 5
β’ (((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β§ π β (0...π)) β ((πΉ ++ β¨βπΎββ©)βπ) = (πΉβπ)) |
10 | 9 | fveq2d 6866 |
. . . 4
β’ (((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β§ π β (0...π)) β (sgnβ((πΉ ++ β¨βπΎββ©)βπ)) = (sgnβ(πΉβπ))) |
11 | 10 | mpteq2dva 5225 |
. . 3
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β (π β (0...π) β¦ (sgnβ((πΉ ++ β¨βπΎββ©)βπ))) = (π β (0...π) β¦ (sgnβ(πΉβπ)))) |
12 | 11 | oveq2d 7393 |
. 2
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β (π
Ξ£g (π β (0...π) β¦ (sgnβ((πΉ ++ β¨βπΎββ©)βπ)))) = (π Ξ£g (π β (0...π) β¦ (sgnβ(πΉβπ))))) |
13 | | ccatws1cl 14531 |
. . . 4
β’ ((πΉ β Word β β§ πΎ β β) β (πΉ ++ β¨βπΎββ©) β Word
β) |
14 | 13 | 3adant3 1132 |
. . 3
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β (πΉ ++
β¨βπΎββ©) β Word
β) |
15 | | lencl 14448 |
. . . . . . . . 9
β’ (πΉ β Word β β
(β―βπΉ) β
β0) |
16 | 15 | nn0zd 12549 |
. . . . . . . 8
β’ (πΉ β Word β β
(β―βπΉ) β
β€) |
17 | 16 | uzidd 12803 |
. . . . . . 7
β’ (πΉ β Word β β
(β―βπΉ) β
(β€β₯β(β―βπΉ))) |
18 | | peano2uz 12850 |
. . . . . . 7
β’
((β―βπΉ)
β (β€β₯β(β―βπΉ)) β ((β―βπΉ) + 1) β
(β€β₯β(β―βπΉ))) |
19 | | fzoss2 13625 |
. . . . . . 7
β’
(((β―βπΉ)
+ 1) β (β€β₯β(β―βπΉ)) β (0..^(β―βπΉ)) β
(0..^((β―βπΉ) +
1))) |
20 | 17, 18, 19 | 3syl 18 |
. . . . . 6
β’ (πΉ β Word β β
(0..^(β―βπΉ))
β (0..^((β―βπΉ) + 1))) |
21 | 20 | sselda 3962 |
. . . . 5
β’ ((πΉ β Word β β§ π β
(0..^(β―βπΉ)))
β π β
(0..^((β―βπΉ) +
1))) |
22 | 21 | 3adant2 1131 |
. . . 4
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β π β
(0..^((β―βπΉ) +
1))) |
23 | | ccatlen 14490 |
. . . . . . . 8
β’ ((πΉ β Word β β§
β¨βπΎββ©
β Word β) β (β―β(πΉ ++ β¨βπΎββ©)) = ((β―βπΉ) +
(β―ββ¨βπΎββ©))) |
24 | 2, 23 | sylan2 593 |
. . . . . . 7
β’ ((πΉ β Word β β§ πΎ β β) β
(β―β(πΉ ++
β¨βπΎββ©)) = ((β―βπΉ) +
(β―ββ¨βπΎββ©))) |
25 | 24 | 3adant3 1132 |
. . . . . 6
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β (β―β(πΉ ++
β¨βπΎββ©)) = ((β―βπΉ) +
(β―ββ¨βπΎββ©))) |
26 | | s1len 14521 |
. . . . . . 7
β’
(β―ββ¨βπΎββ©) = 1 |
27 | 26 | oveq2i 7388 |
. . . . . 6
β’
((β―βπΉ) +
(β―ββ¨βπΎββ©)) = ((β―βπΉ) + 1) |
28 | 25, 27 | eqtrdi 2787 |
. . . . 5
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β (β―β(πΉ ++
β¨βπΎββ©)) = ((β―βπΉ) + 1)) |
29 | 28 | oveq2d 7393 |
. . . 4
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β (0..^(β―β(πΉ ++ β¨βπΎββ©))) =
(0..^((β―βπΉ) +
1))) |
30 | 22, 29 | eleqtrrd 2835 |
. . 3
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β π β
(0..^(β―β(πΉ ++
β¨βπΎββ©)))) |
31 | | signsv.p |
. . . 4
⒠⨣ =
(π β {-1, 0, 1}, π β {-1, 0, 1} β¦
if(π = 0, π, π)) |
32 | | signsv.w |
. . . 4
β’ π = {β¨(Baseβndx), {-1,
0, 1}β©, β¨(+gβndx), ⨣
β©} |
33 | | signsv.t |
. . . 4
β’ π = (π β Word β β¦ (π β
(0..^(β―βπ))
β¦ (π
Ξ£g (π β (0...π) β¦ (sgnβ(πβπ)))))) |
34 | | signsv.v |
. . . 4
β’ π = (π β Word β β¦ Ξ£π β
(1..^(β―βπ))if(((πβπ)βπ) β ((πβπ)β(π β 1)), 1, 0)) |
35 | 31, 32, 33, 34 | signstfval 33299 |
. . 3
β’ (((πΉ ++ β¨βπΎββ©) β Word
β β§ π β
(0..^(β―β(πΉ ++
β¨βπΎββ©)))) β ((πβ(πΉ ++ β¨βπΎββ©))βπ) = (π Ξ£g (π β (0...π) β¦ (sgnβ((πΉ ++ β¨βπΎββ©)βπ))))) |
36 | 14, 30, 35 | syl2anc 584 |
. 2
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β ((πβ(πΉ ++ β¨βπΎββ©))βπ) = (π Ξ£g (π β (0...π) β¦ (sgnβ((πΉ ++ β¨βπΎββ©)βπ))))) |
37 | 31, 32, 33, 34 | signstfval 33299 |
. . 3
β’ ((πΉ β Word β β§ π β
(0..^(β―βπΉ)))
β ((πβπΉ)βπ) = (π Ξ£g (π β (0...π) β¦ (sgnβ(πΉβπ))))) |
38 | 37 | 3adant2 1131 |
. 2
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β ((πβπΉ)βπ) = (π Ξ£g (π β (0...π) β¦ (sgnβ(πΉβπ))))) |
39 | 12, 36, 38 | 3eqtr4d 2781 |
1
β’ ((πΉ β Word β β§ πΎ β β β§ π β
(0..^(β―βπΉ)))
β ((πβ(πΉ ++ β¨βπΎββ©))βπ) = ((πβπΉ)βπ)) |