Theorem upeu2lem 49686

Description: Lemma for upeu2 49830. There exists a unique morphism from 𝑌 to 𝑍 that commutes if 𝐹:𝑋⟶𝑌 is an isomorphism. (Contributed by Zhi Wang, 20-Sep-2025.)

Hypotheses

Ref	Expression
upeu2lem.b	⊢ 𝐵 = (Base‘𝐶)
upeu2lem.h	⊢ 𝐻 = (Hom ‘𝐶)
upeu2lem.o	⊢ · = (comp‘𝐶)
upeu2lem.i	⊢ 𝐼 = (Iso‘𝐶)
upeu2lem.c	⊢ (𝜑 → 𝐶 ∈ Cat)
upeu2lem.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
upeu2lem.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
upeu2lem.z	⊢ (𝜑 → 𝑍 ∈ 𝐵)
upeu2lem.f	⊢ (𝜑 → 𝐹 ∈ (𝑋𝐼𝑌))
upeu2lem.g	⊢ (𝜑 → 𝐺 ∈ (𝑋𝐻𝑍))

Assertion

Ref	Expression
upeu2lem	⊢ (𝜑 → ∃!𝑘 ∈ (𝑌𝐻𝑍)𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹))

Distinct variable groups:   · ,𝑘   𝐶,𝑘   𝑘,𝐹   𝑘,𝐺   𝑘,𝐻   𝑘,𝑋   𝑘,𝑌   𝑘,𝑍   𝜑,𝑘

Allowed substitution hints:   𝐵(𝑘)   𝐼(𝑘)

Proof of Theorem upeu2lem

