This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem clnbgredg

Description: A vertex connected by an edge with another vertex is a neighbor of that vertex. (Contributed by AV, 24-Aug-2025)

Ref Expression
Hypotheses clnbgredg.e 
|- E = ( Edg ` G )
clnbgredg.n 
|- N = ( G ClNeighbVtx X )
Assertion clnbgredg 
|- ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> Y e. N )

Proof

Step Hyp Ref Expression
1 clnbgredg.e 
 |-  E = ( Edg ` G )
2 clnbgredg.n 
 |-  N = ( G ClNeighbVtx X )
3 1 eleq2i 
 |-  ( K e. E <-> K e. ( Edg ` G ) )
4 3 biimpi 
 |-  ( K e. E -> K e. ( Edg ` G ) )
5 4 3ad2ant1 
 |-  ( ( K e. E /\ X e. K /\ Y e. K ) -> K e. ( Edg ` G ) )
6 simp3 
 |-  ( ( K e. E /\ X e. K /\ Y e. K ) -> Y e. K )
7 5 6 jca 
 |-  ( ( K e. E /\ X e. K /\ Y e. K ) -> ( K e. ( Edg ` G ) /\ Y e. K ) )
8 7 anim2i 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> ( G e. UHGraph /\ ( K e. ( Edg ` G ) /\ Y e. K ) ) )
9 3anass 
 |-  ( ( G e. UHGraph /\ K e. ( Edg ` G ) /\ Y e. K ) <-> ( G e. UHGraph /\ ( K e. ( Edg ` G ) /\ Y e. K ) ) )
10 8 9 sylibr 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> ( G e. UHGraph /\ K e. ( Edg ` G ) /\ Y e. K ) )
11 uhgredgrnv 
 |-  ( ( G e. UHGraph /\ K e. ( Edg ` G ) /\ Y e. K ) -> Y e. ( Vtx ` G ) )
12 10 11 syl 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> Y e. ( Vtx ` G ) )
13 simp2 
 |-  ( ( K e. E /\ X e. K /\ Y e. K ) -> X e. K )
14 5 13 jca 
 |-  ( ( K e. E /\ X e. K /\ Y e. K ) -> ( K e. ( Edg ` G ) /\ X e. K ) )
15 14 anim2i 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> ( G e. UHGraph /\ ( K e. ( Edg ` G ) /\ X e. K ) ) )
16 3anass 
 |-  ( ( G e. UHGraph /\ K e. ( Edg ` G ) /\ X e. K ) <-> ( G e. UHGraph /\ ( K e. ( Edg ` G ) /\ X e. K ) ) )
17 15 16 sylibr 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> ( G e. UHGraph /\ K e. ( Edg ` G ) /\ X e. K ) )
18 uhgredgrnv 
 |-  ( ( G e. UHGraph /\ K e. ( Edg ` G ) /\ X e. K ) -> X e. ( Vtx ` G ) )
19 17 18 syl 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> X e. ( Vtx ` G ) )
20 simpr1 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> K e. E )
21 sseq2 
 |-  ( e = K -> ( { X , Y } C_ e <-> { X , Y } C_ K ) )
22 21 adantl 
 |-  ( ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) /\ e = K ) -> ( { X , Y } C_ e <-> { X , Y } C_ K ) )
23 prssi 
 |-  ( ( X e. K /\ Y e. K ) -> { X , Y } C_ K )
24 23 3adant1 
 |-  ( ( K e. E /\ X e. K /\ Y e. K ) -> { X , Y } C_ K )
25 24 adantl 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> { X , Y } C_ K )
26 20 22 25 rspcedvd 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> E. e e. E { X , Y } C_ e )
27 26 olcd 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> ( Y = X \/ E. e e. E { X , Y } C_ e ) )
28 eqid 
 |-  ( Vtx ` G ) = ( Vtx ` G )
29 28 1 clnbgrel 
 |-  ( Y e. ( G ClNeighbVtx X ) <-> ( ( Y e. ( Vtx ` G ) /\ X e. ( Vtx ` G ) ) /\ ( Y = X \/ E. e e. E { X , Y } C_ e ) ) )
30 12 19 27 29 syl21anbrc 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> Y e. ( G ClNeighbVtx X ) )
31 2 eleq2i 
 |-  ( Y e. N <-> Y e. ( G ClNeighbVtx X ) )
32 30 31 sylibr 
 |-  ( ( G e. UHGraph /\ ( K e. E /\ X e. K /\ Y e. K ) ) -> Y e. N )