Theorem dfiso2 17687

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 2733	. . . 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 17680	. . 3 ⊢ (𝜑 → (𝑋𝐼𝑌) = dom (𝑋(Inv‘𝐶)𝑌))
8	7	eleq2d 2819	. 2 ⊢ (𝜑 → (𝐹 ∈ (𝑋𝐼𝑌) ↔ 𝐹 ∈ dom (𝑋(Inv‘𝐶)𝑌)))
9		eqid 2733	. . . . 5 ⊢ (Sect‘𝐶) = (Sect‘𝐶)
10	1, 2, 3, 4, 5, 9	invfval 17674	. . . 4 ⊢ (𝜑 → (𝑋(Inv‘𝐶)𝑌) = ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)))
11	10	dmeqd 5851	. . 3 ⊢ (𝜑 → dom (𝑋(Inv‘𝐶)𝑌) = dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)))
12	11	eleq2d 2819	. 2 ⊢ (𝜑 → (𝐹 ∈ dom (𝑋(Inv‘𝐶)𝑌) ↔ 𝐹 ∈ dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋))))
13		dfiso2.h	. . . . . . . . 9 ⊢ 𝐻 = (Hom ‘𝐶)
14		eqid 2733	. . . . . . . . 9 ⊢ (comp‘𝐶) = (comp‘𝐶)
15		dfiso2.1	. . . . . . . . 9 ⊢ 1 = (Id‘𝐶)
16	1, 13, 14, 15, 9, 3, 4, 5	sectfval 17666	. . . . . . . 8 ⊢ (𝜑 → (𝑋(Sect‘𝐶)𝑌) = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋))})
17	1, 13, 14, 15, 9, 3, 5, 4	sectfval 17666	. . . . . . . . . 10 ⊢ (𝜑 → (𝑌(Sect‘𝐶)𝑋) = {⟨𝑔, 𝑓⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))})
18	17	cnveqd 5821	. . . . . . . . 9 ⊢ (𝜑 → ◡(𝑌(Sect‘𝐶)𝑋) = ◡{⟨𝑔, 𝑓⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))})
19		cnvopab 6091	. . . . . . . . 9 ⊢ ◡{⟨𝑔, 𝑓⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))} = {⟨𝑓, 𝑔⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))}
20	18, 19	eqtrdi 2784	. . . . . . . 8 ⊢ (𝜑 → ◡(𝑌(Sect‘𝐶)𝑋) = {⟨𝑓, 𝑔⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))})
21	16, 20	ineq12d 4170	. . . . . . 7 ⊢ (𝜑 → ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) = ({⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋))} ∩ {⟨𝑓, 𝑔⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))}))
22		inopab 5775	. . . . . . . 8 ⊢ ({⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋))} ∩ {⟨𝑓, 𝑔⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))}) = {⟨𝑓, 𝑔⟩ ∣ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋)) ∧ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))}
23		an4 656	. . . . . . . . . 10 ⊢ ((((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋)) ∧ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌))) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))))
24		an42 657	. . . . . . . . . . . 12 ⊢ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌))) ↔ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋))))
25		anidm 564	. . . . . . . . . . . 12 ⊢ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋))) ↔ (𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)))
26	24, 25	bitri 275	. . . . . . . . . . 11 ⊢ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌))) ↔ (𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)))
27	26	anbi1i 624	. . . . . . . . . 10 ⊢ ((((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌))) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))))
28	23, 27	bitri 275	. . . . . . . . 9 ⊢ ((((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋)) ∧ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))))
29	28	opabbii 5162	. . . . . . . 8 ⊢ {⟨𝑓, 𝑔⟩ ∣ (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋)) ∧ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))} = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))}
30	22, 29	eqtri 2756	. . . . . . 7 ⊢ ({⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋))} ∩ {⟨𝑓, 𝑔⟩ ∣ ((𝑔 ∈ (𝑌𝐻𝑋) ∧ 𝑓 ∈ (𝑋𝐻𝑌)) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))}) = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))}
31	21, 30	eqtrdi 2784	. . . . . 6 ⊢ (𝜑 → ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) = {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))})
32	31	dmeqd 5851	. . . . 5 ⊢ (𝜑 → dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) = dom {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))})
33		dmopab 5861	. . . . 5 ⊢ dom {⟨𝑓, 𝑔⟩ ∣ ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))} = {𝑓 ∣ ∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))}
34	32, 33	eqtrdi 2784	. . . 4 ⊢ (𝜑 → dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) = {𝑓 ∣ ∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))})
35	34	eleq2d 2819	. . 3 ⊢ (𝜑 → (𝐹 ∈ dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) ↔ 𝐹 ∈ {𝑓 ∣ ∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))}))
36		dfiso2.f	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝑋𝐻𝑌))
37		eleq1 2821	. . . . . . . 8 ⊢ (𝑓 = 𝐹 → (𝑓 ∈ (𝑋𝐻𝑌) ↔ 𝐹 ∈ (𝑋𝐻𝑌)))
38	37	anbi1d 631	. . . . . . 7 ⊢ (𝑓 = 𝐹 → ((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ↔ (𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋))))
39		oveq2 7363	. . . . . . . . 9 ⊢ (𝑓 = 𝐹 → (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹))
40	39	eqeq1d 2735	. . . . . . . 8 ⊢ (𝑓 = 𝐹 → ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ↔ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋)))
41		oveq1 7362	. . . . . . . . 9 ⊢ (𝑓 = 𝐹 → (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔))
42	41	eqeq1d 2735	. . . . . . . 8 ⊢ (𝑓 = 𝐹 → ((𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌) ↔ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))
43	40, 42	anbi12d 632	. . . . . . 7 ⊢ (𝑓 = 𝐹 → (((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)) ↔ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))))
44	38, 43	anbi12d 632	. . . . . 6 ⊢ (𝑓 = 𝐹 → (((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))))
45	44	exbidv 1922	. . . . 5 ⊢ (𝑓 = 𝐹 → (∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ∃𝑔((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))))
46	45	elabg 3628	. . . 4 ⊢ (𝐹 ∈ (𝑋𝐻𝑌) → (𝐹 ∈ {𝑓 ∣ ∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))} ↔ ∃𝑔((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))))
47	36, 46	syl 17	. . 3 ⊢ (𝜑 → (𝐹 ∈ {𝑓 ∣ ∃𝑔((𝑓 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝑓) = ( 1 ‘𝑋) ∧ (𝑓(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))} ↔ ∃𝑔((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)))))
48	36	biantrurd 532	. . . . . . 7 ⊢ (𝜑 → (𝑔 ∈ (𝑌𝐻𝑋) ↔ (𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋))))
49	48	bicomd 223	. . . . . 6 ⊢ (𝜑 → ((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ↔ 𝑔 ∈ (𝑌𝐻𝑋)))
50		dfiso2.o	. . . . . . . . . . 11 ⊢ ⚬ = (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)
51	50	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → ⚬ = (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋))
52	51	eqcomd 2739	. . . . . . . . 9 ⊢ (𝜑 → (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋) = ⚬ )
53	52	oveqd 7372	. . . . . . . 8 ⊢ (𝜑 → (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = (𝑔 ⚬ 𝐹))
54	53	eqeq1d 2735	. . . . . . 7 ⊢ (𝜑 → ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ↔ (𝑔 ⚬ 𝐹) = ( 1 ‘𝑋)))
55		dfiso2.p	. . . . . . . . . . 11 ⊢ ∗ = (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)
56	55	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → ∗ = (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌))
57	56	eqcomd 2739	. . . . . . . . 9 ⊢ (𝜑 → (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌) = ∗ )
58	57	oveqd 7372	. . . . . . . 8 ⊢ (𝜑 → (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = (𝐹 ∗ 𝑔))
59	58	eqeq1d 2735	. . . . . . 7 ⊢ (𝜑 → ((𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌) ↔ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌)))
60	54, 59	anbi12d 632	. . . . . 6 ⊢ (𝜑 → (((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌)) ↔ ((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))
61	49, 60	anbi12d 632	. . . . 5 ⊢ (𝜑 → (((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ (𝑔 ∈ (𝑌𝐻𝑋) ∧ ((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌)))))
62	61	exbidv 1922	. . . 4 ⊢ (𝜑 → (∃𝑔((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ∃𝑔(𝑔 ∈ (𝑌𝐻𝑋) ∧ ((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌)))))
63		df-rex 3058	. . . 4 ⊢ (∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌)) ↔ ∃𝑔(𝑔 ∈ (𝑌𝐻𝑋) ∧ ((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))
64	62, 63	bitr4di 289	. . 3 ⊢ (𝜑 → (∃𝑔((𝐹 ∈ (𝑋𝐻𝑌) ∧ 𝑔 ∈ (𝑌𝐻𝑋)) ∧ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ( 1 ‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ( 1 ‘𝑌))) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))
65	35, 47, 64	3bitrd 305	. 2 ⊢ (𝜑 → (𝐹 ∈ dom ((𝑋(Sect‘𝐶)𝑌) ∩ ◡(𝑌(Sect‘𝐶)𝑋)) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))
66	8, 12, 65	3bitrd 305	1 ⊢ (𝜑 → (𝐹 ∈ (𝑋𝐼𝑌) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔 ⚬ 𝐹) = ( 1 ‘𝑋) ∧ (𝐹 ∗ 𝑔) = ( 1 ‘𝑌))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541  ∃wex 1780   ∈ wcel 2113  {cab 2711  ∃wrex 3057   ∩ cin 3897  ⟨cop 4583  {copab 5157  ^◡ccnv 5620  dom cdm 5621  ‘cfv 6489  (class class class)co 7355  Basecbs 17127  Hom chom 17179  compcco 17180  Catccat 17578  Idccid 17579  Sectcsect 17659  Invcinv 17660  Isociso 17661

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 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7677

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-ral 3049  df-rex 3058  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4283  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4861  df-iun 4945  df-br 5096  df-opab 5158  df-mpt 5177  df-id 5516  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-ov 7358  df-oprab 7359  df-mpo 7360  df-1st 7930  df-2nd 7931  df-sect 17662  df-inv 17663  df-iso 17664

This theorem is referenced by:  dfiso3  17688  isisod  49188