Theorem xpcomco 9070

Description: Composition with the bijection of xpcomf1o 9069 swaps the arguments to a mapping. (Contributed by Mario Carneiro, 30-May-2015.)

Hypotheses

Ref	Expression
xpcomf1o.1	⊢ 𝐹 = (𝑥 ∈ (𝐴 × 𝐵) ↦ ∪ ◡{𝑥})
xpcomco.1	⊢ 𝐺 = (𝑦 ∈ 𝐵, 𝑧 ∈ 𝐴 ↦ 𝐶)

Assertion

Ref	Expression
xpcomco	⊢ (𝐺 ∘ 𝐹) = (𝑧 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ 𝐶)

Distinct variable groups:   𝑥,𝑦,𝑧,𝐴   𝑥,𝐵,𝑦,𝑧   𝑦,𝐹,𝑧

Allowed substitution hints:   𝐶(𝑥, 𝑦, 𝑧)   𝐹(𝑥)   𝐺(𝑥, 𝑦, 𝑧)

Proof of Theorem xpcomco

Dummy variables 𝑣 𝑢 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		xpcomf1o.1	. . . . . . . . . 10 ⊢ 𝐹 = (𝑥 ∈ (𝐴 × 𝐵) ↦ ∪ ◡{𝑥})
2	1	xpcomf1o 9069	. . . . . . . . 9 ⊢ 𝐹:(𝐴 × 𝐵)–1-1-onto→(𝐵 × 𝐴)
3		f1ofun 6818	. . . . . . . . 9 ⊢ (𝐹:(𝐴 × 𝐵)–1-1-onto→(𝐵 × 𝐴) → Fun 𝐹)
4		funbrfv2b 6934	. . . . . . . . 9 ⊢ (Fun 𝐹 → (𝑢𝐹𝑤 ↔ (𝑢 ∈ dom 𝐹 ∧ (𝐹‘𝑢) = 𝑤)))
5	2, 3, 4	mp2b 10	. . . . . . . 8 ⊢ (𝑢𝐹𝑤 ↔ (𝑢 ∈ dom 𝐹 ∧ (𝐹‘𝑢) = 𝑤))
6		ancom 466	. . . . . . . 8 ⊢ ((𝑢 ∈ dom 𝐹 ∧ (𝐹‘𝑢) = 𝑤) ↔ ((𝐹‘𝑢) = 𝑤 ∧ 𝑢 ∈ dom 𝐹))
7		eqcom 2768	. . . . . . . . 9 ⊢ ((𝐹‘𝑢) = 𝑤 ↔ 𝑤 = (𝐹‘𝑢))
8		f1odm 6820	. . . . . . . . . . 11 ⊢ (𝐹:(𝐴 × 𝐵)–1-1-onto→(𝐵 × 𝐴) → dom 𝐹 = (𝐴 × 𝐵))
9	2, 8	ax-mp 5	. . . . . . . . . 10 ⊢ dom 𝐹 = (𝐴 × 𝐵)
10	9	eleq2i 2853	. . . . . . . . 9 ⊢ (𝑢 ∈ dom 𝐹 ↔ 𝑢 ∈ (𝐴 × 𝐵))
11	7, 10	anbi12i 640	. . . . . . . 8 ⊢ (((𝐹‘𝑢) = 𝑤 ∧ 𝑢 ∈ dom 𝐹) ↔ (𝑤 = (𝐹‘𝑢) ∧ 𝑢 ∈ (𝐴 × 𝐵)))
12	5, 6, 11	3bitri 300	. . . . . . 7 ⊢ (𝑢𝐹𝑤 ↔ (𝑤 = (𝐹‘𝑢) ∧ 𝑢 ∈ (𝐴 × 𝐵)))
13	12	anbi1i 636	. . . . . 6 ⊢ ((𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣) ↔ ((𝑤 = (𝐹‘𝑢) ∧ 𝑢 ∈ (𝐴 × 𝐵)) ∧ 𝑤𝐺𝑣))
14		anass 474	. . . . . 6 ⊢ (((𝑤 = (𝐹‘𝑢) ∧ 𝑢 ∈ (𝐴 × 𝐵)) ∧ 𝑤𝐺𝑣) ↔ (𝑤 = (𝐹‘𝑢) ∧ (𝑢 ∈ (𝐴 × 𝐵) ∧ 𝑤𝐺𝑣)))
15	13, 14	bitri 278	. . . . 5 ⊢ ((𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣) ↔ (𝑤 = (𝐹‘𝑢) ∧ (𝑢 ∈ (𝐴 × 𝐵) ∧ 𝑤𝐺𝑣)))
16	15	exbii 1881	. . . 4 ⊢ (∃𝑤(𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣) ↔ ∃𝑤(𝑤 = (𝐹‘𝑢) ∧ (𝑢 ∈ (𝐴 × 𝐵) ∧ 𝑤𝐺𝑣)))
17		fvex 6890	. . . . 5 ⊢ (𝐹‘𝑢) ∈ V
18		breq1 5106	. . . . . 6 ⊢ (𝑤 = (𝐹‘𝑢) → (𝑤𝐺𝑣 ↔ (𝐹‘𝑢)𝐺𝑣))
19	18	anbi2d 642	. . . . 5 ⊢ (𝑤 = (𝐹‘𝑢) → ((𝑢 ∈ (𝐴 × 𝐵) ∧ 𝑤𝐺𝑣) ↔ (𝑢 ∈ (𝐴 × 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣)))
20	17, 19	ceqsexv 3499	. . . 4 ⊢ (∃𝑤(𝑤 = (𝐹‘𝑢) ∧ (𝑢 ∈ (𝐴 × 𝐵) ∧ 𝑤𝐺𝑣)) ↔ (𝑢 ∈ (𝐴 × 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣))
21		elxp 5674	. . . . . 6 ⊢ (𝑢 ∈ (𝐴 × 𝐵) ↔ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)))
22	21	anbi1i 636	. . . . 5 ⊢ ((𝑢 ∈ (𝐴 × 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ (∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣))
23		nfcv 2923	. . . . . . 7 ⊢ Ⅎ𝑧(𝐹‘𝑢)
24		xpcomco.1	. . . . . . . 8 ⊢ 𝐺 = (𝑦 ∈ 𝐵, 𝑧 ∈ 𝐴 ↦ 𝐶)
25		nfmpo2 7493	. . . . . . . 8 ⊢ Ⅎ𝑧(𝑦 ∈ 𝐵, 𝑧 ∈ 𝐴 ↦ 𝐶)
26	24, 25	nfcxfr 2921	. . . . . . 7 ⊢ Ⅎ𝑧𝐺
27		nfcv 2923	. . . . . . 7 ⊢ Ⅎ𝑧𝑣
28	23, 26, 27	nfbr 5152	. . . . . 6 ⊢ Ⅎ𝑧(𝐹‘𝑢)𝐺𝑣
29	28	19.41 2272	. . . . 5 ⊢ (∃𝑧(∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ (∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣))
30		nfcv 2923	. . . . . . . . 9 ⊢ Ⅎ𝑦(𝐹‘𝑢)
31		nfmpo1 7492	. . . . . . . . . 10 ⊢ Ⅎ𝑦(𝑦 ∈ 𝐵, 𝑧 ∈ 𝐴 ↦ 𝐶)
32	24, 31	nfcxfr 2921	. . . . . . . . 9 ⊢ Ⅎ𝑦𝐺
33		nfcv 2923	. . . . . . . . 9 ⊢ Ⅎ𝑦𝑣
34	30, 32, 33	nfbr 5152	. . . . . . . 8 ⊢ Ⅎ𝑦(𝐹‘𝑢)𝐺𝑣
35	34	19.41 2272	. . . . . . 7 ⊢ (∃𝑦((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ (∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣))
36		anass 474	. . . . . . . . 9 ⊢ (((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ (𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣)))
37		fveq2 6877	. . . . . . . . . . . . . 14 ⊢ (𝑢 = ⟨𝑧, 𝑦⟩ → (𝐹‘𝑢) = (𝐹‘⟨𝑧, 𝑦⟩))
38		opelxpi 5688	. . . . . . . . . . . . . . 15 ⊢ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → ⟨𝑧, 𝑦⟩ ∈ (𝐴 × 𝐵))
39		sneq 4594	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = ⟨𝑧, 𝑦⟩ → {𝑥} = {⟨𝑧, 𝑦⟩})
40	39	cnveqd 5853	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = ⟨𝑧, 𝑦⟩ → ◡{𝑥} = ◡{⟨𝑧, 𝑦⟩})
41	40	unieqd 4880	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = ⟨𝑧, 𝑦⟩ → ∪ ◡{𝑥} = ∪ ◡{⟨𝑧, 𝑦⟩})
42		opswap 6223	. . . . . . . . . . . . . . . . 17 ⊢ ∪ ◡{⟨𝑧, 𝑦⟩} = ⟨𝑦, 𝑧⟩
43	41, 42	eqtrdi 2812	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ⟨𝑧, 𝑦⟩ → ∪ ◡{𝑥} = ⟨𝑦, 𝑧⟩)
44		opex 5432	. . . . . . . . . . . . . . . 16 ⊢ ⟨𝑦, 𝑧⟩ ∈ V
45	43, 1, 44	fvmpt 6985	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑧, 𝑦⟩ ∈ (𝐴 × 𝐵) → (𝐹‘⟨𝑧, 𝑦⟩) = ⟨𝑦, 𝑧⟩)
46	38, 45	syl 18	. . . . . . . . . . . . . 14 ⊢ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → (𝐹‘⟨𝑧, 𝑦⟩) = ⟨𝑦, 𝑧⟩)
47	37, 46	sylan9eq 2816	. . . . . . . . . . . . 13 ⊢ ((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) → (𝐹‘𝑢) = ⟨𝑦, 𝑧⟩)
48	47	breq1d 5113	. . . . . . . . . . . 12 ⊢ ((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) → ((𝐹‘𝑢)𝐺𝑣 ↔ ⟨𝑦, 𝑧⟩𝐺𝑣))
49		df-br 5104	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑦, 𝑧⟩𝐺𝑣 ↔ ⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∈ 𝐺)
50		df-mpo 7417	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 ∈ 𝐵, 𝑧 ∈ 𝐴 ↦ 𝐶) = {⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∣ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶)}
51	24, 50	eqtri 2784	. . . . . . . . . . . . . . . . 17 ⊢ 𝐺 = {⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∣ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶)}
52	51	eleq2i 2853	. . . . . . . . . . . . . . . 16 ⊢ (⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∈ 𝐺 ↔ ⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∈ {⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∣ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶)})
53		oprabidw 7443	. . . . . . . . . . . . . . . 16 ⊢ (⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∈ {⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∣ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶)} ↔ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶))
54	49, 52, 53	3bitri 300	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑦, 𝑧⟩𝐺𝑣 ↔ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶))
55	54	baib 545	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) → (⟨𝑦, 𝑧⟩𝐺𝑣 ↔ 𝑣 = 𝐶))
56	55	ancoms 464	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → (⟨𝑦, 𝑧⟩𝐺𝑣 ↔ 𝑣 = 𝐶))
57	56	adantl 487	. . . . . . . . . . . 12 ⊢ ((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) → (⟨𝑦, 𝑧⟩𝐺𝑣 ↔ 𝑣 = 𝐶))
58	48, 57	bitrd 282	. . . . . . . . . . 11 ⊢ ((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) → ((𝐹‘𝑢)𝐺𝑣 ↔ 𝑣 = 𝐶))
59	58	pm5.32da 590	. . . . . . . . . 10 ⊢ (𝑢 = ⟨𝑧, 𝑦⟩ → (((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
60	59	pm5.32i 585	. . . . . . . . 9 ⊢ ((𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣)) ↔ (𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
61	36, 60	bitri 278	. . . . . . . 8 ⊢ (((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ (𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
62	61	exbii 1881	. . . . . . 7 ⊢ (∃𝑦((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ ∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
63	35, 62	bitr3i 280	. . . . . 6 ⊢ ((∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ ∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
64	63	exbii 1881	. . . . 5 ⊢ (∃𝑧(∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
65	22, 29, 64	3bitr2i 302	. . . 4 ⊢ ((𝑢 ∈ (𝐴 × 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
66	16, 20, 65	3bitri 300	. . 3 ⊢ (∃𝑤(𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣) ↔ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
67	66	opabbii 5172	. 2 ⊢ {⟨𝑢, 𝑣⟩ ∣ ∃𝑤(𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣)} = {⟨𝑢, 𝑣⟩ ∣ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶))}
68		df-co 5660	. 2 ⊢ (𝐺 ∘ 𝐹) = {⟨𝑢, 𝑣⟩ ∣ ∃𝑤(𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣)}
69		df-mpo 7417	. . 3 ⊢ (𝑧 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ 𝐶) = {⟨⟨𝑧, 𝑦⟩, 𝑣⟩ ∣ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)}
70		dfoprab2 7470	. . 3 ⊢ {⟨⟨𝑧, 𝑦⟩, 𝑣⟩ ∣ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)} = {⟨𝑢, 𝑣⟩ ∣ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶))}
71	69, 70	eqtri 2784	. 2 ⊢ (𝑧 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ 𝐶) = {⟨𝑢, 𝑣⟩ ∣ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶))}
72	67, 68, 71	3eqtr4i 2794	1 ⊢ (𝐺 ∘ 𝐹) = (𝑧 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ 𝐶)

This proof depends on syntax axioms:   ↔ wb 209   ∧ wa 401   = wceq 1570  ∃wex 1812   ∈ wcel 2145  {csn 4584  ⟨cop 4590  ∪ cuni 4867   class class class wbr 5103  {copab 5167   ↦ cmpt 5186   × cxp 5649  ^◡ccnv 5650  dom cdm 5651   ∘ ccom 5655  Fun wfun 6525  –1-1-onto→wf1o 6530  ‘cfv 6531  {coprab 7413   ∈ cmpo 7414

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7740

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-rab 3414  df-v 3453  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-iota 6487  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-oprab 7416  df-mpo 7417  df-1st 7990  df-2nd 7991

This theorem is used by:  omf1o  9083