Theorem dfiso2 17940

Description: Alternate definition of an isomorphism of a category, according to definition 3.8 in [Adamek] p. 28. (Contributed by AV, 10-Apr-2020.)

Hypotheses

Ref	Expression
dfiso2.b	⊢ 𝐵 = (Base‘𝐶)
dfiso2.h	⊢ 𝐻 = (Hom ‘𝐶)
dfiso2.c	⊢ (𝜑 → 𝐶 ∈ Cat)
dfiso2.i	⊢ 𝐼 = (Iso‘𝐶)
dfiso2.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
dfiso2.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
dfiso2.f	⊢ (𝜑 → 𝐹 ∈ (𝑋𝐻𝑌))
dfiso2.1	⊢ 1 = (Id‘𝐶)
dfiso2.o	⊢ ⚬ = (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)
dfiso2.p	⊢ ∗ = (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)

Assertion

Ref	Expression
dfiso2	⊢ (𝜑 → (𝐹 ∈ (𝑋𝐼𝑌) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))

Distinct variable groups:   𝐶,𝑔   𝑔,𝐹   𝑔,𝐻   𝑔,𝐼   𝑔,𝑋   𝑔,𝑌   ⚬ ,𝑔   ∗ ,𝑔   1 ,𝑔   𝜑,𝑔

Allowed substitution hint:   𝐵(𝑔)

Proof of Theorem dfiso2

