Theorem ffthiso 17028

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 17006	. . . . . 6 ⊢ (𝐶 Faith 𝐷) ⊆ (𝐶 Func 𝐷)
6	5	ssbri 5007	. . . . 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 16973	. 2 ⊢ ((𝜑 ∧ 𝑅 ∈ (𝑋𝐼𝑌)) → ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌)))
15		eqid 2795	. . . 4 ⊢ (Inv‘𝐶) = (Inv‘𝐶)
16		df-br 4963	. . . . . . . 8 ⊢ (𝐹(𝐶 Func 𝐷)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷))
17	7, 16	sylib 219	. . . . . . 7 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷))
18		funcrcl 16962	. . . . . . 7 ⊢ (⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
19	17, 18	syl 17	. . . . . 6 ⊢ (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
20	19	simpld 495	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ Cat)
21	20	ad3antrrr 726	. . . 4 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝐶 ∈ Cat)
22	9	ad3antrrr 726	. . . 4 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑋 ∈ 𝐵)
23	11	ad3antrrr 726	. . . 4 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑌 ∈ 𝐵)
24		eqid 2795	. . . . . . . . . . 11 ⊢ (Base‘𝐷) = (Base‘𝐷)
25		eqid 2795	. . . . . . . . . . 11 ⊢ (Inv‘𝐷) = (Inv‘𝐷)
26	19	simprd 496	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷 ∈ Cat)
27	1, 24, 7	funcf1 16965	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹:𝐵⟶(Base‘𝐷))
28	27, 9	ffvelrnd 6717	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹‘𝑋) ∈ (Base‘𝐷))
29	27, 11	ffvelrnd 6717	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹‘𝑌) ∈ (Base‘𝐷))
30	24, 25, 26, 28, 29, 3	isoval 16864	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐹‘𝑋)𝐽(𝐹‘𝑌)) = dom ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)))
31	30	eleq2d 2868	. . . . . . . . 9 ⊢ (𝜑 → (((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌)) ↔ ((𝑋𝐺𝑌)‘𝑅) ∈ dom ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))))
32	31	biimpa 477	. . . . . . . 8 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → ((𝑋𝐺𝑌)‘𝑅) ∈ dom ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)))
33	24, 25, 26, 28, 29	invfun 16863	. . . . . . . . . 10 ⊢ (𝜑 → Fun ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)))
34	33	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → Fun ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)))
35		funfvbrb 6686	. . . . . . . . 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 722	. . . . . 6 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → ((𝑋𝐺𝑌)‘𝑅)((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))(((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)))
39		simpr 485	. . . . . 6 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓))
40	38, 39	breqtrd 4988	. . . . 5 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → ((𝑋𝐺𝑌)‘𝑅)((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑓))
41		fthmon.h	. . . . . 6 ⊢ 𝐻 = (Hom ‘𝐶)
42	4	ad3antrrr 726	. . . . . 6 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝐹(𝐶 Faith 𝐷)𝐺)
43		fthmon.r	. . . . . . 7 ⊢ (𝜑 → 𝑅 ∈ (𝑋𝐻𝑌))
44	43	ad3antrrr 726	. . . . . 6 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑅 ∈ (𝑋𝐻𝑌))
45		simplr 765	. . . . . 6 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑓 ∈ (𝑌𝐻𝑋))
46	1, 41, 42, 22, 23, 44, 45, 15, 25	fthinv 17025	. . . . 5 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → (𝑅(𝑋(Inv‘𝐶)𝑌)𝑓 ↔ ((𝑋𝐺𝑌)‘𝑅)((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))((𝑌𝐺𝑋)‘𝑓)))
47	40, 46	mpbird 258	. . . 4 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑅(𝑋(Inv‘𝐶)𝑌)𝑓)
48	1, 15, 21, 22, 23, 2, 47	inviso1 16865	. . 3 ⊢ ((((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) ∧ 𝑓 ∈ (𝑌𝐻𝑋)) ∧ (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓)) → 𝑅 ∈ (𝑋𝐼𝑌))
49		eqid 2795	. . . 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 16875	. . . . . 6 ⊢ (𝜑 → ((𝐹‘𝑌)𝐽(𝐹‘𝑋)) ⊆ ((𝐹‘𝑌)(Hom ‘𝐷)(𝐹‘𝑋)))
55	54	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → ((𝐹‘𝑌)𝐽(𝐹‘𝑋)) ⊆ ((𝐹‘𝑌)(Hom ‘𝐷)(𝐹‘𝑋)))
56	24, 25, 26, 28, 29, 3	invf 16867	. . . . . 6 ⊢ (𝜑 → ((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌)):((𝐹‘𝑋)𝐽(𝐹‘𝑌))⟶((𝐹‘𝑌)𝐽(𝐹‘𝑋)))
57	56	ffvelrnda 6716	. . . . 5 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) ∈ ((𝐹‘𝑌)𝐽(𝐹‘𝑋)))
58	55, 57	sseldd 3890	. . . 4 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → (((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) ∈ ((𝐹‘𝑌)(Hom ‘𝐷)(𝐹‘𝑋)))
59	1, 49, 41, 51, 52, 53, 58	fulli 17012	. . 3 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → ∃𝑓 ∈ (𝑌𝐻𝑋)(((𝐹‘𝑋)(Inv‘𝐷)(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝑅)) = ((𝑌𝐺𝑋)‘𝑓))
60	48, 59	r19.29a 3252	. 2 ⊢ ((𝜑 ∧ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))) → 𝑅 ∈ (𝑋𝐼𝑌))
61	14, 60	impbida 797	1 ⊢ (𝜑 → (𝑅 ∈ (𝑋𝐼𝑌) ↔ ((𝑋𝐺𝑌)‘𝑅) ∈ ((𝐹‘𝑋)𝐽(𝐹‘𝑌))))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1522   ∈ wcel 2081   ⊆ wss 3859  ⟨cop 4478   class class class wbr 4962  dom cdm 5443  Fun wfun 6219  ‘cfv 6225  (class class class)co 7016  Basecbs 16312  Hom chom 16405  Catccat 16764  Invcinv 16844  Isociso 16845   Func cfunc 16953   Full cful 17001   Faith cfth 17002

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1777  ax-4 1791  ax-5 1888  ax-6 1947  ax-7 1992  ax-8 2083  ax-9 2091  ax-10 2112  ax-11 2126  ax-12 2141  ax-13 2344  ax-ext 2769  ax-rep 5081  ax-sep 5094  ax-nul 5101  ax-pow 5157  ax-pr 5221  ax-un 7319

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3an 1082  df-tru 1525  df-ex 1762  df-nf 1766  df-sb 2043  df-mo 2576  df-eu 2612  df-clab 2776  df-cleq 2788  df-clel 2863  df-nfc 2935  df-ne 2985  df-ral 3110  df-rex 3111  df-reu 3112  df-rmo 3113  df-rab 3114  df-v 3439  df-sbc 3707  df-csb 3812  df-dif 3862  df-un 3864  df-in 3866  df-ss 3874  df-nul 4212  df-if 4382  df-pw 4455  df-sn 4473  df-pr 4475  df-op 4479  df-uni 4746  df-iun 4827  df-br 4963  df-opab 5025  df-mpt 5042  df-id 5348  df-xp 5449  df-rel 5450  df-cnv 5451  df-co 5452  df-dm 5453  df-rn 5454  df-res 5455  df-ima 5456  df-iota 6189  df-fun 6227  df-fn 6228  df-f 6229  df-f1 6230  df-fo 6231  df-f1o 6232  df-fv 6233  df-riota 6977  df-ov 7019  df-oprab 7020  df-mpo 7021  df-1st 7545  df-2nd 7546  df-map 8258  df-ixp 8311  df-cat 16768  df-cid 16769  df-sect 16846  df-inv 16847  df-iso 16848  df-func 16957  df-full 17003  df-fth 17004

This theorem is referenced by: (None)