Metamath Proof Explorer

Theorem isuspgrim

Description: A class is an isomorphism of simple pseudographs iff it is a bijection between their vertices that preserves adjacency, i.e. there is an edge in one graph connecting one or two vertices iff there is an edge in the other graph connecting the vertices which are the images of the vertices. This corresponds to the formal definition in Bollobas p. 3 and the definition in Diestel p. 3. (Contributed by AV, 27-Apr-2025)

Ref Expression
Hypotheses isusgrim.v 
|- V = ( Vtx ` G )
isusgrim.w 
|- W = ( Vtx ` H )
isusgrim.e 
|- E = ( Edg ` G )
isusgrim.d 
|- D = ( Edg ` H )
Assertion isuspgrim 
|- ( ( G e. USPGraph /\ H e. USPGraph ) -> ( F e. ( G GraphIso H ) <-> ( F : V -1-1-onto-> W /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) ) )

Proof

Step Hyp Ref Expression
1 isusgrim.v 
 |-  V = ( Vtx ` G )
2 isusgrim.w 
 |-  W = ( Vtx ` H )
3 isusgrim.e 
 |-  E = ( Edg ` G )
4 isusgrim.d 
 |-  D = ( Edg ` H )
5 uspgruhgr 
 |-  ( G e. USPGraph -> G e. UHGraph )
6 uspgruhgr 
 |-  ( H e. USPGraph -> H e. UHGraph )
7 5 6 anim12i 
 |-  ( ( G e. USPGraph /\ H e. USPGraph ) -> ( G e. UHGraph /\ H e. UHGraph ) )
8 7 anim1i 
 |-  ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F e. ( G GraphIso H ) ) -> ( ( G e. UHGraph /\ H e. UHGraph ) /\ F e. ( G GraphIso H ) ) )
9 df-3an 
 |-  ( ( G e. UHGraph /\ H e. UHGraph /\ F e. ( G GraphIso H ) ) <-> ( ( G e. UHGraph /\ H e. UHGraph ) /\ F e. ( G GraphIso H ) ) )
10 8 9 sylibr 
 |-  ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F e. ( G GraphIso H ) ) -> ( G e. UHGraph /\ H e. UHGraph /\ F e. ( G GraphIso H ) ) )
11 3 4 1 2 uhgrimprop 
 |-  ( ( G e. UHGraph /\ H e. UHGraph /\ F e. ( G GraphIso H ) ) -> ( F : V -1-1-onto-> W /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) )
12 10 11 syl 
 |-  ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F e. ( G GraphIso H ) ) -> ( F : V -1-1-onto-> W /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) )
13 12 ex 
 |-  ( ( G e. USPGraph /\ H e. USPGraph ) -> ( F e. ( G GraphIso H ) -> ( F : V -1-1-onto-> W /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) ) )
14 f1of 
 |-  ( F : V -1-1-onto-> W -> F : V --> W )
15 1 fvexi 
 |-  V e. _V
16 15 a1i 
 |-  ( F : V -1-1-onto-> W -> V e. _V )
17 14 16 fexd 
 |-  ( F : V -1-1-onto-> W -> F e. _V )
18 17 adantl 
 |-  ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F : V -1-1-onto-> W ) -> F e. _V )
19 simpllr 
 |-  ( ( ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F : V -1-1-onto-> W ) /\ F e. _V ) /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) -> F : V -1-1-onto-> W )
20 1 2 3 4 isuspgrimlem 
 |-  ( ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F : V -1-1-onto-> W ) /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) -> ( e e. E |-> ( F " e ) ) : E -1-1-onto-> D )
21 20 adantlr 
 |-  ( ( ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F : V -1-1-onto-> W ) /\ F e. _V ) /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) -> ( e e. E |-> ( F " e ) ) : E -1-1-onto-> D )
22 1 2 3 4 isuspgrim0 
 |-  ( ( G e. USPGraph /\ H e. USPGraph /\ F e. _V ) -> ( F e. ( G GraphIso H ) <-> ( F : V -1-1-onto-> W /\ ( e e. E |-> ( F " e ) ) : E -1-1-onto-> D ) ) )
23 22 ad5ant124 
 |-  ( ( ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F : V -1-1-onto-> W ) /\ F e. _V ) /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) -> ( F e. ( G GraphIso H ) <-> ( F : V -1-1-onto-> W /\ ( e e. E |-> ( F " e ) ) : E -1-1-onto-> D ) ) )
24 19 21 23 mpbir2and 
 |-  ( ( ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F : V -1-1-onto-> W ) /\ F e. _V ) /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) -> F e. ( G GraphIso H ) )
25 24 ex 
 |-  ( ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F : V -1-1-onto-> W ) /\ F e. _V ) -> ( A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) -> F e. ( G GraphIso H ) ) )
26 18 25 mpdan 
 |-  ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F : V -1-1-onto-> W ) -> ( A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) -> F e. ( G GraphIso H ) ) )
27 26 expimpd 
 |-  ( ( G e. USPGraph /\ H e. USPGraph ) -> ( ( F : V -1-1-onto-> W /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) -> F e. ( G GraphIso H ) ) )
28 13 27 impbid 
 |-  ( ( G e. USPGraph /\ H e. USPGraph ) -> ( F e. ( G GraphIso H ) <-> ( F : V -1-1-onto-> W /\ A. x e. V A. y e. V ( { x , y } e. E <-> { ( F ` x ) , ( F ` y ) } e. D ) ) ) )