Theorem invfun 16895

Description: The inverse relation is a function, which is to say that every morphism has at most one inverse. (Contributed by Mario Carneiro, 2-Jan-2017.)

Hypotheses

Ref	Expression
invfval.b	⊢ 𝐵 = (Base‘𝐶)
invfval.n	⊢ 𝑁 = (Inv‘𝐶)
invfval.c	⊢ (𝜑 → 𝐶 ∈ Cat)
invfval.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
invfval.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)

Assertion

Ref	Expression
invfun	⊢ (𝜑 → Fun (𝑋𝑁𝑌))

Proof of Theorem invfun

Dummy variables 𝑓 𝑔 ℎ are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		invfval.b	. . . 4 ⊢ 𝐵 = (Base‘𝐶)
2		invfval.n	. . . 4 ⊢ 𝑁 = (Inv‘𝐶)
3		invfval.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
4		invfval.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
5		invfval.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
6		eqid 2778	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
7	1, 2, 3, 4, 5, 6	invss 16892	. . 3 ⊢ (𝜑 → (𝑋𝑁𝑌) ⊆ ((𝑋(Hom ‘𝐶)𝑌) × (𝑌(Hom ‘𝐶)𝑋)))
8		relxp 5426	. . 3 ⊢ Rel ((𝑋(Hom ‘𝐶)𝑌) × (𝑌(Hom ‘𝐶)𝑋))
9		relss 5507	. . 3 ⊢ ((𝑋𝑁𝑌) ⊆ ((𝑋(Hom ‘𝐶)𝑌) × (𝑌(Hom ‘𝐶)𝑋)) → (Rel ((𝑋(Hom ‘𝐶)𝑌) × (𝑌(Hom ‘𝐶)𝑋)) → Rel (𝑋𝑁𝑌)))
10	7, 8, 9	mpisyl 21	. 2 ⊢ (𝜑 → Rel (𝑋𝑁𝑌))
11		eqid 2778	. . . . . 6 ⊢ (Sect‘𝐶) = (Sect‘𝐶)
12	3	adantr 473	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝐶 ∈ Cat)
13	5	adantr 473	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝑌 ∈ 𝐵)
14	4	adantr 473	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝑋 ∈ 𝐵)
15	1, 2, 3, 4, 5, 11	isinv 16891	. . . . . . . 8 ⊢ (𝜑 → (𝑓(𝑋𝑁𝑌)𝑔 ↔ (𝑓(𝑋(Sect‘𝐶)𝑌)𝑔 ∧ 𝑔(𝑌(Sect‘𝐶)𝑋)𝑓)))
16	15	simplbda 492	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓(𝑋𝑁𝑌)𝑔) → 𝑔(𝑌(Sect‘𝐶)𝑋)𝑓)
17	16	adantrr 704	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝑔(𝑌(Sect‘𝐶)𝑋)𝑓)
18	1, 2, 3, 4, 5, 11	isinv 16891	. . . . . . . 8 ⊢ (𝜑 → (𝑓(𝑋𝑁𝑌)ℎ ↔ (𝑓(𝑋(Sect‘𝐶)𝑌)ℎ ∧ ℎ(𝑌(Sect‘𝐶)𝑋)𝑓)))
19	18	simprbda 491	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓(𝑋𝑁𝑌)ℎ) → 𝑓(𝑋(Sect‘𝐶)𝑌)ℎ)
20	19	adantrl 703	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝑓(𝑋(Sect‘𝐶)𝑌)ℎ)
21	1, 11, 12, 13, 14, 17, 20	sectcan 16886	. . . . 5 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝑔 = ℎ)
22	21	ex 405	. . . 4 ⊢ (𝜑 → ((𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ) → 𝑔 = ℎ))
23	22	alrimiv 1886	. . 3 ⊢ (𝜑 → ∀ℎ((𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ) → 𝑔 = ℎ))
24	23	alrimivv 1887	. 2 ⊢ (𝜑 → ∀𝑓∀𝑔∀ℎ((𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ) → 𝑔 = ℎ))
25		dffun2 6200	. 2 ⊢ (Fun (𝑋𝑁𝑌) ↔ (Rel (𝑋𝑁𝑌) ∧ ∀𝑓∀𝑔∀ℎ((𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ) → 𝑔 = ℎ)))
26	10, 24, 25	sylanbrc 575	1 ⊢ (𝜑 → Fun (𝑋𝑁𝑌))

Syntax hints:   → wi 4   ∧ wa 387  ∀wal 1505   = wceq 1507   ∈ wcel 2050   ⊆ wss 3831   class class class wbr 4930   × cxp 5406  Rel wrel 5413  Fun wfun 6184  ‘cfv 6190  (class class class)co 6978  Basecbs 16342  Hom chom 16435  Catccat 16796  Sectcsect 16875  Invcinv 16876

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2750  ax-rep 5050  ax-sep 5061  ax-nul 5068  ax-pow 5120  ax-pr 5187  ax-un 7281

This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2583  df-clab 2759  df-cleq 2771  df-clel 2846  df-nfc 2918  df-ne 2968  df-ral 3093  df-rex 3094  df-reu 3095  df-rmo 3096  df-rab 3097  df-v 3417  df-sbc 3684  df-csb 3789  df-dif 3834  df-un 3836  df-in 3838  df-ss 3845  df-nul 4181  df-if 4352  df-pw 4425  df-sn 4443  df-pr 4445  df-op 4449  df-uni 4714  df-iun 4795  df-br 4931  df-opab 4993  df-mpt 5010  df-id 5313  df-xp 5414  df-rel 5415  df-cnv 5416  df-co 5417  df-dm 5418  df-rn 5419  df-res 5420  df-ima 5421  df-iota 6154  df-fun 6192  df-fn 6193  df-f 6194  df-f1 6195  df-fo 6196  df-f1o 6197  df-fv 6198  df-riota 6939  df-ov 6981  df-oprab 6982  df-mpo 6983  df-1st 7503  df-2nd 7504  df-cat 16800  df-cid 16801  df-sect 16878  df-inv 16879

This theorem is referenced by:  inviso1  16897  invf  16899  invco  16902  idinv  16920  ffthiso  17060  fuciso  17106  setciso  17212  catciso  17228  rngciso  43618  rngcisoALTV  43630  ringciso  43669  ringcisoALTV  43693