Step | Hyp | Ref
| Expression |
1 | | wlkson.v |
. . . . 5
β’ π = (VtxβπΊ) |
2 | 1 | 1vgrex 28293 |
. . . 4
β’ (π΄ β π β πΊ β V) |
3 | 2 | adantr 482 |
. . 3
β’ ((π΄ β π β§ π΅ β π) β πΊ β V) |
4 | | simpl 484 |
. . . 4
β’ ((π΄ β π β§ π΅ β π) β π΄ β π) |
5 | 4, 1 | eleqtrdi 2844 |
. . 3
β’ ((π΄ β π β§ π΅ β π) β π΄ β (VtxβπΊ)) |
6 | | simpr 486 |
. . . 4
β’ ((π΄ β π β§ π΅ β π) β π΅ β π) |
7 | 6, 1 | eleqtrdi 2844 |
. . 3
β’ ((π΄ β π β§ π΅ β π) β π΅ β (VtxβπΊ)) |
8 | | eqeq2 2745 |
. . . 4
β’ (π = π΄ β ((πβ0) = π β (πβ0) = π΄)) |
9 | | eqeq2 2745 |
. . . 4
β’ (π = π΅ β ((πβ(β―βπ)) = π β (πβ(β―βπ)) = π΅)) |
10 | 8, 9 | bi2anan9 638 |
. . 3
β’ ((π = π΄ β§ π = π΅) β (((πβ0) = π β§ (πβ(β―βπ)) = π) β ((πβ0) = π΄ β§ (πβ(β―βπ)) = π΅))) |
11 | | biidd 262 |
. . 3
β’ (π = πΊ β (((πβ0) = π β§ (πβ(β―βπ)) = π) β ((πβ0) = π β§ (πβ(β―βπ)) = π))) |
12 | | df-wlkson 28888 |
. . . 4
β’ WalksOn =
(π β V β¦ (π β (Vtxβπ), π β (Vtxβπ) β¦ {β¨π, πβ© β£ (π(Walksβπ)π β§ (πβ0) = π β§ (πβ(β―βπ)) = π)})) |
13 | | eqid 2733 |
. . . . . 6
β’
(Vtxβπ) =
(Vtxβπ) |
14 | | 3anass 1096 |
. . . . . . . 8
β’ ((π(Walksβπ)π β§ (πβ0) = π β§ (πβ(β―βπ)) = π) β (π(Walksβπ)π β§ ((πβ0) = π β§ (πβ(β―βπ)) = π))) |
15 | 14 | biancomi 464 |
. . . . . . 7
β’ ((π(Walksβπ)π β§ (πβ0) = π β§ (πβ(β―βπ)) = π) β (((πβ0) = π β§ (πβ(β―βπ)) = π) β§ π(Walksβπ)π)) |
16 | 15 | opabbii 5216 |
. . . . . 6
β’
{β¨π, πβ© β£ (π(Walksβπ)π β§ (πβ0) = π β§ (πβ(β―βπ)) = π)} = {β¨π, πβ© β£ (((πβ0) = π β§ (πβ(β―βπ)) = π) β§ π(Walksβπ)π)} |
17 | 13, 13, 16 | mpoeq123i 7485 |
. . . . 5
β’ (π β (Vtxβπ), π β (Vtxβπ) β¦ {β¨π, πβ© β£ (π(Walksβπ)π β§ (πβ0) = π β§ (πβ(β―βπ)) = π)}) = (π β (Vtxβπ), π β (Vtxβπ) β¦ {β¨π, πβ© β£ (((πβ0) = π β§ (πβ(β―βπ)) = π) β§ π(Walksβπ)π)}) |
18 | 17 | mpteq2i 5254 |
. . . 4
β’ (π β V β¦ (π β (Vtxβπ), π β (Vtxβπ) β¦ {β¨π, πβ© β£ (π(Walksβπ)π β§ (πβ0) = π β§ (πβ(β―βπ)) = π)})) = (π β V β¦ (π β (Vtxβπ), π β (Vtxβπ) β¦ {β¨π, πβ© β£ (((πβ0) = π β§ (πβ(β―βπ)) = π) β§ π(Walksβπ)π)})) |
19 | 12, 18 | eqtri 2761 |
. . 3
β’ WalksOn =
(π β V β¦ (π β (Vtxβπ), π β (Vtxβπ) β¦ {β¨π, πβ© β£ (((πβ0) = π β§ (πβ(β―βπ)) = π) β§ π(Walksβπ)π)})) |
20 | 3, 5, 7, 10, 11, 19 | mptmpoopabbrd 8067 |
. 2
β’ ((π΄ β π β§ π΅ β π) β (π΄(WalksOnβπΊ)π΅) = {β¨π, πβ© β£ (((πβ0) = π΄ β§ (πβ(β―βπ)) = π΅) β§ π(WalksβπΊ)π)}) |
21 | | ancom 462 |
. . . 4
β’ ((((πβ0) = π΄ β§ (πβ(β―βπ)) = π΅) β§ π(WalksβπΊ)π) β (π(WalksβπΊ)π β§ ((πβ0) = π΄ β§ (πβ(β―βπ)) = π΅))) |
22 | | 3anass 1096 |
. . . 4
β’ ((π(WalksβπΊ)π β§ (πβ0) = π΄ β§ (πβ(β―βπ)) = π΅) β (π(WalksβπΊ)π β§ ((πβ0) = π΄ β§ (πβ(β―βπ)) = π΅))) |
23 | 21, 22 | bitr4i 278 |
. . 3
β’ ((((πβ0) = π΄ β§ (πβ(β―βπ)) = π΅) β§ π(WalksβπΊ)π) β (π(WalksβπΊ)π β§ (πβ0) = π΄ β§ (πβ(β―βπ)) = π΅)) |
24 | 23 | opabbii 5216 |
. 2
β’
{β¨π, πβ© β£ (((πβ0) = π΄ β§ (πβ(β―βπ)) = π΅) β§ π(WalksβπΊ)π)} = {β¨π, πβ© β£ (π(WalksβπΊ)π β§ (πβ0) = π΄ β§ (πβ(β―βπ)) = π΅)} |
25 | 20, 24 | eqtrdi 2789 |
1
β’ ((π΄ β π β§ π΅ β π) β (π΄(WalksOnβπΊ)π΅) = {β¨π, πβ© β£ (π(WalksβπΊ)π β§ (πβ0) = π΄ β§ (πβ(β―βπ)) = π΅)}) |