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	1 2 3 4	uspgrimprop	|- ( ( 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 ) ) ) )
6		f1of	|- ( F : V -1-1-onto-> W -> F : V --> W )
7	1	fvexi	|- V e. _V
8	7	a1i	|- ( F : V -1-1-onto-> W -> V e. _V )
9	6 8	fexd	|- ( F : V -1-1-onto-> W -> F e. _V )
10	9	adantl	|- ( ( ( G e. USPGraph /\ H e. USPGraph ) /\ F : V -1-1-onto-> W ) -> F e. _V )
11		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 )
12	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 )
13	12	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 )
14	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 ) ) )
15	14	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 ) ) )
16	11 13 15	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 ) )
17	16	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 ) ) )
18	10 17	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 ) ) )
19	18	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 ) ) )
20	5 19	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 ) ) ) )