diag11 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > diag11		Structured version Visualization version GIF version

Theorem diag11 18209

Description: Value of the constant functor at an object. (Contributed by Mario Carneiro, 7-Jan-2017.) (Revised by Mario Carneiro, 15-Jan-2017.)

**Hypotheses**
Ref	Expression
diagval.l	⊢ 𝐿 = (𝐶Δ_func𝐷)
diagval.c	⊢ (𝜑 → 𝐶 ∈ Cat)
diagval.d	⊢ (𝜑 → 𝐷 ∈ Cat)
diag11.a	⊢ 𝐴 = (Base‘𝐶)
diag11.c	⊢ (𝜑 → 𝑋 ∈ 𝐴)
diag11.k	⊢ 𝐾 = ((1^st ‘𝐿)‘𝑋)
diag11.b	⊢ 𝐵 = (Base‘𝐷)
diag11.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)

**Assertion**
Ref	Expression
diag11	⊢ (𝜑 → ((1^st ‘𝐾)‘𝑌) = 𝑋)

**Proof of Theorem diag11**
Step	Hyp	Ref	Expression
1		diag11.k	. . . . 5 ⊢ 𝐾 = ((1^st ‘𝐿)‘𝑋)
2		diagval.l	. . . . . . . 8 ⊢ 𝐿 = (𝐶Δ_func𝐷)
3		diagval.c	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ Cat)
4		diagval.d	. . . . . . . 8 ⊢ (𝜑 → 𝐷 ∈ Cat)
5	2, 3, 4	diagval 18206	. . . . . . 7 ⊢ (𝜑 → 𝐿 = (⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷)))
6	5	fveq2d 6844	. . . . . 6 ⊢ (𝜑 → (1^st ‘𝐿) = (1^st ‘(⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷))))
7	6	fveq1d 6842	. . . . 5 ⊢ (𝜑 → ((1^st ‘𝐿)‘𝑋) = ((1^st ‘(⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷)))‘𝑋))
8	1, 7	eqtrid 2783	. . . 4 ⊢ (𝜑 → 𝐾 = ((1^st ‘(⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷)))‘𝑋))
9	8	fveq2d 6844	. . 3 ⊢ (𝜑 → (1^st ‘𝐾) = (1^st ‘((1^st ‘(⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷)))‘𝑋)))
10	9	fveq1d 6842	. 2 ⊢ (𝜑 → ((1^st ‘𝐾)‘𝑌) = ((1^st ‘((1^st ‘(⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷)))‘𝑋))‘𝑌))
11		eqid 2736	. . 3 ⊢ (⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷)) = (⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷))
12		diag11.a	. . 3 ⊢ 𝐴 = (Base‘𝐶)
13		eqid 2736	. . . 4 ⊢ (𝐶 ×_c 𝐷) = (𝐶 ×_c 𝐷)
14		eqid 2736	. . . 4 ⊢ (𝐶 1^st_F 𝐷) = (𝐶 1^st_F 𝐷)
15	13, 3, 4, 14	1stfcl 18163	. . 3 ⊢ (𝜑 → (𝐶 1^st_F 𝐷) ∈ ((𝐶 ×_c 𝐷) Func 𝐶))
16		diag11.b	. . 3 ⊢ 𝐵 = (Base‘𝐷)
17		diag11.c	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐴)
18		eqid 2736	. . 3 ⊢ ((1^st ‘(⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷)))‘𝑋) = ((1^st ‘(⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷)))‘𝑋)
19		diag11.y	. . 3 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
20	11, 12, 3, 4, 15, 16, 17, 18, 19	curf11 18192	. 2 ⊢ (𝜑 → ((1^st ‘((1^st ‘(⟨𝐶, 𝐷⟩ curry_F (𝐶 1^st_F 𝐷)))‘𝑋))‘𝑌) = (𝑋(1^st ‘(𝐶 1^st_F 𝐷))𝑌))
21		df-ov 7370	. . . 4 ⊢ (𝑋(1^st ‘(𝐶 1^st_F 𝐷))𝑌) = ((1^st ‘(𝐶 1^st_F 𝐷))‘⟨𝑋, 𝑌⟩)
22	13, 12, 16	xpcbas 18144	. . . . 5 ⊢ (𝐴 × 𝐵) = (Base‘(𝐶 ×_c 𝐷))
23		eqid 2736	. . . . 5 ⊢ (Hom ‘(𝐶 ×_c 𝐷)) = (Hom ‘(𝐶 ×_c 𝐷))
24	17, 19	opelxpd 5670	. . . . 5 ⊢ (𝜑 → ⟨𝑋, 𝑌⟩ ∈ (𝐴 × 𝐵))
25	13, 22, 23, 3, 4, 14, 24	1stf1 18158	. . . 4 ⊢ (𝜑 → ((1^st ‘(𝐶 1^st_F 𝐷))‘⟨𝑋, 𝑌⟩) = (1^st ‘⟨𝑋, 𝑌⟩))
26	21, 25	eqtrid 2783	. . 3 ⊢ (𝜑 → (𝑋(1^st ‘(𝐶 1^st_F 𝐷))𝑌) = (1^st ‘⟨𝑋, 𝑌⟩))
27		op1stg 7954	. . . 4 ⊢ ((𝑋 ∈ 𝐴 ∧ 𝑌 ∈ 𝐵) → (1^st ‘⟨𝑋, 𝑌⟩) = 𝑋)
28	17, 19, 27	syl2anc 585	. . 3 ⊢ (𝜑 → (1^st ‘⟨𝑋, 𝑌⟩) = 𝑋)
29	26, 28	eqtrd 2771	. 2 ⊢ (𝜑 → (𝑋(1^st ‘(𝐶 1^st_F 𝐷))𝑌) = 𝑋)
30	10, 20, 29	3eqtrd 2775	1 ⊢ (𝜑 → ((1^st ‘𝐾)‘𝑌) = 𝑋)

