Theorem catcval 15991

Description: Value of the category of categories (in a universe). (Contributed by Mario Carneiro, 3-Jan-2017.)

Hypotheses

Ref	Expression
catcval.c	|- C = (CatCat ` U )
catcval.u	|- ( ph -> U e. V )
catcval.b	|- ( ph -> B = ( U i^i Cat ) )
catcval.h	|- ( ph -> H = ( x e. B , y e. B |-> ( x Func y ) ) )
catcval.o	|- ( ph -> .x. = ( v e. ( B X. B ) , z e. B |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) )

Assertion

Ref	Expression
catcval	|- ( ph -> C = { <. ( Base ` ndx ) , B >. , <. ( Hom ` ndx ) , H >. , <. (comp ` ndx ) , .x. >. } )

Distinct variable groups:   x, v, y, z, B   ph, v, x, y, z   v, U, x, y, z   f, g, v, x, y, z

Allowed substitution hints:   ph( f, g)   B( f, g)   C( x, y, z, v, f, g)   .x. ( x, y, z, v, f, g)   U( f, g)   H( x, y, z, v, f, g)   V( x, y, z, v, f, g)

Proof of Theorem catcval

Dummy variables u b are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		catcval.c	. 2 |- C = (CatCat ` U )
2		df-catc 15990	. . . 4 |- CatCat = ( u e. _V |-> [_ ( u i^i Cat ) / b ]_ { <. ( Base ` ndx ) , b >. , <. ( Hom ` ndx ) , ( x e. b , y e. b |-> ( x Func y ) ) >. , <. (comp ` ndx ) , ( v e. ( b X. b ) , z e. b |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) >. } )
3	2	a1i 11	. . 3 |- ( ph -> CatCat = ( u e. _V |-> [_ ( u i^i Cat ) / b ]_ { <. ( Base ` ndx ) , b >. , <. ( Hom ` ndx ) , ( x e. b , y e. b |-> ( x Func y ) ) >. , <. (comp ` ndx ) , ( v e. ( b X. b ) , z e. b |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) >. } ) )
4		vex 3083	. . . . . 6 |- u e. _V
5	4	inex1 4565	. . . . 5 |- ( u i^i Cat ) e. _V
6	5	a1i 11	. . . 4 |- ( ( ph /\ u = U ) -> ( u i^i Cat ) e. _V )
7		simpr 462	. . . . . 6 |- ( ( ph /\ u = U ) -> u = U )
8	7	ineq1d 3663	. . . . 5 |- ( ( ph /\ u = U ) -> ( u i^i Cat ) = ( U i^i Cat ) )
9		catcval.b	. . . . . 6 |- ( ph -> B = ( U i^i Cat ) )
10	9	adantr 466	. . . . 5 |- ( ( ph /\ u = U ) -> B = ( U i^i Cat ) )
11	8, 10	eqtr4d 2466	. . . 4 |- ( ( ph /\ u = U ) -> ( u i^i Cat ) = B )
12		simpr 462	. . . . . 6 |- ( ( ( ph /\ u = U ) /\ b = B ) -> b = B )
13	12	opeq2d 4194	. . . . 5 |- ( ( ( ph /\ u = U ) /\ b = B ) -> <. ( Base ` ndx ) , b >. = <. ( Base ` ndx ) , B >. )
14		eqidd 2423	. . . . . . . 8 |- ( ( ( ph /\ u = U ) /\ b = B ) -> ( x Func y ) = ( x Func y ) )
15	12, 12, 14	mpt2eq123dv 6368	. . . . . . 7 |- ( ( ( ph /\ u = U ) /\ b = B ) -> ( x e. b , y e. b |-> ( x Func y ) ) = ( x e. B , y e. B |-> ( x Func y ) ) )
16		catcval.h	. . . . . . . 8 |- ( ph -> H = ( x e. B , y e. B |-> ( x Func y ) ) )
17	16	ad2antrr 730	. . . . . . 7 |- ( ( ( ph /\ u = U ) /\ b = B ) -> H = ( x e. B , y e. B |-> ( x Func y ) ) )
18	15, 17	eqtr4d 2466	. . . . . 6 |- ( ( ( ph /\ u = U ) /\ b = B ) -> ( x e. b , y e. b |-> ( x Func y ) ) = H )
19	18	opeq2d 4194	. . . . 5 |- ( ( ( ph /\ u = U ) /\ b = B ) -> <. ( Hom ` ndx ) , ( x e. b , y e. b |-> ( x Func y ) ) >. = <. ( Hom ` ndx ) , H >. )
20	12	sqxpeqd 4879	. . . . . . . 8 |- ( ( ( ph /\ u = U ) /\ b = B ) -> ( b X. b ) = ( B X. B ) )
21		eqidd 2423	. . . . . . . 8 |- ( ( ( ph /\ u = U ) /\ b = B ) -> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) = ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) )
22	20, 12, 21	mpt2eq123dv 6368	. . . . . . 7 |- ( ( ( ph /\ u = U ) /\ b = B ) -> ( v e. ( b X. b ) , z e. b |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) = ( v e. ( B X. B ) , z e. B |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) )
23		catcval.o	. . . . . . . 8 |- ( ph -> .x. = ( v e. ( B X. B ) , z e. B |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) )
24	23	ad2antrr 730	. . . . . . 7 |- ( ( ( ph /\ u = U ) /\ b = B ) -> .x. = ( v e. ( B X. B ) , z e. B |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) )
25	22, 24	eqtr4d 2466	. . . . . 6 |- ( ( ( ph /\ u = U ) /\ b = B ) -> ( v e. ( b X. b ) , z e. b |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) = .x. )
26	25	opeq2d 4194	. . . . 5 |- ( ( ( ph /\ u = U ) /\ b = B ) -> <. (comp ` ndx ) , ( v e. ( b X. b ) , z e. b |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) >. = <. (comp ` ndx ) , .x. >. )
27	13, 19, 26	tpeq123d 4094	. . . 4 |- ( ( ( ph /\ u = U ) /\ b = B ) -> { <. ( Base ` ndx ) , b >. , <. ( Hom ` ndx ) , ( x e. b , y e. b |-> ( x Func y ) ) >. , <. (comp ` ndx ) , ( v e. ( b X. b ) , z e. b |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) >. } = { <. ( Base ` ndx ) , B >. , <. ( Hom ` ndx ) , H >. , <. (comp ` ndx ) , .x. >. } )
28	6, 11, 27	csbied2 3423	. . 3 |- ( ( ph /\ u = U ) -> [_ ( u i^i Cat ) / b ]_ { <. ( Base ` ndx ) , b >. , <. ( Hom ` ndx ) , ( x e. b , y e. b |-> ( x Func y ) ) >. , <. (comp ` ndx ) , ( v e. ( b X. b ) , z e. b |-> ( g e. ( ( 2nd ` v ) Func z ) , f e. ( Func ` v ) |-> ( g o.func f ) ) ) >. } = { <. ( Base ` ndx ) , B >. , <. ( Hom ` ndx ) , H >. , <. (comp ` ndx ) , .x. >. } )
29		catcval.u	. . . 4 |- ( ph -> U e. V )
30		elex 3089	. . . 4 |- ( U e. V -> U e. _V )
31	29, 30	syl 17	. . 3 |- ( ph -> U e. _V )
32		tpex 6605	. . . 4 |- { <. ( Base ` ndx ) , B >. , <. ( Hom ` ndx ) , H >. , <. (comp ` ndx ) , .x. >. } e. _V
33	32	a1i 11	. . 3 |- ( ph -> { <. ( Base ` ndx ) , B >. , <. ( Hom ` ndx ) , H >. , <. (comp ` ndx ) , .x. >. } e. _V )
34	3, 28, 31, 33	fvmptd 5971	. 2 |- ( ph -> (CatCat ` U ) = { <. ( Base ` ndx ) , B >. , <. ( Hom ` ndx ) , H >. , <. (comp ` ndx ) , .x. >. } )
35	1, 34	syl5eq 2475	1 |- ( ph -> C = { <. ( Base ` ndx ) , B >. , <. ( Hom ` ndx ) , H >. , <. (comp ` ndx ) , .x. >. } )

Syntax hints:   -> wi 4   /\ wa 370   = wceq 1437   e. wcel 1872   _Vcvv 3080   [_csb 3395   i^i cin 3435   {ctp 4002   <.cop 4004   |-> cmpt 4482   X. cxp 4851   ` cfv 5601  (class class class)co 6306   |-> cmpt2 6308   2ndc2nd 6807   ndxcnx 15118   Basecbs 15121   Hom chom 15201  compcco 15202   Catccat 15570   Func cfunc 15759   o._func ccofu 15761  CatCatccatc 15989

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-8 1874  ax-9 1876  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2057  ax-ext 2401  ax-sep 4546  ax-nul 4555  ax-pr 4660  ax-un 6598

This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3an 984  df-tru 1440  df-ex 1658  df-nf 1662  df-sb 1791  df-eu 2273  df-mo 2274  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2568  df-ne 2616  df-ral 2776  df-rex 2777  df-rab 2780  df-v 3082  df-sbc 3300  df-csb 3396  df-dif 3439  df-un 3441  df-in 3443  df-ss 3450  df-nul 3762  df-if 3912  df-sn 3999  df-pr 4001  df-tp 4003  df-op 4005  df-uni 4220  df-br 4424  df-opab 4483  df-mpt 4484  df-id 4768  df-xp 4859  df-rel 4860  df-cnv 4861  df-co 4862  df-dm 4863  df-iota 5565  df-fun 5603  df-fv 5609  df-oprab 6310  df-mpt2 6311  df-catc 15990

This theorem is referenced by:  catcbas  15992  catchomfval  15993  catccofval  15995