Theorem fuco22natlem2 50395

Description: Lemma for fuco22nat 50398. The commutative square of natural transformation 𝐵 in category 𝐸, combined with the commutative square of fuco22natlem1 50394. (Contributed by Zhi Wang, 30-Sep-2025.)

Hypotheses

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

Assertion

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

Proof of Theorem fuco22natlem2

Step	Hyp	Ref	Expression
1		eqid 2761	. . 3 ⊢ (Base‘𝐸) = (Base‘𝐸)
2		eqid 2761	. . 3 ⊢ (Hom ‘𝐸) = (Hom ‘𝐸)
3		eqid 2761	. . 3 ⊢ (comp‘𝐸) = (comp‘𝐸)
4		eqid 2761	. . . . 5 ⊢ (𝐷 Nat 𝐸) = (𝐷 Nat 𝐸)
5		fuco22natlem2.b	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ (⟨𝐾, 𝐿⟩(𝐷 Nat 𝐸)⟨𝑅, 𝑆⟩))
6	4, 5	natrcl2 50276	. . . 4 ⊢ (𝜑 → 𝐾(𝐷 Func 𝐸)𝐿)
7	6	funcrcl3 50132	. . 3 ⊢ (𝜑 → 𝐸 ∈ Cat)
8		eqid 2761	. . . . 5 ⊢ (Base‘𝐷) = (Base‘𝐷)
9	8, 1, 6	funcf1 18021	. . . 4 ⊢ (𝜑 → 𝐾:(Base‘𝐷)⟶(Base‘𝐸))
10		eqid 2761	. . . . . 6 ⊢ (Base‘𝐶) = (Base‘𝐶)
11		eqid 2761	. . . . . . 7 ⊢ (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷)
12		fuco22natlem1.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩(𝐶 Nat 𝐷)⟨𝑀, 𝑁⟩))
13	11, 12	natrcl2 50276	. . . . . 6 ⊢ (𝜑 → 𝐹(𝐶 Func 𝐷)𝐺)
14	10, 8, 13	funcf1 18021	. . . . 5 ⊢ (𝜑 → 𝐹:(Base‘𝐶)⟶(Base‘𝐷))
15		fuco22natlem1.x	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ (Base‘𝐶))
16	14, 15	ffvelcdmd 7077	. . . 4 ⊢ (𝜑 → (𝐹‘𝑋) ∈ (Base‘𝐷))
17	9, 16	ffvelcdmd 7077	. . 3 ⊢ (𝜑 → (𝐾‘(𝐹‘𝑋)) ∈ (Base‘𝐸))
18		fuco22natlem1.y	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ (Base‘𝐶))
19	14, 18	ffvelcdmd 7077	. . . 4 ⊢ (𝜑 → (𝐹‘𝑌) ∈ (Base‘𝐷))
20	9, 19	ffvelcdmd 7077	. . 3 ⊢ (𝜑 → (𝐾‘(𝐹‘𝑌)) ∈ (Base‘𝐸))
21	11, 12	natrcl3 50277	. . . . . 6 ⊢ (𝜑 → 𝑀(𝐶 Func 𝐷)𝑁)
22	10, 8, 21	funcf1 18021	. . . . 5 ⊢ (𝜑 → 𝑀:(Base‘𝐶)⟶(Base‘𝐷))
23	22, 18	ffvelcdmd 7077	. . . 4 ⊢ (𝜑 → (𝑀‘𝑌) ∈ (Base‘𝐷))
24	9, 23	ffvelcdmd 7077	. . 3 ⊢ (𝜑 → (𝐾‘(𝑀‘𝑌)) ∈ (Base‘𝐸))
25		eqid 2761	. . . . 5 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
26	8, 25, 2, 6, 16, 19	funcf2 18023	. . . 4 ⊢ (𝜑 → ((𝐹‘𝑋)𝐿(𝐹‘𝑌)):((𝐹‘𝑋)(Hom ‘𝐷)(𝐹‘𝑌))⟶((𝐾‘(𝐹‘𝑋))(Hom ‘𝐸)(𝐾‘(𝐹‘𝑌))))
27		eqid 2761	. . . . . 6 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
28	10, 27, 25, 13, 15, 18	funcf2 18023	. . . . 5 ⊢ (𝜑 → (𝑋𝐺𝑌):(𝑋(Hom ‘𝐶)𝑌)⟶((𝐹‘𝑋)(Hom ‘𝐷)(𝐹‘𝑌)))
29		fuco22natlem1.h	. . . . 5 ⊢ (𝜑 → 𝐻 ∈ (𝑋(Hom ‘𝐶)𝑌))
30	28, 29	ffvelcdmd 7077	. . . 4 ⊢ (𝜑 → ((𝑋𝐺𝑌)‘𝐻) ∈ ((𝐹‘𝑋)(Hom ‘𝐷)(𝐹‘𝑌)))
31	26, 30	ffvelcdmd 7077	. . 3 ⊢ (𝜑 → (((𝐹‘𝑋)𝐿(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝐻)) ∈ ((𝐾‘(𝐹‘𝑋))(Hom ‘𝐸)(𝐾‘(𝐹‘𝑌))))
32	8, 25, 2, 6, 19, 23	funcf2 18023	. . . 4 ⊢ (𝜑 → ((𝐹‘𝑌)𝐿(𝑀‘𝑌)):((𝐹‘𝑌)(Hom ‘𝐷)(𝑀‘𝑌))⟶((𝐾‘(𝐹‘𝑌))(Hom ‘𝐸)(𝐾‘(𝑀‘𝑌))))
33	11, 12, 10, 25, 18	natcl 18111	. . . 4 ⊢ (𝜑 → (𝐴‘𝑌) ∈ ((𝐹‘𝑌)(Hom ‘𝐷)(𝑀‘𝑌)))
34	32, 33	ffvelcdmd 7077	. . 3 ⊢ (𝜑 → (((𝐹‘𝑌)𝐿(𝑀‘𝑌))‘(𝐴‘𝑌)) ∈ ((𝐾‘(𝐹‘𝑌))(Hom ‘𝐸)(𝐾‘(𝑀‘𝑌))))
35	4, 5	natrcl3 50277	. . . . 5 ⊢ (𝜑 → 𝑅(𝐷 Func 𝐸)𝑆)
36	8, 1, 35	funcf1 18021	. . . 4 ⊢ (𝜑 → 𝑅:(Base‘𝐷)⟶(Base‘𝐸))
37	36, 23	ffvelcdmd 7077	. . 3 ⊢ (𝜑 → (𝑅‘(𝑀‘𝑌)) ∈ (Base‘𝐸))
38	4, 5, 8, 2, 23	natcl 18111	. . 3 ⊢ (𝜑 → (𝐵‘(𝑀‘𝑌)) ∈ ((𝐾‘(𝑀‘𝑌))(Hom ‘𝐸)(𝑅‘(𝑀‘𝑌))))
39	1, 2, 3, 7, 17, 20, 24, 31, 34, 37, 38	catass 17840	. 2 ⊢ (𝜑 → (((𝐵‘(𝑀‘𝑌))(⟨(𝐾‘(𝐹‘𝑌)), (𝐾‘(𝑀‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝐹‘𝑌)𝐿(𝑀‘𝑌))‘(𝐴‘𝑌)))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝐹‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝐻))) = ((𝐵‘(𝑀‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))((((𝐹‘𝑌)𝐿(𝑀‘𝑌))‘(𝐴‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝐹‘𝑌))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝐻)))))
40	15, 18, 12, 29, 6	fuco22natlem1 50394	. . 3 ⊢ (𝜑 → ((((𝐹‘𝑌)𝐿(𝑀‘𝑌))‘(𝐴‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝐹‘𝑌))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝐻))) = ((((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋))))
41	40	oveq2d 7428	. 2 ⊢ (𝜑 → ((𝐵‘(𝑀‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))((((𝐹‘𝑌)𝐿(𝑀‘𝑌))‘(𝐴‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝐹‘𝑌))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝐻)))) = ((𝐵‘(𝑀‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))((((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋)))))
42	22, 15	ffvelcdmd 7077	. . . . 5 ⊢ (𝜑 → (𝑀‘𝑋) ∈ (Base‘𝐷))
43	10, 27, 25, 21, 15, 18	funcf2 18023	. . . . . 6 ⊢ (𝜑 → (𝑋𝑁𝑌):(𝑋(Hom ‘𝐶)𝑌)⟶((𝑀‘𝑋)(Hom ‘𝐷)(𝑀‘𝑌)))
44	43, 29	ffvelcdmd 7077	. . . . 5 ⊢ (𝜑 → ((𝑋𝑁𝑌)‘𝐻) ∈ ((𝑀‘𝑋)(Hom ‘𝐷)(𝑀‘𝑌)))
45	4, 5, 8, 25, 3, 42, 23, 44	nati 18113	. . . 4 ⊢ (𝜑 → ((𝐵‘(𝑀‘𝑌))(⟨(𝐾‘(𝑀‘𝑋)), (𝐾‘(𝑀‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))) = ((((𝑀‘𝑋)𝑆(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝑀‘𝑋)), (𝑅‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(𝐵‘(𝑀‘𝑋))))
46	45	oveq1d 7427	. . 3 ⊢ (𝜑 → (((𝐵‘(𝑀‘𝑌))(⟨(𝐾‘(𝑀‘𝑋)), (𝐾‘(𝑀‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻)))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋))) = (((((𝑀‘𝑋)𝑆(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝑀‘𝑋)), (𝑅‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(𝐵‘(𝑀‘𝑋)))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋))))
47	9, 42	ffvelcdmd 7077	. . . 4 ⊢ (𝜑 → (𝐾‘(𝑀‘𝑋)) ∈ (Base‘𝐸))
48	8, 25, 2, 6, 16, 42	funcf2 18023	. . . . 5 ⊢ (𝜑 → ((𝐹‘𝑋)𝐿(𝑀‘𝑋)):((𝐹‘𝑋)(Hom ‘𝐷)(𝑀‘𝑋))⟶((𝐾‘(𝐹‘𝑋))(Hom ‘𝐸)(𝐾‘(𝑀‘𝑋))))
49	11, 12, 10, 25, 15	natcl 18111	. . . . 5 ⊢ (𝜑 → (𝐴‘𝑋) ∈ ((𝐹‘𝑋)(Hom ‘𝐷)(𝑀‘𝑋)))
50	48, 49	ffvelcdmd 7077	. . . 4 ⊢ (𝜑 → (((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋)) ∈ ((𝐾‘(𝐹‘𝑋))(Hom ‘𝐸)(𝐾‘(𝑀‘𝑋))))
51	8, 25, 2, 6, 42, 23	funcf2 18023	. . . . 5 ⊢ (𝜑 → ((𝑀‘𝑋)𝐿(𝑀‘𝑌)):((𝑀‘𝑋)(Hom ‘𝐷)(𝑀‘𝑌))⟶((𝐾‘(𝑀‘𝑋))(Hom ‘𝐸)(𝐾‘(𝑀‘𝑌))))
52	51, 44	ffvelcdmd 7077	. . . 4 ⊢ (𝜑 → (((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻)) ∈ ((𝐾‘(𝑀‘𝑋))(Hom ‘𝐸)(𝐾‘(𝑀‘𝑌))))
53	1, 2, 3, 7, 17, 47, 24, 50, 52, 37, 38	catass 17840	. . 3 ⊢ (𝜑 → (((𝐵‘(𝑀‘𝑌))(⟨(𝐾‘(𝑀‘𝑋)), (𝐾‘(𝑀‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻)))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋))) = ((𝐵‘(𝑀‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))((((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋)))))
54	36, 42	ffvelcdmd 7077	. . . 4 ⊢ (𝜑 → (𝑅‘(𝑀‘𝑋)) ∈ (Base‘𝐸))
55	4, 5, 8, 2, 42	natcl 18111	. . . 4 ⊢ (𝜑 → (𝐵‘(𝑀‘𝑋)) ∈ ((𝐾‘(𝑀‘𝑋))(Hom ‘𝐸)(𝑅‘(𝑀‘𝑋))))
56	8, 25, 2, 35, 42, 23	funcf2 18023	. . . . 5 ⊢ (𝜑 → ((𝑀‘𝑋)𝑆(𝑀‘𝑌)):((𝑀‘𝑋)(Hom ‘𝐷)(𝑀‘𝑌))⟶((𝑅‘(𝑀‘𝑋))(Hom ‘𝐸)(𝑅‘(𝑀‘𝑌))))
57	56, 44	ffvelcdmd 7077	. . . 4 ⊢ (𝜑 → (((𝑀‘𝑋)𝑆(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻)) ∈ ((𝑅‘(𝑀‘𝑋))(Hom ‘𝐸)(𝑅‘(𝑀‘𝑌))))
58	1, 2, 3, 7, 17, 47, 54, 50, 55, 37, 57	catass 17840	. . 3 ⊢ (𝜑 → (((((𝑀‘𝑋)𝑆(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝑀‘𝑋)), (𝑅‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(𝐵‘(𝑀‘𝑋)))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋))) = ((((𝑀‘𝑋)𝑆(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝐹‘𝑋)), (𝑅‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))((𝐵‘(𝑀‘𝑋))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑋)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋)))))
59	46, 53, 58	3eqtr3d 2804	. 2 ⊢ (𝜑 → ((𝐵‘(𝑀‘𝑌))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))((((𝑀‘𝑋)𝐿(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝐾‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋)))) = ((((𝑀‘𝑋)𝑆(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝐹‘𝑋)), (𝑅‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))((𝐵‘(𝑀‘𝑋))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑋)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋)))))
60	39, 41, 59	3eqtrd 2800	1 ⊢ (𝜑 → (((𝐵‘(𝑀‘𝑌))(⟨(𝐾‘(𝐹‘𝑌)), (𝐾‘(𝑀‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝐹‘𝑌)𝐿(𝑀‘𝑌))‘(𝐴‘𝑌)))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝐹‘𝑌))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))(((𝐹‘𝑋)𝐿(𝐹‘𝑌))‘((𝑋𝐺𝑌)‘𝐻))) = ((((𝑀‘𝑋)𝑆(𝑀‘𝑌))‘((𝑋𝑁𝑌)‘𝐻))(⟨(𝐾‘(𝐹‘𝑋)), (𝑅‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑌)))((𝐵‘(𝑀‘𝑋))(⟨(𝐾‘(𝐹‘𝑋)), (𝐾‘(𝑀‘𝑋))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑋)))(((𝐹‘𝑋)𝐿(𝑀‘𝑋))‘(𝐴‘𝑋)))))

This proof depends on syntax axioms:   → wi 4   = wceq 1570   ∈ wcel 2145  ⟨cop 4590  ‘cfv 6531  (class class class)co 7412  Basecbs 17367  Hom chom 17419  compcco 17420   Nat cnat 18099

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 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7740

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 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-iota 6487  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-ov 7415  df-oprab 7416  df-mpo 7417  df-1st 7990  df-2nd 7991  df-map 8833  df-ixp 8910  df-cat 17822  df-func 18013  df-nat 18101

This theorem is used by:  fuco22natlem3  50396