Colors of variables: wff setvar class

Syntax hints: → wi 4 = wceq 1542 ∈ wcel 2114 ⟨cop 4573 × cxp 5629 ‘cfv 6498 (class class class)co 7367 1^st c1st 7940 Basecbs 17179 Hom chom 17231 Catccat 17630 ×_c cxpc 18134 1^st_F c1stf 18135 curry_F ccurf 18176 Δ_funccdiag 18178

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 2708 ax-rep 5212 ax-sep 5231 ax-nul 5241 ax-pow 5307 ax-pr 5375 ax-un 7689 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3062 df-rmo 3342 df-reu 3343 df-rab 3390 df-v 3431 df-sbc 3729 df-csb 3838 df-dif 3892 df-un 3894 df-in 3896 df-ss 3906 df-pss 3909 df-nul 4274 df-if 4467 df-pw 4543 df-sn 4568 df-pr 4570 df-tp 4572 df-op 4574 df-uni 4851 df-iun 4935 df-br 5086 df-opab 5148 df-mpt 5167 df-tr 5193 df-id 5526 df-eprel 5531 df-po 5539 df-so 5540 df-fr 5584 df-we 5586 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-pred 6265 df-ord 6326 df-on 6327 df-lim 6328 df-suc 6329 df-iota 6454 df-fun 6500 df-fn 6501 df-f 6502 df-f1 6503 df-fo 6504 df-f1o 6505 df-fv 6506 df-riota 7324 df-ov 7370 df-oprab 7371 df-mpo 7372 df-om 7818 df-1st 7942 df-2nd 7943 df-frecs 8231 df-wrecs 8262 df-recs 8311 df-rdg 8349 df-1o 8405 df-er 8643 df-map 8775 df-ixp 8846 df-en 8894 df-dom 8895 df-sdom 8896 df-fin 8897 df-pnf 11181 df-mnf 11182 df-xr 11183 df-ltxr 11184 df-le 11185 df-sub 11379 df-neg 11380 df-nn 12175 df-2 12244 df-3 12245 df-4 12246 df-5 12247 df-6 12248 df-7 12249 df-8 12250 df-9 12251 df-n0 12438 df-z 12525 df-dec 12645 df-uz 12789 df-fz 13462 df-struct 17117 df-slot 17152 df-ndx 17164 df-base 17180 df-hom 17244 df-cco 17245 df-cat 17634 df-cid 17635 df-func 17825 df-xpc 18138 df-1stf 18139 df-curf 18180 df-diag 18182

This theorem is referenced by: curf2ndf 18213 diag1 49779 prcofdiag1 49868 oppfdiag1 49889 isinito2lem 49973 isinito3 49975 diag2f1olem 50011 concl 50136 coccl 50137 concom 50138 coccom 50139 islmd 50140 iscmd 50141

W3C validator