coapm - Metamath Proof Explorer

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

Theorem coapm 16721

Description: Composition of arrows is a partial binary operation on arrows. (Contributed by Mario Carneiro, 11-Jan-2017.)

**Hypotheses**
Ref	Expression
coapm.o	⊢ · = (comp_a‘𝐶)
coapm.a	⊢ 𝐴 = (Arrow‘𝐶)

**Assertion**
Ref	Expression
coapm	⊢ · ∈ (𝐴 ↑_pm (𝐴 × 𝐴))

Proof of Theorem coapm Dummy variables 𝑓 𝑔 ℎ 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		coapm.o	. . . . . 6 ⊢ · = (comp_a‘𝐶)
2		coapm.a	. . . . . 6 ⊢ 𝐴 = (Arrow‘𝐶)
3		eqid 2622	. . . . . 6 ⊢ (comp‘𝐶) = (comp‘𝐶)
4	1, 2, 3	coafval 16714	. . . . 5 ⊢ · = (𝑔 ∈ 𝐴, 𝑓 ∈ {ℎ ∈ 𝐴 ∣ (cod_a‘ℎ) = (dom_a‘𝑔)} ↦ ⟨(dom_a‘𝑓), (cod_a‘𝑔), ((2^nd ‘𝑔)(⟨(dom_a‘𝑓), (dom_a‘𝑔)⟩(comp‘𝐶)(cod_a‘𝑔))(2^nd ‘𝑓))⟩)
5	4	mpt2fun 6762	. . . 4 ⊢ Fun ·
6		funfn 5918	. . . 4 ⊢ (Fun · ↔ · Fn dom · )
7	5, 6	mpbi 220	. . 3 ⊢ · Fn dom ·
8	1, 2	dmcoass 16716	. . . . . . . . 9 ⊢ dom · ⊆ (𝐴 × 𝐴)
9	8	sseli 3599	. . . . . . . 8 ⊢ (𝑧 ∈ dom · → 𝑧 ∈ (𝐴 × 𝐴))
10		1st2nd2 7205	. . . . . . . 8 ⊢ (𝑧 ∈ (𝐴 × 𝐴) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
11	9, 10	syl 17	. . . . . . 7 ⊢ (𝑧 ∈ dom · → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
12	11	fveq2d 6195	. . . . . 6 ⊢ (𝑧 ∈ dom · → ( · ‘𝑧) = ( · ‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩))
13		df-ov 6653	. . . . . 6 ⊢ ((1^st ‘𝑧) · (2^nd ‘𝑧)) = ( · ‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
14	12, 13	syl6eqr 2674	. . . . 5 ⊢ (𝑧 ∈ dom · → ( · ‘𝑧) = ((1^st ‘𝑧) · (2^nd ‘𝑧)))
15		eqid 2622	. . . . . . 7 ⊢ (Hom_a‘𝐶) = (Hom_a‘𝐶)
16	2, 15	homarw 16696	. . . . . 6 ⊢ ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(cod_a‘(1^st ‘𝑧))) ⊆ 𝐴
17		id 22	. . . . . . . . . . . . 13 ⊢ (𝑧 ∈ dom · → 𝑧 ∈ dom · )
18	11, 17	eqeltrrd 2702	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ dom · → ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ ∈ dom · )
19		df-br 4654	. . . . . . . . . . . 12 ⊢ ((1^st ‘𝑧)dom · (2^nd ‘𝑧) ↔ ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ ∈ dom · )
20	18, 19	sylibr 224	. . . . . . . . . . 11 ⊢ (𝑧 ∈ dom · → (1^st ‘𝑧)dom · (2^nd ‘𝑧))
21	1, 2	eldmcoa 16715	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑧)dom · (2^nd ‘𝑧) ↔ ((2^nd ‘𝑧) ∈ 𝐴 ∧ (1^st ‘𝑧) ∈ 𝐴 ∧ (cod_a‘(2^nd ‘𝑧)) = (dom_a‘(1^st ‘𝑧))))
22	20, 21	sylib 208	. . . . . . . . . 10 ⊢ (𝑧 ∈ dom · → ((2^nd ‘𝑧) ∈ 𝐴 ∧ (1^st ‘𝑧) ∈ 𝐴 ∧ (cod_a‘(2^nd ‘𝑧)) = (dom_a‘(1^st ‘𝑧))))
23	22	simp1d 1073	. . . . . . . . 9 ⊢ (𝑧 ∈ dom · → (2^nd ‘𝑧) ∈ 𝐴)
24	2, 15	arwhoma 16695	. . . . . . . . 9 ⊢ ((2^nd ‘𝑧) ∈ 𝐴 → (2^nd ‘𝑧) ∈ ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(cod_a‘(2^nd ‘𝑧))))
25	23, 24	syl 17	. . . . . . . 8 ⊢ (𝑧 ∈ dom · → (2^nd ‘𝑧) ∈ ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(cod_a‘(2^nd ‘𝑧))))
26	22	simp3d 1075	. . . . . . . . 9 ⊢ (𝑧 ∈ dom · → (cod_a‘(2^nd ‘𝑧)) = (dom_a‘(1^st ‘𝑧)))
27	26	oveq2d 6666	. . . . . . . 8 ⊢ (𝑧 ∈ dom · → ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(cod_a‘(2^nd ‘𝑧))) = ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(dom_a‘(1^st ‘𝑧))))
28	25, 27	eleqtrd 2703	. . . . . . 7 ⊢ (𝑧 ∈ dom · → (2^nd ‘𝑧) ∈ ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(dom_a‘(1^st ‘𝑧))))
29	22	simp2d 1074	. . . . . . . 8 ⊢ (𝑧 ∈ dom · → (1^st ‘𝑧) ∈ 𝐴)
30	2, 15	arwhoma 16695	. . . . . . . 8 ⊢ ((1^st ‘𝑧) ∈ 𝐴 → (1^st ‘𝑧) ∈ ((dom_a‘(1^st ‘𝑧))(Hom_a‘𝐶)(cod_a‘(1^st ‘𝑧))))
31	29, 30	syl 17	. . . . . . 7 ⊢ (𝑧 ∈ dom · → (1^st ‘𝑧) ∈ ((dom_a‘(1^st ‘𝑧))(Hom_a‘𝐶)(cod_a‘(1^st ‘𝑧))))
32	1, 15, 28, 31	coahom 16720	. . . . . 6 ⊢ (𝑧 ∈ dom · → ((1^st ‘𝑧) · (2^nd ‘𝑧)) ∈ ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(cod_a‘(1^st ‘𝑧))))
33	16, 32	sseldi 3601	. . . . 5 ⊢ (𝑧 ∈ dom · → ((1^st ‘𝑧) · (2^nd ‘𝑧)) ∈ 𝐴)
34	14, 33	eqeltrd 2701	. . . 4 ⊢ (𝑧 ∈ dom · → ( · ‘𝑧) ∈ 𝐴)
35	34	rgen 2922	. . 3 ⊢ ∀𝑧 ∈ dom · ( · ‘𝑧) ∈ 𝐴
36		ffnfv 6388	. . 3 ⊢ ( · :dom · ⟶𝐴 ↔ ( · Fn dom · ∧ ∀𝑧 ∈ dom · ( · ‘𝑧) ∈ 𝐴))
37	7, 35, 36	mpbir2an 955	. 2 ⊢ · :dom · ⟶𝐴
38		fvex 6201	. . . 4 ⊢ (Arrow‘𝐶) ∈ V
39	2, 38	eqeltri 2697	. . 3 ⊢ 𝐴 ∈ V
40	39, 39	xpex 6962	. . 3 ⊢ (𝐴 × 𝐴) ∈ V
41	39, 40	elpm2 7889	. 2 ⊢ ( · ∈ (𝐴 ↑_pm (𝐴 × 𝐴)) ↔ ( · :dom · ⟶𝐴 ∧ dom · ⊆ (𝐴 × 𝐴)))
42	37, 8, 41	mpbir2an 955	1 ⊢ · ∈ (𝐴 ↑_pm (𝐴 × 𝐴))

