Theorem eldmcoa 18126

Description: A pair ⟨𝐺, 𝐹⟩ is in the domain of the arrow composition, if the domain of 𝐺 equals the codomain of 𝐹. (In this case we say 𝐺 and 𝐹 are composable.) (Contributed by Mario Carneiro, 11-Jan-2017.)

Hypotheses

Ref	Expression
coafval.o	⊢ · = (compa‘𝐶)
coafval.a	⊢ 𝐴 = (Arrow‘𝐶)

Assertion

Ref	Expression
eldmcoa	⊢ (𝐺dom · 𝐹 ↔ (𝐹 ∈ 𝐴 ∧ 𝐺 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺)))

Proof of Theorem eldmcoa

Dummy variables 𝑓 𝑔 ℎ are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-br 5110	. 2 ⊢ (𝐺dom · 𝐹 ↔ ⟨𝐺, 𝐹⟩ ∈ dom · )
2		otex 5447	. . . . . 6 ⊢ ⟨(doma‘𝑓), (coda‘𝑔), ((2nd ‘𝑔)(⟨(doma‘𝑓), (doma‘𝑔)⟩(comp‘𝐶)(coda‘𝑔))(2nd ‘𝑓))⟩ ∈ V
3	2	rgen2w 3084	. . . . 5 ⊢ ∀𝑔 ∈ 𝐴 ∀𝑓 ∈ {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝑔)}⟨(doma‘𝑓), (coda‘𝑔), ((2nd ‘𝑔)(⟨(doma‘𝑓), (doma‘𝑔)⟩(comp‘𝐶)(coda‘𝑔))(2nd ‘𝑓))⟩ ∈ V
4		coafval.o	. . . . . . 7 ⊢ · = (compa‘𝐶)
5		coafval.a	. . . . . . 7 ⊢ 𝐴 = (Arrow‘𝐶)
6		eqid 2763	. . . . . . 7 ⊢ (comp‘𝐶) = (comp‘𝐶)
7	4, 5, 6	coafval 18125	. . . . . 6 ⊢ · = (𝑔 ∈ 𝐴, 𝑓 ∈ {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝑔)} ↦ ⟨(doma‘𝑓), (coda‘𝑔), ((2nd ‘𝑔)(⟨(doma‘𝑓), (doma‘𝑔)⟩(comp‘𝐶)(coda‘𝑔))(2nd ‘𝑓))⟩)
8	7	fmpox 8060	. . . . 5 ⊢ (∀𝑔 ∈ 𝐴 ∀𝑓 ∈ {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝑔)}⟨(doma‘𝑓), (coda‘𝑔), ((2nd ‘𝑔)(⟨(doma‘𝑓), (doma‘𝑔)⟩(comp‘𝐶)(coda‘𝑔))(2nd ‘𝑓))⟩ ∈ V ↔ · :∪ 𝑔 ∈ 𝐴 ({𝑔} × {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝑔)})⟶V)
9	3, 8	mpbi 233	. . . 4 ⊢ · :∪ 𝑔 ∈ 𝐴 ({𝑔} × {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝑔)})⟶V
10	9	fdmi 6717	. . 3 ⊢ dom · = ∪ 𝑔 ∈ 𝐴 ({𝑔} × {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝑔)})
11	10	eleq2i 2855	. 2 ⊢ (⟨𝐺, 𝐹⟩ ∈ dom · ↔ ⟨𝐺, 𝐹⟩ ∈ ∪ 𝑔 ∈ 𝐴 ({𝑔} × {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝑔)}))
12		fveq2 6881	. . . . . 6 ⊢ (𝑔 = 𝐺 → (doma‘𝑔) = (doma‘𝐺))
13	12	eqeq2d 2774	. . . . 5 ⊢ (𝑔 = 𝐺 → ((coda‘ℎ) = (doma‘𝑔) ↔ (coda‘ℎ) = (doma‘𝐺)))
14	13	rabbidv 3423	. . . 4 ⊢ (𝑔 = 𝐺 → {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝑔)} = {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝐺)})
15	14	opeliunxp2 5824	. . 3 ⊢ (⟨𝐺, 𝐹⟩ ∈ ∪ 𝑔 ∈ 𝐴 ({𝑔} × {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝑔)}) ↔ (𝐺 ∈ 𝐴 ∧ 𝐹 ∈ {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝐺)}))
16		fveqeq2 6890	. . . . 5 ⊢ (ℎ = 𝐹 → ((coda‘ℎ) = (doma‘𝐺) ↔ (coda‘𝐹) = (doma‘𝐺)))
17	16	elrab 3650	. . . 4 ⊢ (𝐹 ∈ {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝐺)} ↔ (𝐹 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺)))
18	17	anbi2i 634	. . 3 ⊢ ((𝐺 ∈ 𝐴 ∧ 𝐹 ∈ {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝐺)}) ↔ (𝐺 ∈ 𝐴 ∧ (𝐹 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺))))
19		an12 657	. . . 4 ⊢ ((𝐺 ∈ 𝐴 ∧ (𝐹 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺))) ↔ (𝐹 ∈ 𝐴 ∧ (𝐺 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺))))
20		3anass 1111	. . . 4 ⊢ ((𝐹 ∈ 𝐴 ∧ 𝐺 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺)) ↔ (𝐹 ∈ 𝐴 ∧ (𝐺 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺))))
21	19, 20	bitr4i 281	. . 3 ⊢ ((𝐺 ∈ 𝐴 ∧ (𝐹 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺))) ↔ (𝐹 ∈ 𝐴 ∧ 𝐺 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺)))
22	15, 18, 21	3bitri 300	. 2 ⊢ (⟨𝐺, 𝐹⟩ ∈ ∪ 𝑔 ∈ 𝐴 ({𝑔} × {ℎ ∈ 𝐴 ∣ (coda‘ℎ) = (doma‘𝑔)}) ↔ (𝐹 ∈ 𝐴 ∧ 𝐺 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺)))
23	1, 11, 22	3bitri 300	1 ⊢ (𝐺dom · 𝐹 ↔ (𝐹 ∈ 𝐴 ∧ 𝐺 ∈ 𝐴 ∧ (coda‘𝐹) = (doma‘𝐺)))

This proof depends on syntax axioms:   ↔ wb 209   ∧ wa 400   ∧ w3a 1103   = wceq 1570   ∈ wcel 2143  ∀wral 3079  {crab 3416  Vcvv 3455  {csn 4589  ⟨cop 4595  ⟨cotp 4597  ∪ ciun 4956   class class class wbr 5109   × cxp 5659  dom cdm 5661  ⟶wf 6532  ‘cfv 6536  (class class class)co 7410  2^nd c2nd 7981  compcco 17326  dom_acdoma 18081  cod_accoda 18082  Arrowcarw 18083  comp_accoa 18115

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732

This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-ot 4598  df-uni 4873  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-id 5556  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-ov 7413  df-oprab 7414  df-mpo 7415  df-1st 7982  df-2nd 7983  df-arw 18088  df-coa 18117

This theorem is used by:  homdmcoa  18128  coapm  18132