Metamath Proof Explorer

Theorem stgriedg

Description: The indexed edges of the star graph S_N. (Contributed by AV, 11-Sep-2025)

Ref Expression
Assertion stgriedg 
|- ( N e. NN0 -> ( iEdg ` ( StarGr ` N ) ) = ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) )

Proof

Step Hyp Ref Expression
1 stgrfv 
 |-  ( N e. NN0 -> ( StarGr ` N ) = { <. ( Base ` ndx ) , ( 0 ... N ) >. , <. ( .ef ` ndx ) , ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) >. } )
2 1 fveq2d 
 |-  ( N e. NN0 -> ( iEdg ` ( StarGr ` N ) ) = ( iEdg ` { <. ( Base ` ndx ) , ( 0 ... N ) >. , <. ( .ef ` ndx ) , ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) >. } ) )
3 ovex 
 |-  ( 0 ... N ) e. _V
4 eqid 
 |-  { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } = { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } }
5 pwexg 
 |-  ( ( 0 ... N ) e. _V -> ~P ( 0 ... N ) e. _V )
6 4 5 rabexd 
 |-  ( ( 0 ... N ) e. _V -> { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } e. _V )
7 6 resiexd 
 |-  ( ( 0 ... N ) e. _V -> ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) e. _V )
8 3 7 ax-mp 
 |-  ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) e. _V
9 3 8 pm3.2i 
 |-  ( ( 0 ... N ) e. _V /\ ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) e. _V )
10 eqid 
 |-  { <. ( Base ` ndx ) , ( 0 ... N ) >. , <. ( .ef ` ndx ) , ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) >. } = { <. ( Base ` ndx ) , ( 0 ... N ) >. , <. ( .ef ` ndx ) , ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) >. }
11 10 struct2griedg 
 |-  ( ( ( 0 ... N ) e. _V /\ ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) e. _V ) -> ( iEdg ` { <. ( Base ` ndx ) , ( 0 ... N ) >. , <. ( .ef ` ndx ) , ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) >. } ) = ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) )
12 9 11 mp1i 
 |-  ( N e. NN0 -> ( iEdg ` { <. ( Base ` ndx ) , ( 0 ... N ) >. , <. ( .ef ` ndx ) , ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) >. } ) = ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) )
13 2 12 eqtrd 
 |-  ( N e. NN0 -> ( iEdg ` ( StarGr ` N ) ) = ( _I |` { e e. ~P ( 0 ... N ) | E. x e. ( 1 ... N ) e = { 0 , x } } ) )