Theorem isomgr 43995

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 2825	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → 𝑓 = 𝑓)
2		fveq2 6673	. . . . . . 7 ⊢ (𝑥 = 𝐴 → (Vtx‘𝑥) = (Vtx‘𝐴))
3	2	adantr 483	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑥) = (Vtx‘𝐴))
4		isomgr.v	. . . . . 6 ⊢ 𝑉 = (Vtx‘𝐴)
5	3, 4	syl6eqr 2877	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑥) = 𝑉)
6		fveq2 6673	. . . . . . 7 ⊢ (𝑦 = 𝐵 → (Vtx‘𝑦) = (Vtx‘𝐵))
7	6	adantl 484	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑦) = (Vtx‘𝐵))
8		isomgr.w	. . . . . 6 ⊢ 𝑊 = (Vtx‘𝐵)
9	7, 8	syl6eqr 2877	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑦) = 𝑊)
10	1, 5, 9	f1oeq123d 6613	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑓:(Vtx‘𝑥)–1-1-onto→(Vtx‘𝑦) ↔ 𝑓:𝑉–1-1-onto→𝑊))
11		eqidd 2825	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → 𝑔 = 𝑔)
12		fveq2 6673	. . . . . . . . . 10 ⊢ (𝑥 = 𝐴 → (iEdg‘𝑥) = (iEdg‘𝐴))
13	12	adantr 483	. . . . . . . . 9 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑥) = (iEdg‘𝐴))
14		isomgr.i	. . . . . . . . 9 ⊢ 𝐼 = (iEdg‘𝐴)
15	13, 14	syl6eqr 2877	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑥) = 𝐼)
16	15	dmeqd 5777	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → dom (iEdg‘𝑥) = dom 𝐼)
17		fveq2 6673	. . . . . . . . . 10 ⊢ (𝑦 = 𝐵 → (iEdg‘𝑦) = (iEdg‘𝐵))
18	17	adantl 484	. . . . . . . . 9 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑦) = (iEdg‘𝐵))
19		isomgr.j	. . . . . . . . 9 ⊢ 𝐽 = (iEdg‘𝐵)
20	18, 19	syl6eqr 2877	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑦) = 𝐽)
21	20	dmeqd 5777	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → dom (iEdg‘𝑦) = dom 𝐽)
22	11, 16, 21	f1oeq123d 6613	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑔:dom (iEdg‘𝑥)–1-1-onto→dom (iEdg‘𝑦) ↔ 𝑔:dom 𝐼–1-1-onto→dom 𝐽))
23	15	fveq1d 6675	. . . . . . . . 9 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((iEdg‘𝑥)‘𝑖) = (𝐼‘𝑖))
24	23	imaeq2d 5932	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑓 “ ((iEdg‘𝑥)‘𝑖)) = (𝑓 “ (𝐼‘𝑖)))
25	20	fveq1d 6675	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((iEdg‘𝑦)‘(𝑔‘𝑖)) = (𝐽‘(𝑔‘𝑖)))
26	24, 25	eqeq12d 2840	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖)) ↔ (𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))
27	16, 26	raleqbidv 3404	. . . . . 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 1921	. . . 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 1921	. 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 43993	. 2 ⊢ IsomGr = {⟨𝑥, 𝑦⟩ ∣ ∃𝑓(𝑓:(Vtx‘𝑥)–1-1-onto→(Vtx‘𝑦) ∧ ∃𝑔(𝑔:dom (iEdg‘𝑥)–1-1-onto→dom (iEdg‘𝑦) ∧ ∀𝑖 ∈ dom (iEdg‘𝑥)(𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖))))}
33	31, 32	brabga 5424	1 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) → (𝐴 IsomGr 𝐵 ↔ ∃𝑓(𝑓:𝑉–1-1-onto→𝑊 ∧ ∃𝑔(𝑔:dom 𝐼–1-1-onto→dom 𝐽 ∧ ∀𝑖 ∈ dom 𝐼(𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1536  ∃wex 1779   ∈ wcel 2113  ∀wral 3141   class class class wbr 5069  dom cdm 5558   “ cima 5561  –1-1-onto→wf1o 6357  ‘cfv 6358  Vtxcvtx 26784  iEdgciedg 26785   IsomGr cisomgr 43991

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2796  ax-sep 5206  ax-nul 5213  ax-pr 5333

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1539  df-ex 1780  df-nf 1784  df-sb 2069  df-mo 2621  df-eu 2653  df-clab 2803  df-cleq 2817  df-clel 2896  df-nfc 2966  df-ral 3146  df-rab 3150  df-v 3499  df-dif 3942  df-un 3944  df-in 3946  df-ss 3955  df-nul 4295  df-if 4471  df-sn 4571  df-pr 4573  df-op 4577  df-uni 4842  df-br 5070  df-opab 5132  df-xp 5564  df-rel 5565  df-cnv 5566  df-co 5567  df-dm 5568  df-rn 5569  df-res 5570  df-ima 5571  df-iota 6317  df-fun 6360  df-fn 6361  df-f 6362  df-f1 6363  df-fo 6364  df-f1o 6365  df-fv 6366  df-isomgr 43993

This theorem is referenced by:  isisomgr  43996  isomgreqve  43997  isomushgr  43998  isomgrsym  44008  isomgrtr  44011  ushrisomgr  44013