Theorem isubgruhgr 47792

Description: An induced subgraph of a hypergraph is a hypergraph. (Contributed by AV, 13-May-2025.)

Hypothesis

Ref	Expression
isubgrvtx.v	⊢ 𝑉 = (Vtx‘𝐺)

Assertion

Ref	Expression
isubgruhgr	⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐺 ISubGr 𝑆) ∈ UHGraph)

Proof of Theorem isubgruhgr

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		isubgrvtx.v	. . . . . . 7 ⊢ 𝑉 = (Vtx‘𝐺)
2		eqid 2735	. . . . . . 7 ⊢ (iEdg‘𝐺) = (iEdg‘𝐺)
3	1, 2	uhgrf 29094	. . . . . 6 ⊢ (𝐺 ∈ UHGraph → (iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}))
4	3	adantr 480	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}))
5		dmresss 6031	. . . . . 6 ⊢ dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}) ⊆ dom (iEdg‘𝐺)
6	5	a1i 11	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}) ⊆ dom (iEdg‘𝐺))
7		imadmres 6256	. . . . . 6 ⊢ ((iEdg‘𝐺) “ dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})) = ((iEdg‘𝐺) “ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})
8		ffvelcdm 7101	. . . . . . . . . . . . . . . . 17 ⊢ (((iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}) ∧ 𝑦 ∈ dom (iEdg‘𝐺)) → ((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑉 ∖ {∅}))
9		eldifsni 4795	. . . . . . . . . . . . . . . . 17 ⊢ (((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑉 ∖ {∅}) → ((iEdg‘𝐺)‘𝑦) ≠ ∅)
10	8, 9	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}) ∧ 𝑦 ∈ dom (iEdg‘𝐺)) → ((iEdg‘𝐺)‘𝑦) ≠ ∅)
11	10	ex 412	. . . . . . . . . . . . . . 15 ⊢ ((iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}) → (𝑦 ∈ dom (iEdg‘𝐺) → ((iEdg‘𝐺)‘𝑦) ≠ ∅))
12	3, 11	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝐺 ∈ UHGraph → (𝑦 ∈ dom (iEdg‘𝐺) → ((iEdg‘𝐺)‘𝑦) ≠ ∅))
13	12	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝑦 ∈ dom (iEdg‘𝐺) → ((iEdg‘𝐺)‘𝑦) ≠ ∅))
14	13	imp 406	. . . . . . . . . . . 12 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑦 ∈ dom (iEdg‘𝐺)) → ((iEdg‘𝐺)‘𝑦) ≠ ∅)
15		fvexd 6922	. . . . . . . . . . . . 13 ⊢ (((iEdg‘𝐺)‘𝑦) ⊆ 𝑆 → ((iEdg‘𝐺)‘𝑦) ∈ V)
16		id 22	. . . . . . . . . . . . 13 ⊢ (((iEdg‘𝐺)‘𝑦) ⊆ 𝑆 → ((iEdg‘𝐺)‘𝑦) ⊆ 𝑆)
17	15, 16	elpwd 4611	. . . . . . . . . . . 12 ⊢ (((iEdg‘𝐺)‘𝑦) ⊆ 𝑆 → ((iEdg‘𝐺)‘𝑦) ∈ 𝒫 𝑆)
18	14, 17	anim12ci 614	. . . . . . . . . . 11 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑦 ∈ dom (iEdg‘𝐺)) ∧ ((iEdg‘𝐺)‘𝑦) ⊆ 𝑆) → (((iEdg‘𝐺)‘𝑦) ∈ 𝒫 𝑆 ∧ ((iEdg‘𝐺)‘𝑦) ≠ ∅))
19		eldifsn 4791	. . . . . . . . . . 11 ⊢ (((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑆 ∖ {∅}) ↔ (((iEdg‘𝐺)‘𝑦) ∈ 𝒫 𝑆 ∧ ((iEdg‘𝐺)‘𝑦) ≠ ∅))
20	18, 19	sylibr 234	. . . . . . . . . 10 ⊢ ((((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑦 ∈ dom (iEdg‘𝐺)) ∧ ((iEdg‘𝐺)‘𝑦) ⊆ 𝑆) → ((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑆 ∖ {∅}))
21	20	ex 412	. . . . . . . . 9 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) ∧ 𝑦 ∈ dom (iEdg‘𝐺)) → (((iEdg‘𝐺)‘𝑦) ⊆ 𝑆 → ((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑆 ∖ {∅})))
22	21	ralrimiva 3144	. . . . . . . 8 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ∀𝑦 ∈ dom (iEdg‘𝐺)(((iEdg‘𝐺)‘𝑦) ⊆ 𝑆 → ((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑆 ∖ {∅})))
23		fveq2 6907	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → ((iEdg‘𝐺)‘𝑥) = ((iEdg‘𝐺)‘𝑦))
24	23	sseq1d 4027	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (((iEdg‘𝐺)‘𝑥) ⊆ 𝑆 ↔ ((iEdg‘𝐺)‘𝑦) ⊆ 𝑆))
25	24	ralrab 3702	. . . . . . . 8 ⊢ (∀𝑦 ∈ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆} ((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑆 ∖ {∅}) ↔ ∀𝑦 ∈ dom (iEdg‘𝐺)(((iEdg‘𝐺)‘𝑦) ⊆ 𝑆 → ((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑆 ∖ {∅})))
26	22, 25	sylibr 234	. . . . . . 7 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ∀𝑦 ∈ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆} ((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑆 ∖ {∅}))
27		ffun 6740	. . . . . . . . . . 11 ⊢ ((iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}) → Fun (iEdg‘𝐺))
28		ssrab2 4090	. . . . . . . . . . 11 ⊢ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆} ⊆ dom (iEdg‘𝐺)
29	27, 28	jctir 520	. . . . . . . . . 10 ⊢ ((iEdg‘𝐺):dom (iEdg‘𝐺)⟶(𝒫 𝑉 ∖ {∅}) → (Fun (iEdg‘𝐺) ∧ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆} ⊆ dom (iEdg‘𝐺)))
30	3, 29	syl 17	. . . . . . . . 9 ⊢ (𝐺 ∈ UHGraph → (Fun (iEdg‘𝐺) ∧ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆} ⊆ dom (iEdg‘𝐺)))
31	30	adantr 480	. . . . . . . 8 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (Fun (iEdg‘𝐺) ∧ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆} ⊆ dom (iEdg‘𝐺)))
32		funimass4 6973	. . . . . . . 8 ⊢ ((Fun (iEdg‘𝐺) ∧ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆} ⊆ dom (iEdg‘𝐺)) → (((iEdg‘𝐺) “ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}) ⊆ (𝒫 𝑆 ∖ {∅}) ↔ ∀𝑦 ∈ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆} ((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑆 ∖ {∅})))
33	31, 32	syl 17	. . . . . . 7 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (((iEdg‘𝐺) “ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}) ⊆ (𝒫 𝑆 ∖ {∅}) ↔ ∀𝑦 ∈ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆} ((iEdg‘𝐺)‘𝑦) ∈ (𝒫 𝑆 ∖ {∅})))
34	26, 33	mpbird 257	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ((iEdg‘𝐺) “ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}) ⊆ (𝒫 𝑆 ∖ {∅}))
35	7, 34	eqsstrid 4044	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ((iEdg‘𝐺) “ dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})) ⊆ (𝒫 𝑆 ∖ {∅}))
36	4, 6, 35	fssrescdmd 7146	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ((iEdg‘𝐺) ↾ dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})):dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})⟶(𝒫 𝑆 ∖ {∅}))
37		resdmres 6254	. . . . . 6 ⊢ ((iEdg‘𝐺) ↾ dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})) = ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})
38	37	eqcomi 2744	. . . . 5 ⊢ ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}) = ((iEdg‘𝐺) ↾ dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}))
39	38	feq1i 6728	. . . 4 ⊢ (((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}):dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})⟶(𝒫 𝑆 ∖ {∅}) ↔ ((iEdg‘𝐺) ↾ dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})):dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})⟶(𝒫 𝑆 ∖ {∅}))
40	36, 39	sylibr 234	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}):dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})⟶(𝒫 𝑆 ∖ {∅}))
41	1, 2	isubgriedg 47787	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘(𝐺 ISubGr 𝑆)) = ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}))
42	41	dmeqd 5919	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → dom (iEdg‘(𝐺 ISubGr 𝑆)) = dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}))
43	1	isubgrvtx 47791	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (Vtx‘(𝐺 ISubGr 𝑆)) = 𝑆)
44	43	pweqd 4622	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → 𝒫 (Vtx‘(𝐺 ISubGr 𝑆)) = 𝒫 𝑆)
45	44	difeq1d 4135	. . . 4 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝒫 (Vtx‘(𝐺 ISubGr 𝑆)) ∖ {∅}) = (𝒫 𝑆 ∖ {∅}))
46	41, 42, 45	feq123d 6726	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ((iEdg‘(𝐺 ISubGr 𝑆)):dom (iEdg‘(𝐺 ISubGr 𝑆))⟶(𝒫 (Vtx‘(𝐺 ISubGr 𝑆)) ∖ {∅}) ↔ ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆}):dom ((iEdg‘𝐺) ↾ {𝑥 ∈ dom (iEdg‘𝐺) ∣ ((iEdg‘𝐺)‘𝑥) ⊆ 𝑆})⟶(𝒫 𝑆 ∖ {∅})))
47	40, 46	mpbird 257	. 2 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (iEdg‘(𝐺 ISubGr 𝑆)):dom (iEdg‘(𝐺 ISubGr 𝑆))⟶(𝒫 (Vtx‘(𝐺 ISubGr 𝑆)) ∖ {∅}))
48		ovexd 7466	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐺 ISubGr 𝑆) ∈ V)
49		eqid 2735	. . . 4 ⊢ (Vtx‘(𝐺 ISubGr 𝑆)) = (Vtx‘(𝐺 ISubGr 𝑆))
50		eqid 2735	. . . 4 ⊢ (iEdg‘(𝐺 ISubGr 𝑆)) = (iEdg‘(𝐺 ISubGr 𝑆))
51	49, 50	isuhgr 29092	. . 3 ⊢ ((𝐺 ISubGr 𝑆) ∈ V → ((𝐺 ISubGr 𝑆) ∈ UHGraph ↔ (iEdg‘(𝐺 ISubGr 𝑆)):dom (iEdg‘(𝐺 ISubGr 𝑆))⟶(𝒫 (Vtx‘(𝐺 ISubGr 𝑆)) ∖ {∅})))
52	48, 51	syl 17	. 2 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → ((𝐺 ISubGr 𝑆) ∈ UHGraph ↔ (iEdg‘(𝐺 ISubGr 𝑆)):dom (iEdg‘(𝐺 ISubGr 𝑆))⟶(𝒫 (Vtx‘(𝐺 ISubGr 𝑆)) ∖ {∅})))
53	47, 52	mpbird 257	1 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑆 ⊆ 𝑉) → (𝐺 ISubGr 𝑆) ∈ UHGraph)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1537   ∈ wcel 2106   ≠ wne 2938  ∀wral 3059  {crab 3433  Vcvv 3478   ∖ cdif 3960   ⊆ wss 3963  ∅c0 4339  𝒫 cpw 4605  {csn 4631  dom cdm 5689   ↾ cres 5691   “ cima 5692  Fun wfun 6557  ⟶wf 6559  ‘cfv 6563  (class class class)co 7431  Vtxcvtx 29028  iEdgciedg 29029  UHGraphcuhgr 29088   ISubGr cisubgr 47784

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-sep 5302  ax-nul 5312  ax-pr 5438  ax-un 7754

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-ral 3060  df-rex 3069  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-op 4638  df-uni 4913  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5583  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-fv 6571  df-ov 7434  df-oprab 7435  df-mpo 7436  df-1st 8013  df-2nd 8014  df-vtx 29030  df-iedg 29031  df-uhgr 29090  df-isubgr 47785

This theorem is referenced by:  isubgrsubgr  47793  grlicref  47908  grlicsym  47909  clnbgr3stgrgrlic  47915