Theorem structtocusgr 29468

Description: Any (extensible) structure with a base set can be made a complete simple graph with the set of pairs of elements of the base set regarded as edges. (Contributed by AV, 10-Nov-2021.) (Revised by AV, 17-Nov-2021.) (Proof shortened by AV, 14-Feb-2022.)

Hypotheses

Ref	Expression
structtousgr.p	⊢ 𝑃 = {𝑥 ∈ 𝒫 (Base‘𝑆) ∣ (♯‘𝑥) = 2}
structtousgr.s	⊢ (𝜑 → 𝑆 Struct 𝑋)
structtousgr.g	⊢ 𝐺 = (𝑆 sSet ⟨(.ef‘ndx), ( I ↾ 𝑃)⟩)
structtousgr.b	⊢ (𝜑 → (Base‘ndx) ∈ dom 𝑆)

Assertion

Ref	Expression
structtocusgr	⊢ (𝜑 → 𝐺 ∈ ComplUSGraph)

Distinct variable groups:   𝑥,𝐺   𝑥,𝑃   𝑥,𝑆   𝜑,𝑥

Allowed substitution hint:   𝑋(𝑥)

Proof of Theorem structtocusgr

Dummy variables 𝑒 𝑛 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		structtousgr.p	. . 3 ⊢ 𝑃 = {𝑥 ∈ 𝒫 (Base‘𝑆) ∣ (♯‘𝑥) = 2}
2		structtousgr.s	. . 3 ⊢ (𝜑 → 𝑆 Struct 𝑋)
3		structtousgr.g	. . 3 ⊢ 𝐺 = (𝑆 sSet ⟨(.ef‘ndx), ( I ↾ 𝑃)⟩)
4		structtousgr.b	. . 3 ⊢ (𝜑 → (Base‘ndx) ∈ dom 𝑆)
5	1, 2, 3, 4	structtousgr 29467	. 2 ⊢ (𝜑 → 𝐺 ∈ USGraph)
6		simpr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) → 𝑣 ∈ (Vtx‘𝐺))
7		eldifi 4081	. . . . . . . 8 ⊢ (𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣}) → 𝑛 ∈ (Vtx‘𝐺))
8	6, 7	anim12ci 614	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) ∧ 𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})) → (𝑛 ∈ (Vtx‘𝐺) ∧ 𝑣 ∈ (Vtx‘𝐺)))
9		eldifsni 4744	. . . . . . . 8 ⊢ (𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣}) → 𝑛 ≠ 𝑣)
10	9	adantl 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) ∧ 𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})) → 𝑛 ≠ 𝑣)
11		fvexd 6847	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) ∧ 𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})) → (Base‘𝑆) ∈ V)
12	3	fveq2i 6835	. . . . . . . . . . . . 13 ⊢ (Vtx‘𝐺) = (Vtx‘(𝑆 sSet ⟨(.ef‘ndx), ( I ↾ 𝑃)⟩))
13		eqid 2734	. . . . . . . . . . . . . 14 ⊢ (.ef‘ndx) = (.ef‘ndx)
14		fvex 6845	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝑆) ∈ V
15	1	cusgrexilem1 29461	. . . . . . . . . . . . . . 15 ⊢ ((Base‘𝑆) ∈ V → ( I ↾ 𝑃) ∈ V)
16	14, 15	mp1i 13	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ( I ↾ 𝑃) ∈ V)
17	13, 2, 4, 16	setsvtx 29057	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Vtx‘(𝑆 sSet ⟨(.ef‘ndx), ( I ↾ 𝑃)⟩)) = (Base‘𝑆))
18	12, 17	eqtrid 2781	. . . . . . . . . . . 12 ⊢ (𝜑 → (Vtx‘𝐺) = (Base‘𝑆))
19	18	eleq2d 2820	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑣 ∈ (Vtx‘𝐺) ↔ 𝑣 ∈ (Base‘𝑆)))
20	19	biimpa 476	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) → 𝑣 ∈ (Base‘𝑆))
21	20	adantr 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) ∧ 𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})) → 𝑣 ∈ (Base‘𝑆))
22	18	difeq1d 4075	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((Vtx‘𝐺) ∖ {𝑣}) = ((Base‘𝑆) ∖ {𝑣}))
23	22	eleq2d 2820	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣}) ↔ 𝑛 ∈ ((Base‘𝑆) ∖ {𝑣})))
24	23	biimpd 229	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣}) → 𝑛 ∈ ((Base‘𝑆) ∖ {𝑣})))
25	24	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) → (𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣}) → 𝑛 ∈ ((Base‘𝑆) ∖ {𝑣})))
26	25	imp 406	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) ∧ 𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})) → 𝑛 ∈ ((Base‘𝑆) ∖ {𝑣}))
27	1	cusgrexilem2 29464	. . . . . . . . 9 ⊢ ((((Base‘𝑆) ∈ V ∧ 𝑣 ∈ (Base‘𝑆)) ∧ 𝑛 ∈ ((Base‘𝑆) ∖ {𝑣})) → ∃𝑒 ∈ ran ( I ↾ 𝑃){𝑣, 𝑛} ⊆ 𝑒)
28	11, 21, 26, 27	syl21anc 837	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) ∧ 𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})) → ∃𝑒 ∈ ran ( I ↾ 𝑃){𝑣, 𝑛} ⊆ 𝑒)
29		edgval 29071	. . . . . . . . . . 11 ⊢ (Edg‘𝐺) = ran (iEdg‘𝐺)
30	3	fveq2i 6835	. . . . . . . . . . . . 13 ⊢ (iEdg‘𝐺) = (iEdg‘(𝑆 sSet ⟨(.ef‘ndx), ( I ↾ 𝑃)⟩))
31	13, 2, 4, 16	setsiedg 29058	. . . . . . . . . . . . 13 ⊢ (𝜑 → (iEdg‘(𝑆 sSet ⟨(.ef‘ndx), ( I ↾ 𝑃)⟩)) = ( I ↾ 𝑃))
32	30, 31	eqtrid 2781	. . . . . . . . . . . 12 ⊢ (𝜑 → (iEdg‘𝐺) = ( I ↾ 𝑃))
33	32	rneqd 5885	. . . . . . . . . . 11 ⊢ (𝜑 → ran (iEdg‘𝐺) = ran ( I ↾ 𝑃))
34	29, 33	eqtrid 2781	. . . . . . . . . 10 ⊢ (𝜑 → (Edg‘𝐺) = ran ( I ↾ 𝑃))
35	34	rexeqdv 3295	. . . . . . . . 9 ⊢ (𝜑 → (∃𝑒 ∈ (Edg‘𝐺){𝑣, 𝑛} ⊆ 𝑒 ↔ ∃𝑒 ∈ ran ( I ↾ 𝑃){𝑣, 𝑛} ⊆ 𝑒))
36	35	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) ∧ 𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})) → (∃𝑒 ∈ (Edg‘𝐺){𝑣, 𝑛} ⊆ 𝑒 ↔ ∃𝑒 ∈ ran ( I ↾ 𝑃){𝑣, 𝑛} ⊆ 𝑒))
37	28, 36	mpbird 257	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) ∧ 𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})) → ∃𝑒 ∈ (Edg‘𝐺){𝑣, 𝑛} ⊆ 𝑒)
38		eqid 2734	. . . . . . . 8 ⊢ (Vtx‘𝐺) = (Vtx‘𝐺)
39		eqid 2734	. . . . . . . 8 ⊢ (Edg‘𝐺) = (Edg‘𝐺)
40	38, 39	nbgrel 29362	. . . . . . 7 ⊢ (𝑛 ∈ (𝐺 NeighbVtx 𝑣) ↔ ((𝑛 ∈ (Vtx‘𝐺) ∧ 𝑣 ∈ (Vtx‘𝐺)) ∧ 𝑛 ≠ 𝑣 ∧ ∃𝑒 ∈ (Edg‘𝐺){𝑣, 𝑛} ⊆ 𝑒))
41	8, 10, 37, 40	syl3anbrc 1344	. . . . . 6 ⊢ (((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) ∧ 𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})) → 𝑛 ∈ (𝐺 NeighbVtx 𝑣))
42	41	ralrimiva 3126	. . . . 5 ⊢ ((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) → ∀𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})𝑛 ∈ (𝐺 NeighbVtx 𝑣))
43	38	uvtxel 29410	. . . . 5 ⊢ (𝑣 ∈ (UnivVtx‘𝐺) ↔ (𝑣 ∈ (Vtx‘𝐺) ∧ ∀𝑛 ∈ ((Vtx‘𝐺) ∖ {𝑣})𝑛 ∈ (𝐺 NeighbVtx 𝑣)))
44	6, 42, 43	sylanbrc 583	. . . 4 ⊢ ((𝜑 ∧ 𝑣 ∈ (Vtx‘𝐺)) → 𝑣 ∈ (UnivVtx‘𝐺))
45	44	ralrimiva 3126	. . 3 ⊢ (𝜑 → ∀𝑣 ∈ (Vtx‘𝐺)𝑣 ∈ (UnivVtx‘𝐺))
46	5	elexd 3462	. . . 4 ⊢ (𝜑 → 𝐺 ∈ V)
47	38	iscplgr 29437	. . . 4 ⊢ (𝐺 ∈ V → (𝐺 ∈ ComplGraph ↔ ∀𝑣 ∈ (Vtx‘𝐺)𝑣 ∈ (UnivVtx‘𝐺)))
48	46, 47	syl 17	. . 3 ⊢ (𝜑 → (𝐺 ∈ ComplGraph ↔ ∀𝑣 ∈ (Vtx‘𝐺)𝑣 ∈ (UnivVtx‘𝐺)))
49	45, 48	mpbird 257	. 2 ⊢ (𝜑 → 𝐺 ∈ ComplGraph)
50		iscusgr 29440	. 2 ⊢ (𝐺 ∈ ComplUSGraph ↔ (𝐺 ∈ USGraph ∧ 𝐺 ∈ ComplGraph))
51	5, 49, 50	sylanbrc 583	1 ⊢ (𝜑 → 𝐺 ∈ ComplUSGraph)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2113   ≠ wne 2930  ∀wral 3049  ∃wrex 3058  {crab 3397  Vcvv 3438   ∖ cdif 3896   ⊆ wss 3899  𝒫 cpw 4552  {csn 4578  {cpr 4580  ⟨cop 4584   class class class wbr 5096   I cid 5516  dom cdm 5622  ran crn 5623   ↾ cres 5624  ‘cfv 6490  (class class class)co 7356  2c2 12198  ♯chash 14251   Struct cstr 17071   sSet csts 17088  ndxcnx 17118  Basecbs 17134  .efcedgf 29010  Vtxcvtx 29018  iEdgciedg 29019  Edgcedg 29069  USGraphcusgr 29171   NeighbVtx cnbgr 29354  UnivVtxcuvtx 29407  ComplGraphccplgr 29431  ComplUSGraphccusgr 29432

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 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678  ax-cnex 11080  ax-resscn 11081  ax-1cn 11082  ax-icn 11083  ax-addcl 11084  ax-addrcl 11085  ax-mulcl 11086  ax-mulrcl 11087  ax-mulcom 11088  ax-addass 11089  ax-mulass 11090  ax-distr 11091  ax-i2m1 11092  ax-1ne0 11093  ax-1rid 11094  ax-rnegex 11095  ax-rrecex 11096  ax-cnre 11097  ax-pre-lttri 11098  ax-pre-lttrn 11099  ax-pre-ltadd 11100  ax-pre-mulgt0 11101

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3059  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4862  df-int 4901  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-oadd 8399  df-er 8633  df-en 8882  df-dom 8883  df-sdom 8884  df-fin 8885  df-dju 9811  df-card 9849  df-pnf 11166  df-mnf 11167  df-xr 11168  df-ltxr 11169  df-le 11170  df-sub 11364  df-neg 11365  df-nn 12144  df-2 12206  df-3 12207  df-4 12208  df-5 12209  df-6 12210  df-7 12211  df-8 12212  df-9 12213  df-n0 12400  df-xnn0 12473  df-z 12487  df-dec 12606  df-uz 12750  df-fz 13422  df-hash 14252  df-struct 17072  df-sets 17089  df-slot 17107  df-ndx 17119  df-base 17135  df-edgf 29011  df-vtx 29020  df-iedg 29021  df-edg 29070  df-usgr 29173  df-nbgr 29355  df-uvtx 29408  df-cplgr 29433  df-cusgr 29434

This theorem is referenced by:  cffldtocusgr  29469  cffldtocusgrOLD  29470