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 18261

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 2763	. . . . . 6 ⊢ (comp‘𝐶) = (comp‘𝐶)
4	1, 2, 3	coafval 18254	. . . . 5 ⊢ · = (𝑔 ∈ 𝐴, 𝑓 ∈ {ℎ ∈ 𝐴 ∣ (cod_a‘ℎ) = (dom_a‘𝑔)} ↦ ⟨(dom_a‘𝑓), (cod_a‘𝑔), ((2^nd ‘𝑔)(⟨(dom_a‘𝑓), (dom_a‘𝑔)⟩(comp‘𝐶)(cod_a‘𝑔))(2^nd ‘𝑓))⟩)
5	4	mpofun 7554	. . . 4 ⊢ Fun ·
6		funfn 6579	. . . 4 ⊢ (Fun · ↔ · Fn dom · )
7	5, 6	mpbi 233	. . 3 ⊢ · Fn dom ·
8	1, 2	dmcoass 18256	. . . . . . . . 9 ⊢ dom · ⊆ (𝐴 × 𝐴)
9	8	sseli 3909	. . . . . . . 8 ⊢ (𝑧 ∈ dom · → 𝑧 ∈ (𝐴 × 𝐴))
10		1st2nd2 8050	. . . . . . . 8 ⊢ (𝑧 ∈ (𝐴 × 𝐴) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
11	9, 10	syl 18	. . . . . . 7 ⊢ (𝑧 ∈ dom · → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
12	11	fveq2d 6900	. . . . . 6 ⊢ (𝑧 ∈ dom · → ( · ‘𝑧) = ( · ‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩))
13		df-ov 7433	. . . . . 6 ⊢ ((1^st ‘𝑧) · (2^nd ‘𝑧)) = ( · ‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
14	12, 13	eqtr4di 2816	. . . . 5 ⊢ (𝑧 ∈ dom · → ( · ‘𝑧) = ((1^st ‘𝑧) · (2^nd ‘𝑧)))
15		eqid 2763	. . . . . . 7 ⊢ (Hom_a‘𝐶) = (Hom_a‘𝐶)
16	2, 15	homarw 18236	. . . . . 6 ⊢ ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(cod_a‘(1^st ‘𝑧))) ⊆ 𝐴
17		id 23	. . . . . . . . . . . . 13 ⊢ (𝑧 ∈ dom · → 𝑧 ∈ dom · )
18	11, 17	eqeltrrd 2865	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ dom · → ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ ∈ dom · )
19		df-br 5107	. . . . . . . . . . . 12 ⊢ ((1^st ‘𝑧)dom · (2^nd ‘𝑧) ↔ ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ ∈ dom · )
20	18, 19	sylibr 237	. . . . . . . . . . 11 ⊢ (𝑧 ∈ dom · → (1^st ‘𝑧)dom · (2^nd ‘𝑧))
21	1, 2	eldmcoa 18255	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑧)dom · (2^nd ‘𝑧) ↔ ((2^nd ‘𝑧) ∈ 𝐴 ∧ (1^st ‘𝑧) ∈ 𝐴 ∧ (cod_a‘(2^nd ‘𝑧)) = (dom_a‘(1^st ‘𝑧))))
22	20, 21	sylib 221	. . . . . . . . . 10 ⊢ (𝑧 ∈ dom · → ((2^nd ‘𝑧) ∈ 𝐴 ∧ (1^st ‘𝑧) ∈ 𝐴 ∧ (cod_a‘(2^nd ‘𝑧)) = (dom_a‘(1^st ‘𝑧))))
23	22	simp1d 1160	. . . . . . . . 9 ⊢ (𝑧 ∈ dom · → (2^nd ‘𝑧) ∈ 𝐴)
24	2, 15	arwhoma 18235	. . . . . . . . 9 ⊢ ((2^nd ‘𝑧) ∈ 𝐴 → (2^nd ‘𝑧) ∈ ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(cod_a‘(2^nd ‘𝑧))))
25	23, 24	syl 18	. . . . . . . 8 ⊢ (𝑧 ∈ dom · → (2^nd ‘𝑧) ∈ ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(cod_a‘(2^nd ‘𝑧))))
26	22	simp3d 1162	. . . . . . . . 9 ⊢ (𝑧 ∈ dom · → (cod_a‘(2^nd ‘𝑧)) = (dom_a‘(1^st ‘𝑧)))
27	26	oveq2d 7446	. . . . . . . 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 2866	. . . . . . 7 ⊢ (𝑧 ∈ dom · → (2^nd ‘𝑧) ∈ ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(dom_a‘(1^st ‘𝑧))))
29	22	simp2d 1161	. . . . . . . 8 ⊢ (𝑧 ∈ dom · → (1^st ‘𝑧) ∈ 𝐴)
30	2, 15	arwhoma 18235	. . . . . . . 8 ⊢ ((1^st ‘𝑧) ∈ 𝐴 → (1^st ‘𝑧) ∈ ((dom_a‘(1^st ‘𝑧))(Hom_a‘𝐶)(cod_a‘(1^st ‘𝑧))))
31	29, 30	syl 18	. . . . . . 7 ⊢ (𝑧 ∈ dom · → (1^st ‘𝑧) ∈ ((dom_a‘(1^st ‘𝑧))(Hom_a‘𝐶)(cod_a‘(1^st ‘𝑧))))
32	1, 15, 28, 31	coahom 18260	. . . . . 6 ⊢ (𝑧 ∈ dom · → ((1^st ‘𝑧) · (2^nd ‘𝑧)) ∈ ((dom_a‘(2^nd ‘𝑧))(Hom_a‘𝐶)(cod_a‘(1^st ‘𝑧))))
33	16, 32	sselid 3911	. . . . 5 ⊢ (𝑧 ∈ dom · → ((1^st ‘𝑧) · (2^nd ‘𝑧)) ∈ 𝐴)
34	14, 33	eqeltrd 2864	. . . 4 ⊢ (𝑧 ∈ dom · → ( · ‘𝑧) ∈ 𝐴)
35	34	rgen 3082	. . 3 ⊢ ∀𝑧 ∈ dom · ( · ‘𝑧) ∈ 𝐴
36		ffnfv 7130	. . 3 ⊢ ( · :dom · ⟶𝐴 ↔ ( · Fn dom · ∧ ∀𝑧 ∈ dom · ( · ‘𝑧) ∈ 𝐴))
37	7, 35, 36	mpbir2an 724	. 2 ⊢ · :dom · ⟶𝐴
38	2	fvexi 6910	. . 3 ⊢ 𝐴 ∈ V
39	38, 38	xpex 7777	. . 3 ⊢ (𝐴 × 𝐴) ∈ V
40	38, 39	elpm2 8916	. 2 ⊢ ( · ∈ (𝐴 ↑_pm (𝐴 × 𝐴)) ↔ ( · :dom · ⟶𝐴 ∧ dom · ⊆ (𝐴 × 𝐴)))
41	37, 8, 40	mpbir2an 724	1 ⊢ · ∈ (𝐴 ↑_pm (𝐴 × 𝐴))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ∧ w3a 1103 = wceq 1569 ∈ wcel 2146 ∀wral 3080 {crab 3416 ⊆ wss 3900 ⟨cop 4838 ⟨cotp 4861 class class class wbr 5106 × cxp 5653 dom cdm 5655 Fun wfun 6541 Fn wfn 6542 ⟶wf 6543 ‘cfv 6547 (class class class)co 7430 1^st c1st 8009 2^nd c2nd 8010 ↑_pm cpm 8862 compcco 17455 dom_acdoma 18210 cod_accoda 18211 Arrowcarw 18212 Hom_achoma 18213 comp_accoa 18244

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1944 ax-6 2001 ax-7 2042 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2196 ax-12 2215 ax-ext 2735 ax-rep 5235 ax-sep 5252 ax-nul 5263 ax-pow 5331 ax-pr 5395 ax-un 7761

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2101 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-nfc 2913 df-ne 2960 df-ral 3081 df-rex 3091 df-reu 3370 df-rab 3417 df-v 3456 df-sbc 3743 df-csb 3852 df-ss 3901 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-pw 4562 df-sn 4589 df-pr 4591 df-op 4839 df-ot 4862 df-uni 4871 df-iun 4956 df-br 5107 df-opab 5171 df-mpt 5190 df-id 5550 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-iota 6501 df-fun 6549 df-fn 6550 df-f 6551 df-f1 6552 df-fo 6553 df-f1o 6554 df-fv 6555 df-ov 7433 df-oprab 7434 df-mpo 7435 df-1st 8011 df-2nd 8012 df-pm 8864 df-cat 17857 df-doma 18214 df-coda 18215 df-homa 18216 df-arw 18217 df-coa 18246

This theorem is used by: (None)

W3C validator