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

Theorem fucof21 48914
Description: The morphism part of the functor composition bifunctor maps a hom-set of the product category into a set of natural transformations. (Contributed by Zhi Wang, 30-Sep-2025.)
Hypotheses
Ref Expression
fucof21.o (𝜑 → (⟨𝐶, 𝐷⟩ ∘F 𝐸) = ⟨𝑂, 𝑃⟩)
fucof21.t 𝑇 = ((𝐷 FuncCat 𝐸) ×c (𝐶 FuncCat 𝐷))
fucof21.j 𝐽 = (Hom ‘𝑇)
fucof21.w (𝜑𝑊 = ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)))
fucof21.u (𝜑𝑈𝑊)
fucof21.v (𝜑𝑉𝑊)
Assertion
Ref Expression
fucof21 (𝜑 → (𝑈𝑃𝑉):(𝑈𝐽𝑉)⟶((𝑂𝑈)(𝐶 Nat 𝐸)(𝑂𝑉)))

Proof of Theorem fucof21
Dummy variables 𝑎 𝑏 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fucof21.o . . 3 (𝜑 → (⟨𝐶, 𝐷⟩ ∘F 𝐸) = ⟨𝑂, 𝑃⟩)
2 fucof21.w . . . . 5 (𝜑𝑊 = ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)))
3 fucof21.u . . . . 5 (𝜑𝑈𝑊)
4 relfunc 17922 . . . . 5 Rel (𝐷 Func 𝐸)
5 relfunc 17922 . . . . 5 Rel (𝐶 Func 𝐷)
62, 3, 4, 5fuco2eld3 48884 . . . 4 (𝜑 → ((1st ‘(1st𝑈))(𝐷 Func 𝐸)(2nd ‘(1st𝑈)) ∧ (1st ‘(2nd𝑈))(𝐶 Func 𝐷)(2nd ‘(2nd𝑈))))
76simprd 495 . . 3 (𝜑 → (1st ‘(2nd𝑈))(𝐶 Func 𝐷)(2nd ‘(2nd𝑈)))
86simpld 494 . . 3 (𝜑 → (1st ‘(1st𝑈))(𝐷 Func 𝐸)(2nd ‘(1st𝑈)))
92, 3, 4, 5fuco2eld2 48883 . . 3 (𝜑𝑈 = ⟨⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩, ⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩⟩)
10 fucof21.v . . . . 5 (𝜑𝑉𝑊)
112, 10, 4, 5fuco2eld3 48884 . . . 4 (𝜑 → ((1st ‘(1st𝑉))(𝐷 Func 𝐸)(2nd ‘(1st𝑉)) ∧ (1st ‘(2nd𝑉))(𝐶 Func 𝐷)(2nd ‘(2nd𝑉))))
1211simprd 495 . . 3 (𝜑 → (1st ‘(2nd𝑉))(𝐶 Func 𝐷)(2nd ‘(2nd𝑉)))
1311simpld 494 . . 3 (𝜑 → (1st ‘(1st𝑉))(𝐷 Func 𝐸)(2nd ‘(1st𝑉)))
142, 10, 4, 5fuco2eld2 48883 . . 3 (𝜑𝑉 = ⟨⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩, ⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩⟩)
151, 7, 8, 9, 12, 13, 14fuco21 48905 . 2 (𝜑 → (𝑈𝑃𝑉) = (𝑏 ∈ (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩), 𝑎 ∈ (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩) ↦ (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘((1st ‘(2nd𝑉))‘𝑥))(⟨((1st ‘(1st𝑈))‘((1st ‘(2nd𝑈))‘𝑥)), ((1st ‘(1st𝑈))‘((1st ‘(2nd𝑉))‘𝑥))⟩(comp‘𝐸)((1st ‘(1st𝑉))‘((1st ‘(2nd𝑉))‘𝑥)))((((1st ‘(2nd𝑈))‘𝑥)(2nd ‘(1st𝑈))((1st ‘(2nd𝑉))‘𝑥))‘(𝑎𝑥))))))
161adantr 480 . . . 4 ((𝜑 ∧ (𝑏 ∈ (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩) ∧ 𝑎 ∈ (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩))) → (⟨𝐶, 𝐷⟩ ∘F 𝐸) = ⟨𝑂, 𝑃⟩)
179adantr 480 . . . 4 ((𝜑 ∧ (𝑏 ∈ (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩) ∧ 𝑎 ∈ (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩))) → 𝑈 = ⟨⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩, ⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩⟩)
1814adantr 480 . . . 4 ((𝜑 ∧ (𝑏 ∈ (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩) ∧ 𝑎 ∈ (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩))) → 𝑉 = ⟨⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩, ⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩⟩)
19 simprr 773 . . . 4 ((𝜑 ∧ (𝑏 ∈ (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩) ∧ 𝑎 ∈ (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩))) → 𝑎 ∈ (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩))
20 simprl 771 . . . 4 ((𝜑 ∧ (𝑏 ∈ (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩) ∧ 𝑎 ∈ (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩))) → 𝑏 ∈ (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩))
2116, 17, 18, 19, 20fuco22 48906 . . 3 ((𝜑 ∧ (𝑏 ∈ (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩) ∧ 𝑎 ∈ (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩))) → (𝑏(𝑈𝑃𝑉)𝑎) = (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘((1st ‘(2nd𝑉))‘𝑥))(⟨((1st ‘(1st𝑈))‘((1st ‘(2nd𝑈))‘𝑥)), ((1st ‘(1st𝑈))‘((1st ‘(2nd𝑉))‘𝑥))⟩(comp‘𝐸)((1st ‘(1st𝑉))‘((1st ‘(2nd𝑉))‘𝑥)))((((1st ‘(2nd𝑈))‘𝑥)(2nd ‘(1st𝑈))((1st ‘(2nd𝑉))‘𝑥))‘(𝑎𝑥)))))
2216, 19, 20, 17, 18fuco22nat 48913 . . 3 ((𝜑 ∧ (𝑏 ∈ (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩) ∧ 𝑎 ∈ (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩))) → (𝑏(𝑈𝑃𝑉)𝑎) ∈ ((𝑂𝑈)(𝐶 Nat 𝐸)(𝑂𝑉)))
2321, 22eqeltrrd 2842 . 2 ((𝜑 ∧ (𝑏 ∈ (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩) ∧ 𝑎 ∈ (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩))) → (𝑥 ∈ (Base‘𝐶) ↦ ((𝑏‘((1st ‘(2nd𝑉))‘𝑥))(⟨((1st ‘(1st𝑈))‘((1st ‘(2nd𝑈))‘𝑥)), ((1st ‘(1st𝑈))‘((1st ‘(2nd𝑉))‘𝑥))⟩(comp‘𝐸)((1st ‘(1st𝑉))‘((1st ‘(2nd𝑉))‘𝑥)))((((1st ‘(2nd𝑈))‘𝑥)(2nd ‘(1st𝑈))((1st ‘(2nd𝑉))‘𝑥))‘(𝑎𝑥)))) ∈ ((𝑂𝑈)(𝐶 Nat 𝐸)(𝑂𝑉)))
24 fucof21.t . . . 4 𝑇 = ((𝐷 FuncCat 𝐸) ×c (𝐶 FuncCat 𝐷))
2524xpcfucbas 48872 . . . 4 ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)) = (Base‘𝑇)
26 fucof21.j . . . 4 𝐽 = (Hom ‘𝑇)
273, 2eleqtrd 2843 . . . 4 (𝜑𝑈 ∈ ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)))
2810, 2eleqtrd 2843 . . . 4 (𝜑𝑉 ∈ ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)))
2924, 25, 26, 27, 28xpcfuchom 48874 . . 3 (𝜑 → (𝑈𝐽𝑉) = (((1st𝑈)(𝐷 Nat 𝐸)(1st𝑉)) × ((2nd𝑈)(𝐶 Nat 𝐷)(2nd𝑉))))
309fveq2d 6918 . . . . . 6 (𝜑 → (1st𝑈) = (1st ‘⟨⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩, ⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩⟩))
31 opex 5478 . . . . . . 7 ⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩ ∈ V
32 opex 5478 . . . . . . 7 ⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩ ∈ V
3331, 32op1st 8030 . . . . . 6 (1st ‘⟨⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩, ⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩⟩) = ⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩
3430, 33eqtrdi 2793 . . . . 5 (𝜑 → (1st𝑈) = ⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩)
3514fveq2d 6918 . . . . . 6 (𝜑 → (1st𝑉) = (1st ‘⟨⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩, ⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩⟩))
36 opex 5478 . . . . . . 7 ⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩ ∈ V
37 opex 5478 . . . . . . 7 ⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩ ∈ V
3836, 37op1st 8030 . . . . . 6 (1st ‘⟨⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩, ⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩⟩) = ⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩
3935, 38eqtrdi 2793 . . . . 5 (𝜑 → (1st𝑉) = ⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩)
4034, 39oveq12d 7456 . . . 4 (𝜑 → ((1st𝑈)(𝐷 Nat 𝐸)(1st𝑉)) = (⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩))
419fveq2d 6918 . . . . . 6 (𝜑 → (2nd𝑈) = (2nd ‘⟨⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩, ⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩⟩))
4231, 32op2nd 8031 . . . . . 6 (2nd ‘⟨⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩, ⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩⟩) = ⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩
4341, 42eqtrdi 2793 . . . . 5 (𝜑 → (2nd𝑈) = ⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩)
4414fveq2d 6918 . . . . . 6 (𝜑 → (2nd𝑉) = (2nd ‘⟨⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩, ⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩⟩))
4536, 37op2nd 8031 . . . . . 6 (2nd ‘⟨⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩, ⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩⟩) = ⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩
4644, 45eqtrdi 2793 . . . . 5 (𝜑 → (2nd𝑉) = ⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩)
4743, 46oveq12d 7456 . . . 4 (𝜑 → ((2nd𝑈)(𝐶 Nat 𝐷)(2nd𝑉)) = (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩))
4840, 47xpeq12d 5724 . . 3 (𝜑 → (((1st𝑈)(𝐷 Nat 𝐸)(1st𝑉)) × ((2nd𝑈)(𝐶 Nat 𝐷)(2nd𝑉))) = ((⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩) × (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩)))
4929, 48eqtrd 2777 . 2 (𝜑 → (𝑈𝐽𝑉) = ((⟨(1st ‘(1st𝑈)), (2nd ‘(1st𝑈))⟩(𝐷 Nat 𝐸)⟨(1st ‘(1st𝑉)), (2nd ‘(1st𝑉))⟩) × (⟨(1st ‘(2nd𝑈)), (2nd ‘(2nd𝑈))⟩(𝐶 Nat 𝐷)⟨(1st ‘(2nd𝑉)), (2nd ‘(2nd𝑉))⟩)))
5015, 23, 49fmpodg 48715 1 (𝜑 → (𝑈𝑃𝑉):(𝑈𝐽𝑉)⟶((𝑂𝑈)(𝐶 Nat 𝐸)(𝑂𝑉)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395   = wceq 1539  wcel 2108  cop 4640   class class class wbr 5151  cmpt 5234   × cxp 5691  wf 6565  cfv 6569  (class class class)co 7438  1st c1st 8020  2nd c2nd 8021  Basecbs 17254  Hom chom 17318  compcco 17319   Func cfunc 17914   Nat cnat 18005   FuncCat cfuc 18006   ×c cxpc 18233  F cfuco 48885
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-rep 5288  ax-sep 5305  ax-nul 5315  ax-pow 5374  ax-pr 5441  ax-un 7761  ax-cnex 11218  ax-resscn 11219  ax-1cn 11220  ax-icn 11221  ax-addcl 11222  ax-addrcl 11223  ax-mulcl 11224  ax-mulrcl 11225  ax-mulcom 11226  ax-addass 11227  ax-mulass 11228  ax-distr 11229  ax-i2m1 11230  ax-1ne0 11231  ax-1rid 11232  ax-rnegex 11233  ax-rrecex 11234  ax-cnre 11235  ax-pre-lttri 11236  ax-pre-lttrn 11237  ax-pre-ltadd 11238  ax-pre-mulgt0 11239
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3380  df-reu 3381  df-rab 3437  df-v 3483  df-sbc 3795  df-csb 3912  df-dif 3969  df-un 3971  df-in 3973  df-ss 3983  df-pss 3986  df-nul 4343  df-if 4535  df-pw 4610  df-sn 4635  df-pr 4637  df-tp 4639  df-op 4641  df-uni 4916  df-iun 5001  df-br 5152  df-opab 5214  df-mpt 5235  df-tr 5269  df-id 5587  df-eprel 5593  df-po 5601  df-so 5602  df-fr 5645  df-we 5647  df-xp 5699  df-rel 5700  df-cnv 5701  df-co 5702  df-dm 5703  df-rn 5704  df-res 5705  df-ima 5706  df-pred 6329  df-ord 6395  df-on 6396  df-lim 6397  df-suc 6398  df-iota 6522  df-fun 6571  df-fn 6572  df-f 6573  df-f1 6574  df-fo 6575  df-f1o 6576  df-fv 6577  df-riota 7395  df-ov 7441  df-oprab 7442  df-mpo 7443  df-om 7895  df-1st 8022  df-2nd 8023  df-frecs 8314  df-wrecs 8345  df-recs 8419  df-rdg 8458  df-1o 8514  df-er 8753  df-map 8876  df-ixp 8946  df-en 8994  df-dom 8995  df-sdom 8996  df-fin 8997  df-pnf 11304  df-mnf 11305  df-xr 11306  df-ltxr 11307  df-le 11308  df-sub 11501  df-neg 11502  df-nn 12274  df-2 12336  df-3 12337  df-4 12338  df-5 12339  df-6 12340  df-7 12341  df-8 12342  df-9 12343  df-n0 12534  df-z 12621  df-dec 12741  df-uz 12886  df-fz 13554  df-struct 17190  df-slot 17225  df-ndx 17237  df-base 17255  df-hom 17331  df-cco 17332  df-cat 17722  df-cid 17723  df-func 17918  df-cofu 17920  df-nat 18007  df-fuc 18008  df-xpc 18237  df-fuco 48886
This theorem is referenced by:  fucofunc  48926
  Copyright terms: Public domain W3C validator