Theorem nbuhgr2vtx1edgblem 29440

Description: Lemma for nbuhgr2vtx1edgb 29441. This reverse direction of nbgr2vtx1edg 29439 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 29429	. . 3 ⊢ (𝑎 ∈ (𝐺 NeighbVtx 𝑏) ↔ ((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏 ∧ ∃𝑒 ∈ 𝐸 {𝑏, 𝑎} ⊆ 𝑒))
4	2	eleq2i 2829	. . . . . . . . . 10 ⊢ (𝑒 ∈ 𝐸 ↔ 𝑒 ∈ (Edg‘𝐺))
5		edguhgr 29218	. . . . . . . . . 10 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑒 ∈ (Edg‘𝐺)) → 𝑒 ∈ 𝒫 (Vtx‘𝐺))
6	4, 5	sylan2b 595	. . . . . . . . 9 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) → 𝑒 ∈ 𝒫 (Vtx‘𝐺))
7	1	eqeq1i 2742	. . . . . . . . . . . . 13 ⊢ (𝑉 = {𝑎, 𝑏} ↔ (Vtx‘𝐺) = {𝑎, 𝑏})
8		pweq 4570	. . . . . . . . . . . . . . 15 ⊢ ((Vtx‘𝐺) = {𝑎, 𝑏} → 𝒫 (Vtx‘𝐺) = 𝒫 {𝑎, 𝑏})
9	8	eleq2d 2823	. . . . . . . . . . . . . 14 ⊢ ((Vtx‘𝐺) = {𝑎, 𝑏} → (𝑒 ∈ 𝒫 (Vtx‘𝐺) ↔ 𝑒 ∈ 𝒫 {𝑎, 𝑏}))
10		velpw 4561	. . . . . . . . . . . . . 14 ⊢ (𝑒 ∈ 𝒫 {𝑎, 𝑏} ↔ 𝑒 ⊆ {𝑎, 𝑏})
11	9, 10	bitrdi 287	. . . . . . . . . . . . 13 ⊢ ((Vtx‘𝐺) = {𝑎, 𝑏} → (𝑒 ∈ 𝒫 (Vtx‘𝐺) ↔ 𝑒 ⊆ {𝑎, 𝑏}))
12	7, 11	sylbi 217	. . . . . . . . . . . 12 ⊢ (𝑉 = {𝑎, 𝑏} → (𝑒 ∈ 𝒫 (Vtx‘𝐺) ↔ 𝑒 ⊆ {𝑎, 𝑏}))
13	12	adantl 481	. . . . . . . . . . 11 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) ∧ 𝑉 = {𝑎, 𝑏}) → (𝑒 ∈ 𝒫 (Vtx‘𝐺) ↔ 𝑒 ⊆ {𝑎, 𝑏}))
14		prcom 4691	. . . . . . . . . . . . . . 15 ⊢ {𝑏, 𝑎} = {𝑎, 𝑏}
15	14	sseq1i 3964	. . . . . . . . . . . . . 14 ⊢ ({𝑏, 𝑎} ⊆ 𝑒 ↔ {𝑎, 𝑏} ⊆ 𝑒)
16		eqss 3951	. . . . . . . . . . . . . . . 16 ⊢ ({𝑎, 𝑏} = 𝑒 ↔ ({𝑎, 𝑏} ⊆ 𝑒 ∧ 𝑒 ⊆ {𝑎, 𝑏}))
17		eleq1a 2832	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑒 ∈ 𝐸 → ({𝑎, 𝑏} = 𝑒 → {𝑎, 𝑏} ∈ 𝐸))
18	17	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → (𝑒 ∈ 𝐸 → ({𝑎, 𝑏} = 𝑒 → {𝑎, 𝑏} ∈ 𝐸)))
19	18	com13 88	. . . . . . . . . . . . . . . 16 ⊢ ({𝑎, 𝑏} = 𝑒 → (𝑒 ∈ 𝐸 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸)))
20	16, 19	sylbir 235	. . . . . . . . . . . . . . 15 ⊢ (({𝑎, 𝑏} ⊆ 𝑒 ∧ 𝑒 ⊆ {𝑎, 𝑏}) → (𝑒 ∈ 𝐸 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸)))
21	20	ex 412	. . . . . . . . . . . . . 14 ⊢ ({𝑎, 𝑏} ⊆ 𝑒 → (𝑒 ⊆ {𝑎, 𝑏} → (𝑒 ∈ 𝐸 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
22	15, 21	sylbi 217	. . . . . . . . . . . . 13 ⊢ ({𝑏, 𝑎} ⊆ 𝑒 → (𝑒 ⊆ {𝑎, 𝑏} → (𝑒 ∈ 𝐸 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
23	22	com13 88	. . . . . . . . . . . 12 ⊢ (𝑒 ∈ 𝐸 → (𝑒 ⊆ {𝑎, 𝑏} → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
24	23	ad2antlr 728	. . . . . . . . . . 11 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) ∧ 𝑉 = {𝑎, 𝑏}) → (𝑒 ⊆ {𝑎, 𝑏} → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
25	13, 24	sylbid 240	. . . . . . . . . 10 ⊢ (((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) ∧ 𝑉 = {𝑎, 𝑏}) → (𝑒 ∈ 𝒫 (Vtx‘𝐺) → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
26	25	ex 412	. . . . . . . . 9 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) → (𝑉 = {𝑎, 𝑏} → (𝑒 ∈ 𝒫 (Vtx‘𝐺) → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸)))))
27	6, 26	mpid 44	. . . . . . . 8 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑒 ∈ 𝐸) → (𝑉 = {𝑎, 𝑏} → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
28	27	impancom 451	. . . . . . 7 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → (𝑒 ∈ 𝐸 → ({𝑏, 𝑎} ⊆ 𝑒 → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → {𝑎, 𝑏} ∈ 𝐸))))
29	28	com14 96	. . . . . 6 ⊢ (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → (𝑒 ∈ 𝐸 → ({𝑏, 𝑎} ⊆ 𝑒 → ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → {𝑎, 𝑏} ∈ 𝐸))))
30	29	rexlimdv 3137	. . . . 5 ⊢ (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏) → (∃𝑒 ∈ 𝐸 {𝑏, 𝑎} ⊆ 𝑒 → ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → {𝑎, 𝑏} ∈ 𝐸)))
31	30	3impia 1118	. . . 4 ⊢ (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏 ∧ ∃𝑒 ∈ 𝐸 {𝑏, 𝑎} ⊆ 𝑒) → ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → {𝑎, 𝑏} ∈ 𝐸))
32	31	com12 32	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → (((𝑎 ∈ 𝑉 ∧ 𝑏 ∈ 𝑉) ∧ 𝑎 ≠ 𝑏 ∧ ∃𝑒 ∈ 𝐸 {𝑏, 𝑎} ⊆ 𝑒) → {𝑎, 𝑏} ∈ 𝐸))
33	3, 32	biimtrid 242	. 2 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏}) → (𝑎 ∈ (𝐺 NeighbVtx 𝑏) → {𝑎, 𝑏} ∈ 𝐸))
34	33	3impia 1118	1 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑉 = {𝑎, 𝑏} ∧ 𝑎 ∈ (𝐺 NeighbVtx 𝑏)) → {𝑎, 𝑏} ∈ 𝐸)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   ≠ wne 2933  ∃wrex 3062   ⊆ wss 3903  𝒫 cpw 4556  {cpr 4584  ‘cfv 6500  (class class class)co 7368  Vtxcvtx 29085  Edgcedg 29136  UHGraphcuhgr 29145   NeighbVtx cnbgr 29421

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5243  ax-nul 5253  ax-pr 5379  ax-un 7690

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5527  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-fv 6508  df-ov 7371  df-oprab 7372  df-mpo 7373  df-1st 7943  df-2nd 7944  df-edg 29137  df-uhgr 29147  df-nbgr 29422

This theorem is referenced by:  nbuhgr2vtx1edgb  29441