Theorem issubgr 28282

Description: The property of a set to be a subgraph of another set. (Contributed by AV, 16-Nov-2020.)

Hypotheses

Ref	Expression
issubgr.v	⊢ 𝑉 = (Vtx‘𝑆)
issubgr.a	⊢ 𝐴 = (Vtx‘𝐺)
issubgr.i	⊢ 𝐼 = (iEdg‘𝑆)
issubgr.b	⊢ 𝐵 = (iEdg‘𝐺)
issubgr.e	⊢ 𝐸 = (Edg‘𝑆)

Assertion

Ref	Expression
issubgr	⊢ ((𝐺 ∈ 𝑊 ∧ 𝑆 ∈ 𝑈) → (𝑆 SubGraph 𝐺 ↔ (𝑉 ⊆ 𝐴 ∧ 𝐼 = (𝐵 ↾ dom 𝐼) ∧ 𝐸 ⊆ 𝒫 𝑉)))

Proof of Theorem issubgr

Dummy variables 𝑠 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6847	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (Vtx‘𝑠) = (Vtx‘𝑆))
2	1	adantr 481	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (Vtx‘𝑠) = (Vtx‘𝑆))
3		fveq2 6847	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (Vtx‘𝑔) = (Vtx‘𝐺))
4	3	adantl 482	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (Vtx‘𝑔) = (Vtx‘𝐺))
5	2, 4	sseq12d 3980	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ↔ (Vtx‘𝑆) ⊆ (Vtx‘𝐺)))
6		fveq2 6847	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (iEdg‘𝑠) = (iEdg‘𝑆))
7	6	adantr 481	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (iEdg‘𝑠) = (iEdg‘𝑆))
8		fveq2 6847	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (iEdg‘𝑔) = (iEdg‘𝐺))
9	8	adantl 482	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (iEdg‘𝑔) = (iEdg‘𝐺))
10	6	dmeqd 5866	. . . . . . . 8 ⊢ (𝑠 = 𝑆 → dom (iEdg‘𝑠) = dom (iEdg‘𝑆))
11	10	adantr 481	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → dom (iEdg‘𝑠) = dom (iEdg‘𝑆))
12	9, 11	reseq12d 5943	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
13	7, 12	eqeq12d 2747	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ↔ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))))
14		fveq2 6847	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (Edg‘𝑠) = (Edg‘𝑆))
15	1	pweqd 4582	. . . . . . 7 ⊢ (𝑠 = 𝑆 → 𝒫 (Vtx‘𝑠) = 𝒫 (Vtx‘𝑆))
16	14, 15	sseq12d 3980	. . . . . 6 ⊢ (𝑠 = 𝑆 → ((Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠) ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
17	16	adantr 481	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠) ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
18	5, 13, 17	3anbi123d 1436	. . . 4 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ∧ (iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ∧ (Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠)) ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
19		df-subgr 28279	. . . 4 ⊢ SubGraph = {⟨𝑠, 𝑔⟩ ∣ ((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ∧ (iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ∧ (Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠))}
20	18, 19	brabga 5496	. . 3 ⊢ ((𝑆 ∈ 𝑈 ∧ 𝐺 ∈ 𝑊) → (𝑆 SubGraph 𝐺 ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
21	20	ancoms 459	. 2 ⊢ ((𝐺 ∈ 𝑊 ∧ 𝑆 ∈ 𝑈) → (𝑆 SubGraph 𝐺 ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
22		issubgr.v	. . . 4 ⊢ 𝑉 = (Vtx‘𝑆)
23		issubgr.a	. . . 4 ⊢ 𝐴 = (Vtx‘𝐺)
24	22, 23	sseq12i 3977	. . 3 ⊢ (𝑉 ⊆ 𝐴 ↔ (Vtx‘𝑆) ⊆ (Vtx‘𝐺))
25		issubgr.i	. . . 4 ⊢ 𝐼 = (iEdg‘𝑆)
26		issubgr.b	. . . . 5 ⊢ 𝐵 = (iEdg‘𝐺)
27	25	dmeqi 5865	. . . . 5 ⊢ dom 𝐼 = dom (iEdg‘𝑆)
28	26, 27	reseq12i 5940	. . . 4 ⊢ (𝐵 ↾ dom 𝐼) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))
29	25, 28	eqeq12i 2749	. . 3 ⊢ (𝐼 = (𝐵 ↾ dom 𝐼) ↔ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
30		issubgr.e	. . . 4 ⊢ 𝐸 = (Edg‘𝑆)
31	22	pweqi 4581	. . . 4 ⊢ 𝒫 𝑉 = 𝒫 (Vtx‘𝑆)
32	30, 31	sseq12i 3977	. . 3 ⊢ (𝐸 ⊆ 𝒫 𝑉 ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))
33	24, 29, 32	3anbi123i 1155	. 2 ⊢ ((𝑉 ⊆ 𝐴 ∧ 𝐼 = (𝐵 ↾ dom 𝐼) ∧ 𝐸 ⊆ 𝒫 𝑉) ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
34	21, 33	bitr4di 288	1 ⊢ ((𝐺 ∈ 𝑊 ∧ 𝑆 ∈ 𝑈) → (𝑆 SubGraph 𝐺 ↔ (𝑉 ⊆ 𝐴 ∧ 𝐼 = (𝐵 ↾ dom 𝐼) ∧ 𝐸 ⊆ 𝒫 𝑉)))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   ⊆ wss 3913  𝒫 cpw 4565   class class class wbr 5110  dom cdm 5638   ↾ cres 5640  ‘cfv 6501  Vtxcvtx 28010  iEdgciedg 28011  Edgcedg 28061   SubGraph csubgr 28278

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-ext 2702  ax-sep 5261  ax-nul 5268  ax-pr 5389

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-sb 2068  df-clab 2709  df-cleq 2723  df-clel 2809  df-rab 3406  df-v 3448  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-br 5111  df-opab 5173  df-xp 5644  df-dm 5648  df-res 5650  df-iota 6453  df-fv 6509  df-subgr 28279

This theorem is referenced by:  issubgr2  28283  subgrprop  28284  uhgrissubgr  28286  egrsubgr  28288  0grsubgr  28289  uhgrspan1  28314