Dummy variable 𝑓 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		dfiso2.b	. . . 4 ⊢ 𝐵 = (Base‘𝐶)
2		eqid 2761	. . . 4 ⊢ (Inv‘𝐶) = (Inv‘𝐶)
3		dfiso2.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
4		dfiso2.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
5		dfiso2.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
6		dfiso2.i	. . . 4 ⊢ 𝐼 = (Iso‘𝐶)
7	1, 2, 3, 4, 5, 6	isoval 17933	. . 3 ⊢ (𝜑 → (𝑋𝐼𝑌) = dom (𝑋(Inv‘𝐶)𝑌))
8	7	eleq2d 2847	. 2 ⊢ (𝜑 → (𝐹 ∈ (𝑋𝐼𝑌) ↔ 𝐹 ∈ dom (𝑋(Inv‘𝐶)𝑌)))
9		eqid 2761	. . . . 5 ⊢ (Sect‘𝐶) = (Sect‘𝐶)
10	1, 2, 3, 4, 5, 9	invfval 17927	. . . 4 ⊢ (𝜑 → (𝑋(Inv‘𝐶)𝑌) = ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)))
11	10	dmeqd 5887	. . 3 ⊢ (𝜑 → dom (𝑋(Inv‘𝐶)𝑌) = dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)))
12	11	eleq2d 2847	. 2 ⊢ (𝜑 → (𝐹 ∈ dom (𝑋(Inv‘𝐶)𝑌) ↔ 𝐹 ∈ dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋))))
13		dfiso2.h	. . . . . . . . 9 ⊢ 𝐻 = (Hom ‘𝐶)
14		eqid 2761	. . . . . . . . 9 ⊢ (comp‘𝐶) = (comp‘𝐶)
15		dfiso2.1	. . . . . . . . 9 ⊢ 1 = (Id‘𝐶)
16	1, 13, 14, 15, 9, 3, 4, 5	sectfval 17919	. . . . . . . 8 ⊢ (𝜑 → (𝑋(Sect‘𝐶)𝑌) = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋))})
17	1, 13, 14, 15, 9, 3, 5, 4	sectfval 17919	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌(Sect‘𝐶)𝑋) = {⟨𝑔, 𝑓⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))})
18	17	cnveqd 5853	. . . . . . . . 9 ⊢ (𝜑 → ◡(𝑌(Sect‘𝐶)𝑋) = ◡{⟨𝑔, 𝑓⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))})
19		cnvopab 6131	. . . . . . . . 9 ⊢ ◡{⟨𝑔, 𝑓⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))} = {⟨𝑓, 𝑔⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))}
20	18, 19	eqtrdi 2812	. . . . . . . 8 ⊢ (𝜑 → ◡(𝑌(Sect‘𝐶)𝑋) = {⟨𝑓, 𝑔⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))})
21	16, 20	ineq12d 4167	. . . . . . 7 ⊢ (𝜑 → ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) = ({⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋))} ∩ {⟨𝑓, 𝑔⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))}))
22		inopab 5807	. . . . . . . 8 ⊢ ({⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋))} ∩ {⟨𝑓, 𝑔⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))}) = {⟨𝑓, 𝑔⟩ ∣ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋)) ∧ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))}
23		an4 669	. . . . . . . . . 10 ⊢ ((((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋)) ∧ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌))) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))))
24		an42 670	. . . . . . . . . . . 12 ⊢ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌))) ↔ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋))))
25		anidm 575	. . . . . . . . . . . 12 ⊢ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋))) ↔ (𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)))
26	24, 25	bitri 278	. . . . . . . . . . 11 ⊢ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌))) ↔ (𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)))
27	26	anbi1i 636	. . . . . . . . . 10 ⊢ ((((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌))) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))))
28	23, 27	bitri 278	. . . . . . . . 9 ⊢ ((((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋)) ∧ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))))
29	28	opabbii 5172	. . . . . . . 8 ⊢ {⟨𝑓, 𝑔⟩ ∣ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋)) ∧ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))} = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))}
30	22, 29	eqtri 2784	. . . . . . 7 ⊢ ({⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋))} ∩ {⟨𝑓, 𝑔⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))}) = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))}
31	21, 30	eqtrdi 2812	. . . . . 6 ⊢ (𝜑 → ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))})
32	31	dmeqd 5887	. . . . 5 ⊢ (𝜑 → dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) = dom {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))})
33		dmopab 5897	. . . . 5 ⊢ dom {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))} = {𝑓 ∣ ∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))}
34	32, 33	eqtrdi 2812	. . . 4 ⊢ (𝜑 → dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) = {𝑓 ∣ ∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))})
35	34	eleq2d 2847	. . 3 ⊢ (𝜑 → (𝐹 ∈ dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) ↔ 𝐹 ∈ {𝑓 ∣ ∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))}))
36		dfiso2.f	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝑋𝐻𝑌))
37		eleq1 2849	. . . . . . . 8 ⊢ (𝑓 = 𝐹 → (𝑓 ∈ (𝑋𝐻𝑌) ↔ 𝐹 ∈ (𝑋𝐻𝑌)))
38	37	anbi1d 643	. . . . . . 7 ⊢ (𝑓 = 𝐹 → ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ↔ (𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋))))
39		oveq2 7426	. . . . . . . . 9 ⊢ (𝑓 = 𝐹 → (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹))
40	39	eqeq1d 2763	. . . . . . . 8 ⊢ (𝑓 = 𝐹 → ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ↔ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋)))
41		oveq1 7425	. . . . . . . . 9 ⊢ (𝑓 = 𝐹 → (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔))
42	41	eqeq1d 2763	. . . . . . . 8 ⊢ (𝑓 = 𝐹 → ((𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌) ↔ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))
43	40, 42	anbi12d 644	. . . . . . 7 ⊢ (𝑓 = 𝐹 → (((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)) ↔ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))))
44	38, 43	anbi12d 644	. . . . . 6 ⊢ (𝑓 = 𝐹 → (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))))
45	44	exbidv 1954	. . . . 5 ⊢ (𝑓 = 𝐹 → (∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ∃𝑔((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))))
46	45	elabg 3630	. . . 4 ⊢ (𝐹 ∈ (𝑋𝐻𝑌) → (𝐹 ∈ {𝑓 ∣ ∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))} ↔ ∃𝑔((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))))
47	36, 46	syl 18	. . 3 ⊢ (𝜑 → (𝐹 ∈ {𝑓 ∣ ∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))} ↔ ∃𝑔((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))))
48	36	biantrurd 542	. . . . . . 7 ⊢ (𝜑 → (𝑔 ∈ (𝑌𝐻𝑋) ↔ (𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋))))
49	48	bicomd 226	. . . . . 6 ⊢ (𝜑 → ((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ↔ 𝑔 ∈ (𝑌𝐻𝑋)))
50		dfiso2.o	. . . . . . . . . . 11 ⊢ ⚬ = (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)
51	50	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → ⚬ = (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋))
52	51	eqcomd 2767	. . . . . . . . 9 ⊢ (𝜑 → (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋) = ⚬ )
53	52	oveqd 7435	. . . . . . . 8 ⊢ (𝜑 → (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = (𝑔 ⚬ 𝐹))
54	53	eqeq1d 2763	. . . . . . 7 ⊢ (𝜑 → ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ↔ (𝑔 ⚬ 𝐹) = ( 1 ‘𝑋)))
55		dfiso2.p	. . . . . . . . . . 11 ⊢ ∗ = (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)
56	55	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → ∗ = (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌))
57	56	eqcomd 2767	. . . . . . . . 9 ⊢ (𝜑 → (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌) = ∗ )
58	57	oveqd 7435	. . . . . . . 8 ⊢ (𝜑 → (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = (𝐹 ∗ 𝑔))
59	58	eqeq1d 2763	. . . . . . 7 ⊢ (𝜑 → ((𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌) ↔ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌)))
60	54, 59	anbi12d 644	. . . . . 6 ⊢ (𝜑 → (((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)) ↔ ((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))
61	49, 60	anbi12d 644	. . . . 5 ⊢ (𝜑 → (((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ (𝑔 ∈ (𝑌𝐻𝑋) ∧ ((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌)))))
62	61	exbidv 1954	. . . 4 ⊢ (𝜑 → (∃𝑔((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ∃𝑔(𝑔 ∈ (𝑌𝐻𝑋) ∧ ((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌)))))
63		df-rex 3088	. . . 4 ⊢ (∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌)) ↔ ∃𝑔(𝑔 ∈ (𝑌𝐻𝑋) ∧ ((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))
64	62, 63	bitr4di 292	. . 3 ⊢ (𝜑 → (∃𝑔((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))
65	35, 47, 64	3bitrd 308	. 2 ⊢ (𝜑 → (𝐹 ∈ dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))
66	8, 12, 65	3bitrd 308	1 ⊢ (𝜑 → (𝐹 ∈ (𝑋𝐼𝑌) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570  ∃wex 1812   ∈ wcel 2145  {cab 2739  ∃wrex 3087   ∩ cin 3898  ⟨cop 4590  {copab 5167  ^◡ccnv 5650  dom cdm 5651  ‘cfv 6537  (class class class)co 7418  Basecbs 17380  Hom chom 17432  compcco 17433  Catccat 17831  Idccid 17832  Sectcsect 17912  Invcinv 17913  Isociso 17914

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7749

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-ov 7421  df-oprab 7422  df-mpo 7423  df-1st 7999  df-2nd 8000  df-sect 17915  df-inv 17916  df-iso 17917

This theorem is used by:  dfiso3  17941  isisod  50104