Theorem nbuhgr2vtx1edgblem 29439

Description: Lemma for nbuhgr2vtx1edgb 29440. This reverse direction of nbgr2vtx1edg 29438 only holds for classes whose edges are subsets of the set of vertices, which is the property of hypergraphs. (Contributed by AV, 2-Nov-2020.) (Proof shortened by AV, 13-Feb-2022.)

Hypotheses

Ref	Expression
nbgr2vtx1edg.v	⊢ 𝑉 = (Vtx‘𝐺)
nbgr2vtx1edg.e	⊢ 𝐸 = (Edg‘𝐺)

Assertion

Ref	Expression
nbuhgr2vtx1edgblem	⊢ ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏} ∧ 𝑎 ∈ (𝐺 NeighbVtx 𝑏)) → {𝑎, 𝑏} ∈ 𝐸)

Distinct variable groups:   𝐸,𝑎,𝑏   𝐺,𝑎,𝑏   𝑉,𝑎,𝑏

Proof of Theorem nbuhgr2vtx1edgblem

Dummy variable 𝑒 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		nbgr2vtx1edg.v	. . . 4 ⊢ 𝑉 = (Vtx‘𝐺)
2		nbgr2vtx1edg.e	. . . 4 ⊢ 𝐸 = (Edg‘𝐺)
3	1, 2	nbgrel 29428	. . 3 ⊢ (𝑎 ∈ (𝐺 NeighbVtx 𝑏) ↔ ((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏 ∧ ∃𝑒 ∈ 𝐸 {𝑏, 𝑎} ⊆ 𝑒))
4	2	eleq2i 2831	. . . . . . . . . 10 ⊢ (𝑒 ∈ 𝐸 ↔ 𝑒 ∈ (Edg‘𝐺))
5		edguhgr 29217	. . . . . . . . . 10 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑒 ∈ (Edg‘𝐺)) → 𝑒 ∈ 𝒫 (Vtx‘𝐺))
6	4, 5	sylan2b 600	. . . . . . . . 9 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) → 𝑒 ∈ 𝒫 (Vtx‘𝐺))
7	1	eqeq1i 2744	. . . . . . . . . . . . 13 ⊢ (𝑉 = {𝑎, 𝑏} ↔ (Vtx‘𝐺) = {𝑎, 𝑏})
8		pweq 4544	. . . . . . . . . . . . . . 15 ⊢ ((Vtx‘𝐺) = {𝑎, 𝑏} → 𝒫 (Vtx‘𝐺) = 𝒫 {𝑎, 𝑏})
9	8	eleq2d 2825	. . . . . . . . . . . . . 14 ⊢ ((Vtx‘𝐺) = {𝑎, 𝑏} → (𝑒 ∈ 𝒫 (Vtx‘𝐺) ↔ 𝑒 ∈ 𝒫 {𝑎, 𝑏}))
10		velpw 4535	. . . . . . . . . . . . . 14 ⊢ (𝑒 ∈ 𝒫 {𝑎, 𝑏} ↔ 𝑒 ⊆ {𝑎, 𝑏})
11	9, 10	bitrdi 288	. . . . . . . . . . . . 13 ⊢ ((Vtx‘𝐺) = {𝑎, 𝑏} → (𝑒 ∈ 𝒫 (Vtx‘𝐺) ↔ 𝑒 ⊆ {𝑎, 𝑏}))
12	7, 11	sylbi 218	. . . . . . . . . . . 12 ⊢ (𝑉 = {𝑎, 𝑏} → (𝑒 ∈ 𝒫 (Vtx‘𝐺) ↔ 𝑒 ⊆ {𝑎, 𝑏}))
13	12	adantl 482	. . . . . . . . . . 11 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) ∧ 𝑉 = {𝑎, 𝑏}) → (𝑒 ∈ 𝒫 (Vtx‘𝐺) ↔ 𝑒 ⊆ {𝑎, 𝑏}))
14		prcom 4665	. . . . . . . . . . . . . . 15 ⊢ {𝑏, 𝑎} = {𝑎, 𝑏}
15	14	sseq1i 3943	. . . . . . . . . . . . . 14 ⊢ ({𝑏, 𝑎} ⊆ 𝑒 ↔ {𝑎, 𝑏} ⊆ 𝑒)
16		eqss 3930	. . . . . . . . . . . . . . . 16 ⊢ ({𝑎, 𝑏} = 𝑒 ↔ ({𝑎, 𝑏} ⊆ 𝑒 ∧ 𝑒 ⊆ {𝑎, 𝑏}))
17		eleq1a 2834	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑒 ∈ 𝐸 → ({𝑎, 𝑏} = 𝑒 → {𝑎, 𝑏} ∈ 𝐸))
18	17	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → (𝑒 ∈ 𝐸 → ({𝑎, 𝑏} = 𝑒 → {𝑎, 𝑏} ∈ 𝐸)))
19	18	com13 88	. . . . . . . . . . . . . . . 16 ⊢ ({𝑎, 𝑏} = 𝑒 → (𝑒 ∈ 𝐸 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸)))
20	16, 19	sylbir 236	. . . . . . . . . . . . . . 15 ⊢ (({𝑎, 𝑏} ⊆ 𝑒 ∧ 𝑒 ⊆ {𝑎, 𝑏}) → (𝑒 ∈ 𝐸 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸)))
21	20	ex 413	. . . . . . . . . . . . . 14 ⊢ ({𝑎, 𝑏} ⊆ 𝑒 → (𝑒 ⊆ {𝑎, 𝑏} → (𝑒 ∈ 𝐸 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
22	15, 21	sylbi 218	. . . . . . . . . . . . 13 ⊢ ({𝑏, 𝑎} ⊆ 𝑒 → (𝑒 ⊆ {𝑎, 𝑏} → (𝑒 ∈ 𝐸 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
23	22	com13 88	. . . . . . . . . . . 12 ⊢ (𝑒 ∈ 𝐸 → (𝑒 ⊆ {𝑎, 𝑏} → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
24	23	ad2antlr 733	. . . . . . . . . . 11 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) ∧ 𝑉 = {𝑎, 𝑏}) → (𝑒 ⊆ {𝑎, 𝑏} → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
25	13, 24	sylbid 241	. . . . . . . . . 10 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) ∧ 𝑉 = {𝑎, 𝑏}) → (𝑒 ∈ 𝒫 (Vtx‘𝐺) → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
26	25	ex 413	. . . . . . . . 9 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) → (𝑉 = {𝑎, 𝑏} → (𝑒 ∈ 𝒫 (Vtx‘𝐺) → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸)))))
27	6, 26	mpid 44	. . . . . . . 8 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) → (𝑉 = {𝑎, 𝑏} → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
28	27	impancom 452	. . . . . . 7 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → (𝑒 ∈ 𝐸 → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
29	28	com14 96	. . . . . 6 ⊢ (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → (𝑒 ∈ 𝐸 → ({𝑏, 𝑎} ⊆ 𝑒 → ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → {𝑎, 𝑏} ∈ 𝐸))))
30	29	rexlimdv 3138	. . . . 5 ⊢ (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → (∃𝑒 ∈ 𝐸 {𝑏, 𝑎} ⊆ 𝑒 → ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → {𝑎, 𝑏} ∈ 𝐸)))
31	30	3impia 1123	. . . 4 ⊢ (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏 ∧ ∃𝑒 ∈ 𝐸 {𝑏, 𝑎} ⊆ 𝑒) → ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → {𝑎, 𝑏} ∈ 𝐸))
32	31	com12 32	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏 ∧ ∃𝑒 ∈ 𝐸 {𝑏, 𝑎} ⊆ 𝑒) → {𝑎, 𝑏} ∈ 𝐸))
33	3, 32	biimtrid 243	. 2 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → (𝑎 ∈ (𝐺 NeighbVtx 𝑏) → {𝑎, 𝑏} ∈ 𝐸))
34	33	3impia 1123	1 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏} ∧ 𝑎 ∈ (𝐺 NeighbVtx 𝑏)) → {𝑎, 𝑏} ∈ 𝐸)

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1092   = wceq 1547   ∈ wcel 2119   ≠ wne 2934  ∃wrex 3063   ⊆ wss 3883  𝒫 cpw 4530  {cpr 4558  ‘cfv 6486  (class class class)co 7357  Vtxcvtx 29084  Edgcedg 29135  UHGraphcuhgr 29144   NeighbVtx cnbgr 29420

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-sep 5219  ax-nul 5229  ax-pr 5363  ax-un 7679

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4263  df-if 4456  df-pw 4532  df-sn 4557  df-pr 4559  df-op 4563  df-uni 4840  df-iun 4924  df-br 5074  df-opab 5136  df-mpt 5155  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-fv 6494  df-ov 7360  df-oprab 7361  df-mpo 7362  df-1st 7932  df-2nd 7933  df-edg 29136  df-uhgr 29146  df-nbgr 29421

This theorem is referenced by:  nbuhgr2vtx1edgb  29440