fucofvalg - Mathbox for Zhi Wang

	Mathbox for Zhi Wang		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > fucofvalg		Structured version Visualization version GIF version

Theorem fucofvalg 49805

Description: Value of the function giving the functor composition bifunctor. (Contributed by Zhi Wang, 7-Oct-2025.)

**Hypotheses**
Ref	Expression
fucofvalg.p	⊢ (𝜑 → 𝑃 ∈ 𝑈)
fucofvalg.c	⊢ (𝜑 → (1^st ‘𝑃) = 𝐶)
fucofvalg.d	⊢ (𝜑 → (2^nd ‘𝑃) = 𝐷)
fucofvalg.e	⊢ (𝜑 → 𝐸 ∈ 𝑉)
fucofvalg.o	⊢ (𝜑 → (𝑃 ∘_F 𝐸) = ⚬ )
fucofvalg.w	⊢ (𝜑 → 𝑊 = ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)))

**Assertion**
Ref	Expression
fucofvalg	⊢ (𝜑 → ⚬ = ⟨( ∘_func ↾ 𝑊), (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩)

Distinct variable groups: 𝐶,𝑎,𝑏,𝑓,𝑘,𝑙,𝑚,𝑟,𝑢,𝑣,𝑥 𝐷,𝑎,𝑏,𝑓,𝑘,𝑙,𝑚,𝑟,𝑢,𝑣,𝑥 𝐸,𝑎,𝑏,𝑓,𝑘,𝑙,𝑚,𝑟,𝑢,𝑣,𝑥 𝑊,𝑎,𝑏,𝑓,𝑘,𝑙,𝑚,𝑟,𝑢,𝑣,𝑥 𝜑,𝑎,𝑏,𝑓,𝑘,𝑙,𝑚,𝑟,𝑢,𝑣,𝑥 𝑃,𝑎,𝑏,𝑓,𝑘,𝑙,𝑚,𝑟,𝑢,𝑣,𝑥 Allowed substitution hints: 𝑈(𝑥,𝑣,𝑢,𝑓,𝑘,𝑚,𝑟,𝑎,𝑏,𝑙) 𝑉(𝑥,𝑣,𝑢,𝑓,𝑘,𝑚,𝑟,𝑎,𝑏,𝑙) ⚬ (𝑥,𝑣,𝑢,𝑓,𝑘,𝑚,𝑟,𝑎,𝑏,𝑙)

Proof of Theorem fucofvalg Dummy variables 𝑐 𝑑 𝑒 𝑝 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fucofvalg.o	. 2 ⊢ (𝜑 → (𝑃 ∘_F 𝐸) = ⚬ )
2		df-fuco 49804	. . . 4 ⊢ ∘_F = (𝑝 ∈ V, 𝑒 ∈ V ↦ ⦋(1^st ‘𝑝) / 𝑐⦌⦋(2^nd ‘𝑝) / 𝑑⦌⦋((𝑑 Func 𝑒) × (𝑐 Func 𝑑)) / 𝑤⦌⟨( ∘_func ↾ 𝑤), (𝑢 ∈ 𝑤, 𝑣 ∈ 𝑤 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩)
3	2	a1i 11	. . 3 ⊢ (𝜑 → ∘_F = (𝑝 ∈ V, 𝑒 ∈ V ↦ ⦋(1^st ‘𝑝) / 𝑐⦌⦋(2^nd ‘𝑝) / 𝑑⦌⦋((𝑑 Func 𝑒) × (𝑐 Func 𝑑)) / 𝑤⦌⟨( ∘_func ↾ 𝑤), (𝑢 ∈ 𝑤, 𝑣 ∈ 𝑤 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩))
4		fvexd 6849	. . . 4 ⊢ ((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) → (1^st ‘𝑝) ∈ V)
5		simprl 771	. . . . . 6 ⊢ ((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) → 𝑝 = 𝑃)
6	5	fveq2d 6838	. . . . 5 ⊢ ((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) → (1^st ‘𝑝) = (1^st ‘𝑃))
7		fucofvalg.c	. . . . . 6 ⊢ (𝜑 → (1^st ‘𝑃) = 𝐶)
8	7	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) → (1^st ‘𝑃) = 𝐶)
9	6, 8	eqtrd 2772	. . . 4 ⊢ ((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) → (1^st ‘𝑝) = 𝐶)
10		fvexd 6849	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) → (2^nd ‘𝑝) ∈ V)
11		simplrl 777	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) → 𝑝 = 𝑃)
12	11	fveq2d 6838	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) → (2^nd ‘𝑝) = (2^nd ‘𝑃))
13		fucofvalg.d	. . . . . . 7 ⊢ (𝜑 → (2^nd ‘𝑃) = 𝐷)
14	13	ad2antrr 727	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) → (2^nd ‘𝑃) = 𝐷)
15	12, 14	eqtrd 2772	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) → (2^nd ‘𝑝) = 𝐷)
16		simpr 484	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → 𝑑 = 𝐷)
17		simpllr 776	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑝 = 𝑃 ∧ 𝑒 = 𝐸))
18	17	simprd 495	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → 𝑒 = 𝐸)
19	16, 18	oveq12d 7378	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑑 Func 𝑒) = (𝐷 Func 𝐸))
20		simplr 769	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → 𝑐 = 𝐶)
21	20, 16	oveq12d 7378	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝑐 Func 𝑑) = (𝐶 Func 𝐷))
22	19, 21	xpeq12d 5655	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → ((𝑑 Func 𝑒) × (𝑐 Func 𝑑)) = ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)))
23		ovexd 7395	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝐷 Func 𝐸) ∈ V)
24		ovexd 7395	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → (𝐶 Func 𝐷) ∈ V)
25	23, 24	xpexd 7698	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)) ∈ V)
26	22, 25	eqeltrd 2837	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → ((𝑑 Func 𝑒) × (𝑐 Func 𝑑)) ∈ V)
27		fucofvalg.w	. . . . . . . 8 ⊢ (𝜑 → 𝑊 = ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)))
28	27	ad3antrrr 731	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → 𝑊 = ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)))
29	22, 28	eqtr4d 2775	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → ((𝑑 Func 𝑒) × (𝑐 Func 𝑑)) = 𝑊)
30		simpr 484	. . . . . . . 8 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → 𝑤 = 𝑊)
31	30	reseq2d 5938	. . . . . . 7 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → ( ∘_func ↾ 𝑤) = ( ∘_func ↾ 𝑊))
32		simplr 769	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → 𝑑 = 𝐷)
33	18	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → 𝑒 = 𝐸)
34	32, 33	oveq12d 7378	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → (𝑑 Nat 𝑒) = (𝐷 Nat 𝐸))
35	34	oveqd 7377	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)) = ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)))
36		simpllr 776	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → 𝑐 = 𝐶)
37	36, 32	oveq12d 7378	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → (𝑐 Nat 𝑑) = (𝐶 Nat 𝐷))
38	37	oveqd 7377	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) = ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)))
39	36	fveq2d 6838	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → (Base‘𝑐) = (Base‘𝐶))
40	33	fveq2d 6838	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → (comp‘𝑒) = (comp‘𝐸))
41	40	oveqd 7377	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → (⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥))) = (⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥))))
42	41	oveqd 7377	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))) = ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))
43	39, 42	mpteq12dv 5173	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥)))) = (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥)))))
44	35, 38, 43	mpoeq123dv 7435	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → (𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))) = (𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))
45	44	csbeq2dv 3845	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → ⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))) = ⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))
46	45	csbeq2dv 3845	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → ⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))) = ⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))
47	46	csbeq2dv 3845	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → ⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))) = ⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))
48	47	csbeq2dv 3845	. . . . . . . . 9 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → ⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))) = ⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))
49	48	csbeq2dv 3845	. . . . . . . 8 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))) = ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))
50	30, 30, 49	mpoeq123dv 7435	. . . . . . 7 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → (𝑢 ∈ 𝑤, 𝑣 ∈ 𝑤 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥)))))) = (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥)))))))
51	31, 50	opeq12d 4825	. . . . . 6 ⊢ (((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) ∧ 𝑤 = 𝑊) → ⟨( ∘_func ↾ 𝑤), (𝑢 ∈ 𝑤, 𝑣 ∈ 𝑤 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩ = ⟨( ∘_func ↾ 𝑊), (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩)
52	26, 29, 51	csbied2 3875	. . . . 5 ⊢ ((((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) ∧ 𝑑 = 𝐷) → ⦋((𝑑 Func 𝑒) × (𝑐 Func 𝑑)) / 𝑤⦌⟨( ∘_func ↾ 𝑤), (𝑢 ∈ 𝑤, 𝑣 ∈ 𝑤 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩ = ⟨( ∘_func ↾ 𝑊), (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩)
53	10, 15, 52	csbied2 3875	. . . 4 ⊢ (((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) ∧ 𝑐 = 𝐶) → ⦋(2^nd ‘𝑝) / 𝑑⦌⦋((𝑑 Func 𝑒) × (𝑐 Func 𝑑)) / 𝑤⦌⟨( ∘_func ↾ 𝑤), (𝑢 ∈ 𝑤, 𝑣 ∈ 𝑤 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩ = ⟨( ∘_func ↾ 𝑊), (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩)
54	4, 9, 53	csbied2 3875	. . 3 ⊢ ((𝜑 ∧ (𝑝 = 𝑃 ∧ 𝑒 = 𝐸)) → ⦋(1^st ‘𝑝) / 𝑐⦌⦋(2^nd ‘𝑝) / 𝑑⦌⦋((𝑑 Func 𝑒) × (𝑐 Func 𝑑)) / 𝑤⦌⟨( ∘_func ↾ 𝑤), (𝑢 ∈ 𝑤, 𝑣 ∈ 𝑤 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝑑 Nat 𝑒)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝑐 Nat 𝑑)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝑐) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝑒)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩ = ⟨( ∘_func ↾ 𝑊), (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩)
55		fucofvalg.p	. . . 4 ⊢ (𝜑 → 𝑃 ∈ 𝑈)
56	55	elexd 3454	. . 3 ⊢ (𝜑 → 𝑃 ∈ V)
57		fucofvalg.e	. . . 4 ⊢ (𝜑 → 𝐸 ∈ 𝑉)
58	57	elexd 3454	. . 3 ⊢ (𝜑 → 𝐸 ∈ V)
59		opex 5411	. . . 4 ⊢ ⟨( ∘_func ↾ 𝑊), (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩ ∈ V
60	59	a1i 11	. . 3 ⊢ (𝜑 → ⟨( ∘_func ↾ 𝑊), (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩ ∈ V)
61	3, 54, 56, 58, 60	ovmpod 7512	. 2 ⊢ (𝜑 → (𝑃 ∘_F 𝐸) = ⟨( ∘_func ↾ 𝑊), (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩)
62	1, 61	eqtr3d 2774	1 ⊢ (𝜑 → ⚬ = ⟨( ∘_func ↾ 𝑊), (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(1^st ‘(2^nd ‘𝑢)) / 𝑓⦌⦋(1^st ‘(1^st ‘𝑢)) / 𝑘⦌⦋(2^nd ‘(1^st ‘𝑢)) / 𝑙⦌⦋(1^st ‘(2^nd ‘𝑣)) / 𝑚⦌⦋(1^st ‘(1^st ‘𝑣)) / 𝑟⦌(𝑏 ∈ ((1^st ‘𝑢)(𝐷 Nat 𝐸)(1^st ‘𝑣)), 𝑎 ∈ ((2^nd ‘𝑢)(𝐶 Nat 𝐷)(2^nd ‘𝑣)) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘(𝑚‘𝑥))(⟨(𝑘‘(𝑓‘𝑥)), (𝑘‘(𝑚‘𝑥))⟩(comp‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1542 ∈ wcel 2114 Vcvv 3430 ⦋csb 3838 ⟨cop 4574 ↦ cmpt 5167 × cxp 5622 ↾ cres 5626 ‘cfv 6492 (class class class)co 7360 ∈ cmpo 7362 1^st c1st 7933 2^nd c2nd 7934 Basecbs 17170 compcco 17223 Func cfunc 17812 ∘_func ccofu 17814 Nat cnat 17902 ∘_F cfuco 49803

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-sep 5231 ax-nul 5241 ax-pow 5302 ax-pr 5370 ax-un 7682

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-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-br 5087 df-opab 5149 df-mpt 5168 df-id 5519 df-xp 5630 df-rel 5631 df-cnv 5632 df-co 5633 df-dm 5634 df-res 5636 df-iota 6448 df-fun 6494 df-fv 6500 df-ov 7363 df-oprab 7364 df-mpo 7365 df-fuco 49804

This theorem is referenced by: fucofval 49806 fucofvalne 49812

W3C validator