Theorem issubgr 16412

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 5690	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (Vtx‘𝑠) = (Vtx‘𝑆))
2	1	adantr 276	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (Vtx‘𝑠) = (Vtx‘𝑆))
3		fveq2 5690	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (Vtx‘𝑔) = (Vtx‘𝐺))
4	3	adantl 277	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (Vtx‘𝑔) = (Vtx‘𝐺))
5	2, 4	sseq12d 3279	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ↔ (Vtx‘𝑆) ⊆ (Vtx‘𝐺)))
6		fveq2 5690	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (iEdg‘𝑠) = (iEdg‘𝑆))
7	6	adantr 276	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (iEdg‘𝑠) = (iEdg‘𝑆))
8		fveq2 5690	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (iEdg‘𝑔) = (iEdg‘𝐺))
9	8	adantl 277	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (iEdg‘𝑔) = (iEdg‘𝐺))
10	6	dmeqd 4978	. . . . . . . 8 ⊢ (𝑠 = 𝑆 → dom (iEdg‘𝑠) = dom (iEdg‘𝑆))
11	10	adantr 276	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → dom (iEdg‘𝑠) = dom (iEdg‘𝑆))
12	9, 11	reseq12d 5059	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
13	7, 12	eqeq12d 2253	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ↔ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))))
14		fveq2 5690	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (Edg‘𝑠) = (Edg‘𝑆))
15	1	pweqd 3690	. . . . . . 7 ⊢ (𝑠 = 𝑆 → 𝒫 (Vtx‘𝑠) = 𝒫 (Vtx‘𝑆))
16	14, 15	sseq12d 3279	. . . . . 6 ⊢ (𝑠 = 𝑆 → ((Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠) ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
17	16	adantr 276	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → ((Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠) ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
18	5, 13, 17	3anbi123d 1353	. . . 4 ⊢ ((𝑠 = 𝑆 ∧ 𝑔 = 𝐺) → (((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ∧ (iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ∧ (Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠)) ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
19		df-subgr 16409	. . . 4 ⊢ SubGraph = {⟨𝑠, 𝑔⟩ ∣ ((Vtx‘𝑠) ⊆ (Vtx‘𝑔) ∧ (iEdg‘𝑠) = ((iEdg‘𝑔) ↾ dom (iEdg‘𝑠)) ∧ (Edg‘𝑠) ⊆ 𝒫 (Vtx‘𝑠))}
20	18, 19	brabga 4401	. . 3 ⊢ ((𝑆 ∈ 𝑈 ∧ 𝐺 ∈ 𝑊) → (𝑆 SubGraph 𝐺 ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
21	20	ancoms 268	. 2 ⊢ ((𝐺 ∈ 𝑊 ∧ 𝑆 ∈ 𝑈) → (𝑆 SubGraph 𝐺 ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))))
22		issubgr.v	. . . 4 ⊢ 𝑉 = (Vtx‘𝑆)
23		issubgr.a	. . . 4 ⊢ 𝐴 = (Vtx‘𝐺)
24	22, 23	sseq12i 3276	. . 3 ⊢ (𝑉 ⊆ 𝐴 ↔ (Vtx‘𝑆) ⊆ (Vtx‘𝐺))
25		issubgr.i	. . . 4 ⊢ 𝐼 = (iEdg‘𝑆)
26		issubgr.b	. . . . 5 ⊢ 𝐵 = (iEdg‘𝐺)
27	25	dmeqi 4977	. . . . 5 ⊢ dom 𝐼 = dom (iEdg‘𝑆)
28	26, 27	reseq12i 5056	. . . 4 ⊢ (𝐵 ↾ dom 𝐼) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆))
29	25, 28	eqeq12i 2252	. . 3 ⊢ (𝐼 = (𝐵 ↾ dom 𝐼) ↔ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)))
30		issubgr.e	. . . 4 ⊢ 𝐸 = (Edg‘𝑆)
31	22	pweqi 3689	. . . 4 ⊢ 𝒫 𝑉 = 𝒫 (Vtx‘𝑆)
32	30, 31	sseq12i 3276	. . 3 ⊢ (𝐸 ⊆ 𝒫 𝑉 ↔ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆))
33	24, 29, 32	3anbi123i 1219	. 2 ⊢ ((𝑉 ⊆ 𝐴 ∧ 𝐼 = (𝐵 ↾ dom 𝐼) ∧ 𝐸 ⊆ 𝒫 𝑉) ↔ ((Vtx‘𝑆) ⊆ (Vtx‘𝐺) ∧ (iEdg‘𝑆) = ((iEdg‘𝐺) ↾ dom (iEdg‘𝑆)) ∧ (Edg‘𝑆) ⊆ 𝒫 (Vtx‘𝑆)))
34	21, 33	bitr4di 198	1 ⊢ ((𝐺 ∈ 𝑊 ∧ 𝑆 ∈ 𝑈) → (𝑆 SubGraph 𝐺 ↔ (𝑉 ⊆ 𝐴 ∧ 𝐼 = (𝐵 ↾ dom 𝐼) ∧ 𝐸 ⊆ 𝒫 𝑉)))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   ∧ w3a 1009   = wceq 1402   ∈ wcel 2209   ⊆ wss 3220  𝒫 cpw 3685   class class class wbr 4125  dom cdm 4769   ↾ cres 4771  ‘cfv 5372  Vtxcvtx 16167  iEdgciedg 16168  Edgcedg 16212   SubGraph csubgr 16408

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-sep 4244  ax-pow 4306  ax-pr 4341

This theorem depends on definitions:  df-bi 117  df-3an 1011  df-tru 1405  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-rex 2534  df-v 2823  df-un 3224  df-in 3226  df-ss 3233  df-pw 3687  df-sn 3711  df-pr 3712  df-op 3714  df-uni 3931  df-br 4126  df-opab 4188  df-xp 4775  df-dm 4779  df-res 4781  df-iota 5332  df-fv 5380  df-subgr 16409

This theorem is referenced by:  issubgr2  16413  subgrprop  16414  uhgrissubgr  16416  egrsubgr  16418  0grsubgr  16419