Theorem issubgr 27061

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 6645	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (Vtx‘𝑠) = (Vtx‘𝑆))
2	1	adantr 484	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (Vtx‘𝑠) = (Vtx‘𝑆))
3		fveq2 6645	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (Vtx‘𝑔) = (Vtx‘𝐺))
4	3	adantl 485	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (Vtx‘𝑔) = (Vtx‘𝐺))
5	2, 4	sseq12d 3948	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ↔ (Vtx‘𝑆) ⊆ (Vtx‘𝐺)))
6		fveq2 6645	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (iEdg‘𝑠) = (iEdg‘𝑆))
7	6	adantr 484	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (iEdg‘𝑠) = (iEdg‘𝑆))
8		fveq2 6645	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (iEdg‘𝑔) = (iEdg‘𝐺))
9	8	adantl 485	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (iEdg‘𝑔) = (iEdg‘𝐺))
10	6	dmeqd 5738	. . . . . . . 8 ⊢ (𝑠 = 𝑆 → dom (iEdg‘𝑠) = dom (iEdg‘𝑆))
11	10	adantr 484	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → dom (iEdg‘𝑠) = dom (iEdg‘𝑆))
12	9, 11	reseq12d 5819	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
13	7, 12	eqeq12d 2814	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ↔ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))))
14		fveq2 6645	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (Edg‘𝑠) = (Edg‘𝑆))
15	1	pweqd 4516	. . . . . . 7 ⊢ (𝑠 = 𝑆 → 𝒫 (Vtx‘𝑠) = 𝒫 (Vtx‘𝑆))
16	14, 15	sseq12d 3948	. . . . . 6 ⊢ (𝑠 = 𝑆 → ((Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠) ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
17	16	adantr 484	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠) ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
18	5, 13, 17	3anbi123d 1433	. . . 4 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ∧ (iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ∧ (Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠)) ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
19		df-subgr 27058	. . . 4 ⊢ SubGraph = {⟨𝑠, 𝑔⟩ ∣ ((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ∧ (iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ∧ (Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠))}
20	18, 19	brabga 5386	. . 3 ⊢ ((𝑆 ∈ 𝑈 ∧ 𝐺 ∈ 𝑊) → (𝑆 SubGraph 𝐺 ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
21	20	ancoms 462	. 2 ⊢ ((𝐺 ∈ 𝑊 ∧ 𝑆 ∈ 𝑈) → (𝑆 SubGraph 𝐺 ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
22		issubgr.v	. . . 4 ⊢ 𝑉 = (Vtx‘𝑆)
23		issubgr.a	. . . 4 ⊢ 𝐴 = (Vtx‘𝐺)
24	22, 23	sseq12i 3945	. . 3 ⊢ (𝑉 ⊆ 𝐴 ↔ (Vtx‘𝑆) ⊆ (Vtx‘𝐺))
25		issubgr.i	. . . 4 ⊢ 𝐼 = (iEdg‘𝑆)
26		issubgr.b	. . . . 5 ⊢ 𝐵 = (iEdg‘𝐺)
27	25	dmeqi 5737	. . . . 5 ⊢ dom 𝐼 = dom (iEdg‘𝑆)
28	26, 27	reseq12i 5816	. . . 4 ⊢ (𝐵 ↾ dom 𝐼) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))
29	25, 28	eqeq12i 2813	. . 3 ⊢ (𝐼 = (𝐵 ↾ dom 𝐼) ↔ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
30		issubgr.e	. . . 4 ⊢ 𝐸 = (Edg‘𝑆)
31	22	pweqi 4515	. . . 4 ⊢ 𝒫 𝑉 = 𝒫 (Vtx‘𝑆)
32	30, 31	sseq12i 3945	. . 3 ⊢ (𝐸 ⊆ 𝒫 𝑉 ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))
33	24, 29, 32	3anbi123i 1152	. 2 ⊢ ((𝑉 ⊆ 𝐴 ∧ 𝐼 = (𝐵 ↾ dom 𝐼) ∧ 𝐸 ⊆ 𝒫 𝑉) ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
34	21, 33	syl6bbr 292	1 ⊢ ((𝐺 ∈ 𝑊 ∧ 𝑆 ∈ 𝑈) → (𝑆 SubGraph 𝐺 ↔ (𝑉 ⊆ 𝐴 ∧ 𝐼 = (𝐵 ↾ dom 𝐼) ∧ 𝐸 ⊆ 𝒫 𝑉)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111   ⊆ wss 3881  𝒫 cpw 4497   class class class wbr 5030  dom cdm 5519   ↾ cres 5521  ‘cfv 6324  Vtxcvtx 26789  iEdgciedg 26790  Edgcedg 26840   SubGraph csubgr 27057

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 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-sep 5167  ax-nul 5174  ax-pr 5295

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-rab 3115  df-v 3443  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4801  df-br 5031  df-opab 5093  df-xp 5525  df-dm 5529  df-res 5531  df-iota 6283  df-fv 6332  df-subgr 27058

This theorem is referenced by:  issubgr2  27062  subgrprop  27063  uhgrissubgr  27065  egrsubgr  27067  0grsubgr  27068  uhgrspan1  27093