MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  egrsubgr Structured version   Visualization version   GIF version

Theorem egrsubgr 28501
Description: An empty graph consisting of a subset of vertices of a graph (and having no edges) is a subgraph of the graph. (Contributed by AV, 17-Nov-2020.) (Proof shortened by AV, 17-Dec-2020.)
Assertion
Ref Expression
egrsubgr (((𝐺𝑊𝑆𝑈) ∧ (Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (Fun (iEdg‘𝑆) ∧ (Edg‘𝑆) = ∅)) → 𝑆 SubGraph 𝐺)

Proof of Theorem egrsubgr
StepHypRef Expression
1 simp2 1138 . 2 (((𝐺𝑊𝑆𝑈) ∧ (Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (Fun (iEdg‘𝑆) ∧ (Edg‘𝑆) = ∅)) → (Vtx‘𝑆) ⊆ (Vtx‘𝐺))
2 eqid 2733 . . . . . . 7 (iEdg‘𝑆) = (iEdg‘𝑆)
3 eqid 2733 . . . . . . 7 (Edg‘𝑆) = (Edg‘𝑆)
42, 3edg0iedg0 28282 . . . . . 6 (Fun (iEdg‘𝑆) → ((Edg‘𝑆) = ∅ ↔ (iEdg‘𝑆) = ∅))
54adantl 483 . . . . 5 (((𝐺𝑊𝑆𝑈) ∧ Fun (iEdg‘𝑆)) → ((Edg‘𝑆) = ∅ ↔ (iEdg‘𝑆) = ∅))
6 res0 5980 . . . . . . 7 ((iEdg‘𝐺) ↾ ∅) = ∅
76eqcomi 2742 . . . . . 6 ∅ = ((iEdg‘𝐺) ↾ ∅)
8 id 22 . . . . . 6 ((iEdg‘𝑆) = ∅ → (iEdg‘𝑆) = ∅)
9 dmeq 5898 . . . . . . . 8 ((iEdg‘𝑆) = ∅ → dom (iEdg‘𝑆) = dom ∅)
10 dm0 5915 . . . . . . . 8 dom ∅ = ∅
119, 10eqtrdi 2789 . . . . . . 7 ((iEdg‘𝑆) = ∅ → dom (iEdg‘𝑆) = ∅)
1211reseq2d 5976 . . . . . 6 ((iEdg‘𝑆) = ∅ → ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) = ((iEdg‘𝐺) ↾ ∅))
137, 8, 123eqtr4a 2799 . . . . 5 ((iEdg‘𝑆) = ∅ → (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
145, 13syl6bi 253 . . . 4 (((𝐺𝑊𝑆𝑈) ∧ Fun (iEdg‘𝑆)) → ((Edg‘𝑆) = ∅ → (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))))
1514impr 456 . . 3 (((𝐺𝑊𝑆𝑈) ∧ (Fun (iEdg‘𝑆) ∧ (Edg‘𝑆) = ∅)) → (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
16153adant2 1132 . 2 (((𝐺𝑊𝑆𝑈) ∧ (Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (Fun (iEdg‘𝑆) ∧ (Edg‘𝑆) = ∅)) → (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
17 0ss 4394 . . . . 5 ∅ ⊆ 𝒫 (Vtx‘𝑆)
18 sseq1 4005 . . . . 5 ((Edg‘𝑆) = ∅ → ((Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆) ↔ ∅ ⊆ 𝒫 (Vtx‘𝑆)))
1917, 18mpbiri 258 . . . 4 ((Edg‘𝑆) = ∅ → (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))
2019adantl 483 . . 3 ((Fun (iEdg‘𝑆) ∧ (Edg‘𝑆) = ∅) → (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))
21203ad2ant3 1136 . 2 (((𝐺𝑊𝑆𝑈) ∧ (Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (Fun (iEdg‘𝑆) ∧ (Edg‘𝑆) = ∅)) → (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))
22 eqid 2733 . . . 4 (Vtx‘𝑆) = (Vtx‘𝑆)
23 eqid 2733 . . . 4 (Vtx‘𝐺) = (Vtx‘𝐺)
24 eqid 2733 . . . 4 (iEdg‘𝐺) = (iEdg‘𝐺)
2522, 23, 2, 24, 3issubgr 28495 . . 3 ((𝐺𝑊𝑆𝑈) → (𝑆 SubGraph 𝐺 ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
26253ad2ant1 1134 . 2 (((𝐺𝑊𝑆𝑈) ∧ (Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (Fun (iEdg‘𝑆) ∧ (Edg‘𝑆) = ∅)) → (𝑆 SubGraph 𝐺 ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
271, 16, 21, 26mpbir3and 1343 1 (((𝐺𝑊𝑆𝑈) ∧ (Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (Fun (iEdg‘𝑆) ∧ (Edg‘𝑆) = ∅)) → 𝑆 SubGraph 𝐺)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 397  w3a 1088   = wceq 1542  wcel 2107  wss 3946  c0 4320  𝒫 cpw 4598   class class class wbr 5144  dom cdm 5672  cres 5674  Fun wfun 6529  cfv 6535  Vtxcvtx 28223  iEdgciedg 28224  Edgcedg 28274   SubGraph csubgr 28491
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-sep 5295  ax-nul 5302  ax-pr 5423  ax-un 7712
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-rab 3434  df-v 3477  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-nul 4321  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-op 4631  df-uni 4905  df-br 5145  df-opab 5207  df-mpt 5228  df-id 5570  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-iota 6487  df-fun 6537  df-fv 6543  df-edg 28275  df-subgr 28492
This theorem is referenced by:  0uhgrsubgr  28503
  Copyright terms: Public domain W3C validator