Step | Hyp | Ref
| Expression |
1 | | f1fn 6785 |
. . . 4
β’ (πΈ:dom πΈβ1-1βπ
β πΈ Fn dom πΈ) |
2 | | dffn3 6727 |
. . . 4
β’ (πΈ Fn dom πΈ β πΈ:dom πΈβΆran πΈ) |
3 | 1, 2 | sylib 217 |
. . 3
β’ (πΈ:dom πΈβ1-1βπ
β πΈ:dom πΈβΆran πΈ) |
4 | | lencl 14479 |
. . . . . . . . 9
β’ (πΉ β Word dom πΈ β (β―βπΉ) β
β0) |
5 | | ffn 6714 |
. . . . . . . . 9
β’ (π:(0...(β―βπΉ))βΆπ β π Fn (0...(β―βπΉ))) |
6 | | fnfz0hash 14401 |
. . . . . . . . 9
β’
(((β―βπΉ)
β β0 β§ π Fn (0...(β―βπΉ))) β (β―βπ) = ((β―βπΉ) + 1)) |
7 | 4, 5, 6 | syl2an 596 |
. . . . . . . 8
β’ ((πΉ β Word dom πΈ β§ π:(0...(β―βπΉ))βΆπ) β (β―βπ) = ((β―βπΉ) + 1)) |
8 | | ffz0iswrd 14487 |
. . . . . . . . . . . 12
β’ (π:(0...(β―βπΉ))βΆπ β π β Word π) |
9 | | lsw 14510 |
. . . . . . . . . . . . . . . . 17
β’ (π β Word π β (lastSβπ) = (πβ((β―βπ) β 1))) |
10 | 9 | ad6antr 734 |
. . . . . . . . . . . . . . . 16
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ)))) β (lastSβπ) = (πβ((β―βπ) β 1))) |
11 | | fvoveq1 7428 |
. . . . . . . . . . . . . . . . 17
β’
((β―βπ) =
((β―βπΉ) + 1)
β (πβ((β―βπ) β 1)) = (πβ(((β―βπΉ) + 1) β 1))) |
12 | 11 | ad4antlr 731 |
. . . . . . . . . . . . . . . 16
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ)))) β (πβ((β―βπ) β 1)) = (πβ(((β―βπΉ) + 1) β 1))) |
13 | | eqcom 2739 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πβ0) = (πβ(β―βπΉ)) β (πβ(β―βπΉ)) = (πβ0)) |
14 | | nn0cn 12478 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
((β―βπΉ)
β β0 β (β―βπΉ) β β) |
15 | | 1cnd 11205 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
((β―βπΉ)
β β0 β 1 β β) |
16 | 14, 15 | pncand 11568 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((β―βπΉ)
β β0 β (((β―βπΉ) + 1) β 1) = (β―βπΉ)) |
17 | 16 | eqcomd 2738 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((β―βπΉ)
β β0 β (β―βπΉ) = (((β―βπΉ) + 1) β 1)) |
18 | 17 | ad4antlr 731 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (β―βπΉ) = (((β―βπΉ) + 1) β 1)) |
19 | 18 | fveqeq2d 6896 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β ((πβ(β―βπΉ)) = (πβ0) β (πβ(((β―βπΉ) + 1) β 1)) = (πβ0))) |
20 | 19 | biimpd 228 |
. . . . . . . . . . . . . . . . . . 19
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β ((πβ(β―βπΉ)) = (πβ0) β (πβ(((β―βπΉ) + 1) β 1)) = (πβ0))) |
21 | 13, 20 | biimtrid 241 |
. . . . . . . . . . . . . . . . . 18
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β ((πβ0) = (πβ(β―βπΉ)) β (πβ(((β―βπΉ) + 1) β 1)) = (πβ0))) |
22 | 21 | adantld 491 |
. . . . . . . . . . . . . . . . 17
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β (πβ(((β―βπΉ) + 1) β 1)) = (πβ0))) |
23 | 22 | imp 407 |
. . . . . . . . . . . . . . . 16
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ)))) β (πβ(((β―βπΉ) + 1) β 1)) = (πβ0)) |
24 | 10, 12, 23 | 3eqtrd 2776 |
. . . . . . . . . . . . . . 15
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ)))) β (lastSβπ) = (πβ0)) |
25 | | nn0z 12579 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((β―βπΉ)
β β0 β (β―βπΉ) β β€) |
26 | | peano2zm 12601 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((β―βπΉ)
β β€ β ((β―βπΉ) β 1) β
β€) |
27 | 25, 26 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((β―βπΉ)
β β0 β ((β―βπΉ) β 1) β
β€) |
28 | | nn0re 12477 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((β―βπΉ)
β β0 β (β―βπΉ) β β) |
29 | 28 | lem1d 12143 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((β―βπΉ)
β β0 β ((β―βπΉ) β 1) β€ (β―βπΉ)) |
30 | | eluz2 12824 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((β―βπΉ)
β (β€β₯β((β―βπΉ) β 1)) β (((β―βπΉ) β 1) β β€
β§ (β―βπΉ)
β β€ β§ ((β―βπΉ) β 1) β€ (β―βπΉ))) |
31 | 27, 25, 29, 30 | syl3anbrc 1343 |
. . . . . . . . . . . . . . . . . . . 20
β’
((β―βπΉ)
β β0 β (β―βπΉ) β
(β€β₯β((β―βπΉ) β 1))) |
32 | 31 | ad4antlr 731 |
. . . . . . . . . . . . . . . . . . 19
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (β―βπΉ) β
(β€β₯β((β―βπΉ) β 1))) |
33 | | fzoss2 13656 |
. . . . . . . . . . . . . . . . . . 19
β’
((β―βπΉ)
β (β€β₯β((β―βπΉ) β 1)) β
(0..^((β―βπΉ)
β 1)) β (0..^(β―βπΉ))) |
34 | | ssralv 4049 |
. . . . . . . . . . . . . . . . . . 19
β’
((0..^((β―βπΉ) β 1)) β
(0..^(β―βπΉ))
β (βπ β
(0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β βπ β (0..^((β―βπΉ) β 1))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
35 | 32, 33, 34 | 3syl 18 |
. . . . . . . . . . . . . . . . . 18
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β βπ β (0..^((β―βπΉ) β 1))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
36 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β πΈ:dom πΈβΆran πΈ) |
37 | 36 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ π β (0..^((β―βπΉ) β 1))) β πΈ:dom πΈβΆran πΈ) |
38 | | wrdf 14465 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (πΉ β Word dom πΈ β πΉ:(0..^(β―βπΉ))βΆdom πΈ) |
39 | | simpll 765 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((πΉ:(0..^(β―βπΉ))βΆdom πΈ β§ (β―βπΉ) β β0) β§ π β
(0..^((β―βπΉ)
β 1))) β πΉ:(0..^(β―βπΉ))βΆdom πΈ) |
40 | | fzossrbm1 13657 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
31
β’
((β―βπΉ)
β β€ β (0..^((β―βπΉ) β 1)) β
(0..^(β―βπΉ))) |
41 | 25, 40 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’
((β―βπΉ)
β β0 β (0..^((β―βπΉ) β 1)) β
(0..^(β―βπΉ))) |
42 | 41 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((πΉ:(0..^(β―βπΉ))βΆdom πΈ β§ (β―βπΉ) β β0) β
(0..^((β―βπΉ)
β 1)) β (0..^(β―βπΉ))) |
43 | 42 | sselda 3981 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (((πΉ:(0..^(β―βπΉ))βΆdom πΈ β§ (β―βπΉ) β β0) β§ π β
(0..^((β―βπΉ)
β 1))) β π
β (0..^(β―βπΉ))) |
44 | 39, 43 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((πΉ:(0..^(β―βπΉ))βΆdom πΈ β§ (β―βπΉ) β β0) β§ π β
(0..^((β―βπΉ)
β 1))) β (πΉβπ) β dom πΈ) |
45 | 44 | exp31 420 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (πΉ:(0..^(β―βπΉ))βΆdom πΈ β ((β―βπΉ) β β0 β (π β
(0..^((β―βπΉ)
β 1)) β (πΉβπ) β dom πΈ))) |
46 | 38, 45 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (πΉ β Word dom πΈ β ((β―βπΉ) β β0
β (π β
(0..^((β―βπΉ)
β 1)) β (πΉβπ) β dom πΈ))) |
47 | 46 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β Word π β§ πΉ β Word dom πΈ) β ((β―βπΉ) β β0 β (π β
(0..^((β―βπΉ)
β 1)) β (πΉβπ) β dom πΈ))) |
48 | 47 | imp 407 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β (π β
(0..^((β―βπΉ)
β 1)) β (πΉβπ) β dom πΈ)) |
49 | 48 | ad3antrrr 728 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (π β (0..^((β―βπΉ) β 1)) β (πΉβπ) β dom πΈ)) |
50 | 49 | imp 407 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ π β (0..^((β―βπΉ) β 1))) β (πΉβπ) β dom πΈ) |
51 | 37, 50 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ π β (0..^((β―βπΉ) β 1))) β (πΈβ(πΉβπ)) β ran πΈ) |
52 | | eqcom 2739 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β {(πβπ), (πβ(π + 1))} = (πΈβ(πΉβπ))) |
53 | 52 | biimpi 215 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β {(πβπ), (πβ(π + 1))} = (πΈβ(πΉβπ))) |
54 | 53 | eleq1d 2818 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β ({(πβπ), (πβ(π + 1))} β ran πΈ β (πΈβ(πΉβπ)) β ran πΈ)) |
55 | 51, 54 | syl5ibrcom 246 |
. . . . . . . . . . . . . . . . . . 19
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ π β (0..^((β―βπΉ) β 1))) β ((πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β {(πβπ), (πβ(π + 1))} β ran πΈ)) |
56 | 55 | ralimdva 3167 |
. . . . . . . . . . . . . . . . . 18
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (βπ β (0..^((β―βπΉ) β 1))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ)) |
57 | 35, 56 | syldc 48 |
. . . . . . . . . . . . . . . . 17
β’
(βπ β
(0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β ((((((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ)) |
58 | 57 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’
((βπ β
(0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((((((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ)) |
59 | 58 | impcom 408 |
. . . . . . . . . . . . . . 15
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ)))) β βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ) |
60 | | breq2 5151 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’
((β―βπ) =
((β―βπΉ) + 1)
β (2 β€ (β―βπ) β 2 β€ ((β―βπΉ) + 1))) |
61 | 60 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β (2 β€ (β―βπ) β 2 β€ ((β―βπΉ) + 1))) |
62 | | 2re 12282 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ 2 β
β |
63 | 62 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’
((β―βπΉ)
β β0 β 2 β β) |
64 | | 1red 11211 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’
((β―βπΉ)
β β0 β 1 β β) |
65 | 63, 64, 28 | lesubaddd 11807 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’
((β―βπΉ)
β β0 β ((2 β 1) β€ (β―βπΉ) β 2 β€
((β―βπΉ) +
1))) |
66 | | 2m1e1 12334 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (2
β 1) = 1 |
67 | 66 | breq1i 5154 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’ ((2
β 1) β€ (β―βπΉ) β 1 β€ (β―βπΉ)) |
68 | | elnnnn0c 12513 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’
((β―βπΉ)
β β β ((β―βπΉ) β β0 β§ 1 β€
(β―βπΉ))) |
69 | 68 | simplbi2 501 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’
((β―βπΉ)
β β0 β (1 β€ (β―βπΉ) β (β―βπΉ) β β)) |
70 | 67, 69 | biimtrid 241 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’
((β―βπΉ)
β β0 β ((2 β 1) β€ (β―βπΉ) β (β―βπΉ) β
β)) |
71 | 65, 70 | sylbird 259 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’
((β―βπΉ)
β β0 β (2 β€ ((β―βπΉ) + 1) β (β―βπΉ) β
β)) |
72 | 71 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β (2 β€
((β―βπΉ) + 1)
β (β―βπΉ)
β β)) |
73 | 72 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β (2 β€ ((β―βπΉ) + 1) β (β―βπΉ) β
β)) |
74 | 61, 73 | sylbid 239 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β (2 β€ (β―βπ) β (β―βπΉ) β β)) |
75 | 74 | imp 407 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β (β―βπΉ) β β) |
76 | 75 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (β―βπΉ) β β) |
77 | | lbfzo0 13668 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (0 β
(0..^(β―βπΉ))
β (β―βπΉ)
β β) |
78 | 76, 77 | sylibr 233 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β 0 β (0..^(β―βπΉ))) |
79 | | fzoend 13719 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (0 β
(0..^(β―βπΉ))
β ((β―βπΉ)
β 1) β (0..^(β―βπΉ))) |
80 | 78, 79 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β ((β―βπΉ) β 1) β
(0..^(β―βπΉ))) |
81 | | 2fveq3 6893 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = ((β―βπΉ) β 1) β (πΈβ(πΉβπ)) = (πΈβ(πΉβ((β―βπΉ) β 1)))) |
82 | | fveq2 6888 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π = ((β―βπΉ) β 1) β (πβπ) = (πβ((β―βπΉ) β 1))) |
83 | | fvoveq1 7428 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π = ((β―βπΉ) β 1) β (πβ(π + 1)) = (πβ(((β―βπΉ) β 1) + 1))) |
84 | 82, 83 | preq12d 4744 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = ((β―βπΉ) β 1) β {(πβπ), (πβ(π + 1))} = {(πβ((β―βπΉ) β 1)), (πβ(((β―βπΉ) β 1) + 1))}) |
85 | 81, 84 | eqeq12d 2748 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = ((β―βπΉ) β 1) β ((πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (πΈβ(πΉβ((β―βπΉ) β 1))) = {(πβ((β―βπΉ) β 1)), (πβ(((β―βπΉ) β 1) + 1))})) |
86 | 85 | adantl 482 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ π = ((β―βπΉ) β 1)) β ((πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (πΈβ(πΉβ((β―βπΉ) β 1))) = {(πβ((β―βπΉ) β 1)), (πβ(((β―βπΉ) β 1) + 1))})) |
87 | 80, 86 | rspcdv 3604 |
. . . . . . . . . . . . . . . . . . 19
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (πΈβ(πΉβ((β―βπΉ) β 1))) = {(πβ((β―βπΉ) β 1)), (πβ(((β―βπΉ) β 1) + 1))})) |
88 | 14, 15 | npcand 11571 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
((β―βπΉ)
β β0 β (((β―βπΉ) β 1) + 1) = (β―βπΉ)) |
89 | 88 | ad4antlr 731 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (((β―βπΉ) β 1) + 1) = (β―βπΉ)) |
90 | 89 | fveq2d 6892 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (πβ(((β―βπΉ) β 1) + 1)) = (πβ(β―βπΉ))) |
91 | 90 | preq2d 4743 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β {(πβ((β―βπΉ) β 1)), (πβ(((β―βπΉ) β 1) + 1))} = {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))}) |
92 | 91 | eqeq2d 2743 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β ((πΈβ(πΉβ((β―βπΉ) β 1))) = {(πβ((β―βπΉ) β 1)), (πβ(((β―βπΉ) β 1) + 1))} β (πΈβ(πΉβ((β―βπΉ) β 1))) = {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))})) |
93 | 38 | ad4antlr 731 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β πΉ:(0..^(β―βπΉ))βΆdom πΈ) |
94 | 71 | com12 32 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
30
β’ (2 β€
((β―βπΉ) + 1)
β ((β―βπΉ)
β β0 β (β―βπΉ) β β)) |
95 | 60, 94 | syl6bi 252 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29
β’
((β―βπ) =
((β―βπΉ) + 1)
β (2 β€ (β―βπ) β ((β―βπΉ) β β0 β
(β―βπΉ) β
β))) |
96 | 95 | com3r 87 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’
((β―βπΉ)
β β0 β ((β―βπ) = ((β―βπΉ) + 1) β (2 β€ (β―βπ) β (β―βπΉ) β
β))) |
97 | 96 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β
((β―βπ) =
((β―βπΉ) + 1)
β (2 β€ (β―βπ) β (β―βπΉ) β β))) |
98 | 97 | imp31 418 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’
(((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β (β―βπΉ) β β) |
99 | 98, 77 | sylibr 233 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
(((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β 0 β (0..^(β―βπΉ))) |
100 | 99, 79 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β ((β―βπΉ) β 1) β
(0..^(β―βπΉ))) |
101 | 93, 100 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β (πΉβ((β―βπΉ) β 1)) β dom πΈ) |
102 | 101 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (πΉβ((β―βπΉ) β 1)) β dom πΈ) |
103 | 36, 102 | ffvelcdmd 7084 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β (πΈβ(πΉβ((β―βπΉ) β 1))) β ran πΈ) |
104 | | eqcom 2739 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((πΈβ(πΉβ((β―βπΉ) β 1))) = {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} = (πΈβ(πΉβ((β―βπΉ) β 1)))) |
105 | 104 | biimpi 215 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((πΈβ(πΉβ((β―βπΉ) β 1))) = {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} = (πΈβ(πΉβ((β―βπΉ) β 1)))) |
106 | 105 | eleq1d 2818 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πΈβ(πΉβ((β―βπΉ) β 1))) = {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β ({(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β ran πΈ β (πΈβ(πΉβ((β―βπΉ) β 1))) β ran πΈ)) |
107 | 103, 106 | syl5ibrcom 246 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β ((πΈβ(πΉβ((β―βπΉ) β 1))) = {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β ran πΈ)) |
108 | 92, 107 | sylbid 239 |
. . . . . . . . . . . . . . . . . . 19
β’
((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β ((πΈβ(πΉβ((β―βπΉ) β 1))) = {(πβ((β―βπΉ) β 1)), (πβ(((β―βπΉ) β 1) + 1))} β {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β ran πΈ)) |
109 | 87, 108 | syldc 48 |
. . . . . . . . . . . . . . . . . 18
β’
(βπ β
(0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β ((((((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β ran πΈ)) |
110 | 109 | adantr 481 |
. . . . . . . . . . . . . . . . 17
β’
((βπ β
(0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((((((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β ran πΈ)) |
111 | 110 | impcom 408 |
. . . . . . . . . . . . . . . 16
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ)))) β {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β ran πΈ) |
112 | | preq2 4737 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πβ0) = (πβ(β―βπΉ)) β {(πβ((β―βπΉ) β 1)), (πβ0)} = {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))}) |
113 | 112 | eleq1d 2818 |
. . . . . . . . . . . . . . . . . 18
β’ ((πβ0) = (πβ(β―βπΉ)) β ({(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ β {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β ran πΈ)) |
114 | 113 | adantl 482 |
. . . . . . . . . . . . . . . . 17
β’
((βπ β
(0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ({(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ β {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β ran πΈ)) |
115 | 114 | adantl 482 |
. . . . . . . . . . . . . . . 16
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ)))) β ({(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ β {(πβ((β―βπΉ) β 1)), (πβ(β―βπΉ))} β ran πΈ)) |
116 | 111, 115 | mpbird 256 |
. . . . . . . . . . . . . . 15
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ)))) β {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ) |
117 | 24, 59, 116 | 3jca 1128 |
. . . . . . . . . . . . . 14
β’
(((((((π β Word
π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β§ 2 β€ (β―βπ)) β§ πΈ:dom πΈβΆran πΈ) β§ (βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ)))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ)) |
118 | 117 | exp41 435 |
. . . . . . . . . . . . 13
β’ ((((π β Word π β§ πΉ β Word dom πΈ) β§ (β―βπΉ) β β0) β§
(β―βπ) =
((β―βπΉ) + 1))
β (2 β€ (β―βπ) β (πΈ:dom πΈβΆran πΈ β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ))))) |
119 | 118 | exp41 435 |
. . . . . . . . . . . 12
β’ (π β Word π β (πΉ β Word dom πΈ β ((β―βπΉ) β β0 β
((β―βπ) =
((β―βπΉ) + 1)
β (2 β€ (β―βπ) β (πΈ:dom πΈβΆran πΈ β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ)))))))) |
120 | 8, 119 | syl 17 |
. . . . . . . . . . 11
β’ (π:(0...(β―βπΉ))βΆπ β (πΉ β Word dom πΈ β ((β―βπΉ) β β0 β
((β―βπ) =
((β―βπΉ) + 1)
β (2 β€ (β―βπ) β (πΈ:dom πΈβΆran πΈ β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ)))))))) |
121 | 120 | com13 88 |
. . . . . . . . . 10
β’
((β―βπΉ)
β β0 β (πΉ β Word dom πΈ β (π:(0...(β―βπΉ))βΆπ β ((β―βπ) = ((β―βπΉ) + 1) β (2 β€ (β―βπ) β (πΈ:dom πΈβΆran πΈ β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ)))))))) |
122 | 4, 121 | mpcom 38 |
. . . . . . . . 9
β’ (πΉ β Word dom πΈ β (π:(0...(β―βπΉ))βΆπ β ((β―βπ) = ((β―βπΉ) + 1) β (2 β€ (β―βπ) β (πΈ:dom πΈβΆran πΈ β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ))))))) |
123 | 122 | imp 407 |
. . . . . . . 8
β’ ((πΉ β Word dom πΈ β§ π:(0...(β―βπΉ))βΆπ) β ((β―βπ) = ((β―βπΉ) + 1) β (2 β€ (β―βπ) β (πΈ:dom πΈβΆran πΈ β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ)))))) |
124 | 7, 123 | mpd 15 |
. . . . . . 7
β’ ((πΉ β Word dom πΈ β§ π:(0...(β―βπΉ))βΆπ) β (2 β€ (β―βπ) β (πΈ:dom πΈβΆran πΈ β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ))))) |
125 | 124 | expcom 414 |
. . . . . 6
β’ (π:(0...(β―βπΉ))βΆπ β (πΉ β Word dom πΈ β (2 β€ (β―βπ) β (πΈ:dom πΈβΆran πΈ β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ)))))) |
126 | 125 | com14 96 |
. . . . 5
β’ (πΈ:dom πΈβΆran πΈ β (πΉ β Word dom πΈ β (2 β€ (β―βπ) β (π:(0...(β―βπΉ))βΆπ β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ)))))) |
127 | 126 | imp 407 |
. . . 4
β’ ((πΈ:dom πΈβΆran πΈ β§ πΉ β Word dom πΈ) β (2 β€ (β―βπ) β (π:(0...(β―βπΉ))βΆπ β ((βπ β (0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ))))) |
128 | 127 | impcomd 412 |
. . 3
β’ ((πΈ:dom πΈβΆran πΈ β§ πΉ β Word dom πΈ) β ((π:(0...(β―βπΉ))βΆπ β§ 2 β€ (β―βπ)) β ((βπ β
(0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ)))) |
129 | 3, 128 | sylan 580 |
. 2
β’ ((πΈ:dom πΈβ1-1βπ
β§ πΉ β Word dom πΈ) β ((π:(0...(β―βπΉ))βΆπ β§ 2 β€ (β―βπ)) β ((βπ β
(0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ)))) |
130 | 129 | 3imp 1111 |
1
β’ (((πΈ:dom πΈβ1-1βπ
β§ πΉ β Word dom πΈ) β§ (π:(0...(β―βπΉ))βΆπ β§ 2 β€ (β―βπ)) β§ (βπ β
(0..^(β―βπΉ))(πΈβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β§ (πβ0) = (πβ(β―βπΉ)))) β ((lastSβπ) = (πβ0) β§ βπ β (0..^((β―βπΉ) β 1)){(πβπ), (πβ(π + 1))} β ran πΈ β§ {(πβ((β―βπΉ) β 1)), (πβ0)} β ran πΈ)) |