| Step |
Hyp |
Ref |
Expression |
| 1 |
|
nbusgreledg.e |
|- E = ( Edg ` G ) |
| 2 |
|
eqid |
|- ( Vtx ` G ) = ( Vtx ` G ) |
| 3 |
2 1
|
nbusgr |
|- ( G e. USGraph -> ( G NeighbVtx K ) = { n e. ( Vtx ` G ) | { K , n } e. E } ) |
| 4 |
3
|
eleq2d |
|- ( G e. USGraph -> ( N e. ( G NeighbVtx K ) <-> N e. { n e. ( Vtx ` G ) | { K , n } e. E } ) ) |
| 5 |
1 2
|
usgrpredgv |
|- ( ( G e. USGraph /\ { K , N } e. E ) -> ( K e. ( Vtx ` G ) /\ N e. ( Vtx ` G ) ) ) |
| 6 |
5
|
simprd |
|- ( ( G e. USGraph /\ { K , N } e. E ) -> N e. ( Vtx ` G ) ) |
| 7 |
6
|
ex |
|- ( G e. USGraph -> ( { K , N } e. E -> N e. ( Vtx ` G ) ) ) |
| 8 |
7
|
pm4.71rd |
|- ( G e. USGraph -> ( { K , N } e. E <-> ( N e. ( Vtx ` G ) /\ { K , N } e. E ) ) ) |
| 9 |
|
prcom |
|- { N , K } = { K , N } |
| 10 |
9
|
eleq1i |
|- ( { N , K } e. E <-> { K , N } e. E ) |
| 11 |
10
|
a1i |
|- ( G e. USGraph -> ( { N , K } e. E <-> { K , N } e. E ) ) |
| 12 |
|
preq2 |
|- ( n = N -> { K , n } = { K , N } ) |
| 13 |
12
|
eleq1d |
|- ( n = N -> ( { K , n } e. E <-> { K , N } e. E ) ) |
| 14 |
13
|
elrab |
|- ( N e. { n e. ( Vtx ` G ) | { K , n } e. E } <-> ( N e. ( Vtx ` G ) /\ { K , N } e. E ) ) |
| 15 |
14
|
a1i |
|- ( G e. USGraph -> ( N e. { n e. ( Vtx ` G ) | { K , n } e. E } <-> ( N e. ( Vtx ` G ) /\ { K , N } e. E ) ) ) |
| 16 |
8 11 15
|
3bitr4rd |
|- ( G e. USGraph -> ( N e. { n e. ( Vtx ` G ) | { K , n } e. E } <-> { N , K } e. E ) ) |
| 17 |
4 16
|
bitrd |
|- ( G e. USGraph -> ( N e. ( G NeighbVtx K ) <-> { N , K } e. E ) ) |