rcaninv - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > rcaninv		Structured version Visualization version GIF version

Theorem rcaninv 17747

Description: Right cancellation of an inverse of an isomorphism. (Contributed by AV, 5-Apr-2020.)

**Hypotheses**
Ref	Expression
rcaninv.b	⊢ 𝐵 = (Base‘𝐶)
rcaninv.n	⊢ 𝑁 = (Inv‘𝐶)
rcaninv.c	⊢ (𝜑 → 𝐶 ∈ Cat)
rcaninv.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
rcaninv.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
rcaninv.z	⊢ (𝜑 → 𝑍 ∈ 𝐵)
rcaninv.f	⊢ (𝜑 → 𝐹 ∈ (𝑌(Iso‘𝐶)𝑋))
rcaninv.g	⊢ (𝜑 → 𝐺 ∈ (𝑌(Hom ‘𝐶)𝑍))
rcaninv.h	⊢ (𝜑 → 𝐻 ∈ (𝑌(Hom ‘𝐶)𝑍))
rcaninv.1	⊢ 𝑅 = ((𝑌𝑁𝑋)‘𝐹)
rcaninv.o	⊢ ⚬ = (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)

**Assertion**
Ref	Expression
rcaninv	⊢ (𝜑 → ((𝐺 ⚬ 𝑅) = (𝐻 ⚬ 𝑅) → 𝐺 = 𝐻))

