Theorem fuco22natlem1 49237

Description: Lemma for fuco22nat 49241. The commutative square of natural transformation 𝐴 in category 𝐷, mapped to category 𝐸 by the morphism part 𝐿 of the functor. (Contributed by Zhi Wang, 30-Sep-2025.)

Hypotheses

Ref	Expression
fuco22natlem1.x	⊢ (𝜑 → 𝑋 ∈ (Base‘𝐶))
fuco22natlem1.y	⊢ (𝜑 → 𝑌 ∈ (Base‘𝐶))
fuco22natlem1.a	⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩(𝐶 Nat 𝐷)⟨𝑀, 𝑁⟩))
fuco22natlem1.h	⊢ (𝜑 → 𝐻 ∈ (𝑋(Hom ‘𝐶)𝑌))
fuco22natlem1.k	⊢ (𝜑 → 𝐾(𝐷 Func 𝐸)𝐿)

Assertion

Ref	Expression
fuco22natlem1	⊢ (𝜑 → ((((𝐹‘𝑌)𝐿(𝑀‘𝑌))‘(𝐴‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝐹‘𝑌))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝐻))) = ((((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋))))

Proof of Theorem fuco22natlem1

Step	Hyp	Ref	Expression
1		eqid 2730	. . . 4 ⊢ (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷)
2		fuco22natlem1.a	. . . 4 ⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩(𝐶 Nat 𝐷)⟨𝑀, 𝑁⟩))
3		eqid 2730	. . . 4 ⊢ (Base‘𝐶) = (Base‘𝐶)
4		eqid 2730	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
5		eqid 2730	. . . 4 ⊢ (comp‘𝐷) = (comp‘𝐷)
6		fuco22natlem1.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ (Base‘𝐶))
7		fuco22natlem1.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ (Base‘𝐶))
8		fuco22natlem1.h	. . . 4 ⊢ (𝜑 → 𝐻 ∈ (𝑋(Hom ‘𝐶)𝑌))
9	1, 2, 3, 4, 5, 6, 7, 8	nati 17926	. . 3 ⊢ (𝜑 → ((𝐴‘𝑌)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐷)(𝑀‘𝑌))((𝑋𝐺𝑌)‘𝐻)) = (((𝑋𝑁𝑌)‘𝐻)(⟨(𝐹‘𝑋), (𝑀‘𝑋)⟩(comp‘𝐷)(𝑀‘𝑌))(𝐴‘𝑋)))
10	9	fveq2d 6869	. 2 ⊢ (𝜑 → (((𝐹‘𝑋)𝐿(𝑀‘𝑌))‘((𝐴‘𝑌)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐷)(𝑀‘𝑌))((𝑋𝐺𝑌)‘𝐻))) = (((𝐹‘𝑋)𝐿(𝑀‘𝑌))‘(((𝑋𝑁𝑌)‘𝐻)(⟨(𝐹‘𝑋), (𝑀‘𝑋)⟩(comp‘𝐷)(𝑀‘𝑌))(𝐴‘𝑋))))
11		eqid 2730	. . 3 ⊢ (Base‘𝐷) = (Base‘𝐷)
12		eqid 2730	. . 3 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
13		eqid 2730	. . 3 ⊢ (comp‘𝐸) = (comp‘𝐸)
14		fuco22natlem1.k	. . 3 ⊢ (𝜑 → 𝐾(𝐷 Func 𝐸)𝐿)
15	1, 2	natrcl2 49128	. . . . 5 ⊢ (𝜑 → 𝐹(𝐶 Func 𝐷)𝐺)
16	3, 11, 15	funcf1 17834	. . . 4 ⊢ (𝜑 → 𝐹:(Base‘𝐶)⟶(Base‘𝐷))
17	16, 6	ffvelcdmd 7064	. . 3 ⊢ (𝜑 → (𝐹‘𝑋) ∈ (Base‘𝐷))
18	16, 7	ffvelcdmd 7064	. . 3 ⊢ (𝜑 → (𝐹‘𝑌) ∈ (Base‘𝐷))
19	1, 2	natrcl3 49129	. . . . 5 ⊢ (𝜑 → 𝑀(𝐶 Func 𝐷)𝑁)
20	3, 11, 19	funcf1 17834	. . . 4 ⊢ (𝜑 → 𝑀:(Base‘𝐶)⟶(Base‘𝐷))
21	20, 7	ffvelcdmd 7064	. . 3 ⊢ (𝜑 → (𝑀‘𝑌) ∈ (Base‘𝐷))
22	3, 4, 12, 15, 6, 7	funcf2 17836	. . . 4 ⊢ (𝜑 → (𝑋𝐺𝑌):(𝑋(Hom ‘𝐶)𝑌)⟶((𝐹‘𝑋)(Hom ‘𝐷)(𝐹‘𝑌)))
23	22, 8	ffvelcdmd 7064	. . 3 ⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝐻) ∈ ((𝐹‘𝑋)(Hom ‘𝐷)(𝐹‘𝑌)))
24	1, 2, 3, 12, 7	natcl 17924	. . 3 ⊢ (𝜑 → (𝐴‘𝑌) ∈ ((𝐹‘𝑌)(Hom ‘𝐷)(𝑀‘𝑌)))
25	11, 12, 5, 13, 14, 17, 18, 21, 23, 24	funcco 17839	. 2 ⊢ (𝜑 → (((𝐹‘𝑋)𝐿(𝑀‘𝑌))‘((𝐴‘𝑌)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩(comp‘𝐷)(𝑀‘𝑌))((𝑋𝐺𝑌)‘𝐻))) = ((((𝐹‘𝑌)𝐿(𝑀‘𝑌))‘(𝐴‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝐹‘𝑌))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝐻))))
26	20, 6	ffvelcdmd 7064	. . 3 ⊢ (𝜑 → (𝑀‘𝑋) ∈ (Base‘𝐷))
27	1, 2, 3, 12, 6	natcl 17924	. . 3 ⊢ (𝜑 → (𝐴‘𝑋) ∈ ((𝐹‘𝑋)(Hom ‘𝐷)(𝑀‘𝑋)))
28	3, 4, 12, 19, 6, 7	funcf2 17836	. . . 4 ⊢ (𝜑 → (𝑋𝑁𝑌):(𝑋(Hom ‘𝐶)𝑌)⟶((𝑀‘𝑋)(Hom ‘𝐷)(𝑀‘𝑌)))
29	28, 8	ffvelcdmd 7064	. . 3 ⊢ (𝜑 → ((𝑋𝑁𝑌)‘𝐻) ∈ ((𝑀‘𝑋)(Hom ‘𝐷)(𝑀‘𝑌)))
30	11, 12, 5, 13, 14, 17, 26, 21, 27, 29	funcco 17839	. 2 ⊢ (𝜑 → (((𝐹‘𝑋)𝐿(𝑀‘𝑌))‘(((𝑋𝑁𝑌)‘𝐻)(⟨(𝐹‘𝑋), (𝑀‘𝑋)⟩(comp‘𝐷)(𝑀‘𝑌))(𝐴‘𝑋))) = ((((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋))))
31	10, 25, 30	3eqtr3d 2773	1 ⊢ (𝜑 → ((((𝐹‘𝑌)𝐿(𝑀‘𝑌))‘(𝐴‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝐹‘𝑌))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝐻))) = ((((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋))))