Step	Hyp	Ref	Expression
1		upeu2lem.b	. . 3 ⊢ 𝐵 = (Base‘𝐶)
2		upeu2lem.h	. . 3 ⊢ 𝐻 = (Hom ‘𝐶)
3		upeu2lem.o	. . 3 ⊢ · = (comp‘𝐶)
4		upeu2lem.c	. . 3 ⊢ (𝜑 → 𝐶 ∈ Cat)
5		upeu2lem.y	. . 3 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
6		upeu2lem.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
7		upeu2lem.z	. . 3 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
8		upeu2lem.i	. . . . 5 ⊢ 𝐼 = (Iso‘𝐶)
9	1, 2, 8, 4, 5, 6	isohom 17829	. . . 4 ⊢ (𝜑 → (𝑌𝐼𝑋) ⊆ (𝑌𝐻𝑋))
10		eqid 2769	. . . . . 6 ⊢ (Inv‘𝐶) = (Inv‘𝐶)
11	1, 10, 4, 6, 5, 8	invf 17821	. . . . 5 ⊢ (𝜑 → (𝑋(Inv‘𝐶)𝑌):(𝑋𝐼𝑌)⟶(𝑌𝐼𝑋))
12		upeu2lem.f	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ (𝑋𝐼𝑌))
13	11, 12	ffvelcdmd 7078	. . . 4 ⊢ (𝜑 → ((𝑋(Inv‘𝐶)𝑌)‘𝐹) ∈ (𝑌𝐼𝑋))
14	9, 13	sseldd 3946	. . 3 ⊢ (𝜑 → ((𝑋(Inv‘𝐶)𝑌)‘𝐹) ∈ (𝑌𝐻𝑋))
15		upeu2lem.g	. . 3 ⊢ (𝜑 → 𝐺 ∈ (𝑋𝐻𝑍))
16	1, 2, 3, 4, 5, 6, 7, 14, 15	catcocl 17737	. 2 ⊢ (𝜑 → (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)) ∈ (𝑌𝐻𝑍))
17		oveq1 7415	. . . . . 6 ⊢ (𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹) → (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)) = ((𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)))
18	17	adantl 486	. . . . 5 ⊢ (((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) ∧ 𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)) → (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)) = ((𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)))
19	4	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → 𝐶 ∈ Cat)
20	5	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → 𝑌 ∈ 𝐵)
21	6	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → 𝑋 ∈ 𝐵)
22	14	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → ((𝑋(Inv‘𝐶)𝑌)‘𝐹) ∈ (𝑌𝐻𝑋))
23	1, 2, 8, 4, 6, 5	isohom 17829	. . . . . . . . . 10 ⊢ (𝜑 → (𝑋𝐼𝑌) ⊆ (𝑋𝐻𝑌))
24	23, 12	sseldd 3946	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ (𝑋𝐻𝑌))
25	24	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → 𝐹 ∈ (𝑋𝐻𝑌))
26	7	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → 𝑍 ∈ 𝐵)
27		simpr 489	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → 𝑘 ∈ (𝑌𝐻𝑍))
28	1, 2, 3, 19, 20, 21, 20, 22, 25, 26, 27	catass 17738	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → ((𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)) = (𝑘(⟨𝑌, 𝑌⟩ · 𝑍)(𝐹(⟨𝑌, 𝑋⟩ · 𝑌)((𝑋(Inv‘𝐶)𝑌)‘𝐹))))
29	12	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → 𝐹 ∈ (𝑋𝐼𝑌))
30		eqid 2769	. . . . . . . . 9 ⊢ (Id‘𝐶) = (Id‘𝐶)
31	3	oveqi 7421	. . . . . . . . 9 ⊢ (⟨𝑌, 𝑋⟩ · 𝑌) = (⟨𝑌, 𝑋⟩(comp‘𝐶)𝑌)
32	1, 8, 10, 19, 21, 20, 29, 30, 31	isocoinvid 17846	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → (𝐹(⟨𝑌, 𝑋⟩ · 𝑌)((𝑋(Inv‘𝐶)𝑌)‘𝐹)) = ((Id‘𝐶)‘𝑌))
33	32	oveq2d 7424	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → (𝑘(⟨𝑌, 𝑌⟩ · 𝑍)(𝐹(⟨𝑌, 𝑋⟩ · 𝑌)((𝑋(Inv‘𝐶)𝑌)‘𝐹))) = (𝑘(⟨𝑌, 𝑌⟩ · 𝑍)((Id‘𝐶)‘𝑌)))
34	1, 2, 30, 19, 20, 3, 26, 27	catrid 17736	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → (𝑘(⟨𝑌, 𝑌⟩ · 𝑍)((Id‘𝐶)‘𝑌)) = 𝑘)
35	28, 33, 34	3eqtrd 2808	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → ((𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)) = 𝑘)
36	35	adantr 485	. . . . 5 ⊢ (((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) ∧ 𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)) → ((𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)) = 𝑘)
37	18, 36	eqtr2d 2805	. . . 4 ⊢ (((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) ∧ 𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹)) → 𝑘 = (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)))
38		oveq1 7415	. . . . . 6 ⊢ (𝑘 = (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)) → (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹) = ((𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹))(⟨𝑋, 𝑌⟩ · 𝑍)𝐹))
39	38	adantl 486	. . . . 5 ⊢ (((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) ∧ 𝑘 = (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹))) → (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹) = ((𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹))(⟨𝑋, 𝑌⟩ · 𝑍)𝐹))
40	15	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → 𝐺 ∈ (𝑋𝐻𝑍))
41	1, 2, 3, 19, 21, 20, 21, 25, 22, 26, 40	catass 17738	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → ((𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹))(⟨𝑋, 𝑌⟩ · 𝑍)𝐹) = (𝐺(⟨𝑋, 𝑋⟩ · 𝑍)(((𝑋(Inv‘𝐶)𝑌)‘𝐹)(⟨𝑋, 𝑌⟩ · 𝑋)𝐹)))
42	3	oveqi 7421	. . . . . . . . 9 ⊢ (⟨𝑋, 𝑌⟩ · 𝑋) = (⟨𝑋, 𝑌⟩(comp‘𝐶)𝑋)
43	1, 8, 10, 19, 21, 20, 29, 30, 42	invcoisoid 17845	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → (((𝑋(Inv‘𝐶)𝑌)‘𝐹)(⟨𝑋, 𝑌⟩ · 𝑋)𝐹) = ((Id‘𝐶)‘𝑋))
44	43	oveq2d 7424	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → (𝐺(⟨𝑋, 𝑋⟩ · 𝑍)(((𝑋(Inv‘𝐶)𝑌)‘𝐹)(⟨𝑋, 𝑌⟩ · 𝑋)𝐹)) = (𝐺(⟨𝑋, 𝑋⟩ · 𝑍)((Id‘𝐶)‘𝑋)))
45	1, 2, 30, 19, 21, 3, 26, 40	catrid 17736	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → (𝐺(⟨𝑋, 𝑋⟩ · 𝑍)((Id‘𝐶)‘𝑋)) = 𝐺)
46	41, 44, 45	3eqtrd 2808	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → ((𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹))(⟨𝑋, 𝑌⟩ · 𝑍)𝐹) = 𝐺)
47	46	adantr 485	. . . . 5 ⊢ (((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) ∧ 𝑘 = (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹))) → ((𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹))(⟨𝑋, 𝑌⟩ · 𝑍)𝐹) = 𝐺)
48	39, 47	eqtr2d 2805	. . . 4 ⊢ (((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) ∧ 𝑘 = (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹))) → 𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹))
49	37, 48	impbida 812	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝑌𝐻𝑍)) → (𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹) ↔ 𝑘 = (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹))))
50	49	ralrimiva 3163	. 2 ⊢ (𝜑 → ∀𝑘 ∈ (𝑌𝐻𝑍)(𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹) ↔ 𝑘 = (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹))))
51		reu6i 3700	. 2 ⊢ (((𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)) ∈ (𝑌𝐻𝑍) ∧ ∀𝑘 ∈ (𝑌𝐻𝑍)(𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹) ↔ 𝑘 = (𝐺(⟨𝑌, 𝑋⟩ · 𝑍)((𝑋(Inv‘𝐶)𝑌)‘𝐹)))) → ∃!𝑘 ∈ (𝑌𝐻𝑍)𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹))
52	16, 50, 51	syl2anc 595	1 ⊢ (𝜑 → ∃!𝑘 ∈ (𝑌𝐻𝑍)𝐺 = (𝑘(⟨𝑋, 𝑌⟩ · 𝑍)𝐹))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1567   ∈ wcel 2149  ∀wral 3085  ∃!wreu 3374  ⟨cop 4597  ‘cfv 6534  (class class class)co 7408  Basecbs 17265  Hom chom 17317  compcco 17318  Catccat 17716  Idccid 17717  Invcinv 17798  Isociso 17799

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5239  ax-sep 5258  ax-nul 5268  ax-pow 5334  ax-pr 5402  ax-un 7730

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-id 5554  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-iota 6490  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-1st 7982  df-2nd 7983  df-cat 17720  df-cid 17721  df-sect 17800  df-inv 17801  df-iso 17802

This theorem is referenced by:  upeu2  49830