Theorem fuco22natlem 49919

Description: The composed natural transformation is a natural transformation. Use fuco22nat 49920 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 2761	. . 3 ⊢ (𝐶 Nat 𝐸) = (𝐶 Nat 𝐸)
2		eqid 2761	. . 3 ⊢ (Base‘𝐶) = (Base‘𝐶)
3		eqid 2761	. . 3 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
4		eqid 2761	. . 3 ⊢ (Hom ‘𝐸) = (Hom ‘𝐸)
5		eqid 2761	. . 3 ⊢ (comp‘𝐸) = (comp‘𝐸)
6		fuco22natlem.o	. . . . . 6 ⊢ (𝜑 → (⟨𝐶, 𝐷⟩ ∘F 𝐸) = ⟨𝑂, 𝑃⟩)
7		eqid 2761	. . . . . . 7 ⊢ (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷)
8		fuco22natlem.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩(𝐶 Nat 𝐷)⟨𝑀, 𝑁⟩))
9	7, 8	natrcl2 49798	. . . . . 6 ⊢ (𝜑 → 𝐹(𝐶 Func 𝐷)𝐺)
10		eqid 2761	. . . . . . 7 ⊢ (𝐷 Nat 𝐸) = (𝐷 Nat 𝐸)
11		fuco22natlem.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ (⟨𝐾, 𝐿⟩(𝐷 Nat 𝐸)⟨𝑅, 𝑆⟩))
12	10, 11	natrcl2 49798	. . . . . 6 ⊢ (𝜑 → 𝐾(𝐷 Func 𝐸)𝐿)
13		fuco22natlem.u	. . . . . 6 ⊢ (𝜑 → 𝑈 = ⟨⟨𝐾, 𝐿⟩, ⟨𝐹, 𝐺⟩⟩)
14	6, 9, 12, 13, 2	fuco11a 49902	. . . . 5 ⊢ (𝜑 → (𝑂‘𝑈) = ⟨(𝐾 ∘ 𝐹), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))⟩)
15	6, 9, 12, 13	fuco11cl 49901	. . . . 5 ⊢ (𝜑 → (𝑂‘𝑈) ∈ (𝐶 Func 𝐸))
16	14, 15	eqeltrrd 2862	. . . 4 ⊢ (𝜑 → ⟨(𝐾 ∘ 𝐹), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))⟩ ∈ (𝐶 Func 𝐸))
17		df-br 5100	. . . 4 ⊢ ((𝐾 ∘ 𝐹)(𝐶 Func 𝐸)(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤))) ↔ ⟨(𝐾 ∘ 𝐹), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))⟩ ∈ (𝐶 Func 𝐸))
18	16, 17	sylibr 236	. . 3 ⊢ (𝜑 → (𝐾 ∘ 𝐹)(𝐶 Func 𝐸)(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤))))
19	7, 8	natrcl3 49799	. . . . . 6 ⊢ (𝜑 → 𝑀(𝐶 Func 𝐷)𝑁)
20	10, 11	natrcl3 49799	. . . . . 6 ⊢ (𝜑 → 𝑅(𝐷 Func 𝐸)𝑆)
21		fuco22natlem.v	. . . . . 6 ⊢ (𝜑 → 𝑉 = ⟨⟨𝑅, 𝑆⟩, ⟨𝑀, 𝑁⟩⟩)
22	6, 19, 20, 21, 2	fuco11a 49902	. . . . 5 ⊢ (𝜑 → (𝑂‘𝑉) = ⟨(𝑅 ∘ 𝑀), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))⟩)
23	6, 19, 20, 21	fuco11cl 49901	. . . . 5 ⊢ (𝜑 → (𝑂‘𝑉) ∈ (𝐶 Func 𝐸))
24	22, 23	eqeltrrd 2862	. . . 4 ⊢ (𝜑 → ⟨(𝑅 ∘ 𝑀), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))⟩ ∈ (𝐶 Func 𝐸))
25		df-br 5100	. . . 4 ⊢ ((𝑅 ∘ 𝑀)(𝐶 Func 𝐸)(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤))) ↔ ⟨(𝑅 ∘ 𝑀), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))⟩ ∈ (𝐶 Func 𝐸))
26	24, 25	sylibr 236	. . 3 ⊢ (𝜑 → (𝑅 ∘ 𝑀)(𝐶 Func 𝐸)(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤))))
27	6, 13, 21, 8, 11	fucofn22 49914	. . 3 ⊢ (𝜑 → (𝐵(𝑈𝑃𝑉)𝐴) Fn (Base‘𝐶))
28		eqid 2761	. . . . 5 ⊢ (Base‘𝐸) = (Base‘𝐸)
29	12	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐾(𝐷 Func 𝐸)𝐿)
30	29	funcrcl3 49654	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐸 ∈ Cat)
31		eqid 2761	. . . . . . 7 ⊢ (Base‘𝐷) = (Base‘𝐷)
32	31, 28, 29	funcf1 17880	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐾:(Base‘𝐷)⟶(Base‘𝐸))
33	9	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐹(𝐶 Func 𝐷)𝐺)
34	2, 31, 33	funcf1 17880	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐹:(Base‘𝐶)⟶(Base‘𝐷))
35		simpr 488	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
36	34, 35	ffvelcdmd 7060	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐹‘𝑥) ∈ (Base‘𝐷))
37	32, 36	ffvelcdmd 7060	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐾‘(𝐹‘𝑥)) ∈ (Base‘𝐸))
38	19	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑀(𝐶 Func 𝐷)𝑁)
39	2, 31, 38	funcf1 17880	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑀:(Base‘𝐶)⟶(Base‘𝐷))
40	39, 35	ffvelcdmd 7060	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑀‘𝑥) ∈ (Base‘𝐷))
41	32, 40	ffvelcdmd 7060	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐾‘(𝑀‘𝑥)) ∈ (Base‘𝐸))
42	20	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑅(𝐷 Func 𝐸)𝑆)
43	31, 28, 42	funcf1 17880	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑅:(Base‘𝐷)⟶(Base‘𝐸))
44	43, 40	ffvelcdmd 7060	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑅‘(𝑀‘𝑥)) ∈ (Base‘𝐸))
45		eqid 2761	. . . . . . 7 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
46	31, 45, 4, 29, 36, 40	funcf2 17882	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝐹‘𝑥)𝐿(𝑀‘𝑥)):((𝐹‘𝑥)(Hom ‘𝐷)(𝑀‘𝑥))⟶((𝐾‘(𝐹‘𝑥))(Hom ‘𝐸)(𝐾‘(𝑀‘𝑥))))
47	8	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐴 ∈ (⟨𝐹, 𝐺⟩(𝐶 Nat 𝐷)⟨𝑀, 𝑁⟩))
48	7, 47, 2, 45, 35	natcl 17970	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐴‘𝑥) ∈ ((𝐹‘𝑥)(Hom ‘𝐷)(𝑀‘𝑥)))
49	46, 48	ffvelcdmd 7060	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (((𝐹‘𝑥)𝐿(𝑀‘𝑥))‘(𝐴‘𝑥)) ∈ ((𝐾‘(𝐹‘𝑥))(Hom ‘𝐸)(𝐾‘(𝑀‘𝑥))))
50	11	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐵 ∈ (⟨𝐾, 𝐿⟩(𝐷 Nat 𝐸)⟨𝑅, 𝑆⟩))
51	2, 31, 19	funcf1 17880	. . . . . . 7 ⊢ (𝜑 → 𝑀:(Base‘𝐶)⟶(Base‘𝐷))
52	51	ffvelcdmda 7059	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑀‘𝑥) ∈ (Base‘𝐷))
53	10, 50, 31, 4, 52	natcl 17970	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐵‘(𝑀‘𝑥)) ∈ ((𝐾‘(𝑀‘𝑥))(Hom ‘𝐸)(𝑅‘(𝑀‘𝑥))))
54	28, 4, 5, 30, 37, 41, 44, 49, 53	catcocl 17698	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝐵‘(𝑀‘𝑥))(⟨(𝐾‘(𝐹‘𝑥)), (𝐾‘(𝑀‘𝑥))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑥)))(((𝐹‘𝑥)𝐿(𝑀‘𝑥))‘(𝐴‘𝑥))) ∈ ((𝐾‘(𝐹‘𝑥))(Hom ‘𝐸)(𝑅‘(𝑀‘𝑥))))
55	6	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (⟨𝐶, 𝐷⟩ ∘F 𝐸) = ⟨𝑂, 𝑃⟩)
56	13	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑈 = ⟨⟨𝐾, 𝐿⟩, ⟨𝐹, 𝐺⟩⟩)
57	21	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑉 = ⟨⟨𝑅, 𝑆⟩, ⟨𝑀, 𝑁⟩⟩)
58		eqidd 2762	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (⟨(𝐾‘(𝐹‘𝑥)), (𝐾‘(𝑀‘𝑥))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑥))) = (⟨(𝐾‘(𝐹‘𝑥)), (𝐾‘(𝑀‘𝑥))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑥))))
59	55, 56, 57, 47, 50, 35, 58	fuco23 49915	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥) = ((𝐵‘(𝑀‘𝑥))(⟨(𝐾‘(𝐹‘𝑥)), (𝐾‘(𝑀‘𝑥))⟩(comp‘𝐸)(𝑅‘(𝑀‘𝑥)))(((𝐹‘𝑥)𝐿(𝑀‘𝑥))‘(𝐴‘𝑥))))
60	34, 35	fvco3d 6962	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝐾 ∘ 𝐹)‘𝑥) = (𝐾‘(𝐹‘𝑥)))
61	39, 35	fvco3d 6962	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝑅 ∘ 𝑀)‘𝑥) = (𝑅‘(𝑀‘𝑥)))
62	60, 61	oveq12d 7408	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (((𝐾 ∘ 𝐹)‘𝑥)(Hom ‘𝐸)((𝑅 ∘ 𝑀)‘𝑥)) = ((𝐾‘(𝐹‘𝑥))(Hom ‘𝐸)(𝑅‘(𝑀‘𝑥))))
63	54, 59, 62	3eltr4d 2876	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥) ∈ (((𝐾 ∘ 𝐹)‘𝑥)(Hom ‘𝐸)((𝑅 ∘ 𝑀)‘𝑥)))
64		simplrl 786	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑥 ∈ (Base‘𝐶))
65		simplrr 787	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑦 ∈ (Base‘𝐶))
66	8	ad2antrr 736	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐴 ∈ (⟨𝐹, 𝐺⟩(𝐶 Nat 𝐷)⟨𝑀, 𝑁⟩))
67		simpr 488	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ℎ ∈ (𝑥(Hom ‘𝐶)𝑦))
68	11	ad2antrr 736	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐵 ∈ (⟨𝐾, 𝐿⟩(𝐷 Nat 𝐸)⟨𝑅, 𝑆⟩))
69	6	ad2antrr 736	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (⟨𝐶, 𝐷⟩ ∘F 𝐸) = ⟨𝑂, 𝑃⟩)
70	13	ad2antrr 736	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑈 = ⟨⟨𝐾, 𝐿⟩, ⟨𝐹, 𝐺⟩⟩)
71	21	ad2antrr 736	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑉 = ⟨⟨𝑅, 𝑆⟩, ⟨𝑀, 𝑁⟩⟩)
72	64, 65, 66, 67, 68, 69, 70, 71	fuco22natlem3 49918	. . . 4 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((𝐵(𝑈𝑃𝑉)𝐴)‘𝑦)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝐾 ∘ 𝐹)‘𝑦)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦))‘ℎ)) = (((((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦))‘ℎ)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝑅 ∘ 𝑀)‘𝑥)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥)))
73		fveq2 6861	. . . . . . . . . 10 ⊢ (𝑧 = 𝑥 → (𝐹‘𝑧) = (𝐹‘𝑥))
74	73	oveq1d 7405	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → ((𝐹‘𝑧)𝐿(𝐹‘𝑤)) = ((𝐹‘𝑥)𝐿(𝐹‘𝑤)))
75		oveq1 7397	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → (𝑧𝐺𝑤) = (𝑥𝐺𝑤))
76	74, 75	coeq12d 5834	. . . . . . . 8 ⊢ (𝑧 = 𝑥 → (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)) = (((𝐹‘𝑥)𝐿(𝐹‘𝑤)) ∘ (𝑥𝐺𝑤)))
77		fveq2 6861	. . . . . . . . . 10 ⊢ (𝑤 = 𝑦 → (𝐹‘𝑤) = (𝐹‘𝑦))
78	77	oveq2d 7406	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → ((𝐹‘𝑥)𝐿(𝐹‘𝑤)) = ((𝐹‘𝑥)𝐿(𝐹‘𝑦)))
79		oveq2 7398	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → (𝑥𝐺𝑤) = (𝑥𝐺𝑦))
80	78, 79	coeq12d 5834	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → (((𝐹‘𝑥)𝐿(𝐹‘𝑤)) ∘ (𝑥𝐺𝑤)) = (((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦)))
81		eqid 2761	. . . . . . . 8 ⊢ (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤))) = (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))
82		ovex 7423	. . . . . . . . 9 ⊢ ((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∈ V
83		ovex 7423	. . . . . . . . 9 ⊢ (𝑥𝐺𝑦) ∈ V
84	82, 83	coex 7905	. . . . . . . 8 ⊢ (((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦)) ∈ V
85	76, 80, 81, 84	ovmpo 7550	. . . . . . 7 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))𝑦) = (((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦)))
86	85	ad2antlr 737	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))𝑦) = (((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦)))
87	86	fveq1d 6863	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))𝑦)‘ℎ) = ((((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦))‘ℎ))
88	87	oveq2d 7406	. . . 4 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((𝐵(𝑈𝑃𝑉)𝐴)‘𝑦)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝐾 ∘ 𝐹)‘𝑦)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))𝑦)‘ℎ)) = (((𝐵(𝑈𝑃𝑉)𝐴)‘𝑦)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝐾 ∘ 𝐹)‘𝑦)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((((𝐹‘𝑥)𝐿(𝐹‘𝑦)) ∘ (𝑥𝐺𝑦))‘ℎ)))
89		fveq2 6861	. . . . . . . . . 10 ⊢ (𝑧 = 𝑥 → (𝑀‘𝑧) = (𝑀‘𝑥))
90	89	oveq1d 7405	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → ((𝑀‘𝑧)𝑆(𝑀‘𝑤)) = ((𝑀‘𝑥)𝑆(𝑀‘𝑤)))
91		oveq1 7397	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → (𝑧𝑁𝑤) = (𝑥𝑁𝑤))
92	90, 91	coeq12d 5834	. . . . . . . 8 ⊢ (𝑧 = 𝑥 → (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)) = (((𝑀‘𝑥)𝑆(𝑀‘𝑤)) ∘ (𝑥𝑁𝑤)))
93		fveq2 6861	. . . . . . . . . 10 ⊢ (𝑤 = 𝑦 → (𝑀‘𝑤) = (𝑀‘𝑦))
94	93	oveq2d 7406	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → ((𝑀‘𝑥)𝑆(𝑀‘𝑤)) = ((𝑀‘𝑥)𝑆(𝑀‘𝑦)))
95		oveq2 7398	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → (𝑥𝑁𝑤) = (𝑥𝑁𝑦))
96	94, 95	coeq12d 5834	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → (((𝑀‘𝑥)𝑆(𝑀‘𝑤)) ∘ (𝑥𝑁𝑤)) = (((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦)))
97		eqid 2761	. . . . . . . 8 ⊢ (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤))) = (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))
98		ovex 7423	. . . . . . . . 9 ⊢ ((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∈ V
99		ovex 7423	. . . . . . . . 9 ⊢ (𝑥𝑁𝑦) ∈ V
100	98, 99	coex 7905	. . . . . . . 8 ⊢ (((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦)) ∈ V
101	92, 96, 97, 100	ovmpo 7550	. . . . . . 7 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))𝑦) = (((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦)))
102	101	ad2antlr 737	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))𝑦) = (((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦)))
103	102	fveq1d 6863	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))𝑦)‘ℎ) = ((((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦))‘ℎ))
104	103	oveq1d 7405	. . . 4 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))𝑦)‘ℎ)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝑅 ∘ 𝑀)‘𝑥)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥)) = (((((𝑀‘𝑥)𝑆(𝑀‘𝑦)) ∘ (𝑥𝑁𝑦))‘ℎ)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝑅 ∘ 𝑀)‘𝑥)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥)))
105	72, 88, 104	3eqtr4d 2806	. . 3 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ℎ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((𝐵(𝑈𝑃𝑉)𝐴)‘𝑦)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝐾 ∘ 𝐹)‘𝑦)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))𝑦)‘ℎ)) = (((𝑥(𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))𝑦)‘ℎ)(⟨((𝐾 ∘ 𝐹)‘𝑥), ((𝑅 ∘ 𝑀)‘𝑥)⟩(comp‘𝐸)((𝑅 ∘ 𝑀)‘𝑦))((𝐵(𝑈𝑃𝑉)𝐴)‘𝑥)))
106	1, 2, 3, 4, 5, 18, 26, 27, 63, 105	isnatd 49797	. 2 ⊢ (𝜑 → (𝐵(𝑈𝑃𝑉)𝐴) ∈ (⟨(𝐾 ∘ 𝐹), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))⟩(𝐶 Nat 𝐸)⟨(𝑅 ∘ 𝑀), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))⟩))
107	14, 22	oveq12d 7408	. 2 ⊢ (𝜑 → ((𝑂‘𝑈)(𝐶 Nat 𝐸)(𝑂‘𝑉)) = (⟨(𝐾 ∘ 𝐹), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝐹‘𝑧)𝐿(𝐹‘𝑤)) ∘ (𝑧𝐺𝑤)))⟩(𝐶 Nat 𝐸)⟨(𝑅 ∘ 𝑀), (𝑧 ∈ (Base‘𝐶), 𝑤 ∈ (Base‘𝐶) ↦ (((𝑀‘𝑧)𝑆(𝑀‘𝑤)) ∘ (𝑧𝑁𝑤)))⟩))
108	106, 107	eleqtrrd 2864	1 ⊢ (𝜑 → (𝐵(𝑈𝑃𝑉)𝐴) ∈ ((𝑂‘𝑈)(𝐶 Nat 𝐸)(𝑂‘𝑉)))

Syntax hints:   → wi 4   ∧ wa 399   = wceq 1559   ∈ wcel 2141  ⟨cop 4587   class class class wbr 5099   ∘ ccom 5649  ‘cfv 6515  (class class class)co 7390   ∈ cmpo 7392  Basecbs 17226  Hom chom 17278  compcco 17279   Func cfunc 17868   Nat cnat 17958   ∘_F cfuco 49890

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5226  ax-sep 5245  ax-nul 5255  ax-pow 5321  ax-pr 5389  ax-un 7712

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4582  df-pr 4584  df-op 4588  df-uni 4865  df-iun 4950  df-br 5100  df-opab 5162  df-mpt 5181  df-id 5540  df-xp 5651  df-rel 5652  df-cnv 5653  df-co 5654  df-dm 5655  df-rn 5656  df-res 5657  df-ima 5658  df-iota 6471  df-fun 6517  df-fn 6518  df-f 6519  df-f1 6520  df-fo 6521  df-f1o 6522  df-fv 6523  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-1st 7964  df-2nd 7965  df-map 8803  df-ixp 8874  df-cat 17681  df-cid 17682  df-func 17872  df-cofu 17874  df-nat 17960  df-fuco 49891

This theorem is referenced by:  fuco22nat  49920