Theorem subgruhgredgd 29574

Description: An edge of a subgraph of a hypergraph is a nonempty subset of its vertices. (Contributed by AV, 17-Nov-2020.) (Revised by AV, 21-Nov-2020.)

Hypotheses

Ref	Expression
subgruhgredgd.v	⊢ 𝑉 = (Vtx‘𝑆)
subgruhgredgd.i	⊢ 𝐼 = (iEdg‘𝑆)
subgruhgredgd.g	⊢ (𝜑 → 𝐺 ∈ UHGraph)
subgruhgredgd.s	⊢ (𝜑 → 𝑆 SubGraph 𝐺)
subgruhgredgd.x	⊢ (𝜑 → 𝑋 ∈ dom 𝐼)

Assertion

Ref	Expression
subgruhgredgd	⊢ (𝜑 → (𝐼‘𝑋) ∈ (𝒫 𝑉 ∖ {∅}))

Proof of Theorem subgruhgredgd

Step	Hyp	Ref	Expression
1		subgruhgredgd.s	. . 3 ⊢ (𝜑 → 𝑆 SubGraph 𝐺)
2		subgruhgredgd.v	. . . 4 ⊢ 𝑉 = (Vtx‘𝑆)
3		eqid 2769	. . . 4 ⊢ (Vtx‘𝐺) = (Vtx‘𝐺)
4		subgruhgredgd.i	. . . 4 ⊢ 𝐼 = (iEdg‘𝑆)
5		eqid 2769	. . . 4 ⊢ (iEdg‘𝐺) = (iEdg‘𝐺)
6		eqid 2769	. . . 4 ⊢ (Edg‘𝑆) = (Edg‘𝑆)
7	2, 3, 4, 5, 6	subgrprop2 29564	. . 3 ⊢ (𝑆 SubGraph 𝐺 → (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉))
8	1, 7	syl 18	. 2 ⊢ (𝜑 → (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉))
9		simpr3 1213	. . . 4 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (Edg‘𝑆) ⊆ 𝒫 𝑉)
10		subgruhgredgd.g	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ UHGraph)
11		subgruhgrfun 29572	. . . . . . . . 9 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 SubGraph 𝐺) → Fun (iEdg‘𝑆))
12	10, 1, 11	syl2anc 595	. . . . . . . 8 ⊢ (𝜑 → Fun (iEdg‘𝑆))
13		subgruhgredgd.x	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 ∈ dom 𝐼)
14	4	dmeqi 5895	. . . . . . . . 9 ⊢ dom 𝐼 = dom (iEdg‘𝑆)
15	13, 14	eleqtrdi 2879	. . . . . . . 8 ⊢ (𝜑 → 𝑋 ∈ dom (iEdg‘𝑆))
16	12, 15	jca 520	. . . . . . 7 ⊢ (𝜑 → (Fun (iEdg‘𝑆) ∧ 𝑋 ∈ dom (iEdg‘𝑆)))
17	16	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (Fun (iEdg‘𝑆) ∧ 𝑋 ∈ dom (iEdg‘𝑆)))
18	4	fveq1i 6883	. . . . . . 7 ⊢ (𝐼‘𝑋) = ((iEdg‘𝑆)‘𝑋)
19		fvelrn 7072	. . . . . . 7 ⊢ ((Fun (iEdg‘𝑆) ∧ 𝑋 ∈ dom (iEdg‘𝑆)) → ((iEdg‘𝑆)‘𝑋) ∈ ran (iEdg‘𝑆))
20	18, 19	eqeltrid 2873	. . . . . 6 ⊢ ((Fun (iEdg‘𝑆) ∧ 𝑋 ∈ dom (iEdg‘𝑆)) → (𝐼‘𝑋) ∈ ran (iEdg‘𝑆))
21	17, 20	syl 18	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) ∈ ran (iEdg‘𝑆))
22		edgval 29339	. . . . 5 ⊢ (Edg‘𝑆) = ran (iEdg‘𝑆)
23	21, 22	eleqtrrdi 2880	. . . 4 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) ∈ (Edg‘𝑆))
24	9, 23	sseldd 3946	. . 3 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) ∈ 𝒫 𝑉)
25	5	uhgrfun 29356	. . . . . . 7 ⊢ (𝐺 ∈ UHGraph → Fun (iEdg‘𝐺))
26	10, 25	syl 18	. . . . . 6 ⊢ (𝜑 → Fun (iEdg‘𝐺))
27	26	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → Fun (iEdg‘𝐺))
28		simpr2 1212	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → 𝐼 ⊆ (iEdg‘𝐺))
29	13	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → 𝑋 ∈ dom 𝐼)
30		funssfv 6903	. . . . . 6 ⊢ ((Fun (iEdg‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ 𝑋 ∈ dom 𝐼) → ((iEdg‘𝐺)‘𝑋) = (𝐼‘𝑋))
31	30	eqcomd 2775	. . . . 5 ⊢ ((Fun (iEdg‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘𝑋) = ((iEdg‘𝐺)‘𝑋))
32	27, 28, 29, 31	syl3anc 1396	. . . 4 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) = ((iEdg‘𝐺)‘𝑋))
33	10	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → 𝐺 ∈ UHGraph)
34	26	funfnd 6568	. . . . . 6 ⊢ (𝜑 → (iEdg‘𝐺) Fn dom (iEdg‘𝐺))
35	34	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (iEdg‘𝐺) Fn dom (iEdg‘𝐺))
36		subgreldmiedg 29573	. . . . . . 7 ⊢ ((𝑆 SubGraph 𝐺 ∧ 𝑋 ∈ dom (iEdg‘𝑆)) → 𝑋 ∈ dom (iEdg‘𝐺))
37	1, 15, 36	syl2anc 595	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ dom (iEdg‘𝐺))
38	37	adantr 485	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → 𝑋 ∈ dom (iEdg‘𝐺))
39	5	uhgrn0 29357	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ (iEdg‘𝐺) Fn dom (iEdg‘𝐺) ∧ 𝑋 ∈ dom (iEdg‘𝐺)) → ((iEdg‘𝐺)‘𝑋) ≠ ∅)
40	33, 35, 38, 39	syl3anc 1396	. . . 4 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → ((iEdg‘𝐺)‘𝑋) ≠ ∅)
41	32, 40	eqnetrd 3031	. . 3 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) ≠ ∅)
42		eldifsn 4758	. . 3 ⊢ ((𝐼‘𝑋) ∈ (𝒫 𝑉 ∖ {∅}) ↔ ((𝐼‘𝑋) ∈ 𝒫 𝑉 ∧ (𝐼‘𝑋) ≠ ∅))
43	24, 41, 42	sylanbrc 594	. 2 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) ∈ (𝒫 𝑉 ∖ {∅}))
44	8, 43	mpdan 699	1 ⊢ (𝜑 → (𝐼‘𝑋) ∈ (𝒫 𝑉 ∖ {∅}))

Syntax hints:   → wi 4   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149   ≠ wne 2964   ∖ cdif 3910   ⊆ wss 3913  ∅c0 4294  𝒫 cpw 4567  {csn 4594   class class class wbr 5113  dom cdm 5662  ran crn 5663  Fun wfun 6531   Fn wfn 6532  ‘cfv 6537  Vtxcvtx 29286  iEdgciedg 29287  Edgcedg 29337  UHGraphcuhgr 29346   SubGraph csubgr 29557

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5261  ax-nul 5271  ax-pr 5405  ax-un 7733

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rab 3424  df-v 3465  df-sbc 3754  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-br 5114  df-opab 5178  df-mpt 5197  df-id 5557  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-fv 6545  df-edg 29338  df-uhgr 29348  df-subgr 29558

This theorem is referenced by:  subumgredg2  29575  subuhgr  29576  subupgr  29577