Theorem subgruhgredgd 29370

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 2737	. . . 4 ⊢ (Vtx‘𝐺) = (Vtx‘𝐺)
4		subgruhgredgd.i	. . . 4 ⊢ 𝐼 = (iEdg‘𝑆)
5		eqid 2737	. . . 4 ⊢ (iEdg‘𝐺) = (iEdg‘𝐺)
6		eqid 2737	. . . 4 ⊢ (Edg‘𝑆) = (Edg‘𝑆)
7	2, 3, 4, 5, 6	subgrprop2 29360	. . 3 ⊢ (𝑆 SubGraph 𝐺 → (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉))
8	1, 7	syl 17	. 2 ⊢ (𝜑 → (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉))
9		simpr3 1198	. . . 4 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (Edg‘𝑆) ⊆ 𝒫 𝑉)
10		subgruhgredgd.g	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ UHGraph)
11		subgruhgrfun 29368	. . . . . . . . 9 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 SubGraph 𝐺) → Fun (iEdg‘𝑆))
12	10, 1, 11	syl2anc 585	. . . . . . . 8 ⊢ (𝜑 → Fun (iEdg‘𝑆))
13		subgruhgredgd.x	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 ∈ dom 𝐼)
14	4	dmeqi 5854	. . . . . . . . 9 ⊢ dom 𝐼 = dom (iEdg‘𝑆)
15	13, 14	eleqtrdi 2847	. . . . . . . 8 ⊢ (𝜑 → 𝑋 ∈ dom (iEdg‘𝑆))
16	12, 15	jca 511	. . . . . . 7 ⊢ (𝜑 → (Fun (iEdg‘𝑆) ∧ 𝑋 ∈ dom (iEdg‘𝑆)))
17	16	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (Fun (iEdg‘𝑆) ∧ 𝑋 ∈ dom (iEdg‘𝑆)))
18	4	fveq1i 6836	. . . . . . 7 ⊢ (𝐼‘𝑋) = ((iEdg‘𝑆)‘𝑋)
19		fvelrn 7023	. . . . . . 7 ⊢ ((Fun (iEdg‘𝑆) ∧ 𝑋 ∈ dom (iEdg‘𝑆)) → ((iEdg‘𝑆)‘𝑋) ∈ ran (iEdg‘𝑆))
20	18, 19	eqeltrid 2841	. . . . . 6 ⊢ ((Fun (iEdg‘𝑆) ∧ 𝑋 ∈ dom (iEdg‘𝑆)) → (𝐼‘𝑋) ∈ ran (iEdg‘𝑆))
21	17, 20	syl 17	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) ∈ ran (iEdg‘𝑆))
22		edgval 29135	. . . . 5 ⊢ (Edg‘𝑆) = ran (iEdg‘𝑆)
23	21, 22	eleqtrrdi 2848	. . . 4 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) ∈ (Edg‘𝑆))
24	9, 23	sseldd 3923	. . 3 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) ∈ 𝒫 𝑉)
25	5	uhgrfun 29152	. . . . . . 7 ⊢ (𝐺 ∈ UHGraph → Fun (iEdg‘𝐺))
26	10, 25	syl 17	. . . . . 6 ⊢ (𝜑 → Fun (iEdg‘𝐺))
27	26	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → Fun (iEdg‘𝐺))
28		simpr2 1197	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → 𝐼 ⊆ (iEdg‘𝐺))
29	13	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → 𝑋 ∈ dom 𝐼)
30		funssfv 6856	. . . . . 6 ⊢ ((Fun (iEdg‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ 𝑋 ∈ dom 𝐼) → ((iEdg‘𝐺)‘𝑋) = (𝐼‘𝑋))
31	30	eqcomd 2743	. . . . 5 ⊢ ((Fun (iEdg‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘𝑋) = ((iEdg‘𝐺)‘𝑋))
32	27, 28, 29, 31	syl3anc 1374	. . . 4 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) = ((iEdg‘𝐺)‘𝑋))
33	10	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → 𝐺 ∈ UHGraph)
34	26	funfnd 6524	. . . . . 6 ⊢ (𝜑 → (iEdg‘𝐺) Fn dom (iEdg‘𝐺))
35	34	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (iEdg‘𝐺) Fn dom (iEdg‘𝐺))
36		subgreldmiedg 29369	. . . . . . 7 ⊢ ((𝑆 SubGraph 𝐺 ∧ 𝑋 ∈ dom (iEdg‘𝑆)) → 𝑋 ∈ dom (iEdg‘𝐺))
37	1, 15, 36	syl2anc 585	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ dom (iEdg‘𝐺))
38	37	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → 𝑋 ∈ dom (iEdg‘𝐺))
39	5	uhgrn0 29153	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ (iEdg‘𝐺) Fn dom (iEdg‘𝐺) ∧ 𝑋 ∈ dom (iEdg‘𝐺)) → ((iEdg‘𝐺)‘𝑋) ≠ ∅)
40	33, 35, 38, 39	syl3anc 1374	. . . 4 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → ((iEdg‘𝐺)‘𝑋) ≠ ∅)
41	32, 40	eqnetrd 3000	. . 3 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) ≠ ∅)
42		eldifsn 4730	. . 3 ⊢ ((𝐼‘𝑋) ∈ (𝒫 𝑉 ∖ {∅}) ↔ ((𝐼‘𝑋) ∈ 𝒫 𝑉 ∧ (𝐼‘𝑋) ≠ ∅))
43	24, 41, 42	sylanbrc 584	. 2 ⊢ ((𝜑 ∧ (𝑉 ⊆ (Vtx‘𝐺) ∧ 𝐼 ⊆ (iEdg‘𝐺) ∧ (Edg‘𝑆) ⊆ 𝒫 𝑉)) → (𝐼‘𝑋) ∈ (𝒫 𝑉 ∖ {∅}))
44	8, 43	mpdan 688	1 ⊢ (𝜑 → (𝐼‘𝑋) ∈ (𝒫 𝑉 ∖ {∅}))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   ≠ wne 2933   ∖ cdif 3887   ⊆ wss 3890  ∅c0 4274  𝒫 cpw 4542  {csn 4568   class class class wbr 5086  dom cdm 5625  ran crn 5626  Fun wfun 6487   Fn wfn 6488  ‘cfv 6493  Vtxcvtx 29082  iEdgciedg 29083  Edgcedg 29133  UHGraphcuhgr 29142   SubGraph csubgr 29353

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5232  ax-nul 5242  ax-pr 5371  ax-un 7683

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rab 3391  df-v 3432  df-sbc 3730  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5520  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-fv 6501  df-edg 29134  df-uhgr 29144  df-subgr 29354

This theorem is referenced by:  subumgredg2  29371  subuhgr  29372  subupgr  29373