Metamath Proof Explorer


Theorem uhgrspansubgr

Description: A spanning subgraph S of a hypergraph G is actually a subgraph of G . A subgraph S of a graph G which has the same vertices as G and is obtained by removing some edges of G is called aspanning subgraph (see section I.1 in Bollobas p. 2 and section 1.1 in Diestel p. 4). Formally, the edges are "removed" by restricting the edge function of the original graph by an arbitrary class (which actually needs not to be a subset of the domain of the edge function). (Contributed by AV, 18-Nov-2020) (Proof shortened by AV, 21-Nov-2020)

Ref Expression
Hypotheses uhgrspan.v 𝑉 = ( Vtx ‘ 𝐺 )
uhgrspan.e 𝐸 = ( iEdg ‘ 𝐺 )
uhgrspan.s ( 𝜑𝑆𝑊 )
uhgrspan.q ( 𝜑 → ( Vtx ‘ 𝑆 ) = 𝑉 )
uhgrspan.r ( 𝜑 → ( iEdg ‘ 𝑆 ) = ( 𝐸𝐴 ) )
uhgrspan.g ( 𝜑𝐺 ∈ UHGraph )
Assertion uhgrspansubgr ( 𝜑𝑆 SubGraph 𝐺 )

Proof

Step Hyp Ref Expression
1 uhgrspan.v 𝑉 = ( Vtx ‘ 𝐺 )
2 uhgrspan.e 𝐸 = ( iEdg ‘ 𝐺 )
3 uhgrspan.s ( 𝜑𝑆𝑊 )
4 uhgrspan.q ( 𝜑 → ( Vtx ‘ 𝑆 ) = 𝑉 )
5 uhgrspan.r ( 𝜑 → ( iEdg ‘ 𝑆 ) = ( 𝐸𝐴 ) )
6 uhgrspan.g ( 𝜑𝐺 ∈ UHGraph )
7 ssid ( Vtx ‘ 𝑆 ) ⊆ ( Vtx ‘ 𝑆 )
8 7 4 sseqtrid ( 𝜑 → ( Vtx ‘ 𝑆 ) ⊆ 𝑉 )
9 resss ( 𝐸𝐴 ) ⊆ 𝐸
10 5 9 eqsstrdi ( 𝜑 → ( iEdg ‘ 𝑆 ) ⊆ 𝐸 )
11 1 2 3 4 5 6 uhgrspansubgrlem ( 𝜑 → ( Edg ‘ 𝑆 ) ⊆ 𝒫 ( Vtx ‘ 𝑆 ) )
12 2 uhgrfun ( 𝐺 ∈ UHGraph → Fun 𝐸 )
13 6 12 syl ( 𝜑 → Fun 𝐸 )
14 eqid ( Vtx ‘ 𝑆 ) = ( Vtx ‘ 𝑆 )
15 eqid ( iEdg ‘ 𝑆 ) = ( iEdg ‘ 𝑆 )
16 eqid ( Edg ‘ 𝑆 ) = ( Edg ‘ 𝑆 )
17 14 1 15 2 16 issubgr2 ( ( 𝐺 ∈ UHGraph ∧ Fun 𝐸𝑆𝑊 ) → ( 𝑆 SubGraph 𝐺 ↔ ( ( Vtx ‘ 𝑆 ) ⊆ 𝑉 ∧ ( iEdg ‘ 𝑆 ) ⊆ 𝐸 ∧ ( Edg ‘ 𝑆 ) ⊆ 𝒫 ( Vtx ‘ 𝑆 ) ) ) )
18 6 13 3 17 syl3anc ( 𝜑 → ( 𝑆 SubGraph 𝐺 ↔ ( ( Vtx ‘ 𝑆 ) ⊆ 𝑉 ∧ ( iEdg ‘ 𝑆 ) ⊆ 𝐸 ∧ ( Edg ‘ 𝑆 ) ⊆ 𝒫 ( Vtx ‘ 𝑆 ) ) ) )
19 8 10 11 18 mpbir3and ( 𝜑𝑆 SubGraph 𝐺 )