Theorem issubgr 27052

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 6669	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (Vtx‘𝑠) = (Vtx‘𝑆))
2	1	adantr 483	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (Vtx‘𝑠) = (Vtx‘𝑆))
3		fveq2 6669	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (Vtx‘𝑔) = (Vtx‘𝐺))
4	3	adantl 484	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (Vtx‘𝑔) = (Vtx‘𝐺))
5	2, 4	sseq12d 3999	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ↔ (Vtx‘𝑆) ⊆ (Vtx‘𝐺)))
6		fveq2 6669	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (iEdg‘𝑠) = (iEdg‘𝑆))
7	6	adantr 483	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (iEdg‘𝑠) = (iEdg‘𝑆))
8		fveq2 6669	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (iEdg‘𝑔) = (iEdg‘𝐺))
9	8	adantl 484	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (iEdg‘𝑔) = (iEdg‘𝐺))
10	6	dmeqd 5773	. . . . . . . 8 ⊢ (𝑠 = 𝑆 → dom (iEdg‘𝑠) = dom (iEdg‘𝑆))
11	10	adantr 483	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → dom (iEdg‘𝑠) = dom (iEdg‘𝑆))
12	9, 11	reseq12d 5853	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
13	7, 12	eqeq12d 2837	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ↔ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))))
14		fveq2 6669	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (Edg‘𝑠) = (Edg‘𝑆))
15	1	pweqd 4557	. . . . . . 7 ⊢ (𝑠 = 𝑆 → 𝒫 (Vtx‘𝑠) = 𝒫 (Vtx‘𝑆))
16	14, 15	sseq12d 3999	. . . . . 6 ⊢ (𝑠 = 𝑆 → ((Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠) ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
17	16	adantr 483	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠) ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
18	5, 13, 17	3anbi123d 1432	. . . 4 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ∧ (iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ∧ (Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠)) ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
19		df-subgr 27049	. . . 4 ⊢ SubGraph = {⟨𝑠, 𝑔⟩ ∣ ((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ∧ (iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ∧ (Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠))}
20	18, 19	brabga 5420	. . 3 ⊢ ((𝑆 ∈ 𝑈 ∧ 𝐺 ∈ 𝑊) → (𝑆 SubGraph 𝐺 ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
21	20	ancoms 461	. 2 ⊢ ((𝐺 ∈ 𝑊 ∧ 𝑆 ∈ 𝑈) → (𝑆 SubGraph 𝐺 ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
22		issubgr.v	. . . 4 ⊢ 𝑉 = (Vtx‘𝑆)
23		issubgr.a	. . . 4 ⊢ 𝐴 = (Vtx‘𝐺)
24	22, 23	sseq12i 3996	. . 3 ⊢ (𝑉 ⊆ 𝐴 ↔ (Vtx‘𝑆) ⊆ (Vtx‘𝐺))
25		issubgr.i	. . . 4 ⊢ 𝐼 = (iEdg‘𝑆)
26		issubgr.b	. . . . 5 ⊢ 𝐵 = (iEdg‘𝐺)
27	25	dmeqi 5772	. . . . 5 ⊢ dom 𝐼 = dom (iEdg‘𝑆)
28	26, 27	reseq12i 5850	. . . 4 ⊢ (𝐵 ↾ dom 𝐼) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))
29	25, 28	eqeq12i 2836	. . 3 ⊢ (𝐼 = (𝐵 ↾ dom 𝐼) ↔ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
30		issubgr.e	. . . 4 ⊢ 𝐸 = (Edg‘𝑆)
31	22	pweqi 4556	. . . 4 ⊢ 𝒫 𝑉 = 𝒫 (Vtx‘𝑆)
32	30, 31	sseq12i 3996	. . 3 ⊢ (𝐸 ⊆ 𝒫 𝑉 ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))
33	24, 29, 32	3anbi123i 1151	. 2 ⊢ ((𝑉 ⊆ 𝐴 ∧ 𝐼 = (𝐵 ↾ dom 𝐼) ∧ 𝐸 ⊆ 𝒫 𝑉) ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
34	21, 33	syl6bbr 291	1 ⊢ ((𝐺 ∈ 𝑊 ∧ 𝑆 ∈ 𝑈) → (𝑆 SubGraph 𝐺 ↔ (𝑉 ⊆ 𝐴 ∧ 𝐼 = (𝐵 ↾ dom 𝐼) ∧ 𝐸 ⊆ 𝒫 𝑉)))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083   = wceq 1533   ∈ wcel 2110   ⊆ wss 3935  𝒫 cpw 4538   class class class wbr 5065  dom cdm 5554   ↾ cres 5556  ‘cfv 6354  Vtxcvtx 26780  iEdgciedg 26781  Edgcedg 26831   SubGraph csubgr 27048

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 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793  ax-sep 5202  ax-nul 5209  ax-pr 5329

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-rab 3147  df-v 3496  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-nul 4291  df-if 4467  df-pw 4540  df-sn 4567  df-pr 4569  df-op 4573  df-uni 4838  df-br 5066  df-opab 5128  df-xp 5560  df-dm 5564  df-res 5566  df-iota 6313  df-fv 6362  df-subgr 27049

This theorem is referenced by:  issubgr2  27053  subgrprop  27054  uhgrissubgr  27056  egrsubgr  27058  0grsubgr  27059  uhgrspan1  27084