Theorem invfun 17989

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)
invss.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
invss.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		invss.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
5		invss.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
6		eqid 2763	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
7	1, 2, 3, 4, 5, 6	invss 17986	. . 3 ⊢ (𝜑 → (𝑋𝑁𝑌) ⊆ ((𝑋(Hom ‘𝐶)𝑌) × (𝑌(Hom ‘𝐶)𝑋)))
8		relxp 5676	. . 3 ⊢ Rel ((𝑋(Hom ‘𝐶)𝑌) × (𝑌(Hom ‘𝐶)𝑋))
9		relss 5766	. . 3 ⊢ ((𝑋𝑁𝑌) ⊆ ((𝑋(Hom ‘𝐶)𝑌) × (𝑌(Hom ‘𝐶)𝑋)) → (Rel ((𝑋(Hom ‘𝐶)𝑌) × (𝑌(Hom ‘𝐶)𝑋)) → Rel (𝑋𝑁𝑌)))
10	7, 8, 9	mpisyl 22	. 2 ⊢ (𝜑 → Rel (𝑋𝑁𝑌))
11		eqid 2763	. . . . . 6 ⊢ (Sect‘𝐶) = (Sect‘𝐶)
12	3	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝐶 ∈ Cat)
13	5	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝑌 ∈ 𝐵)
14	4	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝑋 ∈ 𝐵)
15	1, 2, 3, 4, 5, 11	isinv 17985	. . . . . . . 8 ⊢ (𝜑 → (𝑓(𝑋𝑁𝑌)𝑔 ↔ (𝑓(𝑋(Sect‘𝐶)𝑌)𝑔 ∧ 𝑔(𝑌(Sect‘𝐶)𝑋)𝑓)))
16	15	simplbda 505	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓(𝑋𝑁𝑌)𝑔) → 𝑔(𝑌(Sect‘𝐶)𝑋)𝑓)
17	16	adantrr 730	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝑔(𝑌(Sect‘𝐶)𝑋)𝑓)
18	1, 2, 3, 4, 5, 11	isinv 17985	. . . . . . . 8 ⊢ (𝜑 → (𝑓(𝑋𝑁𝑌)ℎ ↔ (𝑓(𝑋(Sect‘𝐶)𝑌)ℎ ∧ ℎ(𝑌(Sect‘𝐶)𝑋)𝑓)))
19	18	simprbda 504	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓(𝑋𝑁𝑌)ℎ) → 𝑓(𝑋(Sect‘𝐶)𝑌)ℎ)
20	19	adantrl 729	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝑓(𝑋(Sect‘𝐶)𝑌)ℎ)
21	1, 11, 12, 13, 14, 17, 20	sectcan 17980	. . . . 5 ⊢ ((𝜑 ∧ (𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ)) → 𝑔 = ℎ)
22	21	ex 418	. . . 4 ⊢ (𝜑 → ((𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ) → 𝑔 = ℎ))
23	22	alrimiv 1962	. . 3 ⊢ (𝜑 → ∀ℎ((𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ) → 𝑔 = ℎ))
24	23	alrimivv 1963	. 2 ⊢ (𝜑 → ∀𝑓∀𝑔∀ℎ((𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ) → 𝑔 = ℎ))
25		dffun2 6576	. 2 ⊢ (Fun (𝑋𝑁𝑌) ↔ (Rel (𝑋𝑁𝑌) ∧ ∀𝑓∀𝑔∀ℎ((𝑓(𝑋𝑁𝑌)𝑔 ∧ 𝑓(𝑋𝑁𝑌)ℎ) → 𝑔 = ℎ)))
26	10, 24, 25	sylanbrc 595	1 ⊢ (𝜑 → Fun (𝑋𝑁𝑌))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401  ∀wal 1568   = wceq 1570   ∈ wcel 2147   ⊆ wss 3900   class class class wbr 5108   × cxp 5656  Rel wrel 5663  Fun wfun 6560  ‘cfv 6566  (class class class)co 7451  Basecbs 17431  Hom chom 17483  Catccat 17888  Sectcsect 17969  Invcinv 17970

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5238  ax-sep 5255  ax-nul 5266  ax-pow 5334  ax-pr 5398  ax-un 7783

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 2102  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-rmo 3369  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 4841  df-uni 4873  df-iun 4958  df-br 5109  df-opab 5174  df-mpt 5193  df-id 5553  df-xp 5664  df-rel 5665  df-cnv 5666  df-co 5667  df-dm 5668  df-rn 5669  df-res 5670  df-ima 5671  df-iota 6520  df-fun 6568  df-fn 6569  df-f 6570  df-f1 6571  df-fo 6572  df-f1o 6573  df-fv 6574  df-riota 7408  df-ov 7454  df-oprab 7455  df-mpo 7456  df-1st 8035  df-2nd 8036  df-cat 17892  df-cid 17893  df-sect 17972  df-inv 17973

This theorem is used by:  inviso1  17991  invf  17993  invco  17996  idinv  18014  ffthiso  18156  fuciso  18203  setciso  18316  catciso  18336  rngciso  20941  ringciso  20975  rngcisoALTV  49647  ringcisoALTV  49681