Theorem isomgr 44037

Description: The isomorphy relation for two graphs. (Contributed by AV, 11-Nov-2022.)

Hypotheses

Ref	Expression
isomgr.v	⊢ 𝑉 = (Vtx‘𝐴)
isomgr.w	⊢ 𝑊 = (Vtx‘𝐵)
isomgr.i	⊢ 𝐼 = (iEdg‘𝐴)
isomgr.j	⊢ 𝐽 = (iEdg‘𝐵)

Assertion

Ref	Expression
isomgr	⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) → (𝐴 IsomGr 𝐵 ↔ ∃𝑓(𝑓:𝑉–1-1-onto→𝑊 ∧ ∃𝑔(𝑔:dom 𝐼–1-1-onto→dom 𝐽 ∧ ∀𝑖 ∈ dom 𝐼(𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))))

Distinct variable groups:   𝐴,𝑓,𝑔,𝑖   𝐵,𝑓,𝑔,𝑖   𝑖,𝐼

Allowed substitution hints:   𝐼(𝑓,𝑔)   𝐽(𝑓,𝑔,𝑖)   𝑉(𝑓,𝑔,𝑖)   𝑊(𝑓,𝑔,𝑖)   𝑋(𝑓,𝑔,𝑖)   𝑌(𝑓,𝑔,𝑖)

