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

Metamath Proof Explorer

Theorem umgrspanop

Description: A spanning subgraph of a multigraph represented by an ordered pair is a multigraph. (Contributed by AV, 27-Nov-2020)

Ref Expression
Hypotheses uhgrspanop.v 
|- V = ( Vtx ` G )
uhgrspanop.e 
|- E = ( iEdg ` G )
Assertion umgrspanop 
|- ( G e. UMGraph -> <. V , ( E |` A ) >. e. UMGraph )

Proof

Step Hyp Ref Expression
1 uhgrspanop.v 
 |-  V = ( Vtx ` G )
2 uhgrspanop.e 
 |-  E = ( iEdg ` G )
3 vex 
 |-  g e. _V
4 3 a1i 
 |-  ( ( G e. UMGraph /\ ( ( Vtx ` g ) = V /\ ( iEdg ` g ) = ( E |` A ) ) ) -> g e. _V )
5 simprl 
 |-  ( ( G e. UMGraph /\ ( ( Vtx ` g ) = V /\ ( iEdg ` g ) = ( E |` A ) ) ) -> ( Vtx ` g ) = V )
6 simprr 
 |-  ( ( G e. UMGraph /\ ( ( Vtx ` g ) = V /\ ( iEdg ` g ) = ( E |` A ) ) ) -> ( iEdg ` g ) = ( E |` A ) )
7 simpl 
 |-  ( ( G e. UMGraph /\ ( ( Vtx ` g ) = V /\ ( iEdg ` g ) = ( E |` A ) ) ) -> G e. UMGraph )
8 1 2 4 5 6 7 umgrspan 
 |-  ( ( G e. UMGraph /\ ( ( Vtx ` g ) = V /\ ( iEdg ` g ) = ( E |` A ) ) ) -> g e. UMGraph )
9 8 ex 
 |-  ( G e. UMGraph -> ( ( ( Vtx ` g ) = V /\ ( iEdg ` g ) = ( E |` A ) ) -> g e. UMGraph ) )
10 9 alrimiv 
 |-  ( G e. UMGraph -> A. g ( ( ( Vtx ` g ) = V /\ ( iEdg ` g ) = ( E |` A ) ) -> g e. UMGraph ) )
11 1 fvexi 
 |-  V e. _V
12 11 a1i 
 |-  ( G e. UMGraph -> V e. _V )
13 2 fvexi 
 |-  E e. _V
14 13 resex 
 |-  ( E |` A ) e. _V
15 14 a1i 
 |-  ( G e. UMGraph -> ( E |` A ) e. _V )
16 10 12 15 gropeld 
 |-  ( G e. UMGraph -> <. V , ( E |` A ) >. e. UMGraph )