Theorem isomgr 44341

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 2799	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → 𝑓 = 𝑓)
2		fveq2 6645	. . . . . . 7 ⊢ (𝑥 = 𝐴 → (Vtx‘𝑥) = (Vtx‘𝐴))
3	2	adantr 484	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑥) = (Vtx‘𝐴))
4		isomgr.v	. . . . . 6 ⊢ 𝑉 = (Vtx‘𝐴)
5	3, 4	eqtr4di 2851	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑥) = 𝑉)
6		fveq2 6645	. . . . . . 7 ⊢ (𝑦 = 𝐵 → (Vtx‘𝑦) = (Vtx‘𝐵))
7	6	adantl 485	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑦) = (Vtx‘𝐵))
8		isomgr.w	. . . . . 6 ⊢ 𝑊 = (Vtx‘𝐵)
9	7, 8	eqtr4di 2851	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (Vtx‘𝑦) = 𝑊)
10	1, 5, 9	f1oeq123d 6585	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑓:(Vtx‘𝑥)–1-1-onto→(Vtx‘𝑦) ↔ 𝑓:𝑉–1-1-onto→𝑊))
11		eqidd 2799	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → 𝑔 = 𝑔)
12		fveq2 6645	. . . . . . . . . 10 ⊢ (𝑥 = 𝐴 → (iEdg‘𝑥) = (iEdg‘𝐴))
13	12	adantr 484	. . . . . . . . 9 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑥) = (iEdg‘𝐴))
14		isomgr.i	. . . . . . . . 9 ⊢ 𝐼 = (iEdg‘𝐴)
15	13, 14	eqtr4di 2851	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑥) = 𝐼)
16	15	dmeqd 5738	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → dom (iEdg‘𝑥) = dom 𝐼)
17		fveq2 6645	. . . . . . . . . 10 ⊢ (𝑦 = 𝐵 → (iEdg‘𝑦) = (iEdg‘𝐵))
18	17	adantl 485	. . . . . . . . 9 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑦) = (iEdg‘𝐵))
19		isomgr.j	. . . . . . . . 9 ⊢ 𝐽 = (iEdg‘𝐵)
20	18, 19	eqtr4di 2851	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (iEdg‘𝑦) = 𝐽)
21	20	dmeqd 5738	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → dom (iEdg‘𝑦) = dom 𝐽)
22	11, 16, 21	f1oeq123d 6585	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑔:dom (iEdg‘𝑥)–1-1-onto→dom (iEdg‘𝑦) ↔ 𝑔:dom 𝐼–1-1-onto→dom 𝐽))
23	15	fveq1d 6647	. . . . . . . . 9 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((iEdg‘𝑥)‘𝑖) = (𝐼‘𝑖))
24	23	imaeq2d 5896	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (𝑓 “ ((iEdg‘𝑥)‘𝑖)) = (𝑓 “ (𝐼‘𝑖)))
25	20	fveq1d 6647	. . . . . . . 8 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((iEdg‘𝑦)‘(𝑔‘𝑖)) = (𝐽‘(𝑔‘𝑖)))
26	24, 25	eqeq12d 2814	. . . . . . 7 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ((𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖)) ↔ (𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))
27	16, 26	raleqbidv 3354	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → (∀𝑖 ∈ dom (iEdg‘𝑥)(𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖)) ↔ ∀𝑖 ∈ dom 𝐼(𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))
28	22, 27	anbi12d 633	. . . . 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 633	. . 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 44339	. 2 ⊢ IsomGr = {⟨𝑥, 𝑦⟩ ∣ ∃𝑓(𝑓:(Vtx‘𝑥)–1-1-onto→(Vtx‘𝑦) ∧ ∃𝑔(𝑔:dom (iEdg‘𝑥)–1-1-onto→dom (iEdg‘𝑦) ∧ ∀𝑖 ∈ dom (iEdg‘𝑥)(𝑓 “ ((iEdg‘𝑥)‘𝑖)) = ((iEdg‘𝑦)‘(𝑔‘𝑖))))}
33	31, 32	brabga 5386	1 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) → (𝐴 IsomGr 𝐵 ↔ ∃𝑓(𝑓:𝑉–1-1-onto→𝑊 ∧ ∃𝑔(𝑔:dom 𝐼–1-1-onto→dom 𝐽 ∧ ∀𝑖 ∈ dom 𝐼(𝑓 “ (𝐼‘𝑖)) = (𝐽‘(𝑔‘𝑖))))))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   = wceq 1538  ∃wex 1781   ∈ wcel 2111  ∀wral 3106   class class class wbr 5030  dom cdm 5519   “ cima 5522  –1-1-onto→wf1o 6323  ‘cfv 6324  Vtxcvtx 26789  iEdgciedg 26790   IsomGr cisomgr 44337

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 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-sep 5167  ax-nul 5174  ax-pr 5295

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ral 3111  df-rab 3115  df-v 3443  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-nul 4244  df-if 4426  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4801  df-br 5031  df-opab 5093  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-isomgr 44339

This theorem is referenced by:  isisomgr  44342  isomgreqve  44343  isomushgr  44344  isomgrsym  44354  isomgrtr  44357  ushrisomgr  44359