Step | Hyp | Ref
| Expression |
1 | | efgval.w |
. . . . . . . 8
β’ π = ( I βWord (πΌ Γ
2o)) |
2 | | efgval.r |
. . . . . . . 8
β’ βΌ = (
~FG βπΌ) |
3 | | efgval2.m |
. . . . . . . 8
β’ π = (π¦ β πΌ, π§ β 2o β¦ β¨π¦, (1o β π§)β©) |
4 | | efgval2.t |
. . . . . . . 8
β’ π = (π£ β π β¦ (π β (0...(β―βπ£)), π€ β (πΌ Γ 2o) β¦ (π£ splice β¨π, π, β¨βπ€(πβπ€)ββ©β©))) |
5 | | efgred.d |
. . . . . . . 8
β’ π· = (π β βͺ
π₯ β π ran (πβπ₯)) |
6 | | efgred.s |
. . . . . . . 8
β’ π = (π β {π‘ β (Word π β {β
}) β£ ((π‘β0) β π· β§ βπ β
(1..^(β―βπ‘))(π‘βπ) β ran (πβ(π‘β(π β 1))))} β¦ (πβ((β―βπ) β 1))) |
7 | 1, 2, 3, 4, 5, 6 | efgsfo 19649 |
. . . . . . 7
β’ π:dom πβontoβπ |
8 | | fof 6805 |
. . . . . . 7
β’ (π:dom πβontoβπ β π:dom πβΆπ) |
9 | 7, 8 | ax-mp 5 |
. . . . . 6
β’ π:dom πβΆπ |
10 | 9 | ffvelcdmi 7085 |
. . . . 5
β’ (π΅ β dom π β (πβπ΅) β π) |
11 | 10 | ad2antlr 724 |
. . . 4
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (πβπ΄) βΌ (πβπ΅)) β (πβπ΅) β π) |
12 | 1, 2, 3, 4, 5, 6 | efgredeu 19662 |
. . . 4
β’ ((πβπ΅) β π β β!π β π· π βΌ (πβπ΅)) |
13 | | reurmo 3378 |
. . . 4
β’
(β!π β
π· π βΌ (πβπ΅) β β*π β π· π βΌ (πβπ΅)) |
14 | 11, 12, 13 | 3syl 18 |
. . 3
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (πβπ΄) βΌ (πβπ΅)) β β*π β π· π βΌ (πβπ΅)) |
15 | 1, 2, 3, 4, 5, 6 | efgsdm 19640 |
. . . . 5
β’ (π΄ β dom π β (π΄ β (Word π β {β
}) β§ (π΄β0) β π· β§ βπ β (1..^(β―βπ΄))(π΄βπ) β ran (πβ(π΄β(π β 1))))) |
16 | 15 | simp2bi 1145 |
. . . 4
β’ (π΄ β dom π β (π΄β0) β π·) |
17 | 16 | ad2antrr 723 |
. . 3
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (πβπ΄) βΌ (πβπ΅)) β (π΄β0) β π·) |
18 | 1, 2 | efger 19628 |
. . . . 5
β’ βΌ Er
π |
19 | 18 | a1i 11 |
. . . 4
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (πβπ΄) βΌ (πβπ΅)) β βΌ Er π) |
20 | 1, 2, 3, 4, 5, 6 | efgsrel 19644 |
. . . . 5
β’ (π΄ β dom π β (π΄β0) βΌ (πβπ΄)) |
21 | 20 | ad2antrr 723 |
. . . 4
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (πβπ΄) βΌ (πβπ΅)) β (π΄β0) βΌ (πβπ΄)) |
22 | | simpr 484 |
. . . 4
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (πβπ΄) βΌ (πβπ΅)) β (πβπ΄) βΌ (πβπ΅)) |
23 | 19, 21, 22 | ertrd 8722 |
. . 3
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (πβπ΄) βΌ (πβπ΅)) β (π΄β0) βΌ (πβπ΅)) |
24 | 1, 2, 3, 4, 5, 6 | efgsdm 19640 |
. . . . 5
β’ (π΅ β dom π β (π΅ β (Word π β {β
}) β§ (π΅β0) β π· β§ βπ β (1..^(β―βπ΅))(π΅βπ) β ran (πβ(π΅β(π β 1))))) |
25 | 24 | simp2bi 1145 |
. . . 4
β’ (π΅ β dom π β (π΅β0) β π·) |
26 | 25 | ad2antlr 724 |
. . 3
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (πβπ΄) βΌ (πβπ΅)) β (π΅β0) β π·) |
27 | 1, 2, 3, 4, 5, 6 | efgsrel 19644 |
. . . 4
β’ (π΅ β dom π β (π΅β0) βΌ (πβπ΅)) |
28 | 27 | ad2antlr 724 |
. . 3
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (πβπ΄) βΌ (πβπ΅)) β (π΅β0) βΌ (πβπ΅)) |
29 | | breq1 5151 |
. . . 4
β’ (π = (π΄β0) β (π βΌ (πβπ΅) β (π΄β0) βΌ (πβπ΅))) |
30 | | breq1 5151 |
. . . 4
β’ (π = (π΅β0) β (π βΌ (πβπ΅) β (π΅β0) βΌ (πβπ΅))) |
31 | 29, 30 | rmoi 3885 |
. . 3
β’
((β*π β
π· π βΌ (πβπ΅) β§ ((π΄β0) β π· β§ (π΄β0) βΌ (πβπ΅)) β§ ((π΅β0) β π· β§ (π΅β0) βΌ (πβπ΅))) β (π΄β0) = (π΅β0)) |
32 | 14, 17, 23, 26, 28, 31 | syl122anc 1378 |
. 2
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (πβπ΄) βΌ (πβπ΅)) β (π΄β0) = (π΅β0)) |
33 | 18 | a1i 11 |
. . 3
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (π΄β0) = (π΅β0)) β βΌ Er π) |
34 | 20 | ad2antrr 723 |
. . 3
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (π΄β0) = (π΅β0)) β (π΄β0) βΌ (πβπ΄)) |
35 | | simpr 484 |
. . . 4
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (π΄β0) = (π΅β0)) β (π΄β0) = (π΅β0)) |
36 | 27 | ad2antlr 724 |
. . . 4
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (π΄β0) = (π΅β0)) β (π΅β0) βΌ (πβπ΅)) |
37 | 35, 36 | eqbrtrd 5170 |
. . 3
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (π΄β0) = (π΅β0)) β (π΄β0) βΌ (πβπ΅)) |
38 | 33, 34, 37 | ertr3d 8724 |
. 2
β’ (((π΄ β dom π β§ π΅ β dom π) β§ (π΄β0) = (π΅β0)) β (πβπ΄) βΌ (πβπ΅)) |
39 | 32, 38 | impbida 798 |
1
β’ ((π΄ β dom π β§ π΅ β dom π) β ((πβπ΄) βΌ (πβπ΅) β (π΄β0) = (π΅β0))) |