Theorem grlicref 48760

Description: Graph local isomorphism is reflexive for hypergraphs. (Contributed by AV, 9-Jun-2025.)

Assertion

Ref	Expression
grlicref	⊢ (𝐺 ∈ UHGraph → 𝐺 ≃𝑙𝑔𝑟 𝐺)

Proof of Theorem grlicref

Dummy variables 𝑓 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fvexd 6898	. . . 4 ⊢ (𝐺 ∈ UHGraph → (Vtx‘𝐺) ∈ V)
2	1	resiexd 7216	. . 3 ⊢ (𝐺 ∈ UHGraph → ( I ↾ (Vtx‘𝐺)) ∈ V)
3		eqid 2763	. . . . . . . . 9 ⊢ (Vtx‘𝐺) = (Vtx‘𝐺)
4	3	clnbgrssvtx 48579	. . . . . . . 8 ⊢ (𝐺 ClNeighbVtx 𝑣) ⊆ (Vtx‘𝐺)
5	4	a1i 11	. . . . . . 7 ⊢ (𝑣 ∈ (Vtx‘𝐺) → (𝐺 ClNeighbVtx 𝑣) ⊆ (Vtx‘𝐺))
6	3	isubgruhgr 48616	. . . . . . 7 ⊢ ((𝐺 ∈ UHGraph ∧ (𝐺 ClNeighbVtx 𝑣) ⊆ (Vtx‘𝐺)) → (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ∈ UHGraph)
7	5, 6	sylan2 604	. . . . . 6 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑣 ∈ (Vtx‘𝐺)) → (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ∈ UHGraph)
8		gricref 48668	. . . . . 6 ⊢ ((𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ∈ UHGraph → (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)))
9	7, 8	syl 18	. . . . 5 ⊢ ((𝐺 ∈ UHGraph ∧ 𝑣 ∈ (Vtx‘𝐺)) → (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)))
10	9	ralrimiva 3157	. . . 4 ⊢ (𝐺 ∈ UHGraph → ∀𝑣 ∈ (Vtx‘𝐺)(𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)))
11		f1oi 6861	. . . 4 ⊢ ( I ↾ (Vtx‘𝐺)):(Vtx‘𝐺)–1-1-onto→(Vtx‘𝐺)
12	10, 11	jctil 528	. . 3 ⊢ (𝐺 ∈ UHGraph → (( I ↾ (Vtx‘𝐺)):(Vtx‘𝐺)–1-1-onto→(Vtx‘𝐺) ∧ ∀𝑣 ∈ (Vtx‘𝐺)(𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣))))
13		f1oeq1 6810	. . . 4 ⊢ (𝑓 = ( I ↾ (Vtx‘𝐺)) → (𝑓:(Vtx‘𝐺)–1-1-onto→(Vtx‘𝐺) ↔ ( I ↾ (Vtx‘𝐺)):(Vtx‘𝐺)–1-1-onto→(Vtx‘𝐺)))
14		fveq1 6882	. . . . . . . . 9 ⊢ (𝑓 = ( I ↾ (Vtx‘𝐺)) → (𝑓‘𝑣) = (( I ↾ (Vtx‘𝐺))‘𝑣))
15	14	oveq2d 7428	. . . . . . . 8 ⊢ (𝑓 = ( I ↾ (Vtx‘𝐺)) → (𝐺 ClNeighbVtx (𝑓‘𝑣)) = (𝐺 ClNeighbVtx (( I ↾ (Vtx‘𝐺))‘𝑣)))
16	15	oveq2d 7428	. . . . . . 7 ⊢ (𝑓 = ( I ↾ (Vtx‘𝐺)) → (𝐺 ISubGr (𝐺 ClNeighbVtx (𝑓‘𝑣))) = (𝐺 ISubGr (𝐺 ClNeighbVtx (( I ↾ (Vtx‘𝐺))‘𝑣))))
17	16	breq2d 5122	. . . . . 6 ⊢ (𝑓 = ( I ↾ (Vtx‘𝐺)) → ((𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx (𝑓‘𝑣))) ↔ (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx (( I ↾ (Vtx‘𝐺))‘𝑣)))))
18		fvresi 7173	. . . . . . . . 9 ⊢ (𝑣 ∈ (Vtx‘𝐺) → (( I ↾ (Vtx‘𝐺))‘𝑣) = 𝑣)
19	18	oveq2d 7428	. . . . . . . 8 ⊢ (𝑣 ∈ (Vtx‘𝐺) → (𝐺 ClNeighbVtx (( I ↾ (Vtx‘𝐺))‘𝑣)) = (𝐺 ClNeighbVtx 𝑣))
20	19	oveq2d 7428	. . . . . . 7 ⊢ (𝑣 ∈ (Vtx‘𝐺) → (𝐺 ISubGr (𝐺 ClNeighbVtx (( I ↾ (Vtx‘𝐺))‘𝑣))) = (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)))
21	20	breq2d 5122	. . . . . 6 ⊢ (𝑣 ∈ (Vtx‘𝐺) → ((𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx (( I ↾ (Vtx‘𝐺))‘𝑣))) ↔ (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣))))
22	17, 21	sylan9bb 518	. . . . 5 ⊢ ((𝑓 = ( I ↾ (Vtx‘𝐺)) ∧ 𝑣 ∈ (Vtx‘𝐺)) → ((𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx (𝑓‘𝑣))) ↔ (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣))))
23	22	ralbidva 3186	. . . 4 ⊢ (𝑓 = ( I ↾ (Vtx‘𝐺)) → (∀𝑣 ∈ (Vtx‘𝐺)(𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx (𝑓‘𝑣))) ↔ ∀𝑣 ∈ (Vtx‘𝐺)(𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣))))
24	13, 23	anbi12d 643	. . 3 ⊢ (𝑓 = ( I ↾ (Vtx‘𝐺)) → ((𝑓:(Vtx‘𝐺)–1-1-onto→(Vtx‘𝐺) ∧ ∀𝑣 ∈ (Vtx‘𝐺)(𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx (𝑓‘𝑣)))) ↔ (( I ↾ (Vtx‘𝐺)):(Vtx‘𝐺)–1-1-onto→(Vtx‘𝐺) ∧ ∀𝑣 ∈ (Vtx‘𝐺)(𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)))))
25	2, 12, 24	spcedv 3558	. 2 ⊢ (𝐺 ∈ UHGraph → ∃𝑓(𝑓:(Vtx‘𝐺)–1-1-onto→(Vtx‘𝐺) ∧ ∀𝑣 ∈ (Vtx‘𝐺)(𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx (𝑓‘𝑣)))))
26	3, 3	dfgrlic2 48756	. . 3 ⊢ ((𝐺 ∈ UHGraph ∧ 𝐺 ∈ UHGraph) → (𝐺 ≃𝑙𝑔𝑟 𝐺 ↔ ∃𝑓(𝑓:(Vtx‘𝐺)–1-1-onto→(Vtx‘𝐺) ∧ ∀𝑣 ∈ (Vtx‘𝐺)(𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx (𝑓‘𝑣))))))
27	26	anidms 576	. 2 ⊢ (𝐺 ∈ UHGraph → (𝐺 ≃𝑙𝑔𝑟 𝐺 ↔ ∃𝑓(𝑓:(Vtx‘𝐺)–1-1-onto→(Vtx‘𝐺) ∧ ∀𝑣 ∈ (Vtx‘𝐺)(𝐺 ISubGr (𝐺 ClNeighbVtx 𝑣)) ≃𝑔𝑟 (𝐺 ISubGr (𝐺 ClNeighbVtx (𝑓‘𝑣))))))
28	25, 27	mpbird 260	1 ⊢ (𝐺 ∈ UHGraph → 𝐺 ≃𝑙𝑔𝑟 𝐺)

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1570  ∃wex 1809   ∈ wcel 2143  ∀wral 3079  Vcvv 3455   ⊆ wss 3906   class class class wbr 5110   I cid 5557   ↾ cres 5665  –1-1-onto→wf1o 6537  ‘cfv 6538  (class class class)co 7412  Vtxcvtx 29327  UHGraphcuhgr 29387   ClNeighbVtx cclnbgr 48566   ISubGr cisubgr 48608   ≃_𝑔𝑟 cgric 48624   ≃_𝑙𝑔𝑟 cgrlic 48725

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-id 5558  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-ov 7415  df-oprab 7416  df-mpo 7417  df-1st 7987  df-2nd 7988  df-1o 8454  df-map 8827  df-vtx 29329  df-iedg 29330  df-uhgr 29389  df-clnbgr 48567  df-isubgr 48609  df-grim 48626  df-gric 48629  df-grlim 48726  df-grlic 48729

This theorem is referenced by:  grlicer  48764