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 ) ) |