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 50172
Description: Lemma for fucoco 50176. 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 2766 . . 3 (Base‘𝐸) = (Base‘𝐸)
2 eqid 2766 . . 3 (Hom ‘𝐸) = (Hom ‘𝐸)
3 eqid 2766 . . 3 (comp‘𝐸) = (comp‘𝐸)
4 fucoco.r . . . . . . 7 (𝜑𝑅 ∈ (𝐹(𝐷 Nat 𝐸)𝐾))
5 eqid 2766 . . . . . . . 8 (𝐷 Nat 𝐸) = (𝐷 Nat 𝐸)
65natrcl 18035 . . . . . . 7 (𝑅 ∈ (𝐹(𝐷 Nat 𝐸)𝐾) → (𝐹 ∈ (𝐷 Func 𝐸) ∧ 𝐾 ∈ (𝐷 Func 𝐸)))
74, 6syl 18 . . . . . 6 (𝜑 → (𝐹 ∈ (𝐷 Func 𝐸) ∧ 𝐾 ∈ (𝐷 Func 𝐸)))
87simpld 500 . . . . 5 (𝜑𝐹 ∈ (𝐷 Func 𝐸))
98func1st2nd 49895 . . . 4 (𝜑 → (1st𝐹)(𝐷 Func 𝐸)(2nd𝐹))
109funcrcl3 49899 . . 3 (𝜑𝐸 ∈ Cat)
11 eqid 2766 . . . . 5 (Base‘𝐷) = (Base‘𝐷)
1211, 1, 9funcf1 17948 . . . 4 (𝜑 → (1st𝐹):(Base‘𝐷)⟶(Base‘𝐸))
13 eqid 2766 . . . . . 6 (Base‘𝐶) = (Base‘𝐶)
14 fucoco.s . . . . . . . . 9 (𝜑𝑆 ∈ (𝐺(𝐶 Nat 𝐷)𝐿))
15 eqid 2766 . . . . . . . . . 10 (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷)
1615natrcl 18035 . . . . . . . . 9 (𝑆 ∈ (𝐺(𝐶 Nat 𝐷)𝐿) → (𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝐿 ∈ (𝐶 Func 𝐷)))
1714, 16syl 18 . . . . . . . 8 (𝜑 → (𝐺 ∈ (𝐶 Func 𝐷) ∧ 𝐿 ∈ (𝐶 Func 𝐷)))
1817simpld 500 . . . . . . 7 (𝜑𝐺 ∈ (𝐶 Func 𝐷))
1918func1st2nd 49895 . . . . . 6 (𝜑 → (1st𝐺)(𝐶 Func 𝐷)(2nd𝐺))
2013, 11, 19funcf1 17948 . . . . 5 (𝜑 → (1st𝐺):(Base‘𝐶)⟶(Base‘𝐷))
21 fucocolem1.x . . . . 5 (𝜑𝑋 ∈ (Base‘𝐶))
2220, 21ffvelcdmd 7087 . . . 4 (𝜑 → ((1st𝐺)‘𝑋) ∈ (Base‘𝐷))
2312, 22ffvelcdmd 7087 . . 3 (𝜑 → ((1st𝐹)‘((1st𝐺)‘𝑋)) ∈ (Base‘𝐸))
24 fucocolem1.p . . . . . 6 (𝜑𝑃 ∈ (𝐷 Func 𝐸))
2524func1st2nd 49895 . . . . 5 (𝜑 → (1st𝑃)(𝐷 Func 𝐸)(2nd𝑃))
2611, 1, 25funcf1 17948 . . . 4 (𝜑 → (1st𝑃):(Base‘𝐷)⟶(Base‘𝐸))
27 fucocolem1.q . . . . . . 7 (𝜑𝑄 ∈ (𝐶 Func 𝐷))
2827func1st2nd 49895 . . . . . 6 (𝜑 → (1st𝑄)(𝐶 Func 𝐷)(2nd𝑄))
2913, 11, 28funcf1 17948 . . . . 5 (𝜑 → (1st𝑄):(Base‘𝐶)⟶(Base‘𝐷))
3029, 21ffvelcdmd 7087 . . . 4 (𝜑 → ((1st𝑄)‘𝑋) ∈ (Base‘𝐷))
3126, 30ffvelcdmd 7087 . . 3 (𝜑 → ((1st𝑃)‘((1st𝑄)‘𝑋)) ∈ (Base‘𝐸))
327simprd 501 . . . . . 6 (𝜑𝐾 ∈ (𝐷 Func 𝐸))
3332func1st2nd 49895 . . . . 5 (𝜑 → (1st𝐾)(𝐷 Func 𝐸)(2nd𝐾))
3411, 1, 33funcf1 17948 . . . 4 (𝜑 → (1st𝐾):(Base‘𝐷)⟶(Base‘𝐸))
35 fucoco.v . . . . . . . . 9 (𝜑𝑉 ∈ (𝐿(𝐶 Nat 𝐷)𝑁))
3615natrcl 18035 . . . . . . . . 9 (𝑉 ∈ (𝐿(𝐶 Nat 𝐷)𝑁) → (𝐿 ∈ (𝐶 Func 𝐷) ∧ 𝑁 ∈ (𝐶 Func 𝐷)))
3735, 36syl 18 . . . . . . . 8 (𝜑 → (𝐿 ∈ (𝐶 Func 𝐷) ∧ 𝑁 ∈ (𝐶 Func 𝐷)))
3837simprd 501 . . . . . . 7 (𝜑𝑁 ∈ (𝐶 Func 𝐷))
3938func1st2nd 49895 . . . . . 6 (𝜑 → (1st𝑁)(𝐶 Func 𝐷)(2nd𝑁))
4013, 11, 39funcf1 17948 . . . . 5 (𝜑 → (1st𝑁):(Base‘𝐶)⟶(Base‘𝐷))
4140, 21ffvelcdmd 7087 . . . 4 (𝜑 → ((1st𝑁)‘𝑋) ∈ (Base‘𝐷))
4234, 41ffvelcdmd 7087 . . 3 (𝜑 → ((1st𝐾)‘((1st𝑁)‘𝑋)) ∈ (Base‘𝐸))
4317simprd 501 . . . . . . . 8 (𝜑𝐿 ∈ (𝐶 Func 𝐷))
4443func1st2nd 49895 . . . . . . 7 (𝜑 → (1st𝐿)(𝐶 Func 𝐷)(2nd𝐿))
4513, 11, 44funcf1 17948 . . . . . 6 (𝜑 → (1st𝐿):(Base‘𝐶)⟶(Base‘𝐷))
4645, 21ffvelcdmd 7087 . . . . 5 (𝜑 → ((1st𝐿)‘𝑋) ∈ (Base‘𝐷))
4712, 46ffvelcdmd 7087 . . . 4 (𝜑 → ((1st𝐹)‘((1st𝐿)‘𝑋)) ∈ (Base‘𝐸))
48 eqid 2766 . . . . . 6 (Hom ‘𝐷) = (Hom ‘𝐷)
4911, 48, 2, 9, 22, 46funcf2 17950 . . . . 5 (𝜑 → (((1st𝐺)‘𝑋)(2nd𝐹)((1st𝐿)‘𝑋)):(((1st𝐺)‘𝑋)(Hom ‘𝐷)((1st𝐿)‘𝑋))⟶(((1st𝐹)‘((1st𝐺)‘𝑋))(Hom ‘𝐸)((1st𝐹)‘((1st𝐿)‘𝑋))))
5015, 14nat1st2nd 18036 . . . . . 6 (𝜑𝑆 ∈ (⟨(1st𝐺), (2nd𝐺)⟩(𝐶 Nat 𝐷)⟨(1st𝐿), (2nd𝐿)⟩))
5115, 50, 13, 48, 21natcl 18038 . . . . 5 (𝜑 → (𝑆𝑋) ∈ (((1st𝐺)‘𝑋)(Hom ‘𝐷)((1st𝐿)‘𝑋)))
5249, 51ffvelcdmd 7087 . . . 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 17766 . . 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 18035 . . . . . . . 8 (𝑈 ∈ (𝐾(𝐷 Nat 𝐸)𝑀) → (𝐾 ∈ (𝐷 Func 𝐸) ∧ 𝑀 ∈ (𝐷 Func 𝐸)))
5856, 57syl 18 . . . . . . 7 (𝜑 → (𝐾 ∈ (𝐷 Func 𝐸) ∧ 𝑀 ∈ (𝐷 Func 𝐸)))
5958simprd 501 . . . . . 6 (𝜑𝑀 ∈ (𝐷 Func 𝐸))
6059func1st2nd 49895 . . . . 5 (𝜑 → (1st𝑀)(𝐷 Func 𝐸)(2nd𝑀))
6111, 1, 60funcf1 17948 . . . 4 (𝜑 → (1st𝑀):(Base‘𝐷)⟶(Base‘𝐸))
6261, 41ffvelcdmd 7087 . . 3 (𝜑 → ((1st𝑀)‘((1st𝑁)‘𝑋)) ∈ (Base‘𝐸))
635, 56nat1st2nd 18036 . . . 4 (𝜑𝑈 ∈ (⟨(1st𝐾), (2nd𝐾)⟩(𝐷 Nat 𝐸)⟨(1st𝑀), (2nd𝑀)⟩))
645, 63, 11, 2, 41natcl 18038 . . 3 (𝜑 → (𝑈‘((1st𝑁)‘𝑋)) ∈ (((1st𝐾)‘((1st𝑁)‘𝑋))(Hom ‘𝐸)((1st𝑀)‘((1st𝑁)‘𝑋))))
651, 2, 3, 10, 23, 31, 42, 54, 55, 62, 64catass 17767 . 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 17767 . . 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 7439 . 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 2804 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
This proof depends on syntax axioms:  wi 4  wa 401   = wceq 1570  wcel 2146  cop 4600  cfv 6543  (class class class)co 7423  1st c1st 7993  2nd c2nd 7994  Basecbs 17294  Hom chom 17346  compcco 17347   Func cfunc 17936   Nat cnat 18026
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5561  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-ov 7426  df-oprab 7427  df-mpo 7428  df-1st 7995  df-2nd 7996  df-map 8835  df-ixp 8905  df-cat 17749  df-func 17940  df-nat 18028
This theorem is used by:  fucocolem3  50174  fucoco  50176
  Copyright terms: Public domain W3C validator