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

Theorem prcofdiag1 50247
Description: A constant functor pre-composed by a functor is another constant functor. (Contributed by Zhi Wang, 25-Nov-2025.)
Hypotheses
Ref Expression
prcofdiag.l 𝐿 = (𝐶Δfunc𝐷)
prcofdiag.m 𝑀 = (𝐶Δfunc𝐸)
prcofdiag.f (𝜑𝐹 ∈ (𝐸 Func 𝐷))
prcofdiag.c (𝜑𝐶 ∈ Cat)
prcofdiag1.b 𝐵 = (Base‘𝐶)
prcofdiag1.x (𝜑𝑋𝐵)
Assertion
Ref Expression
prcofdiag1 (𝜑 → (((1st𝐿)‘𝑋) ∘func 𝐹) = ((1st𝑀)‘𝑋))

Proof of Theorem prcofdiag1
Dummy variables 𝑓 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2765 . . . . . 6 (Base‘𝐸) = (Base‘𝐸)
2 prcofdiag1.b . . . . . 6 𝐵 = (Base‘𝐶)
3 prcofdiag.f . . . . . . . 8 (𝜑𝐹 ∈ (𝐸 Func 𝐷))
4 prcofdiag.l . . . . . . . . 9 𝐿 = (𝐶Δfunc𝐷)
5 prcofdiag.c . . . . . . . . 9 (𝜑𝐶 ∈ Cat)
63func1st2nd 49930 . . . . . . . . . 10 (𝜑 → (1st𝐹)(𝐸 Func 𝐷)(2nd𝐹))
76funcrcl3 49934 . . . . . . . . 9 (𝜑𝐷 ∈ Cat)
8 prcofdiag1.x . . . . . . . . 9 (𝜑𝑋𝐵)
9 eqid 2765 . . . . . . . . 9 ((1st𝐿)‘𝑋) = ((1st𝐿)‘𝑋)
104, 5, 7, 2, 8, 9diag1cl 18324 . . . . . . . 8 (𝜑 → ((1st𝐿)‘𝑋) ∈ (𝐷 Func 𝐶))
113, 10cofucl 17971 . . . . . . 7 (𝜑 → (((1st𝐿)‘𝑋) ∘func 𝐹) ∈ (𝐸 Func 𝐶))
1211func1st2nd 49930 . . . . . 6 (𝜑 → (1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹))(𝐸 Func 𝐶)(2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹)))
131, 2, 12funcf1 17949 . . . . 5 (𝜑 → (1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹)):(Base‘𝐸)⟶𝐵)
1413ffnd 6710 . . . 4 (𝜑 → (1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹)) Fn (Base‘𝐸))
15 prcofdiag.m . . . . . . . 8 𝑀 = (𝐶Δfunc𝐸)
166funcrcl2 49933 . . . . . . . 8 (𝜑𝐸 ∈ Cat)
17 eqid 2765 . . . . . . . 8 ((1st𝑀)‘𝑋) = ((1st𝑀)‘𝑋)
1815, 5, 16, 2, 8, 17diag1cl 18324 . . . . . . 7 (𝜑 → ((1st𝑀)‘𝑋) ∈ (𝐸 Func 𝐶))
1918func1st2nd 49930 . . . . . 6 (𝜑 → (1st ‘((1st𝑀)‘𝑋))(𝐸 Func 𝐶)(2nd ‘((1st𝑀)‘𝑋)))
201, 2, 19funcf1 17949 . . . . 5 (𝜑 → (1st ‘((1st𝑀)‘𝑋)):(Base‘𝐸)⟶𝐵)
2120ffnd 6710 . . . 4 (𝜑 → (1st ‘((1st𝑀)‘𝑋)) Fn (Base‘𝐸))
225adantr 486 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐸)) → 𝐶 ∈ Cat)
237adantr 486 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐸)) → 𝐷 ∈ Cat)
248adantr 486 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐸)) → 𝑋𝐵)
25 eqid 2765 . . . . . 6 (Base‘𝐷) = (Base‘𝐷)
261, 25, 6funcf1 17949 . . . . . . 7 (𝜑 → (1st𝐹):(Base‘𝐸)⟶(Base‘𝐷))
2726ffvelcdmda 7083 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐸)) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
284, 22, 23, 2, 24, 9, 25, 27diag11 18325 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐸)) → ((1st ‘((1st𝐿)‘𝑋))‘((1st𝐹)‘𝑥)) = 𝑋)
293adantr 486 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐸)) → 𝐹 ∈ (𝐸 Func 𝐷))
3010adantr 486 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐸)) → ((1st𝐿)‘𝑋) ∈ (𝐷 Func 𝐶))
31 simpr 490 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐸)) → 𝑥 ∈ (Base‘𝐸))
321, 29, 30, 31cofu1 17967 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐸)) → ((1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹))‘𝑥) = ((1st ‘((1st𝐿)‘𝑋))‘((1st𝐹)‘𝑥)))
3316adantr 486 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐸)) → 𝐸 ∈ Cat)
3415, 22, 33, 2, 24, 17, 1, 31diag11 18325 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐸)) → ((1st ‘((1st𝑀)‘𝑋))‘𝑥) = 𝑋)
3528, 32, 343eqtr4d 2810 . . . 4 ((𝜑𝑥 ∈ (Base‘𝐸)) → ((1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹))‘𝑥) = ((1st ‘((1st𝑀)‘𝑋))‘𝑥))
3614, 21, 35eqfnfvd 7032 . . 3 (𝜑 → (1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹)) = (1st ‘((1st𝑀)‘𝑋)))
371, 12funcfn2 17952 . . . 4 (𝜑 → (2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹)) Fn ((Base‘𝐸) × (Base‘𝐸)))
381, 19funcfn2 17952 . . . 4 (𝜑 → (2nd ‘((1st𝑀)‘𝑋)) Fn ((Base‘𝐸) × (Base‘𝐸)))
39 eqid 2765 . . . . . . 7 (Hom ‘𝐸) = (Hom ‘𝐸)
40 eqid 2765 . . . . . . 7 (Hom ‘𝐶) = (Hom ‘𝐶)
4112adantr 486 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) → (1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹))(𝐸 Func 𝐶)(2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹)))
42 simprl 783 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) → 𝑥 ∈ (Base‘𝐸))
43 simprr 785 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) → 𝑦 ∈ (Base‘𝐸))
441, 39, 40, 41, 42, 43funcf2 17951 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) → (𝑥(2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹))𝑦):(𝑥(Hom ‘𝐸)𝑦)⟶(((1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹))‘𝑥)(Hom ‘𝐶)((1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹))‘𝑦)))
4544ffnd 6710 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) → (𝑥(2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹))𝑦) Fn (𝑥(Hom ‘𝐸)𝑦))
4619adantr 486 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) → (1st ‘((1st𝑀)‘𝑋))(𝐸 Func 𝐶)(2nd ‘((1st𝑀)‘𝑋)))
471, 39, 40, 46, 42, 43funcf2 17951 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) → (𝑥(2nd ‘((1st𝑀)‘𝑋))𝑦):(𝑥(Hom ‘𝐸)𝑦)⟶(((1st ‘((1st𝑀)‘𝑋))‘𝑥)(Hom ‘𝐶)((1st ‘((1st𝑀)‘𝑋))‘𝑦)))
4847ffnd 6710 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) → (𝑥(2nd ‘((1st𝑀)‘𝑋))𝑦) Fn (𝑥(Hom ‘𝐸)𝑦))
495ad2antrr 739 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → 𝐶 ∈ Cat)
507ad2antrr 739 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → 𝐷 ∈ Cat)
518ad2antrr 739 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → 𝑋𝐵)
526ad2antrr 739 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → (1st𝐹)(𝐸 Func 𝐷)(2nd𝐹))
531, 25, 52funcf1 17949 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → (1st𝐹):(Base‘𝐸)⟶(Base‘𝐷))
5442adantr 486 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → 𝑥 ∈ (Base‘𝐸))
5553, 54ffvelcdmd 7084 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
56 eqid 2765 . . . . . . 7 (Hom ‘𝐷) = (Hom ‘𝐷)
57 eqid 2765 . . . . . . 7 (Id‘𝐶) = (Id‘𝐶)
5843adantr 486 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → 𝑦 ∈ (Base‘𝐸))
5953, 58ffvelcdmd 7084 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → ((1st𝐹)‘𝑦) ∈ (Base‘𝐷))
601, 39, 56, 52, 54, 58funcf2 17951 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → (𝑥(2nd𝐹)𝑦):(𝑥(Hom ‘𝐸)𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
61 simpr 490 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦))
6260, 61ffvelcdmd 7084 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → ((𝑥(2nd𝐹)𝑦)‘𝑓) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
634, 49, 50, 2, 51, 9, 25, 55, 56, 57, 59, 62diag12 18326 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → ((((1st𝐹)‘𝑥)(2nd ‘((1st𝐿)‘𝑋))((1st𝐹)‘𝑦))‘((𝑥(2nd𝐹)𝑦)‘𝑓)) = ((Id‘𝐶)‘𝑋))
643ad2antrr 739 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → 𝐹 ∈ (𝐸 Func 𝐷))
6510ad2antrr 739 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → ((1st𝐿)‘𝑋) ∈ (𝐷 Func 𝐶))
661, 64, 65, 54, 58, 39, 61cofu2 17969 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → ((𝑥(2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹))𝑦)‘𝑓) = ((((1st𝐹)‘𝑥)(2nd ‘((1st𝐿)‘𝑋))((1st𝐹)‘𝑦))‘((𝑥(2nd𝐹)𝑦)‘𝑓)))
6716ad2antrr 739 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → 𝐸 ∈ Cat)
6815, 49, 67, 2, 51, 17, 1, 54, 39, 57, 58, 61diag12 18326 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → ((𝑥(2nd ‘((1st𝑀)‘𝑋))𝑦)‘𝑓) = ((Id‘𝐶)‘𝑋))
6963, 66, 683eqtr4d 2810 . . . . 5 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐸)𝑦)) → ((𝑥(2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹))𝑦)‘𝑓) = ((𝑥(2nd ‘((1st𝑀)‘𝑋))𝑦)‘𝑓))
7045, 48, 69eqfnfvd 7032 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐸) ∧ 𝑦 ∈ (Base‘𝐸))) → (𝑥(2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹))𝑦) = (𝑥(2nd ‘((1st𝑀)‘𝑋))𝑦))
7137, 38, 70eqfnovd 49720 . . 3 (𝜑 → (2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹)) = (2nd ‘((1st𝑀)‘𝑋)))
7236, 71opeq12d 4848 . 2 (𝜑 → ⟨(1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹)), (2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹))⟩ = ⟨(1st ‘((1st𝑀)‘𝑋)), (2nd ‘((1st𝑀)‘𝑋))⟩)
73 relfunc 17945 . . 3 Rel (𝐸 Func 𝐶)
74 1st2nd 8042 . . 3 ((Rel (𝐸 Func 𝐶) ∧ (((1st𝐿)‘𝑋) ∘func 𝐹) ∈ (𝐸 Func 𝐶)) → (((1st𝐿)‘𝑋) ∘func 𝐹) = ⟨(1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹)), (2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹))⟩)
7573, 11, 74sylancr 599 . 2 (𝜑 → (((1st𝐿)‘𝑋) ∘func 𝐹) = ⟨(1st ‘(((1st𝐿)‘𝑋) ∘func 𝐹)), (2nd ‘(((1st𝐿)‘𝑋) ∘func 𝐹))⟩)
76 1st2nd 8042 . . 3 ((Rel (𝐸 Func 𝐶) ∧ ((1st𝑀)‘𝑋) ∈ (𝐸 Func 𝐶)) → ((1st𝑀)‘𝑋) = ⟨(1st ‘((1st𝑀)‘𝑋)), (2nd ‘((1st𝑀)‘𝑋))⟩)
7773, 18, 76sylancr 599 . 2 (𝜑 → ((1st𝑀)‘𝑋) = ⟨(1st ‘((1st𝑀)‘𝑋)), (2nd ‘((1st𝑀)‘𝑋))⟩)
7872, 75, 773eqtr4d 2810 1 (𝜑 → (((1st𝐿)‘𝑋) ∘func 𝐹) = ((1st𝑀)‘𝑋))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wa 401   = wceq 1570  wcel 2146  cop 4597   class class class wbr 5111  Rel wrel 5668  cfv 6540  (class class class)co 7419  1st c1st 7990  2nd c2nd 7991  Basecbs 17295  Hom chom 17347  Catccat 17746  Idccid 17747   Func cfunc 17937  func ccofu 17939  Δfunccdiag 18294
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11175  ax-resscn 11176  ax-1cn 11177  ax-icn 11178  ax-addcl 11179  ax-addrcl 11180  ax-mulcl 11181  ax-mulrcl 11182  ax-mulcom 11183  ax-addass 11184  ax-mulass 11185  ax-distr 11186  ax-i2m1 11187  ax-1ne0 11188  ax-1rid 11189  ax-rnegex 11190  ax-rrecex 11191  ax-cnre 11192  ax-pre-lttri 11193  ax-pre-lttrn 11194  ax-pre-ltadd 11195  ax-pre-mulgt0 11196
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-er 8700  df-map 8832  df-ixp 8902  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-pnf 11264  df-mnf 11265  df-xr 11266  df-ltxr 11267  df-le 11268  df-sub 11462  df-neg 11463  df-nn 12253  df-2 12322  df-3 12323  df-4 12324  df-5 12325  df-6 12326  df-7 12327  df-8 12328  df-9 12329  df-n0 12524  df-z 12611  df-dec 12732  df-uz 12883  df-fz 13556  df-struct 17233  df-slot 17268  df-ndx 17280  df-base 17296  df-hom 17360  df-cco 17361  df-cat 17750  df-cid 17751  df-func 17941  df-cofu 17943  df-nat 18029  df-fuc 18030  df-xpc 18254  df-1stf 18255  df-curf 18296  df-diag 18298
This theorem is used by:  prcofdiag  50248
  Copyright terms: Public domain W3C validator