Colors of variables: wff setvar class

Syntax hints: ∧ w3a 1037 = wceq 1483 ∈ wcel 1990 ∀wral 2912 {crab 2916 Vcvv 3200 ⊆ wss 3574 ⟨cop 4183 ⟨cotp 4185 class class class wbr 4653 × cxp 5112 dom cdm 5114 Fun wfun 5882 Fn wfn 5883 ⟶wf 5884 ‘cfv 5888 (class class class)co 6650 1^st c1st 7166 2^nd c2nd 7167 ↑_pm cpm 7858 compcco 15953 dom_acdoma 16670 cod_accoda 16671 Arrowcarw 16672 Hom_achoma 16673 comp_accoa 16704

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1722 ax-4 1737 ax-5 1839 ax-6 1888 ax-7 1935 ax-8 1992 ax-9 1999 ax-10 2019 ax-11 2034 ax-12 2047 ax-13 2246 ax-ext 2602 ax-rep 4771 ax-sep 4781 ax-nul 4789 ax-pow 4843 ax-pr 4906 ax-un 6949

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3an 1039 df-tru 1486 df-ex 1705 df-nf 1710 df-sb 1881 df-eu 2474 df-mo 2475 df-clab 2609 df-cleq 2615 df-clel 2618 df-nfc 2753 df-ne 2795 df-ral 2917 df-rex 2918 df-reu 2919 df-rab 2921 df-v 3202 df-sbc 3436 df-csb 3534 df-dif 3577 df-un 3579 df-in 3581 df-ss 3588 df-nul 3916 df-if 4087 df-pw 4160 df-sn 4178 df-pr 4180 df-op 4184 df-ot 4186 df-uni 4437 df-iun 4522 df-br 4654 df-opab 4713 df-mpt 4730 df-id 5024 df-xp 5120 df-rel 5121 df-cnv 5122 df-co 5123 df-dm 5124 df-rn 5125 df-res 5126 df-ima 5127 df-iota 5851 df-fun 5890 df-fn 5891 df-f 5892 df-f1 5893 df-fo 5894 df-f1o 5895 df-fv 5896 df-ov 6653 df-oprab 6654 df-mpt2 6655 df-1st 7168 df-2nd 7169 df-pm 7860 df-cat 16329 df-doma 16674 df-coda 16675 df-homa 16676 df-arw 16677 df-coa 16706

This theorem is referenced by: (None)

W3C validator