Users' Mathboxes Mathbox for Zhi Wang < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  fucocolem1 Structured version   Visualization version   GIF version

Theorem fucocolem1 50108
Description: Lemma for fucoco 50112. Associativity for morphisms in category 𝐸. To simply put, ((𝑎 · 𝑏) · (𝑐 · 𝑑)) = (𝑎 · ((𝑏 · 𝑐) · 𝑑)) for morphism compositions. (Contributed by Zhi Wang, 2-Oct-2025.)
Hypotheses
Ref Expression
fucoco.r (𝜑𝑅 ∈ (𝐹(𝐷 Nat 𝐸)𝐾))
fucoco.s (𝜑𝑆 ∈ (𝐺(𝐶 Nat 𝐷)𝐿))
fucoco.u (𝜑𝑈 ∈ (𝐾(𝐷 Nat 𝐸)𝑀))
fucoco.v (𝜑𝑉 ∈ (𝐿(𝐶 Nat 𝐷)𝑁))
fucocolem1.x (𝜑𝑋 ∈ (Base‘𝐶))
fucocolem1.p (𝜑𝑃 ∈ (𝐷 Func 𝐸))
fucocolem1.q (𝜑𝑄 ∈ (𝐶 Func 𝐷))
fucocolem1.a (𝜑𝐴 ∈ (((1st𝑃)‘((1st𝑄)‘𝑋))(Hom ‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋))))
fucocolem1.b (𝜑𝐵 ∈ (((1st𝐹)‘((1st𝐿)‘𝑋))(Hom ‘𝐸)((1st𝑃)‘((1st𝑄)‘𝑋))))
Assertion
Ref Expression
fucocolem1 (𝜑 → (((𝑈‘((1st𝑁)‘𝑋))(⟨((1st𝑃)‘((1st𝑄)‘𝑋)), ((1st𝐾)‘((1st𝑁)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))𝐴)(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝑃)‘((1st𝑄)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))(𝐵(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝑃)‘((1st𝑄)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋)))) = ((𝑈‘((1st𝑁)‘𝑋))(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐾)‘((1st𝑁)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))((𝐴(⟨((1st𝐹)‘((1st𝐿)‘𝑋)), ((1st𝑃)‘((1st𝑄)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))𝐵)(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋)))))