Syntax hints:   → wi 4   = wceq 1540   ∈ wcel 2109  ⟨cop 4603   class class class wbr 5115  ‘cfv 6519  (class class class)co 7394  Basecbs 17185  Hom chom 17237  compcco 17238   Func cfunc 17822   Nat cnat 17912

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5242  ax-sep 5259  ax-nul 5269  ax-pow 5328  ax-pr 5395  ax-un 7718

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2880  df-ne 2928  df-ral 3047  df-rex 3056  df-reu 3358  df-rab 3412  df-v 3457  df-sbc 3762  df-csb 3871  df-dif 3925  df-un 3927  df-in 3929  df-ss 3939  df-nul 4305  df-if 4497  df-pw 4573  df-sn 4598  df-pr 4600  df-op 4604  df-uni 4880  df-iun 4965  df-br 5116  df-opab 5178  df-mpt 5197  df-id 5541  df-xp 5652  df-rel 5653  df-cnv 5654  df-co 5655  df-dm 5656  df-rn 5657  df-res 5658  df-ima 5659  df-iota 6472  df-fun 6521  df-fn 6522  df-f 6523  df-f1 6524  df-fo 6525  df-f1o 6526  df-fv 6527  df-ov 7397  df-oprab 7398  df-mpo 7399  df-1st 7977  df-2nd 7978  df-map 8805  df-ixp 8875  df-func 17826  df-nat 17914

This theorem is referenced by:  fuco22natlem2  49238