Theorem dfiso3 17963

Description: Alternate definition of an isomorphism of a category as a section in both directions. (Contributed by AV, 11-Apr-2020.)

Hypotheses

Ref	Expression
dfiso3.b	⊢ 𝐵 = (Base‘𝐶)
dfiso3.h	⊢ 𝐻 = (Hom ‘𝐶)
dfiso3.i	⊢ 𝐼 = (Iso‘𝐶)
dfiso3.s	⊢ 𝑆 = (Sect‘𝐶)
dfiso3.c	⊢ (𝜑 → 𝐶 ∈ Cat)
dfiso3.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
dfiso3.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
dfiso3.f	⊢ (𝜑 → 𝐹 ∈ (𝑋𝐻𝑌))

Assertion

Ref	Expression
dfiso3	⊢ (𝜑 → (𝐹 ∈ (𝑋𝐼𝑌) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)(𝑔(𝑌𝑆𝑋)𝐹 ∧ 𝐹(𝑋𝑆𝑌)𝑔)))

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

Allowed substitution hints:   𝐵(𝑔)   𝑆(𝑔)

Proof of Theorem dfiso3

Step	Hyp	Ref	Expression
1		dfiso3.b	. . 3 ⊢ 𝐵 = (Base‘𝐶)
2		dfiso3.h	. . 3 ⊢ 𝐻 = (Hom ‘𝐶)
3		dfiso3.c	. . 3 ⊢ (𝜑 → 𝐶 ∈ Cat)
4		dfiso3.i	. . 3 ⊢ 𝐼 = (Iso‘𝐶)
5		dfiso3.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
6		dfiso3.y	. . 3 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
7		dfiso3.f	. . 3 ⊢ (𝜑 → 𝐹 ∈ (𝑋𝐻𝑌))
8		eqid 2763	. . 3 ⊢ (Id‘𝐶) = (Id‘𝐶)
9		eqid 2763	. . 3 ⊢ (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋) = (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)
10		eqid 2763	. . 3 ⊢ (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌) = (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)
11	1, 2, 3, 4, 5, 6, 7, 8, 9, 10	dfiso2 17962	. 2 ⊢ (𝜑 → (𝐹 ∈ (𝑋𝐼𝑌) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ((Id‘𝐶)‘𝑌))))
12		eqid 2763	. . . . . 6 ⊢ (comp‘𝐶) = (comp‘𝐶)
13		dfiso3.s	. . . . . 6 ⊢ 𝑆 = (Sect‘𝐶)
14	3	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑌𝐻𝑋)) → 𝐶 ∈ Cat)
15	6	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑌𝐻𝑋)) → 𝑌 ∈ 𝐵)
16	5	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑌𝐻𝑋)) → 𝑋 ∈ 𝐵)
17		simpr 490	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑌𝐻𝑋)) → 𝑔 ∈ (𝑌𝐻𝑋))
18	7	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑌𝐻𝑋)) → 𝐹 ∈ (𝑋𝐻𝑌))
19	1, 2, 12, 8, 13, 14, 15, 16, 17, 18	issect2 17944	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑌𝐻𝑋)) → (𝑔(𝑌𝑆𝑋)𝐹 ↔ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ((Id‘𝐶)‘𝑌)))
20	1, 2, 12, 8, 13, 14, 16, 15, 18, 17	issect2 17944	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑌𝐻𝑋)) → (𝐹(𝑋𝑆𝑌)𝑔 ↔ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋)))
21	19, 20	anbi12d 644	. . . 4 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑌𝐻𝑋)) → ((𝑔(𝑌𝑆𝑋)𝐹 ∧ 𝐹(𝑋𝑆𝑌)𝑔) ↔ ((𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ((Id‘𝐶)‘𝑌) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋))))
22		ancom 466	. . . 4 ⊢ (((𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ((Id‘𝐶)‘𝑌) ∧ (𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋)) ↔ ((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ((Id‘𝐶)‘𝑌)))
23	21, 22	bitr2di 291	. . 3 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝑌𝐻𝑋)) → (((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ((Id‘𝐶)‘𝑌)) ↔ (𝑔(𝑌𝑆𝑋)𝐹 ∧ 𝐹(𝑋𝑆𝑌)𝑔)))
24	23	rexbidva 3188	. 2 ⊢ (𝜑 → (∃𝑔 ∈ (𝑌𝐻𝑋)((𝑔(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)𝐹) = ((Id‘𝐶)‘𝑋) ∧ (𝐹(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝑔) = ((Id‘𝐶)‘𝑌)) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)(𝑔(𝑌𝑆𝑋)𝐹 ∧ 𝐹(𝑋𝑆𝑌)𝑔)))
25	11, 24	bitrd 282	1 ⊢ (𝜑 → (𝐹 ∈ (𝑋𝐼𝑌) ↔ ∃𝑔 ∈ (𝑌𝐻𝑋)(𝑔(𝑌𝑆𝑋)𝐹 ∧ 𝐹(𝑋𝑆𝑌)𝑔)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1569   ∈ wcel 2146  ∃wrex 3090  ⟨cop 4838   class class class wbr 5106  ‘cfv 6547  (class class class)co 7430  Basecbs 17402  Hom chom 17454  compcco 17455  Catccat 17853  Idccid 17854  Sectcsect 17934  Isociso 17936

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7761

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6501  df-fun 6549  df-fn 6550  df-f 6551  df-f1 6552  df-fo 6553  df-f1o 6554  df-fv 6555  df-ov 7433  df-oprab 7434  df-mpo 7435  df-1st 8011  df-2nd 8012  df-sect 17937  df-inv 17938  df-iso 17939

This theorem is used by:  thinciso  50747