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

Theorem uhgrissubgr 29206
Description: The property of a hypergraph to be a subgraph. (Contributed by AV, 19-Nov-2020.)
Hypotheses
Ref Expression
uhgrissubgr.v 𝑉 = (Vtx‘𝑆)
uhgrissubgr.a 𝐴 = (Vtx‘𝐺)
uhgrissubgr.i 𝐼 = (iEdg‘𝑆)
uhgrissubgr.b 𝐵 = (iEdg‘𝐺)
Assertion
Ref Expression
uhgrissubgr ((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) → (𝑆 SubGraph 𝐺 ↔ (𝑉𝐴𝐼𝐵)))

Proof of Theorem uhgrissubgr
Dummy variable 𝑒 is distinct from all other variables.
StepHypRef Expression
1 uhgrissubgr.v . . . 4 𝑉 = (Vtx‘𝑆)
2 uhgrissubgr.a . . . 4 𝐴 = (Vtx‘𝐺)
3 uhgrissubgr.i . . . 4 𝐼 = (iEdg‘𝑆)
4 uhgrissubgr.b . . . 4 𝐵 = (iEdg‘𝐺)
5 eqid 2726 . . . 4 (Edg‘𝑆) = (Edg‘𝑆)
61, 2, 3, 4, 5subgrprop2 29205 . . 3 (𝑆 SubGraph 𝐺 → (𝑉𝐴𝐼𝐵 ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉))
7 3simpa 1145 . . 3 ((𝑉𝐴𝐼𝐵 ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉) → (𝑉𝐴𝐼𝐵))
86, 7syl 17 . 2 (𝑆 SubGraph 𝐺 → (𝑉𝐴𝐼𝐵))
9 simprl 769 . . . 4 (((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) ∧ (𝑉𝐴𝐼𝐵)) → 𝑉𝐴)
10 simp2 1134 . . . . . 6 ((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) → Fun 𝐵)
11 simpr 483 . . . . . 6 ((𝑉𝐴𝐼𝐵) → 𝐼𝐵)
12 funssres 6593 . . . . . 6 ((Fun 𝐵𝐼𝐵) → (𝐵 ↾ dom 𝐼) = 𝐼)
1310, 11, 12syl2an 594 . . . . 5 (((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) ∧ (𝑉𝐴𝐼𝐵)) → (𝐵 ↾ dom 𝐼) = 𝐼)
1413eqcomd 2732 . . . 4 (((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) ∧ (𝑉𝐴𝐼𝐵)) → 𝐼 = (𝐵 ↾ dom 𝐼))
15 edguhgr 29060 . . . . . . . . 9 ((𝑆 ∈ UHGraph ∧ 𝑒 ∈ (Edg‘𝑆)) → 𝑒 ∈ 𝒫 (Vtx‘𝑆))
1615ex 411 . . . . . . . 8 (𝑆 ∈ UHGraph → (𝑒 ∈ (Edg‘𝑆) → 𝑒 ∈ 𝒫 (Vtx‘𝑆)))
171pweqi 4614 . . . . . . . . 9 𝒫 𝑉 = 𝒫 (Vtx‘𝑆)
1817eleq2i 2818 . . . . . . . 8 (𝑒 ∈ 𝒫 𝑉𝑒 ∈ 𝒫 (Vtx‘𝑆))
1916, 18imbitrrdi 251 . . . . . . 7 (𝑆 ∈ UHGraph → (𝑒 ∈ (Edg‘𝑆) → 𝑒 ∈ 𝒫 𝑉))
2019ssrdv 3985 . . . . . 6 (𝑆 ∈ UHGraph → (Edg‘𝑆) ⊆ 𝒫 𝑉)
21203ad2ant3 1132 . . . . 5 ((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) → (Edg‘𝑆) ⊆ 𝒫 𝑉)
2221adantr 479 . . . 4 (((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) ∧ (𝑉𝐴𝐼𝐵)) → (Edg‘𝑆) ⊆ 𝒫 𝑉)
231, 2, 3, 4, 5issubgr 29202 . . . . . 6 ((𝐺𝑊𝑆 ∈ UHGraph) → (𝑆 SubGraph 𝐺 ↔ (𝑉𝐴𝐼 = (𝐵 ↾ dom 𝐼) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)))
24233adant2 1128 . . . . 5 ((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) → (𝑆 SubGraph 𝐺 ↔ (𝑉𝐴𝐼 = (𝐵 ↾ dom 𝐼) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)))
2524adantr 479 . . . 4 (((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) ∧ (𝑉𝐴𝐼𝐵)) → (𝑆 SubGraph 𝐺 ↔ (𝑉𝐴𝐼 = (𝐵 ↾ dom 𝐼) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)))
269, 14, 22, 25mpbir3and 1339 . . 3 (((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) ∧ (𝑉𝐴𝐼𝐵)) → 𝑆 SubGraph 𝐺)
2726ex 411 . 2 ((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) → ((𝑉𝐴𝐼𝐵) → 𝑆 SubGraph 𝐺))
288, 27impbid2 225 1 ((𝐺𝑊 ∧ Fun 𝐵𝑆 ∈ UHGraph) → (𝑆 SubGraph 𝐺 ↔ (𝑉𝐴𝐼𝐵)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 394  w3a 1084   = wceq 1534  wcel 2099  wss 3947  𝒫 cpw 4598   class class class wbr 5144  dom cdm 5673  cres 5675  Fun wfun 6538  cfv 6544  Vtxcvtx 28927  iEdgciedg 28928  Edgcedg 28978  UHGraphcuhgr 28987   SubGraph csubgr 29198
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2697  ax-sep 5295  ax-nul 5302  ax-pr 5424  ax-un 7736
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-nfc 2878  df-ne 2931  df-ral 3052  df-rex 3061  df-rab 3421  df-v 3465  df-sbc 3777  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4324  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-op 4631  df-uni 4907  df-br 5145  df-opab 5207  df-mpt 5228  df-id 5571  df-xp 5679  df-rel 5680  df-cnv 5681  df-co 5682  df-dm 5683  df-rn 5684  df-res 5685  df-iota 6496  df-fun 6546  df-fn 6547  df-f 6548  df-fv 6552  df-edg 28979  df-uhgr 28989  df-subgr 29199
This theorem is referenced by:  uhgrsubgrself  29211  isubgrsubgr  47468
  Copyright terms: Public domain W3C validator