Theorem fuco22natlem 49817

Description: The composed natural transformation is a natural transformation. Use fuco22nat 49818 instead. (New usage is discouraged.) (Contributed by Zhi Wang, 30-Sep-2025.)

Hypotheses

Ref	Expression
fuco22natlem.o	⊢ (𝜑 → (⟨𝐶, 𝐷⟩ ∘F 𝐸) = ⟨𝑂, 𝑃⟩)
fuco22natlem.a	⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩(𝐶 Nat 𝐷)⟨𝑀, 𝑁⟩))
fuco22natlem.b	⊢ (𝜑 → 𝐵 ∈ (⟨𝐾, 𝐿⟩(𝐷 Nat 𝐸)⟨𝑅, 𝑆⟩))
fuco22natlem.u	⊢ (𝜑 → 𝑈 = ⟨⟨𝐾, 𝐿⟩, ⟨𝐹, 𝐺⟩⟩)
fuco22natlem.v	⊢ (𝜑 → 𝑉 = ⟨⟨𝑅, 𝑆⟩, ⟨𝑀, 𝑁⟩⟩)

Assertion

Ref	Expression
fuco22natlem	⊢ (𝜑 → (𝐵(𝑈𝑃𝑉)𝐴) ∈ ((𝑂‘𝑈)(𝐶 Nat 𝐸)(𝑂‘𝑉)))

Proof of Theorem fuco22natlem