Proof of Theorem isomgr

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqidd 2822	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → 𝑓 = 𝑓)
2		fveq2 6670	. . . . . . 7 ⊢ (𝑥 = 𝐴 → (Vtx‘𝑥) = (Vtx‘𝐴))
3	2	adantr 483	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑥) = (Vtx‘𝐴))
4		isomgr.v	. . . . . 6 ⊢ 𝑉 = (Vtx‘𝐴)
5	3, 4	syl6eqr 2874	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑥) = 𝑉)
6		fveq2 6670	. . . . . . 7 ⊢ (𝑦 = 𝐵 → (Vtx‘𝑦) = (Vtx‘𝐵))
7	6	adantl 484	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑦) = (Vtx‘𝐵))
8		isomgr.w	. . . . . 6 ⊢ 𝑊 = (Vtx‘𝐵)
9	7, 8	syl6eqr 2874	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑦) = 𝑊)
10	1, 5, 9	f1oeq123d 6610	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑓:(Vtx‘𝑥)–1-1-onto→(Vtx‘𝑦) ↔ 𝑓:𝑉–1-1-onto→𝑊))
11		eqidd 2822	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → 𝑔 = 𝑔)
12		fveq2 6670	. . . . . . . . . 10 ⊢ (𝑥 = 𝐴 → (iEdg‘𝑥) = (iEdg‘𝐴))
13	12	adantr 483	. . . . . . . . 9 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑥) = (iEdg‘𝐴))
14		isomgr.i	. . . . . . . . 9 ⊢ 𝐼 = (iEdg‘𝐴)
15	13, 14	syl6eqr 2874	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑥) = 𝐼)
16	15	dmeqd 5774	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → dom (iEdg‘𝑥) = dom 𝐼)
17		fveq2 6670	. . . . . . . . . 10 ⊢ (𝑦 = 𝐵 → (iEdg‘𝑦) = (iEdg‘𝐵))
18	17	adantl 484	. . . . . . . . 9 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑦) = (iEdg‘𝐵))
19		isomgr.j	. . . . . . . . 9 ⊢ 𝐽 = (iEdg‘𝐵)
20	18, 19	syl6eqr 2874	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑦) = 𝐽)
21	20	dmeqd 5774	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → dom (iEdg‘𝑦) = dom 𝐽)
22	11, 16, 21	f1oeq123d 6610	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑔:dom (iEdg‘𝑥)–1-1-onto→dom (iEdg‘𝑦) ↔ 𝑔:dom 𝐼–1-1-onto→dom 𝐽))
23	15	fveq1d 6672	. . . . . . . . 9 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((iEdg‘𝑥)‘𝑖) = (𝐼‘𝑖))
24	23	imaeq2d 5929	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑓 “ ((iEdg‘𝑥)‘𝑖)) = (𝑓 “ (𝐼‘𝑖)))
25	20	fveq1d 6672	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((iEdg‘𝑦)‘(𝑔‘𝑖)) = (𝐽‘(𝑔‘𝑖)))
26	24, 25	eqeq12d 2837	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖)) ↔ (𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))
27	16, 26	raleqbidv 3401	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (∀𝑖 ∈ dom (iEdg‘𝑥)(𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖)) ↔ ∀𝑖 ∈ dom 𝐼(𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))
28	22, 27	anbi12d 632	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((𝑔:dom (iEdg‘𝑥)–1-1-onto→dom (iEdg‘𝑦) ∧ ∀𝑖 ∈ dom (iEdg‘𝑥)(𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖))) ↔ (𝑔:dom 𝐼–1-1-onto→dom 𝐽 ∧ ∀𝑖 ∈ dom 𝐼(𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖)))))
29	28	exbidv 1922	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (∃𝑔(𝑔:dom (iEdg‘𝑥)–1-1-onto→dom (iEdg‘𝑦) ∧ ∀𝑖 ∈ dom (iEdg‘𝑥)(𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖))) ↔ ∃𝑔(𝑔:dom 𝐼–1-1-onto→dom 𝐽 ∧ ∀𝑖 ∈ dom 𝐼(𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖)))))
30	10, 29	anbi12d 632	. . 3 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((𝑓:(Vtx‘𝑥)–1-1-onto→(Vtx‘𝑦) ∧ ∃𝑔(𝑔:dom (iEdg‘𝑥)–1-1-onto→dom (iEdg‘𝑦) ∧ ∀𝑖 ∈ dom (iEdg‘𝑥)(𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖)))) ↔ (𝑓:𝑉–1-1-onto→𝑊 ∧ ∃𝑔(𝑔:dom 𝐼–1-1-onto→dom 𝐽 ∧ ∀𝑖 ∈ dom 𝐼(𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))))
31	30	exbidv 1922	. 2 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (∃𝑓(𝑓:(Vtx‘𝑥)–1-1-onto→(Vtx‘𝑦) ∧ ∃𝑔(𝑔:dom (iEdg‘𝑥)–1-1-onto→dom (iEdg‘𝑦) ∧ ∀𝑖 ∈ dom (iEdg‘𝑥)(𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖)))) ↔ ∃𝑓(𝑓:𝑉–1-1-onto→𝑊 ∧ ∃𝑔(𝑔:dom 𝐼–1-1-onto→dom 𝐽 ∧ ∀𝑖 ∈ dom 𝐼(𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))))
32		df-isomgr 44035	. 2 ⊢ IsomGr = {⟨𝑥, 𝑦⟩ ∣ ∃𝑓(𝑓:(Vtx‘𝑥)–1-1-onto→(Vtx‘𝑦) ∧ ∃𝑔(𝑔:dom (iEdg‘𝑥)–1-1-onto→dom (iEdg‘𝑦) ∧ ∀𝑖 ∈ dom (iEdg‘𝑥)(𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖))))}
33	31, 32	brabga 5421	1 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) → (𝐴 IsomGr 𝐵 ↔ ∃𝑓(𝑓:𝑉–1-1-onto→𝑊 ∧ ∃𝑔(𝑔:dom 𝐼–1-1-onto→dom 𝐽 ∧ ∀𝑖 ∈ dom 𝐼(𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1537  ∃wex 1780   ∈ wcel 2114  ∀wral 3138   class class class wbr 5066  dom cdm 5555   “ cima 5558  –1-1-onto→wf1o 6354  ‘cfv 6355  Vtxcvtx 26781  iEdgciedg 26782   IsomGr cisomgr 44033

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 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-sep 5203  ax-nul 5210  ax-pr 5330

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ral 3143  df-rab 3147  df-v 3496  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4839  df-br 5067  df-opab 5129  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-isomgr 44035

This theorem is referenced by:  isisomgr  44038  isomgreqve  44039  isomushgr  44040  isomgrsym  44050  isomgrtr  44053  ushrisomgr  44055