Theorem ffthiso 17889

Description: A fully faithful functor reflects isomorphisms. Corollary 3.32 of [Adamek] p. 35. (Contributed by Mario Carneiro, 27-Jan-2017.)

Hypotheses

Ref	Expression
fthmon.b	⊢ 𝐵 = (Base‘𝐶)
fthmon.h	⊢ 𝐻 = (Hom ‘𝐶)
fthmon.f	⊢ (𝜑 → 𝐹(𝐶 Faith 𝐷)𝐺)
fthmon.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
fthmon.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
fthmon.r	⊢ (𝜑 → 𝑅 ∈ (𝑋𝐻𝑌))
ffthiso.f	⊢ (𝜑 → 𝐹(𝐶 Full 𝐷)𝐺)
ffthiso.s	⊢ 𝐼 = (Iso‘𝐶)
ffthiso.t	⊢ 𝐽 = (Iso‘𝐷)

Assertion

Ref	Expression
ffthiso	⊢ (𝜑 → (𝑅 ∈ (𝑋𝐼𝑌) ↔ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))))

Proof of Theorem ffthiso

Dummy variable 𝑓 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		fthmon.b	. . 3 ⊢ 𝐵 = (Base‘𝐶)
2		ffthiso.s	. . 3 ⊢ 𝐼 = (Iso‘𝐶)
3		ffthiso.t	. . 3 ⊢ 𝐽 = (Iso‘𝐷)
4		fthmon.f	. . . . 5 ⊢ (𝜑 → 𝐹(𝐶 Faith 𝐷)𝐺)
5		fthfunc 17867	. . . . . 6 ⊢ (𝐶 Faith 𝐷) ⊆ (𝐶 Func 𝐷)
6	5	ssbri 5117	. . . . 5 ⊢ (𝐹(𝐶 Faith 𝐷)𝐺 → 𝐹(𝐶 Func 𝐷)𝐺)
7	4, 6	syl 17	. . . 4 ⊢ (𝜑 → 𝐹(𝐶 Func 𝐷)𝐺)
8	7	adantr 481	. . 3 ⊢ ((𝜑 ∧ 𝑅 ∈ (𝑋𝐼𝑌)) → 𝐹(𝐶 Func 𝐷)𝐺)
9		fthmon.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
10	9	adantr 481	. . 3 ⊢ ((𝜑 ∧ 𝑅 ∈ (𝑋𝐼𝑌)) → 𝑋 ∈ 𝐵)
11		fthmon.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
12	11	adantr 481	. . 3 ⊢ ((𝜑 ∧ 𝑅 ∈ (𝑋𝐼𝑌)) → 𝑌 ∈ 𝐵)
13		simpr 485	. . 3 ⊢ ((𝜑 ∧ 𝑅 ∈ (𝑋𝐼𝑌)) → 𝑅 ∈ (𝑋𝐼𝑌))
14	1, 2, 3, 8, 10, 12, 13	funciso 17832	. 2 ⊢ ((𝜑 ∧ 𝑅 ∈ (𝑋𝐼𝑌)) → ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌)))
15		eqid 2739	. . . 4 ⊢ (Inv‘𝐶) = (Inv‘𝐶)
16		df-br 5073	. . . . . . . 8 ⊢ (𝐹(𝐶 Func 𝐷)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷))
17	7, 16	sylib 219	. . . . . . 7 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷))
18		funcrcl 17821	. . . . . . 7 ⊢ (⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
19	17, 18	syl 17	. . . . . 6 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
20	19	simpld 495	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ Cat)
21	20	ad3antrrr 736	. . . 4 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝐶 ∈ Cat)
22	9	ad3antrrr 736	. . . 4 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑋 ∈ 𝐵)
23	11	ad3antrrr 736	. . . 4 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑌 ∈ 𝐵)
24		eqid 2739	. . . . . . . . . . 11 ⊢ (Base‘𝐷) = (Base‘𝐷)
25		eqid 2739	. . . . . . . . . . 11 ⊢ (Inv‘𝐷) = (Inv‘𝐷)
26	19	simprd 496	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷 ∈ Cat)
27	1, 24, 7	funcf1 17824	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹:𝐵⟶(Base‘𝐷))
28	27, 9	ffvelcdmd 7026	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹‘𝑋) ∈ (Base‘𝐷))
29	27, 11	ffvelcdmd 7026	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹‘𝑌) ∈ (Base‘𝐷))
30	24, 25, 26, 28, 29, 3	isoval 17723	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐹‘𝑋)𝐽(𝐹‘𝑌)) = dom ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)))
31	30	eleq2d 2825	. . . . . . . . 9 ⊢ (𝜑 → (((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌)) ↔ ((𝑋𝐺𝑌)‘𝑅) ∈ dom ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))))
32	31	biimpa 477	. . . . . . . 8 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → ((𝑋𝐺𝑌)‘𝑅) ∈ dom ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)))
33	24, 25, 26, 28, 29	invfun 17722	. . . . . . . . . 10 ⊢ (𝜑 → Fun ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)))
34	33	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → Fun ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)))
35		funfvbrb 6992	. . . . . . . . 9 ⊢ (Fun ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)) → (((𝑋𝐺𝑌)‘𝑅) ∈ dom ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)) ↔ ((𝑋𝐺𝑌)‘𝑅)((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))(((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅))))
36	34, 35	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → (((𝑋𝐺𝑌)‘𝑅) ∈ dom ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)) ↔ ((𝑋𝐺𝑌)‘𝑅)((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))(((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅))))
37	32, 36	mpbid 233	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → ((𝑋𝐺𝑌)‘𝑅)((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))(((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)))
38	37	ad2antrr 732	. . . . . 6 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → ((𝑋𝐺𝑌)‘𝑅)((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))(((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)))
39		simpr 485	. . . . . 6 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓))
40	38, 39	breqtrd 5098	. . . . 5 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → ((𝑋𝐺𝑌)‘𝑅)((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑓))
41		fthmon.h	. . . . . 6 ⊢ 𝐻 = (Hom ‘𝐶)
42	4	ad3antrrr 736	. . . . . 6 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝐹(𝐶 Faith 𝐷)𝐺)
43		fthmon.r	. . . . . . 7 ⊢ (𝜑 → 𝑅 ∈ (𝑋𝐻𝑌))
44	43	ad3antrrr 736	. . . . . 6 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑅 ∈ (𝑋𝐻𝑌))
45		simplr 774	. . . . . 6 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑓 ∈ (𝑌𝐻𝑋))
46	1, 41, 42, 22, 23, 44, 45, 15, 25	fthinv 17886	. . . . 5 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → (𝑅(𝑋(Inv‘𝐶)𝑌)𝑓 ↔ ((𝑋𝐺𝑌)‘𝑅)((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑓)))
47	40, 46	mpbird 258	. . . 4 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑅(𝑋(Inv‘𝐶)𝑌)𝑓)
48	1, 15, 21, 22, 23, 2, 47	inviso1 17724	. . 3 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑅 ∈ (𝑋𝐼𝑌))
49		eqid 2739	. . . 4 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
50		ffthiso.f	. . . . 5 ⊢ (𝜑 → 𝐹(𝐶 Full 𝐷)𝐺)
51	50	adantr 481	. . . 4 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → 𝐹(𝐶 Full 𝐷)𝐺)
52	11	adantr 481	. . . 4 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → 𝑌 ∈ 𝐵)
53	9	adantr 481	. . . 4 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → 𝑋 ∈ 𝐵)
54	24, 49, 3, 26, 29, 28	isohom 17734	. . . . . 6 ⊢ (𝜑 → ((𝐹‘𝑌)𝐽(𝐹‘𝑋)) ⊆ ((𝐹‘𝑌)(Hom ‘𝐷)(𝐹‘𝑋)))
55	54	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → ((𝐹‘𝑌)𝐽(𝐹‘𝑋)) ⊆ ((𝐹‘𝑌)(Hom ‘𝐷)(𝐹‘𝑋)))
56	24, 25, 26, 28, 29, 3	invf 17726	. . . . . 6 ⊢ (𝜑 → ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)):((𝐹‘𝑋)𝐽(𝐹‘𝑌))⟶((𝐹‘𝑌)𝐽(𝐹‘𝑋)))
57	56	ffvelcdmda 7025	. . . . 5 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) ∈ ((𝐹‘𝑌)𝐽(𝐹‘𝑋)))
58	55, 57	sseldd 3916	. . . 4 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) ∈ ((𝐹‘𝑌)(Hom ‘𝐷)(𝐹‘𝑋)))
59	1, 49, 41, 51, 52, 53, 58	fulli 17873	. . 3 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → ∃𝑓 ∈ (𝑌𝐻𝑋)(((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓))
60	48, 59	r19.29a 3147	. 2 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → 𝑅 ∈ (𝑋𝐼𝑌))
61	14, 60	impbida 806	1 ⊢ (𝜑 → (𝑅 ∈ (𝑋𝐼𝑌) ↔ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547   ∈ wcel 2119   ⊆ wss 3883  ⟨cop 4561   class class class wbr 5072  dom cdm 5618  Fun wfun 6479  ‘cfv 6485  (class class class)co 7356  Basecbs 17170  Hom chom 17222  Catccat 17621  Invcinv 17703  Isociso 17704   Func cfunc 17812   Full cful 17862   Faith cfth 17863

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-id 5513  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-1st 7931  df-2nd 7932  df-map 8765  df-ixp 8836  df-cat 17625  df-cid 17626  df-sect 17705  df-inv 17706  df-iso 17707  df-func 17816  df-full 17864  df-fth 17865

This theorem is referenced by: (None)