Dummy variables ℎ 𝑤 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2737	. . 3 ⊢ (𝐶 Nat 𝐸) = (𝐶 Nat 𝐸)
2		eqid 2737	. . 3 ⊢ (Base‘𝐶) = (Base‘𝐶)
3		eqid 2737	. . 3 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
4		eqid 2737	. . 3 ⊢ (Hom ‘𝐸) = (Hom ‘𝐸)
5		eqid 2737	. . 3 ⊢ (comp‘𝐸) = (comp‘𝐸)
6		fuco22natlem.o	. . . . . 6 ⊢ (𝜑 → (⟨𝐶, 𝐷⟩ ∘F 𝐸) = ⟨𝑂, 𝑃⟩)
7		eqid 2737	. . . . . . 7 ⊢ (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷)
8		fuco22natlem.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩(𝐶 Nat 𝐷)⟨𝑀, 𝑁⟩))
9	7, 8	natrcl2 49696	. . . . . 6 ⊢ (𝜑 → 𝐹(𝐶 Func 𝐷)𝐺)
10		eqid 2737	. . . . . . 7 ⊢ (𝐷 Nat 𝐸) = (𝐷 Nat 𝐸)
11		fuco22natlem.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ (⟨𝐾, 𝐿⟩(𝐷 Nat 𝐸)⟨𝑅, 𝑆⟩))
12	10, 11	natrcl2 49696	. . . . . 6 ⊢ (𝜑 → 𝐾(𝐷 Func 𝐸)𝐿)
13		fuco22natlem.u	. . . . . 6 ⊢ (𝜑 → 𝑈 = ⟨⟨𝐾, 𝐿⟩, ⟨𝐹, 𝐺⟩⟩)
14	6, 9, 12, 13, 2	fuco11a 49800	. . . . 5 ⊢ (𝜑 → (𝑂‘𝑈) = ⟨(𝐾 ∘ 𝐹), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))⟩)
15	6, 9, 12, 13	fuco11cl 49799	. . . . 5 ⊢ (𝜑 → (𝑂‘𝑈) ∈ (𝐶 Func 𝐸))
16	14, 15	eqeltrrd 2838	. . . 4 ⊢ (𝜑 → ⟨(𝐾 ∘ 𝐹), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))⟩ ∈ (𝐶 Func 𝐸))
17		df-br 5087	. . . 4 ⊢ ((𝐾 ∘ 𝐹)(𝐶 Func 𝐸)(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤))) ↔ ⟨(𝐾 ∘ 𝐹), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))⟩ ∈ (𝐶 Func 𝐸))
18	16, 17	sylibr 234	. . 3 ⊢ (𝜑 → (𝐾 ∘ 𝐹)(𝐶 Func 𝐸)(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤))))
19	7, 8	natrcl3 49697	. . . . . 6 ⊢ (𝜑 → 𝑀(𝐶 Func 𝐷)𝑁)
20	10, 11	natrcl3 49697	. . . . . 6 ⊢ (𝜑 → 𝑅(𝐷 Func 𝐸)𝑆)
21		fuco22natlem.v	. . . . . 6 ⊢ (𝜑 → 𝑉 = ⟨⟨𝑅, 𝑆⟩, ⟨𝑀, 𝑁⟩⟩)
22	6, 19, 20, 21, 2	fuco11a 49800	. . . . 5 ⊢ (𝜑 → (𝑂‘𝑉) = ⟨(𝑅 ∘ 𝑀), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))⟩)
23	6, 19, 20, 21	fuco11cl 49799	. . . . 5 ⊢ (𝜑 → (𝑂‘𝑉) ∈ (𝐶 Func 𝐸))
24	22, 23	eqeltrrd 2838	. . . 4 ⊢ (𝜑 → ⟨(𝑅 ∘ 𝑀), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))⟩ ∈ (𝐶 Func 𝐸))
25		df-br 5087	. . . 4 ⊢ ((𝑅 ∘ 𝑀)(𝐶 Func 𝐸)(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤))) ↔ ⟨(𝑅 ∘ 𝑀), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))⟩ ∈ (𝐶 Func 𝐸))
26	24, 25	sylibr 234	. . 3 ⊢ (𝜑 → (𝑅 ∘ 𝑀)(𝐶 Func 𝐸)(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤))))
27	6, 13, 21, 8, 11	fucofn22 49812	. . 3 ⊢ (𝜑 → (𝐵(𝑈𝑃𝑉)𝐴) Fn (Base‘𝐶))
28		eqid 2737	. . . . 5 ⊢ (Base‘𝐸) = (Base‘𝐸)
29	12	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐾(𝐷 Func 𝐸)𝐿)
30	29	funcrcl3 49552	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐸 ∈ Cat)
31		eqid 2737	. . . . . . 7 ⊢ (Base‘𝐷) = (Base‘𝐷)
32	31, 28, 29	funcf1 17822	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐾:(Base‘𝐷)⟶(Base‘𝐸))
33	9	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐹(𝐶 Func 𝐷)𝐺)
34	2, 31, 33	funcf1 17822	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐹:(Base‘𝐶)⟶(Base‘𝐷))
35		simpr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
36	34, 35	ffvelcdmd 7029	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐹‘𝑥) ∈ (Base‘𝐷))
37	32, 36	ffvelcdmd 7029	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐾‘(𝐹‘𝑥)) ∈ (Base‘𝐸))
38	19	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑀(𝐶 Func 𝐷)𝑁)
39	2, 31, 38	funcf1 17822	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑀:(Base‘𝐶)⟶(Base‘𝐷))
40	39, 35	ffvelcdmd 7029	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑀‘𝑥) ∈ (Base‘𝐷))
41	32, 40	ffvelcdmd 7029	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐾‘(𝑀‘𝑥)) ∈ (Base‘𝐸))
42	20	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑅(𝐷 Func 𝐸)𝑆)
43	31, 28, 42	funcf1 17822	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑅:(Base‘𝐷)⟶(Base‘𝐸))
44	43, 40	ffvelcdmd 7029	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑅‘(𝑀‘𝑥)) ∈ (Base‘𝐸))
45		eqid 2737	. . . . . . 7 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
46	31, 45, 4, 29, 36, 40	funcf2 17824	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝐹‘𝑥)𝐿(𝑀‘𝑥)):((𝐹‘𝑥)(Hom ‘𝐷)(𝑀‘𝑥))⟶((𝐾‘(𝐹‘𝑥))(Hom ‘𝐸)(𝐾‘(𝑀‘𝑥))))
47	8	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐴 ∈ (⟨𝐹, 𝐺⟩(𝐶 Nat 𝐷)⟨𝑀, 𝑁⟩))
48	7, 47, 2, 45, 35	natcl 17912	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐴‘𝑥) ∈ ((𝐹‘𝑥)(Hom ‘𝐷)(𝑀‘𝑥)))
49	46, 48	ffvelcdmd 7029	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (((𝐹‘𝑥)𝐿(𝑀‘𝑥))‘(𝐴‘𝑥)) ∈ ((𝐾‘(𝐹‘𝑥))(Hom ‘𝐸)(𝐾‘(𝑀‘𝑥))))
50	11	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐵 ∈ (⟨𝐾, 𝐿⟩(𝐷 Nat 𝐸)⟨𝑅, 𝑆⟩))
51	2, 31, 19	funcf1 17822	. . . . . . 7 ⊢ (𝜑 → 𝑀:(Base‘𝐶)⟶(Base‘𝐷))
52	51	ffvelcdmda 7028	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑀‘𝑥) ∈ (Base‘𝐷))
53	10, 50, 31, 4, 52	natcl 17912	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐵‘(𝑀‘𝑥)) ∈ ((𝐾‘(𝑀‘𝑥))(Hom ‘𝐸)(𝑅‘(𝑀‘𝑥))))
54	28, 4, 5, 30, 37, 41, 44, 49, 53	catcocl 17640	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝐵‘(𝑀‘𝑥))(⟨(𝐾‘(𝐹‘𝑥)), (𝐾‘(𝑀‘𝑥))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑥)))(((𝐹‘𝑥)𝐿(𝑀‘𝑥))‘(𝐴‘𝑥))) ∈ ((𝐾‘(𝐹‘𝑥))(Hom ‘𝐸)(𝑅‘(𝑀‘𝑥))))
55	6	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (⟨𝐶, 𝐷⟩ ∘F 𝐸) = ⟨𝑂, 𝑃⟩)
56	13	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑈 = ⟨⟨𝐾, 𝐿⟩, ⟨𝐹, 𝐺⟩⟩)
57	21	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑉 = ⟨⟨𝑅, 𝑆⟩, ⟨𝑀, 𝑁⟩⟩)
58		eqidd 2738	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (⟨(𝐾‘(𝐹‘𝑥)), (𝐾‘(𝑀‘𝑥))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑥))) = (⟨(𝐾‘(𝐹‘𝑥)), (𝐾‘(𝑀‘𝑥))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑥))))
59	55, 56, 57, 47, 50, 35, 58	fuco23 49813	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥) = ((𝐵‘(𝑀‘𝑥))(⟨(𝐾‘(𝐹‘𝑥)), (𝐾‘(𝑀‘𝑥))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑥)))(((𝐹‘𝑥)𝐿(𝑀‘𝑥))‘(𝐴‘𝑥))))
60	34, 35	fvco3d 6932	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝐾 ∘ 𝐹)‘𝑥) = (𝐾‘(𝐹‘𝑥)))
61	39, 35	fvco3d 6932	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝑅 ∘ 𝑀)‘𝑥) = (𝑅‘(𝑀‘𝑥)))
62	60, 61	oveq12d 7376	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (((𝐾 ∘ 𝐹)‘𝑥)(Hom ‘𝐸)((𝑅 ∘ 𝑀)‘𝑥)) = ((𝐾‘(𝐹‘𝑥))(Hom ‘𝐸)(𝑅‘(𝑀‘𝑥))))
63	54, 59, 62	3eltr4d 2852	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥) ∈ (((𝐾 ∘ 𝐹)‘𝑥)(Hom ‘𝐸)((𝑅 ∘ 𝑀)‘𝑥)))
64		simplrl 777	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑥 ∈ (Base‘𝐶))
65		simplrr 778	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑦 ∈ (Base‘𝐶))
66	8	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐴 ∈ (⟨𝐹, 𝐺⟩(𝐶 Nat 𝐷)⟨𝑀, 𝑁⟩))
67		simpr 484	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ℎ ∈ (𝑥(Hom ‘𝐶)𝑦))
68	11	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐵 ∈ (⟨𝐾, 𝐿⟩(𝐷 Nat 𝐸)⟨𝑅, 𝑆⟩))
69	6	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (⟨𝐶, 𝐷⟩ ∘F 𝐸) = ⟨𝑂, 𝑃⟩)
70	13	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑈 = ⟨⟨𝐾, 𝐿⟩, ⟨𝐹, 𝐺⟩⟩)
71	21	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑉 = ⟨⟨𝑅, 𝑆⟩, ⟨𝑀, 𝑁⟩⟩)
72	64, 65, 66, 67, 68, 69, 70, 71	fuco22natlem3 49816	. . . 4 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((𝐵(𝑈𝑃𝑉)𝐴)‘𝑦)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝐾 ∘ 𝐹)‘𝑦)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦))‘ℎ)) = (((((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦))‘ℎ)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝑅 ∘ 𝑀)‘𝑥)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥)))
73		fveq2 6832	. . . . . . . . . 10 ⊢ (𝑧 = 𝑥 → (𝐹‘𝑧) = (𝐹‘𝑥))
74	73	oveq1d 7373	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → ((𝐹‘𝑧)𝐿(𝐹‘𝑤)) = ((𝐹‘𝑥)𝐿(𝐹‘𝑤)))
75		oveq1 7365	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → (𝑧𝐺𝑤) = (𝑥𝐺𝑤))
76	74, 75	coeq12d 5811	. . . . . . . 8 ⊢ (𝑧 = 𝑥 → (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)) = (((𝐹‘𝑥)𝐿(𝐹‘𝑤)) ∘ (𝑥𝐺𝑤)))
77		fveq2 6832	. . . . . . . . . 10 ⊢ (𝑤 = 𝑦 → (𝐹‘𝑤) = (𝐹‘𝑦))
78	77	oveq2d 7374	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → ((𝐹‘𝑥)𝐿(𝐹‘𝑤)) = ((𝐹‘𝑥)𝐿(𝐹‘𝑦)))
79		oveq2 7366	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → (𝑥𝐺𝑤) = (𝑥𝐺𝑦))
80	78, 79	coeq12d 5811	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → (((𝐹‘𝑥)𝐿(𝐹‘𝑤)) ∘ (𝑥𝐺𝑤)) = (((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦)))
81		eqid 2737	. . . . . . . 8 ⊢ (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤))) = (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))
82		ovex 7391	. . . . . . . . 9 ⊢ ((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∈ V
83		ovex 7391	. . . . . . . . 9 ⊢ (𝑥𝐺𝑦) ∈ V
84	82, 83	coex 7872	. . . . . . . 8 ⊢ (((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦)) ∈ V
85	76, 80, 81, 84	ovmpo 7518	. . . . . . 7 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))𝑦) = (((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦)))
86	85	ad2antlr 728	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))𝑦) = (((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦)))
87	86	fveq1d 6834	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))𝑦)‘ℎ) = ((((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦))‘ℎ))
88	87	oveq2d 7374	. . . 4 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((𝐵(𝑈𝑃𝑉)𝐴)‘𝑦)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝐾 ∘ 𝐹)‘𝑦)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))𝑦)‘ℎ)) = (((𝐵(𝑈𝑃𝑉)𝐴)‘𝑦)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝐾 ∘ 𝐹)‘𝑦)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦))‘ℎ)))
89		fveq2 6832	. . . . . . . . . 10 ⊢ (𝑧 = 𝑥 → (𝑀‘𝑧) = (𝑀‘𝑥))
90	89	oveq1d 7373	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → ((𝑀‘𝑧)𝑆(𝑀‘𝑤)) = ((𝑀‘𝑥)𝑆(𝑀‘𝑤)))
91		oveq1 7365	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → (𝑧𝑁𝑤) = (𝑥𝑁𝑤))
92	90, 91	coeq12d 5811	. . . . . . . 8 ⊢ (𝑧 = 𝑥 → (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)) = (((𝑀‘𝑥)𝑆(𝑀‘𝑤)) ∘ (𝑥𝑁𝑤)))
93		fveq2 6832	. . . . . . . . . 10 ⊢ (𝑤 = 𝑦 → (𝑀‘𝑤) = (𝑀‘𝑦))
94	93	oveq2d 7374	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → ((𝑀‘𝑥)𝑆(𝑀‘𝑤)) = ((𝑀‘𝑥)𝑆(𝑀‘𝑦)))
95		oveq2 7366	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → (𝑥𝑁𝑤) = (𝑥𝑁𝑦))
96	94, 95	coeq12d 5811	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → (((𝑀‘𝑥)𝑆(𝑀‘𝑤)) ∘ (𝑥𝑁𝑤)) = (((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦)))
97		eqid 2737	. . . . . . . 8 ⊢ (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤))) = (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))
98		ovex 7391	. . . . . . . . 9 ⊢ ((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∈ V
99		ovex 7391	. . . . . . . . 9 ⊢ (𝑥𝑁𝑦) ∈ V
100	98, 99	coex 7872	. . . . . . . 8 ⊢ (((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦)) ∈ V
101	92, 96, 97, 100	ovmpo 7518	. . . . . . 7 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))𝑦) = (((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦)))
102	101	ad2antlr 728	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))𝑦) = (((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦)))
103	102	fveq1d 6834	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))𝑦)‘ℎ) = ((((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦))‘ℎ))
104	103	oveq1d 7373	. . . 4 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))𝑦)‘ℎ)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝑅 ∘ 𝑀)‘𝑥)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥)) = (((((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦))‘ℎ)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝑅 ∘ 𝑀)‘𝑥)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥)))
105	72, 88, 104	3eqtr4d 2782	. . 3 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((𝐵(𝑈𝑃𝑉)𝐴)‘𝑦)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝐾 ∘ 𝐹)‘𝑦)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))𝑦)‘ℎ)) = (((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))𝑦)‘ℎ)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝑅 ∘ 𝑀)‘𝑥)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥)))
106	1, 2, 3, 4, 5, 18, 26, 27, 63, 105	isnatd 49695	. 2 ⊢ (𝜑 → (𝐵(𝑈𝑃𝑉)𝐴) ∈ (⟨(𝐾 ∘ 𝐹), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))⟩(𝐶 Nat 𝐸)⟨(𝑅 ∘ 𝑀), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))⟩))
107	14, 22	oveq12d 7376	. 2 ⊢ (𝜑 → ((𝑂‘𝑈)(𝐶 Nat 𝐸)(𝑂‘𝑉)) = (⟨(𝐾 ∘ 𝐹), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))⟩(𝐶 Nat 𝐸)⟨(𝑅 ∘ 𝑀), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))⟩))
108	106, 107	eleqtrrd 2840	1 ⊢ (𝜑 → (𝐵(𝑈𝑃𝑉)𝐴) ∈ ((𝑂‘𝑈)(𝐶 Nat 𝐸)(𝑂‘𝑉)))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114  ⟨cop 4574   class class class wbr 5086   ∘ ccom 5626  ‘cfv 6490  (class class class)co 7358   ∈ cmpo 7360  Basecbs 17168  Hom chom 17220  compcco 17221   Func cfunc 17810   Nat cnat 17900   ∘_F cfuco 49788

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5300  ax-pr 5368  ax-un 7680

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5517  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-1st 7933  df-2nd 7934  df-map 8766  df-ixp 8837  df-cat 17623  df-cid 17624  df-func 17814  df-cofu 17816  df-nat 17902  df-fuco 49789

This theorem is referenced by:  fuco22nat  49818