**Proof of Theorem rcaninv**
Step	Hyp	Ref	Expression
1		rcaninv.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐶)
2		eqid 2726	. . . . . 6 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
3		eqid 2726	. . . . . 6 ⊢ (comp‘𝐶) = (comp‘𝐶)
4		rcaninv.c	. . . . . 6 ⊢ (𝜑 → 𝐶 ∈ Cat)
5		rcaninv.y	. . . . . 6 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
6		rcaninv.x	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
7		eqid 2726	. . . . . . . 8 ⊢ (Iso‘𝐶) = (Iso‘𝐶)
8	1, 2, 7, 4, 5, 6	isohom 17729	. . . . . . 7 ⊢ (𝜑 → (𝑌(Iso‘𝐶)𝑋) ⊆ (𝑌(Hom ‘𝐶)𝑋))
9		rcaninv.f	. . . . . . 7 ⊢ (𝜑 → 𝐹 ∈ (𝑌(Iso‘𝐶)𝑋))
10	8, 9	sseldd 3978	. . . . . 6 ⊢ (𝜑 → 𝐹 ∈ (𝑌(Hom ‘𝐶)𝑋))
11	1, 2, 7, 4, 6, 5	isohom 17729	. . . . . . 7 ⊢ (𝜑 → (𝑋(Iso‘𝐶)𝑌) ⊆ (𝑋(Hom ‘𝐶)𝑌))
12		rcaninv.n	. . . . . . . . 9 ⊢ 𝑁 = (Inv‘𝐶)
13	1, 12, 4, 5, 6, 7	invf 17721	. . . . . . . 8 ⊢ (𝜑 → (𝑌𝑁𝑋):(𝑌(Iso‘𝐶)𝑋)⟶(𝑋(Iso‘𝐶)𝑌))
14	13, 9	ffvelcdmd 7080	. . . . . . 7 ⊢ (𝜑 → ((𝑌𝑁𝑋)‘𝐹) ∈ (𝑋(Iso‘𝐶)𝑌))
15	11, 14	sseldd 3978	. . . . . 6 ⊢ (𝜑 → ((𝑌𝑁𝑋)‘𝐹) ∈ (𝑋(Hom ‘𝐶)𝑌))
16		rcaninv.z	. . . . . 6 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
17		rcaninv.g	. . . . . 6 ⊢ (𝜑 → 𝐺 ∈ (𝑌(Hom ‘𝐶)𝑍))
18	1, 2, 3, 4, 5, 6, 5, 10, 15, 16, 17	catass 17636	. . . . 5 ⊢ (𝜑 → ((𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)((𝑌𝑁𝑋)‘𝐹))(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹) = (𝐺(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)(((𝑌𝑁𝑋)‘𝐹)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)))
19		eqid 2726	. . . . . . . 8 ⊢ (Id‘𝐶) = (Id‘𝐶)
20		eqid 2726	. . . . . . . 8 ⊢ (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌) = (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)
21	1, 7, 12, 4, 5, 6, 9, 19, 20	invcoisoid 17745	. . . . . . 7 ⊢ (𝜑 → (((𝑌𝑁𝑋)‘𝐹)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹) = ((Id‘𝐶)‘𝑌))
22	21	eqcomd 2732	. . . . . 6 ⊢ (𝜑 → ((Id‘𝐶)‘𝑌) = (((𝑌𝑁𝑋)‘𝐹)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹))
23	22	oveq2d 7420	. . . . 5 ⊢ (𝜑 → (𝐺(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)((Id‘𝐶)‘𝑌)) = (𝐺(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)(((𝑌𝑁𝑋)‘𝐹)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)))
24	1, 2, 19, 4, 5, 3, 16, 17	catrid 17634	. . . . 5 ⊢ (𝜑 → (𝐺(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)((Id‘𝐶)‘𝑌)) = 𝐺)
25	18, 23, 24	3eqtr2rd 2773	. . . 4 ⊢ (𝜑 → 𝐺 = ((𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)((𝑌𝑁𝑋)‘𝐹))(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹))
26	25	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝐺 ⚬ 𝑅) = (𝐻 ⚬ 𝑅)) → 𝐺 = ((𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)((𝑌𝑁𝑋)‘𝐹))(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹))
27		rcaninv.o	. . . . . . . . 9 ⊢ ⚬ = (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)
28	27	eqcomi 2735	. . . . . . . 8 ⊢ (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍) = ⚬
29	28	a1i 11	. . . . . . 7 ⊢ (𝜑 → (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍) = ⚬ )
30		eqidd 2727	. . . . . . 7 ⊢ (𝜑 → 𝐺 = 𝐺)
31		rcaninv.1	. . . . . . . . 9 ⊢ 𝑅 = ((𝑌𝑁𝑋)‘𝐹)
32	31	eqcomi 2735	. . . . . . . 8 ⊢ ((𝑌𝑁𝑋)‘𝐹) = 𝑅
33	32	a1i 11	. . . . . . 7 ⊢ (𝜑 → ((𝑌𝑁𝑋)‘𝐹) = 𝑅)
34	29, 30, 33	oveq123d 7425	. . . . . 6 ⊢ (𝜑 → (𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)((𝑌𝑁𝑋)‘𝐹)) = (𝐺 ⚬ 𝑅))
35	34	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝐺 ⚬ 𝑅) = (𝐻 ⚬ 𝑅)) → (𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)((𝑌𝑁𝑋)‘𝐹)) = (𝐺 ⚬ 𝑅))
36		simpr 484	. . . . 5 ⊢ ((𝜑 ∧ (𝐺 ⚬ 𝑅) = (𝐻 ⚬ 𝑅)) → (𝐺 ⚬ 𝑅) = (𝐻 ⚬ 𝑅))
37	35, 36	eqtrd 2766	. . . 4 ⊢ ((𝜑 ∧ (𝐺 ⚬ 𝑅) = (𝐻 ⚬ 𝑅)) → (𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)((𝑌𝑁𝑋)‘𝐹)) = (𝐻 ⚬ 𝑅))
38	37	oveq1d 7419	. . 3 ⊢ ((𝜑 ∧ (𝐺 ⚬ 𝑅) = (𝐻 ⚬ 𝑅)) → ((𝐺(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)((𝑌𝑁𝑋)‘𝐹))(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹) = ((𝐻 ⚬ 𝑅)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹))
39	27	oveqi 7417	. . . . . . 7 ⊢ (𝐻 ⚬ 𝑅) = (𝐻(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝑅)
40	39	oveq1i 7414	. . . . . 6 ⊢ ((𝐻 ⚬ 𝑅)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹) = ((𝐻(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝑅)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹)
41	40	a1i 11	. . . . 5 ⊢ (𝜑 → ((𝐻 ⚬ 𝑅)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹) = ((𝐻(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝑅)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹))
42	31, 15	eqeltrid 2831	. . . . . . 7 ⊢ (𝜑 → 𝑅 ∈ (𝑋(Hom ‘𝐶)𝑌))
43		rcaninv.h	. . . . . . 7 ⊢ (𝜑 → 𝐻 ∈ (𝑌(Hom ‘𝐶)𝑍))
44	1, 2, 3, 4, 5, 6, 5, 10, 42, 16, 43	catass 17636	. . . . . 6 ⊢ (𝜑 → ((𝐻(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝑅)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹) = (𝐻(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)(𝑅(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)))
45	31	oveq1i 7414	. . . . . . . 8 ⊢ (𝑅(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹) = (((𝑌𝑁𝑋)‘𝐹)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)
46	45	oveq2i 7415	. . . . . . 7 ⊢ (𝐻(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)(𝑅(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)) = (𝐻(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)(((𝑌𝑁𝑋)‘𝐹)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹))
47	46	a1i 11	. . . . . 6 ⊢ (𝜑 → (𝐻(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)(𝑅(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)) = (𝐻(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)(((𝑌𝑁𝑋)‘𝐹)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)))
48	21	oveq2d 7420	. . . . . 6 ⊢ (𝜑 → (𝐻(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)(((𝑌𝑁𝑋)‘𝐹)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)𝐹)) = (𝐻(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)((Id‘𝐶)‘𝑌)))
49	44, 47, 48	3eqtrd 2770	. . . . 5 ⊢ (𝜑 → ((𝐻(⟨𝑋, 𝑌⟩(comp‘𝐶)𝑍)𝑅)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹) = (𝐻(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)((Id‘𝐶)‘𝑌)))
50	1, 2, 19, 4, 5, 3, 16, 43	catrid 17634	. . . . 5 ⊢ (𝜑 → (𝐻(⟨𝑌, 𝑌⟩(comp‘𝐶)𝑍)((Id‘𝐶)‘𝑌)) = 𝐻)
51	41, 49, 50	3eqtrd 2770	. . . 4 ⊢ (𝜑 → ((𝐻 ⚬ 𝑅)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹) = 𝐻)
52	51	adantr 480	. . 3 ⊢ ((𝜑 ∧ (𝐺 ⚬ 𝑅) = (𝐻 ⚬ 𝑅)) → ((𝐻 ⚬ 𝑅)(⟨𝑌, 𝑋⟩(comp‘𝐶)𝑍)𝐹) = 𝐻)
53	26, 38, 52	3eqtrd 2770	. 2 ⊢ ((𝜑 ∧ (𝐺 ⚬ 𝑅) = (𝐻 ⚬ 𝑅)) → 𝐺 = 𝐻)
54	53	ex 412	1 ⊢ (𝜑 → ((𝐺 ⚬ 𝑅) = (𝐻 ⚬ 𝑅) → 𝐺 = 𝐻))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1533 ∈ wcel 2098 ⟨cop 4629 ‘cfv 6536 (class class class)co 7404 Basecbs 17150 Hom chom 17214 compcco 17215 Catccat 17614 Idccid 17615 Invcinv 17698 Isociso 17699

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2163 ax-ext 2697 ax-rep 5278 ax-sep 5292 ax-nul 5299 ax-pow 5356 ax-pr 5420 ax-un 7721

This theorem depends on definitions: df-bi 206 df-an 396 df-or 845 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2704 df-cleq 2718 df-clel 2804 df-nfc 2879 df-ne 2935 df-ral 3056 df-rex 3065 df-rmo 3370 df-reu 3371 df-rab 3427 df-v 3470 df-sbc 3773 df-csb 3889 df-dif 3946 df-un 3948 df-in 3950 df-ss 3960 df-nul 4318 df-if 4524 df-pw 4599 df-sn 4624 df-pr 4626 df-op 4630 df-uni 4903 df-iun 4992 df-br 5142 df-opab 5204 df-mpt 5225 df-id 5567 df-xp 5675 df-rel 5676 df-cnv 5677 df-co 5678 df-dm 5679 df-rn 5680 df-res 5681 df-ima 5682 df-iota 6488 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-riota 7360 df-ov 7407 df-oprab 7408 df-mpo 7409 df-1st 7971 df-2nd 7972 df-cat 17618 df-cid 17619 df-sect 17700 df-inv 17701 df-iso 17702

This theorem is referenced by: initoeu2lem0 17972

W3C validator