Proof of Theorem fucocolem1
StepHypRef Expression
1 eqid 2763 . . 3 (Base‘𝐸) = (Base‘𝐸)
2 eqid 2763 . . 3 (Hom ‘𝐸) = (Hom ‘𝐸)
3 eqid 2763 . . 3 (comp‘𝐸) = (comp‘𝐸)
4 fucoco.r . . . . . . 7 (𝜑𝑅 ∈ (𝐹(𝐷 Nat 𝐸)𝐾))
5 eqid 2763 . . . . . . . 8 (𝐷 Nat 𝐸) = (𝐷 Nat 𝐸)
65natrcl 18011 . . . . . . 7 (𝑅 ∈ (𝐹(𝐷 Nat 𝐸)𝐾) → (𝐹 ∈ (𝐷 Func 𝐸) ∧ 𝐾 ∈ (𝐷 Func 𝐸)))
74, 6syl 18 . . . . . 6 (𝜑 → (𝐹 ∈ (𝐷 Func 𝐸) ∧ 𝐾 ∈ (𝐷 Func 𝐸)))
87simpld 499 . . . . 5 (𝜑𝐹 ∈ (𝐷 Func 𝐸))
98func1st2nd 49831 . . . 4 (𝜑 → (1st𝐹)(𝐷 Func 𝐸)(2nd𝐹))
109funcrcl3 49835 . . 3 (𝜑𝐸 ∈ Cat)
11 eqid 2763 . . . . 5 (Base‘𝐷) = (Base‘𝐷)
1211, 1, 9funcf1 17924 . . . 4 (𝜑 → (1st𝐹):(Base‘𝐷)⟶(Base‘𝐸))
13 eqid 2763 . . . . . 6 (Base‘𝐶) = (Base‘𝐶)
14 fucoco.s . . . . . . . . 9 (𝜑𝑆 ∈ (𝐺(𝐶 Nat 𝐷)𝐿))
15 eqid 2763 . . . . . . . . . 10 (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷)
1615natrcl 18011 . . . . . . . . 9 (𝑆 ∈ (𝐺(𝐶 Nat 𝐷)𝐿) → (𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝐿 ∈ (𝐶 Func 𝐷)))
1714, 16syl 18 . . . . . . . 8 (𝜑 → (𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝐿 ∈ (𝐶 Func 𝐷)))
1817simpld 499 . . . . . . 7 (𝜑𝐺 ∈ (𝐶 Func 𝐷))
1918func1st2nd 49831 . . . . . 6 (𝜑 → (1st𝐺)(𝐶 Func 𝐷)(2nd𝐺))
2013, 11, 19funcf1 17924 . . . . 5 (𝜑 → (1st𝐺):(Base‘𝐶)⟶(Base‘𝐷))
21 fucocolem1.x . . . . 5 (𝜑𝑋 ∈ (Base‘𝐶))
2220, 21ffvelcdmd 7082 . . . 4 (𝜑 → ((1st𝐺)‘𝑋) ∈ (Base‘𝐷))
2312, 22ffvelcdmd 7082 . . 3 (𝜑 → ((1st𝐹)‘((1st𝐺)‘𝑋)) ∈ (Base‘𝐸))
24 fucocolem1.p . . . . . 6 (𝜑𝑃 ∈ (𝐷 Func 𝐸))
2524func1st2nd 49831 . . . . 5 (𝜑 → (1st𝑃)(𝐷 Func 𝐸)(2nd𝑃))
2611, 1, 25funcf1 17924 . . . 4 (𝜑 → (1st𝑃):(Base‘𝐷)⟶(Base‘𝐸))
27 fucocolem1.q . . . . . . 7 (𝜑𝑄 ∈ (𝐶 Func 𝐷))
2827func1st2nd 49831 . . . . . 6 (𝜑 → (1st𝑄)(𝐶 Func 𝐷)(2nd𝑄))
2913, 11, 28funcf1 17924 . . . . 5 (𝜑 → (1st𝑄):(Base‘𝐶)⟶(Base‘𝐷))
3029, 21ffvelcdmd 7082 . . . 4 (𝜑 → ((1st𝑄)‘𝑋) ∈ (Base‘𝐷))
3126, 30ffvelcdmd 7082 . . 3 (𝜑 → ((1st𝑃)‘((1st𝑄)‘𝑋)) ∈ (Base‘𝐸))
327simprd 500 . . . . . 6 (𝜑𝐾 ∈ (𝐷 Func 𝐸))
3332func1st2nd 49831 . . . . 5 (𝜑 → (1st𝐾)(𝐷 Func 𝐸)(2nd𝐾))
3411, 1, 33funcf1 17924 . . . 4 (𝜑 → (1st𝐾):(Base‘𝐷)⟶(Base‘𝐸))
35 fucoco.v . . . . . . . . 9 (𝜑𝑉 ∈ (𝐿(𝐶 Nat 𝐷)𝑁))
3615natrcl 18011 . . . . . . . . 9 (𝑉 ∈ (𝐿(𝐶 Nat 𝐷)𝑁) → (𝐿 ∈ (𝐶 Func 𝐷) ∧ 𝑁 ∈ (𝐶 Func 𝐷)))
3735, 36syl 18 . . . . . . . 8 (𝜑 → (𝐿 ∈ (𝐶 Func 𝐷) ∧ 𝑁 ∈ (𝐶 Func 𝐷)))
3837simprd 500 . . . . . . 7 (𝜑𝑁 ∈ (𝐶 Func 𝐷))
3938func1st2nd 49831 . . . . . 6 (𝜑 → (1st𝑁)(𝐶 Func 𝐷)(2nd𝑁))
4013, 11, 39funcf1 17924 . . . . 5 (𝜑 → (1st𝑁):(Base‘𝐶)⟶(Base‘𝐷))
4140, 21ffvelcdmd 7082 . . . 4 (𝜑 → ((1st𝑁)‘𝑋) ∈ (Base‘𝐷))
4234, 41ffvelcdmd 7082 . . 3 (𝜑 → ((1st𝐾)‘((1st𝑁)‘𝑋)) ∈ (Base‘𝐸))
4317simprd 500 . . . . . . . 8 (𝜑𝐿 ∈ (𝐶 Func 𝐷))
4443func1st2nd 49831 . . . . . . 7 (𝜑 → (1st𝐿)(𝐶 Func 𝐷)(2nd𝐿))
4513, 11, 44funcf1 17924 . . . . . 6 (𝜑 → (1st𝐿):(Base‘𝐶)⟶(Base‘𝐷))
4645, 21ffvelcdmd 7082 . . . . 5 (𝜑 → ((1st𝐿)‘𝑋) ∈ (Base‘𝐷))
4712, 46ffvelcdmd 7082 . . . 4 (𝜑 → ((1st𝐹)‘((1st𝐿)‘𝑋)) ∈ (Base‘𝐸))
48 eqid 2763 . . . . . 6 (Hom ‘𝐷) = (Hom ‘𝐷)
4911, 48, 2, 9, 22, 46funcf2 17926 . . . . 5 (𝜑 → (((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋)):(((1st𝐺)‘𝑋)(Hom ‘𝐷)((1st𝐿)‘𝑋))⟶(((1st𝐹)‘((1st𝐺)‘𝑋))(Hom ‘𝐸)((1st𝐹)‘((1st𝐿)‘𝑋))))
5015, 14nat1st2nd 18012 . . . . . 6 (𝜑𝑆 ∈ (⟨(1st𝐺), (2nd𝐺)⟩(𝐶 Nat 𝐷)⟨(1st𝐿), (2nd𝐿)⟩))
5115, 50, 13, 48, 21natcl 18014 . . . . 5 (𝜑 → (𝑆𝑋) ∈ (((1st𝐺)‘𝑋)(Hom ‘𝐷)((1st𝐿)‘𝑋)))
5249, 51ffvelcdmd 7082 . . . 4 (𝜑 → ((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋)) ∈ (((1st𝐹)‘((1st𝐺)‘𝑋))(Hom ‘𝐸)((1st𝐹)‘((1st𝐿)‘𝑋))))
53 fucocolem1.b . . . 4 (𝜑𝐵 ∈ (((1st𝐹)‘((1st𝐿)‘𝑋))(Hom ‘𝐸)((1st𝑃)‘((1st𝑄)‘𝑋))))
541, 2, 3, 10, 23, 47, 31, 52, 53catcocl 17742 . . 3 (𝜑 → (𝐵(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝑃)‘((1st𝑄)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋))) ∈ (((1st𝐹)‘((1st𝐺)‘𝑋))(Hom ‘𝐸)((1st𝑃)‘((1st𝑄)‘𝑋))))
55 fucocolem1.a . . 3 (𝜑𝐴 ∈ (((1st𝑃)‘((1st𝑄)‘𝑋))(Hom ‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋))))
56 fucoco.u . . . . . . . 8 (𝜑𝑈 ∈ (𝐾(𝐷 Nat 𝐸)𝑀))
575natrcl 18011 . . . . . . . 8 (𝑈 ∈ (𝐾(𝐷 Nat 𝐸)𝑀) → (𝐾 ∈ (𝐷 Func 𝐸) ∧ 𝑀 ∈ (𝐷 Func 𝐸)))
5856, 57syl 18 . . . . . . 7 (𝜑 → (𝐾 ∈ (𝐷 Func 𝐸) ∧ 𝑀 ∈ (𝐷 Func 𝐸)))
5958simprd 500 . . . . . 6 (𝜑𝑀 ∈ (𝐷 Func 𝐸))
6059func1st2nd 49831 . . . . 5 (𝜑 → (1st𝑀)(𝐷 Func 𝐸)(2nd𝑀))
6111, 1, 60funcf1 17924 . . . 4 (𝜑 → (1st𝑀):(Base‘𝐷)⟶(Base‘𝐸))
6261, 41ffvelcdmd 7082 . . 3 (𝜑 → ((1st𝑀)‘((1st𝑁)‘𝑋)) ∈ (Base‘𝐸))
635, 56nat1st2nd 18012 . . . 4 (𝜑𝑈 ∈ (⟨(1st𝐾), (2nd𝐾)⟩(𝐷 Nat 𝐸)⟨(1st𝑀), (2nd𝑀)⟩))
645, 63, 11, 2, 41natcl 18014 . . 3 (𝜑 → (𝑈‘((1st𝑁)‘𝑋)) ∈ (((1st𝐾)‘((1st𝑁)‘𝑋))(Hom ‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋))))
651, 2, 3, 10, 23, 31, 42, 54, 55, 62, 64catass 17743 . 2 (𝜑 → (((𝑈‘((1st𝑁)‘𝑋))(⟨((1st𝑃)‘((1st𝑄)‘𝑋)), ((1st𝐾)‘((1st𝑁)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))𝐴)(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝑃)‘((1st𝑄)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))(𝐵(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝑃)‘((1st𝑄)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋)))) = ((𝑈‘((1st𝑁)‘𝑋))(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐾)‘((1st𝑁)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))(𝐴(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝑃)‘((1st𝑄)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))(𝐵(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝑃)‘((1st𝑄)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋))))))
661, 2, 3, 10, 23, 47, 31, 52, 53, 42, 55catass 17743 . . 3 (𝜑 → ((𝐴(⟨((1st𝐹)‘((1st𝐿)‘𝑋)), ((1st𝑃)‘((1st𝑄)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))𝐵)(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋))) = (𝐴(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝑃)‘((1st𝑄)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))(𝐵(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝑃)‘((1st𝑄)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋)))))
6766oveq2d 7428 . 2 (𝜑 → ((𝑈‘((1st𝑁)‘𝑋))(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐾)‘((1st𝑁)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))((𝐴(⟨((1st𝐹)‘((1st𝐿)‘𝑋)), ((1st𝑃)‘((1st𝑄)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))𝐵)(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋)))) = ((𝑈‘((1st𝑁)‘𝑋))(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐾)‘((1st𝑁)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))(𝐴(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝑃)‘((1st𝑄)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))(𝐵(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝑃)‘((1st𝑄)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋))))))
6865, 67eqtr4d 2801 1 (𝜑 → (((𝑈‘((1st𝑁)‘𝑋))(⟨((1st𝑃)‘((1st𝑄)‘𝑋)), ((1st𝐾)‘((1st𝑁)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))𝐴)(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝑃)‘((1st𝑄)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))(𝐵(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝑃)‘((1st𝑄)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋)))) = ((𝑈‘((1st𝑁)‘𝑋))(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐾)‘((1st𝑁)‘𝑋))⟩(comp‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋)))((𝐴(⟨((1st𝐹)‘((1st𝐿)‘𝑋)), ((1st𝑃)‘((1st𝑄)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))𝐵)(⟨((1st𝐹)‘((1st𝐺)‘𝑋)), ((1st𝐹)‘((1st𝐿)‘𝑋))⟩(comp‘𝐸)((1st𝐾)‘((1st𝑁)‘𝑋)))((((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋))‘(𝑆𝑋)))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 400   = wceq 1570  wcel 2143  cop 4596  cfv 6538  (class class class)co 7412  1st c1st 7985  2nd c2nd 7986  Basecbs 17270  Hom chom 17322  compcco 17323   Func cfunc 17912   Nat cnat 18002
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4874  df-iun 4959  df-br 5111  df-opab 5175  df-mpt 5194  df-id 5558  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-ov 7415  df-oprab 7416  df-mpo 7417  df-1st 7987  df-2nd 7988  df-map 8827  df-ixp 8897  df-cat 17725  df-func 17916  df-nat 18004
This theorem is referenced by:  fucocolem3  50110  fucoco  50112
  Copyright terms: Public domain W3C validator