Theorem issubgr 27053

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 6670	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (Vtx‘𝑠) = (Vtx‘𝑆))
2	1	adantr 483	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (Vtx‘𝑠) = (Vtx‘𝑆))
3		fveq2 6670	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (Vtx‘𝑔) = (Vtx‘𝐺))
4	3	adantl 484	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (Vtx‘𝑔) = (Vtx‘𝐺))
5	2, 4	sseq12d 4000	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ↔ (Vtx‘𝑆) ⊆ (Vtx‘𝐺)))
6		fveq2 6670	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (iEdg‘𝑠) = (iEdg‘𝑆))
7	6	adantr 483	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (iEdg‘𝑠) = (iEdg‘𝑆))
8		fveq2 6670	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (iEdg‘𝑔) = (iEdg‘𝐺))
9	8	adantl 484	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (iEdg‘𝑔) = (iEdg‘𝐺))
10	6	dmeqd 5774	. . . . . . . 8 ⊢ (𝑠 = 𝑆 → dom (iEdg‘𝑠) = dom (iEdg‘𝑆))
11	10	adantr 483	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → dom (iEdg‘𝑠) = dom (iEdg‘𝑆))
12	9, 11	reseq12d 5854	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
13	7, 12	eqeq12d 2837	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ↔ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))))
14		fveq2 6670	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (Edg‘𝑠) = (Edg‘𝑆))
15	1	pweqd 4558	. . . . . . 7 ⊢ (𝑠 = 𝑆 → 𝒫 (Vtx‘𝑠) = 𝒫 (Vtx‘𝑆))
16	14, 15	sseq12d 4000	. . . . . 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 27050	. . . 4 ⊢ SubGraph = {⟨𝑠, 𝑔⟩ ∣ ((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ∧ (iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ∧ (Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠))}
20	18, 19	brabga 5421	. . 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 3997	. . 3 ⊢ (𝑉 ⊆ 𝐴 ↔ (Vtx‘𝑆) ⊆ (Vtx‘𝐺))
25		issubgr.i	. . . 4 ⊢ 𝐼 = (iEdg‘𝑆)
26		issubgr.b	. . . . 5 ⊢ 𝐵 = (iEdg‘𝐺)
27	25	dmeqi 5773	. . . . 5 ⊢ dom 𝐼 = dom (iEdg‘𝑆)
28	26, 27	reseq12i 5851	. . . 4 ⊢ (𝐵 ↾ dom 𝐼) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))
29	25, 28	eqeq12i 2836	. . 3 ⊢ (𝐼 = (𝐵 ↾ dom 𝐼) ↔ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
30		issubgr.e	. . . 4 ⊢ 𝐸 = (Edg‘𝑆)
31	22	pweqi 4557	. . . 4 ⊢ 𝒫 𝑉 = 𝒫 (Vtx‘𝑆)
32	30, 31	sseq12i 3997	. . 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 1537   ∈ wcel 2114   ⊆ wss 3936  𝒫 cpw 4539   class class class wbr 5066  dom cdm 5555   ↾ cres 5557  ‘cfv 6355  Vtxcvtx 26781  iEdgciedg 26782  Edgcedg 26832   SubGraph csubgr 27049

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-sep 5203  ax-nul 5210  ax-pr 5330

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-rab 3147  df-v 3496  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4839  df-br 5067  df-opab 5129  df-xp 5561  df-dm 5565  df-res 5567  df-iota 6314  df-fv 6363  df-subgr 27050

This theorem is referenced by:  issubgr2  27054  subgrprop  27055  uhgrissubgr  27057  egrsubgr  27059  0grsubgr  27060  uhgrspan1  27085