fuco2 - Mathbox for Zhi Wang

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

Theorem fuco2 49354

Description: The morphism part of the functor composition bifunctor. (Contributed by Zhi Wang, 29-Sep-2025.)

**Hypotheses**
Ref	Expression
fucofval.c	⊢ (𝜑 → 𝐶 ∈ 𝑇)
fucofval.d	⊢ (𝜑 → 𝐷 ∈ 𝑈)
fucofval.e	⊢ (𝜑 → 𝐸 ∈ 𝑉)
fuco1.o	⊢ (𝜑 → (⟨𝐶, 𝐷⟩ ∘_F 𝐸) = ⟨𝑂, 𝑃⟩)
fuco1.w	⊢ (𝜑 → 𝑊 = ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)))

**Assertion**
Ref	Expression
fuco2	⊢ (𝜑 → 𝑃 = (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(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 fuco2**
Step	Hyp	Ref	Expression
1		fucofval.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ 𝑇)
2		fucofval.d	. . . 4 ⊢ (𝜑 → 𝐷 ∈ 𝑈)
3		fucofval.e	. . . 4 ⊢ (𝜑 → 𝐸 ∈ 𝑉)
4		fuco1.o	. . . 4 ⊢ (𝜑 → (⟨𝐶, 𝐷⟩ ∘_F 𝐸) = ⟨𝑂, 𝑃⟩)
5		fuco1.w	. . . 4 ⊢ (𝜑 → 𝑊 = ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)))
6	1, 2, 3, 4, 5	fucofval 49350	. . 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‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩)
7	1, 2, 3, 4	fucoelvv 49351	. . . . 5 ⊢ (𝜑 → ⟨𝑂, 𝑃⟩ ∈ (V × V))
8		opelxp1 5658	. . . . 5 ⊢ (⟨𝑂, 𝑃⟩ ∈ (V × V) → 𝑂 ∈ V)
9	7, 8	syl 17	. . . 4 ⊢ (𝜑 → 𝑂 ∈ V)
10		opelxp2 5659	. . . . 5 ⊢ (⟨𝑂, 𝑃⟩ ∈ (V × V) → 𝑃 ∈ V)
11	7, 10	syl 17	. . . 4 ⊢ (𝜑 → 𝑃 ∈ V)
12		opthg 5417	. . . 4 ⊢ ((𝑂 ∈ V ∧ 𝑃 ∈ V) → (⟨𝑂, 𝑃⟩ = ⟨( ∘_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‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥)))))))))
13	9, 11, 12	syl2anc 584	. . 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‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))⟩ ↔ (𝑂 = ( ∘_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‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥)))))))))
14	6, 13	mpbid 232	. 2 ⊢ (𝜑 → (𝑂 = ( ∘_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‘𝐸)(𝑟‘(𝑚‘𝑥)))(((𝑓‘𝑥)𝑙(𝑚‘𝑥))‘(𝑎‘𝑥))))))))
15	14	simprd 495	1 ⊢ (𝜑 → 𝑃 = (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ ⦋(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 ↔ wb 206 ∧ wa 395 = wceq 1541 ∈ wcel 2111 Vcvv 3436 ⦋csb 3850 ⟨cop 4582 ↦ cmpt 5172 × cxp 5614 ↾ cres 5618 ‘cfv 6481 (class class class)co 7346 ∈ cmpo 7348 1^st c1st 7919 2^nd c2nd 7920 Basecbs 17117 compcco 17170 Func cfunc 17758 ∘_func ccofu 17760 Nat cnat 17848 ∘_F cfuco 49347

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2113 ax-9 2121 ax-10 2144 ax-11 2160 ax-12 2180 ax-ext 2703 ax-rep 5217 ax-sep 5234 ax-nul 5244 ax-pow 5303 ax-pr 5370 ax-un 7668

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2535 df-eu 2564 df-clab 2710 df-cleq 2723 df-clel 2806 df-nfc 2881 df-ne 2929 df-ral 3048 df-rex 3057 df-reu 3347 df-rab 3396 df-v 3438 df-sbc 3742 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-nul 4284 df-if 4476 df-pw 4552 df-sn 4577 df-pr 4579 df-op 4583 df-uni 4860 df-iun 4943 df-br 5092 df-opab 5154 df-mpt 5173 df-id 5511 df-xp 5622 df-rel 5623 df-cnv 5624 df-co 5625 df-dm 5626 df-rn 5627 df-res 5628 df-ima 5629 df-iota 6437 df-fun 6483 df-fn 6484 df-f 6485 df-f1 6486 df-fo 6487 df-f1o 6488 df-fv 6489 df-ov 7349 df-oprab 7350 df-mpo 7351 df-1st 7921 df-2nd 7922 df-cofu 17764 df-fuco 49348

This theorem is referenced by: fucofn2 49355 fuco21 49367

W3C validator