Step | Hyp | Ref
| Expression |
1 | | simpl 483 |
. . . . . . . . . . . . . . . 16
β’ ((π β Word π β§ (π β π β§ π β π)) β π β Word π) |
2 | 1 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β π β Word π) |
3 | | elfzonn0 13673 |
. . . . . . . . . . . . . . . 16
β’ (π β
(0..^((β―βπ)
β 1)) β π β
β0) |
4 | 3 | adantl 482 |
. . . . . . . . . . . . . . 15
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β π β
β0) |
5 | | lencl 14479 |
. . . . . . . . . . . . . . . . . 18
β’ (π β Word π β (β―βπ) β
β0) |
6 | | elfzo0 13669 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β
(0..^((β―βπ)
β 1)) β (π
β β0 β§ ((β―βπ) β 1) β β β§ π < ((β―βπ) β 1))) |
7 | | nn0re 12477 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β β0
β π β
β) |
8 | 7 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β β0
β§ (β―βπ)
β β0) β π β β) |
9 | | nn0re 12477 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
((β―βπ)
β β0 β (β―βπ) β β) |
10 | | peano2rem 11523 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
((β―βπ)
β β β ((β―βπ) β 1) β
β) |
11 | 9, 10 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
((β―βπ)
β β0 β ((β―βπ) β 1) β
β) |
12 | 11 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β β0
β§ (β―βπ)
β β0) β ((β―βπ) β 1) β
β) |
13 | 9 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β β0
β§ (β―βπ)
β β0) β (β―βπ) β β) |
14 | 8, 12, 13 | 3jca 1128 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β0
β§ (β―βπ)
β β0) β (π β β β§ ((β―βπ) β 1) β β
β§ (β―βπ)
β β)) |
15 | 9 | ltm1d 12142 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((β―βπ)
β β0 β ((β―βπ) β 1) < (β―βπ)) |
16 | 15 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β0
β§ (β―βπ)
β β0) β ((β―βπ) β 1) < (β―βπ)) |
17 | | lttr 11286 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β β β§
((β―βπ) β
1) β β β§ (β―βπ) β β) β ((π < ((β―βπ) β 1) β§
((β―βπ) β
1) < (β―βπ))
β π <
(β―βπ))) |
18 | 17 | expcomd 417 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β β§
((β―βπ) β
1) β β β§ (β―βπ) β β) β
(((β―βπ) β
1) < (β―βπ)
β (π <
((β―βπ) β
1) β π <
(β―βπ)))) |
19 | 14, 16, 18 | sylc 65 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β0
β§ (β―βπ)
β β0) β (π < ((β―βπ) β 1) β π < (β―βπ))) |
20 | 19 | impancom 452 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β0
β§ π <
((β―βπ) β
1)) β ((β―βπ) β β0 β π < (β―βπ))) |
21 | 20 | 3adant2 1131 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β0
β§ ((β―βπ)
β 1) β β β§ π < ((β―βπ) β 1)) β ((β―βπ) β β0
β π <
(β―βπ))) |
22 | 6, 21 | sylbi 216 |
. . . . . . . . . . . . . . . . . 18
β’ (π β
(0..^((β―βπ)
β 1)) β ((β―βπ) β β0 β π < (β―βπ))) |
23 | 5, 22 | syl5com 31 |
. . . . . . . . . . . . . . . . 17
β’ (π β Word π β (π β (0..^((β―βπ) β 1)) β π < (β―βπ))) |
24 | 23 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’ ((π β Word π β§ (π β π β§ π β π)) β (π β (0..^((β―βπ) β 1)) β π < (β―βπ))) |
25 | 24 | imp 407 |
. . . . . . . . . . . . . . 15
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β π < (β―βπ)) |
26 | | ccat2s1fvw 14584 |
. . . . . . . . . . . . . . 15
β’ ((π β Word π β§ π β β0 β§ π < (β―βπ)) β (((π ++ β¨βπββ©) ++ β¨βπββ©)βπ) = (πβπ)) |
27 | 2, 4, 25, 26 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β (((π ++ β¨βπββ©) ++
β¨βπββ©)βπ) = (πβπ)) |
28 | 27 | eqcomd 2738 |
. . . . . . . . . . . . 13
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β (πβπ) = (((π ++ β¨βπββ©) ++ β¨βπββ©)βπ)) |
29 | | peano2nn0 12508 |
. . . . . . . . . . . . . . . 16
β’ (π β β0
β (π + 1) β
β0) |
30 | 4, 29 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β (π + 1) β
β0) |
31 | | 1red 11211 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β β0
β§ (β―βπ)
β β0) β 1 β β) |
32 | 8, 31, 13 | ltaddsubd 11810 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β0
β§ (β―βπ)
β β0) β ((π + 1) < (β―βπ) β π < ((β―βπ) β 1))) |
33 | 32 | biimprd 247 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β0
β§ (β―βπ)
β β0) β (π < ((β―βπ) β 1) β (π + 1) < (β―βπ))) |
34 | 33 | impancom 452 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β0
β§ π <
((β―βπ) β
1)) β ((β―βπ) β β0 β (π + 1) < (β―βπ))) |
35 | 34 | 3adant2 1131 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β β0
β§ ((β―βπ)
β 1) β β β§ π < ((β―βπ) β 1)) β ((β―βπ) β β0
β (π + 1) <
(β―βπ))) |
36 | 6, 35 | sylbi 216 |
. . . . . . . . . . . . . . . . 17
β’ (π β
(0..^((β―βπ)
β 1)) β ((β―βπ) β β0 β (π + 1) < (β―βπ))) |
37 | 5, 36 | mpan9 507 |
. . . . . . . . . . . . . . . 16
β’ ((π β Word π β§ π β (0..^((β―βπ) β 1))) β (π + 1) < (β―βπ)) |
38 | 37 | adantlr 713 |
. . . . . . . . . . . . . . 15
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β (π + 1) < (β―βπ)) |
39 | | ccat2s1fvw 14584 |
. . . . . . . . . . . . . . 15
β’ ((π β Word π β§ (π + 1) β β0 β§ (π + 1) < (β―βπ)) β (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1)) = (πβ(π + 1))) |
40 | 2, 30, 38, 39 | syl3anc 1371 |
. . . . . . . . . . . . . 14
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β (((π ++ β¨βπββ©) ++
β¨βπββ©)β(π + 1)) = (πβ(π + 1))) |
41 | 40 | eqcomd 2738 |
. . . . . . . . . . . . 13
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β (πβ(π + 1)) = (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))) |
42 | 28, 41 | preq12d 4744 |
. . . . . . . . . . . 12
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β {(πβπ), (πβ(π + 1))} = {(((π ++ β¨βπββ©) ++ β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))}) |
43 | 42 | eleq1d 2818 |
. . . . . . . . . . 11
β’ (((π β Word π β§ (π β π β§ π β π)) β§ π β (0..^((β―βπ) β 1))) β ({(πβπ), (πβ(π + 1))} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ)) |
44 | 43 | ralbidva 3175 |
. . . . . . . . . 10
β’ ((π β Word π β§ (π β π β§ π β π)) β (βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β βπ β (0..^((β―βπ) β 1)){(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ)) |
45 | 44 | biimpd 228 |
. . . . . . . . 9
β’ ((π β Word π β§ (π β π β§ π β π)) β (βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β βπ β (0..^((β―βπ) β 1)){(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ)) |
46 | 45 | impancom 452 |
. . . . . . . 8
β’ ((π β Word π β§ βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ) β ((π β π β§ π β π) β βπ β (0..^((β―βπ) β 1)){(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ)) |
47 | 46 | 3adant3 1132 |
. . . . . . 7
β’ ((π β Word π β§ βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β ((π β π β§ π β π) β βπ β (0..^((β―βπ) β 1)){(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ)) |
48 | 47 | 3ad2ant1 1133 |
. . . . . 6
β’ (((π β Word π β§ βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π) β ((π β π β§ π β π) β βπ β (0..^((β―βπ) β 1)){(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ)) |
49 | 48 | com12 32 |
. . . . 5
β’ ((π β π β§ π β π) β (((π β Word π β§ βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π) β βπ β (0..^((β―βπ) β 1)){(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ)) |
50 | 49 | a1dd 50 |
. . . 4
β’ ((π β π β§ π β π) β (((π β Word π β§ βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π) β ({π, π} β πΈ β βπ β (0..^((β―βπ) β 1)){(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ))) |
51 | 50 | 3adant3 1132 |
. . 3
β’ ((π β π β§ π β π β§ π β (β€β₯β3))
β (((π β Word
π β§ βπ β
(0..^((β―βπ)
β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π) β ({π, π} β πΈ β βπ β (0..^((β―βπ) β 1)){(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ))) |
52 | 51 | imp31 418 |
. 2
β’ ((((π β π β§ π β π β§ π β (β€β₯β3))
β§ ((π β Word π β§ βπ β
(0..^((β―βπ)
β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π)) β§ {π, π} β πΈ) β βπ β (0..^((β―βπ) β 1)){(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ) |
53 | | ax-1 6 |
. . . . . . . . . . 11
β’ ((π β π β§ π β π) β ({π, π} β πΈ β (π β π β§ π β π))) |
54 | 53 | 3adant3 1132 |
. . . . . . . . . 10
β’ ((π β π β§ π β π β§ π β (β€β₯β3))
β ({π, π} β πΈ β (π β π β§ π β π))) |
55 | | simpl 483 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β Word π β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
π β Word π) |
56 | | oveq1 7412 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
((β―βπ) =
(π β 2) β
((β―βπ) β
1) = ((π β 2) β
1)) |
57 | 56 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((β―βπ)
= (π β 2) β§ π β
(β€β₯β3)) β ((β―βπ) β 1) = ((π β 2) β 1)) |
58 | | eluzelcn 12830 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β
(β€β₯β3) β π β β) |
59 | | 2cnd 12286 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β
(β€β₯β3) β 2 β β) |
60 | | 1cnd 11205 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β
(β€β₯β3) β 1 β β) |
61 | 58, 59, 60 | subsub4d 11598 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π β
(β€β₯β3) β ((π β 2) β 1) = (π β (2 + 1))) |
62 | | 2p1e3 12350 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ (2 + 1) =
3 |
63 | 62 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (π β
(β€β₯β3) β (2 + 1) = 3) |
64 | 63 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β
(β€β₯β3) β (π β (2 + 1)) = (π β 3)) |
65 | | uznn0sub 12857 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π β
(β€β₯β3) β (π β 3) β
β0) |
66 | 64, 65 | eqeltrd 2833 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π β
(β€β₯β3) β (π β (2 + 1)) β
β0) |
67 | 61, 66 | eqeltrd 2833 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π β
(β€β₯β3) β ((π β 2) β 1) β
β0) |
68 | 67 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((β―βπ)
= (π β 2) β§ π β
(β€β₯β3)) β ((π β 2) β 1) β
β0) |
69 | 57, 68 | eqeltrd 2833 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((β―βπ)
= (π β 2) β§ π β
(β€β₯β3)) β ((β―βπ) β 1) β
β0) |
70 | 69 | ancoms 459 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β
(β€β₯β3) β§ (β―βπ) = (π β 2)) β ((β―βπ) β 1) β
β0) |
71 | 70 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β Word π β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
((β―βπ) β
1) β β0) |
72 | 5, 9 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β Word π β (β―βπ) β β) |
73 | 72 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β Word π β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
(β―βπ) β
β) |
74 | 73 | ltm1d 12142 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β Word π β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
((β―βπ) β
1) < (β―βπ)) |
75 | 55, 71, 74 | 3jca 1128 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β Word π β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
(π β Word π β§ ((β―βπ) β 1) β
β0 β§ ((β―βπ) β 1) < (β―βπ))) |
76 | 75 | ex 413 |
. . . . . . . . . . . . . . . . . . 19
β’ (π β Word π β ((π β (β€β₯β3)
β§ (β―βπ) =
(π β 2)) β
(π β Word π β§ ((β―βπ) β 1) β
β0 β§ ((β―βπ) β 1) < (β―βπ)))) |
77 | 76 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β ((π β (β€β₯β3)
β§ (β―βπ) =
(π β 2)) β
(π β Word π β§ ((β―βπ) β 1) β
β0 β§ ((β―βπ) β 1) < (β―βπ)))) |
78 | 77 | 3ad2ant1 1133 |
. . . . . . . . . . . . . . . . 17
β’ (((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β ((π β (β€β₯β3)
β§ (β―βπ) =
(π β 2)) β
(π β Word π β§ ((β―βπ) β 1) β
β0 β§ ((β―βπ) β 1) < (β―βπ)))) |
79 | 78 | imp 407 |
. . . . . . . . . . . . . . . 16
β’ ((((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
(π β Word π β§ ((β―βπ) β 1) β
β0 β§ ((β―βπ) β 1) < (β―βπ))) |
80 | | ccat2s1fvw 14584 |
. . . . . . . . . . . . . . . 16
β’ ((π β Word π β§ ((β―βπ) β 1) β β0
β§ ((β―βπ)
β 1) < (β―βπ)) β (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)) = (πβ((β―βπ) β 1))) |
81 | 79, 80 | syl 17 |
. . . . . . . . . . . . . . 15
β’ ((((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
(((π ++ β¨βπββ©) ++
β¨βπββ©)β((β―βπ) β 1)) = (πβ((β―βπ) β 1))) |
82 | | nn0cn 12478 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((β―βπ)
β β0 β (β―βπ) β β) |
83 | | ax-1cn 11164 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ 1 β
β |
84 | | npcan 11465 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(((β―βπ)
β β β§ 1 β β) β (((β―βπ) β 1) + 1) =
(β―βπ)) |
85 | 82, 83, 84 | sylancl 586 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((β―βπ)
β β0 β (((β―βπ) β 1) + 1) = (β―βπ)) |
86 | 5, 85 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β Word π β (((β―βπ) β 1) + 1) = (β―βπ)) |
87 | 86 | adantr 481 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β (((β―βπ) β 1) + 1) = (β―βπ)) |
88 | 87 | 3ad2ant1 1133 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β (((β―βπ) β 1) + 1) = (β―βπ)) |
89 | 88 | fveq2d 6892 |
. . . . . . . . . . . . . . . . 17
β’ (((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β (((π ++ β¨βπββ©) ++ β¨βπββ©)β(((β―βπ) β 1) + 1)) = (((π ++ β¨βπββ©) ++
β¨βπββ©)β(β―βπ))) |
90 | | simp1l 1197 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β π β Word π) |
91 | | eqidd 2733 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β (β―βπ) = (β―βπ)) |
92 | | simp2l 1199 |
. . . . . . . . . . . . . . . . . 18
β’ (((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β π β π) |
93 | | ccatw2s1p1 14582 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β Word π β§ (β―βπ) = (β―βπ) β§ π β π) β (((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)) = π) |
94 | 90, 91, 92, 93 | syl3anc 1371 |
. . . . . . . . . . . . . . . . 17
β’ (((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β (((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)) = π) |
95 | 89, 94 | eqtrd 2772 |
. . . . . . . . . . . . . . . 16
β’ (((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β (((π ++ β¨βπββ©) ++ β¨βπββ©)β(((β―βπ) β 1) + 1)) = π) |
96 | 95 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
(((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1)) = π) |
97 | 81, 96 | preq12d 4744 |
. . . . . . . . . . . . . 14
β’ ((((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
{(((π ++ β¨βπββ©) ++
β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} = {(πβ((β―βπ) β 1)), π}) |
98 | | lsw 14510 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β Word π β (lastSβπ) = (πβ((β―βπ) β 1))) |
99 | 98 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((πβ0) = π β§ π β Word π) β (lastSβπ) = (πβ((β―βπ) β 1))) |
100 | | simpl 483 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((πβ0) = π β§ π β Word π) β (πβ0) = π) |
101 | 99, 100 | preq12d 4744 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((πβ0) = π β§ π β Word π) β {(lastSβπ), (πβ0)} = {(πβ((β―βπ) β 1)), π}) |
102 | 101 | eleq1d 2818 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πβ0) = π β§ π β Word π) β ({(lastSβπ), (πβ0)} β πΈ β {(πβ((β―βπ) β 1)), π} β πΈ)) |
103 | 102 | biimpd 228 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πβ0) = π β§ π β Word π) β ({(lastSβπ), (πβ0)} β πΈ β {(πβ((β―βπ) β 1)), π} β πΈ)) |
104 | 103 | expcom 414 |
. . . . . . . . . . . . . . . . . 18
β’ (π β Word π β ((πβ0) = π β ({(lastSβπ), (πβ0)} β πΈ β {(πβ((β―βπ) β 1)), π} β πΈ))) |
105 | 104 | com23 86 |
. . . . . . . . . . . . . . . . 17
β’ (π β Word π β ({(lastSβπ), (πβ0)} β πΈ β ((πβ0) = π β {(πβ((β―βπ) β 1)), π} β πΈ))) |
106 | 105 | imp31 418 |
. . . . . . . . . . . . . . . 16
β’ (((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (πβ0) = π) β {(πβ((β―βπ) β 1)), π} β πΈ) |
107 | 106 | 3adant2 1131 |
. . . . . . . . . . . . . . 15
β’ (((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β {(πβ((β―βπ) β 1)), π} β πΈ) |
108 | 107 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
{(πβ((β―βπ) β 1)), π} β πΈ) |
109 | 97, 108 | eqeltrd 2833 |
. . . . . . . . . . . . 13
β’ ((((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β§ (π β π β§ π β π) β§ (πβ0) = π) β§ (π β (β€β₯β3)
β§ (β―βπ) =
(π β 2))) β
{(((π ++ β¨βπββ©) ++
β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ) |
110 | 109 | exp520 1357 |
. . . . . . . . . . . 12
β’ ((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β ((π β π β§ π β π) β ((πβ0) = π β (π β (β€β₯β3)
β ((β―βπ) =
(π β 2) β
{(((π ++ β¨βπββ©) ++
β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ))))) |
111 | 110 | com14 96 |
. . . . . . . . . . 11
β’ (π β
(β€β₯β3) β ((π β π β§ π β π) β ((πβ0) = π β ((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β ((β―βπ) = (π β 2) β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ))))) |
112 | 111 | 3ad2ant3 1135 |
. . . . . . . . . 10
β’ ((π β π β§ π β π β§ π β (β€β₯β3))
β ((π β π β§ π β π) β ((πβ0) = π β ((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β ((β―βπ) = (π β 2) β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ))))) |
113 | 54, 112 | syld 47 |
. . . . . . . . 9
β’ ((π β π β§ π β π β§ π β (β€β₯β3))
β ({π, π} β πΈ β ((πβ0) = π β ((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β ((β―βπ) = (π β 2) β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ))))) |
114 | 113 | com25 99 |
. . . . . . . 8
β’ ((π β π β§ π β π β§ π β (β€β₯β3))
β ((β―βπ) =
(π β 2) β
((πβ0) = π β ((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β ({π, π} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ))))) |
115 | 114 | com14 96 |
. . . . . . 7
β’ ((π β Word π β§ {(lastSβπ), (πβ0)} β πΈ) β ((β―βπ) = (π β 2) β ((πβ0) = π β ((π β π β§ π β π β§ π β (β€β₯β3))
β ({π, π} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ))))) |
116 | 115 | 3adant2 1131 |
. . . . . 6
β’ ((π β Word π β§ βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β ((β―βπ) = (π β 2) β ((πβ0) = π β ((π β π β§ π β π β§ π β (β€β₯β3))
β ({π, π} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ))))) |
117 | 116 | 3imp 1111 |
. . . . 5
β’ (((π β Word π β§ βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π) β ((π β π β§ π β π β§ π β (β€β₯β3))
β ({π, π} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ))) |
118 | 117 | impcom 408 |
. . . 4
β’ (((π β π β§ π β π β§ π β (β€β₯β3))
β§ ((π β Word π β§ βπ β
(0..^((β―βπ)
β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π)) β ({π, π} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ)) |
119 | 118 | imp 407 |
. . 3
β’ ((((π β π β§ π β π β§ π β (β€β₯β3))
β§ ((π β Word π β§ βπ β
(0..^((β―βπ)
β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π)) β§ {π, π} β πΈ) β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ) |
120 | | eqidd 2733 |
. . . . . . . . . . . . . 14
β’ ((π β Word π β§ (π β π β§ π β π)) β (β―βπ) = (β―βπ)) |
121 | | simprl 769 |
. . . . . . . . . . . . . 14
β’ ((π β Word π β§ (π β π β§ π β π)) β π β π) |
122 | 1, 120, 121, 93 | syl3anc 1371 |
. . . . . . . . . . . . 13
β’ ((π β Word π β§ (π β π β§ π β π)) β (((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)) = π) |
123 | | eqid 2732 |
. . . . . . . . . . . . . 14
β’
(β―βπ) =
(β―βπ) |
124 | | ccatw2s1p2 14583 |
. . . . . . . . . . . . . 14
β’ (((π β Word π β§ (β―βπ) = (β―βπ)) β§ (π β π β§ π β π)) β (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1)) = π) |
125 | 123, 124 | mpanl2 699 |
. . . . . . . . . . . . 13
β’ ((π β Word π β§ (π β π β§ π β π)) β (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1)) = π) |
126 | 122, 125 | preq12d 4744 |
. . . . . . . . . . . 12
β’ ((π β Word π β§ (π β π β§ π β π)) β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} = {π, π}) |
127 | 126 | expcom 414 |
. . . . . . . . . . 11
β’ ((π β π β§ π β π) β (π β Word π β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} = {π, π})) |
128 | 127 | a1i 11 |
. . . . . . . . . 10
β’ ({π, π} β πΈ β ((π β π β§ π β π) β (π β Word π β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} = {π, π}))) |
129 | 128 | com13 88 |
. . . . . . . . 9
β’ (π β Word π β ((π β π β§ π β π) β ({π, π} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} = {π, π}))) |
130 | 129 | 3ad2ant1 1133 |
. . . . . . . 8
β’ ((π β Word π β§ βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β ((π β π β§ π β π) β ({π, π} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} = {π, π}))) |
131 | 130 | 3ad2ant1 1133 |
. . . . . . 7
β’ (((π β Word π β§ βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π) β ((π β π β§ π β π) β ({π, π} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} = {π, π}))) |
132 | 131 | com12 32 |
. . . . . 6
β’ ((π β π β§ π β π) β (((π β Word π β§ βπ β (0..^((β―βπ) β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π) β ({π, π} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} = {π, π}))) |
133 | 132 | 3adant3 1132 |
. . . . 5
β’ ((π β π β§ π β π β§ π β (β€β₯β3))
β (((π β Word
π β§ βπ β
(0..^((β―βπ)
β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π) β ({π, π} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} = {π, π}))) |
134 | 133 | imp31 418 |
. . . 4
β’ ((((π β π β§ π β π β§ π β (β€β₯β3))
β§ ((π β Word π β§ βπ β
(0..^((β―βπ)
β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π)) β§ {π, π} β πΈ) β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} = {π, π}) |
135 | | simpr 485 |
. . . 4
β’ ((((π β π β§ π β π β§ π β (β€β₯β3))
β§ ((π β Word π β§ βπ β
(0..^((β―βπ)
β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π)) β§ {π, π} β πΈ) β {π, π} β πΈ) |
136 | 134, 135 | eqeltrd 2833 |
. . 3
β’ ((((π β π β§ π β π β§ π β (β€β₯β3))
β§ ((π β Word π β§ βπ β
(0..^((β―βπ)
β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π)) β§ {π, π} β πΈ) β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} β πΈ) |
137 | | ovex 7438 |
. . . 4
β’
((β―βπ)
β 1) β V |
138 | | fvex 6901 |
. . . 4
β’
(β―βπ)
β V |
139 | | fveq2 6888 |
. . . . . 6
β’ (π = ((β―βπ) β 1) β (((π ++ β¨βπββ©) ++
β¨βπββ©)βπ) = (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1))) |
140 | | fvoveq1 7428 |
. . . . . 6
β’ (π = ((β―βπ) β 1) β (((π ++ β¨βπββ©) ++
β¨βπββ©)β(π + 1)) = (((π ++ β¨βπββ©) ++ β¨βπββ©)β(((β―βπ) β 1) +
1))) |
141 | 139, 140 | preq12d 4744 |
. . . . 5
β’ (π = ((β―βπ) β 1) β {(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} = {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) +
1))}) |
142 | 141 | eleq1d 2818 |
. . . 4
β’ (π = ((β―βπ) β 1) β ({(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ)) |
143 | | fveq2 6888 |
. . . . . 6
β’ (π = (β―βπ) β (((π ++ β¨βπββ©) ++ β¨βπββ©)βπ) = (((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ))) |
144 | | fvoveq1 7428 |
. . . . . 6
β’ (π = (β―βπ) β (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1)) = (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))) |
145 | 143, 144 | preq12d 4744 |
. . . . 5
β’ (π = (β―βπ) β {(((π ++ β¨βπββ©) ++ β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} = {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))}) |
146 | 145 | eleq1d 2818 |
. . . 4
β’ (π = (β―βπ) β ({(((π ++ β¨βπββ©) ++ β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ β {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} β πΈ)) |
147 | 137, 138,
142, 146 | ralpr 4703 |
. . 3
β’
(βπ β
{((β―βπ) β
1), (β―βπ)}
{(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ β ({(((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) β 1)), (((π ++ β¨βπββ©) ++
β¨βπββ©)β(((β―βπ) β 1) + 1))} β πΈ β§ {(((π ++ β¨βπββ©) ++ β¨βπββ©)β(β―βπ)), (((π ++ β¨βπββ©) ++ β¨βπββ©)β((β―βπ) + 1))} β πΈ)) |
148 | 119, 136,
147 | sylanbrc 583 |
. 2
β’ ((((π β π β§ π β π β§ π β (β€β₯β3))
β§ ((π β Word π β§ βπ β
(0..^((β―βπ)
β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π)) β§ {π, π} β πΈ) β βπ β {((β―βπ) β 1), (β―βπ)} {(((π ++ β¨βπββ©) ++ β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ) |
149 | | ralunb 4190 |
. 2
β’
(βπ β
((0..^((β―βπ)
β 1)) βͺ {((β―βπ) β 1), (β―βπ)}){(((π ++ β¨βπββ©) ++ β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ β (βπ β (0..^((β―βπ) β 1)){(((π ++ β¨βπββ©) ++
β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ β§ βπ β {((β―βπ) β 1), (β―βπ)} {(((π ++ β¨βπββ©) ++ β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ)) |
150 | 52, 148, 149 | sylanbrc 583 |
1
β’ ((((π β π β§ π β π β§ π β (β€β₯β3))
β§ ((π β Word π β§ βπ β
(0..^((β―βπ)
β 1)){(πβπ), (πβ(π + 1))} β πΈ β§ {(lastSβπ), (πβ0)} β πΈ) β§ (β―βπ) = (π β 2) β§ (πβ0) = π)) β§ {π, π} β πΈ) β βπ β ((0..^((β―βπ) β 1)) βͺ
{((β―βπ) β
1), (β―βπ)}){(((π ++ β¨βπββ©) ++ β¨βπββ©)βπ), (((π ++ β¨βπββ©) ++ β¨βπββ©)β(π + 1))} β πΈ) |