Theorem mapsncnv 8903

Description: Expression for the inverse of the canonical map between a set and its set of singleton functions. (Contributed by Stefan O'Rear, 21-Mar-2015.)

Hypotheses

Ref	Expression
mapsncnv.s	⊢ 𝑆 = {𝑋}
mapsncnv.b	⊢ 𝐵 ∈ V
mapsncnv.x	⊢ 𝑋 ∈ V
mapsncnv.f	⊢ 𝐹 = (𝑥 ∈ (𝐵 ↑m 𝑆) ↦ (𝑥‘𝑋))

Assertion

Ref	Expression
mapsncnv	⊢ ◡𝐹 = (𝑦 ∈ 𝐵 ↦ (𝑆 × {𝑦}))

Distinct variable groups:   𝑥,𝐵,𝑦   𝑥,𝑆,𝑦   𝑦,𝑋

Allowed substitution hints:   𝐹(𝑥, 𝑦)   𝑋(𝑥)

Proof of Theorem mapsncnv

Step	Hyp	Ref	Expression
1		elmapi 8851	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝐵 ↑m {𝑋}) → 𝑥:{𝑋}⟶𝐵)
2		mapsncnv.x	. . . . . . . . . 10 ⊢ 𝑋 ∈ V
3	2	snid 4626	. . . . . . . . 9 ⊢ 𝑋 ∈ {𝑋}
4		ffvelcdm 7077	. . . . . . . . 9 ⊢ ((𝑥:{𝑋}⟶𝐵 ∧ 𝑋 ∈ {𝑋}) → (𝑥‘𝑋) ∈ 𝐵)
5	1, 3, 4	sylancl 598	. . . . . . . 8 ⊢ (𝑥 ∈ (𝐵 ↑m {𝑋}) → (𝑥‘𝑋) ∈ 𝐵)
6		eqid 2762	. . . . . . . . 9 ⊢ {𝑋} = {𝑋}
7		mapsncnv.b	. . . . . . . . 9 ⊢ 𝐵 ∈ V
8	6, 7, 2	mapsnconst 8902	. . . . . . . 8 ⊢ (𝑥 ∈ (𝐵 ↑m {𝑋}) → 𝑥 = ({𝑋} × {(𝑥‘𝑋)}))
9	5, 8	jca 521	. . . . . . 7 ⊢ (𝑥 ∈ (𝐵 ↑m {𝑋}) → ((𝑥‘𝑋) ∈ 𝐵 ∧ 𝑥 = ({𝑋} × {(𝑥‘𝑋)})))
10		eleq1 2850	. . . . . . . 8 ⊢ (𝑦 = (𝑥‘𝑋) → (𝑦 ∈ 𝐵 ↔ (𝑥‘𝑋) ∈ 𝐵))
11		sneq 4597	. . . . . . . . . 10 ⊢ (𝑦 = (𝑥‘𝑋) → {𝑦} = {(𝑥‘𝑋)})
12	11	xpeq2d 5689	. . . . . . . . 9 ⊢ (𝑦 = (𝑥‘𝑋) → ({𝑋} × {𝑦}) = ({𝑋} × {(𝑥‘𝑋)}))
13	12	eqeq2d 2773	. . . . . . . 8 ⊢ (𝑦 = (𝑥‘𝑋) → (𝑥 = ({𝑋} × {𝑦}) ↔ 𝑥 = ({𝑋} × {(𝑥‘𝑋)})))
14	10, 13	anbi12d 644	. . . . . . 7 ⊢ (𝑦 = (𝑥‘𝑋) → ((𝑦 ∈ 𝐵 ∧ 𝑥 = ({𝑋} × {𝑦})) ↔ ((𝑥‘𝑋) ∈ 𝐵 ∧ 𝑥 = ({𝑋} × {(𝑥‘𝑋)}))))
15	9, 14	syl5ibrcom 250	. . . . . 6 ⊢ (𝑥 ∈ (𝐵 ↑m {𝑋}) → (𝑦 = (𝑥‘𝑋) → (𝑦 ∈ 𝐵 ∧ 𝑥 = ({𝑋} × {𝑦}))))
16	15	imp 412	. . . . 5 ⊢ ((𝑥 ∈ (𝐵 ↑m {𝑋}) ∧ 𝑦 = (𝑥‘𝑋)) → (𝑦 ∈ 𝐵 ∧ 𝑥 = ({𝑋} × {𝑦})))
17		fconst6g 6768	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝐵 → ({𝑋} × {𝑦}):{𝑋}⟶𝐵)
18		snex 5408	. . . . . . . . . 10 ⊢ {𝑋} ∈ V
19	7, 18	elmap 8881	. . . . . . . . 9 ⊢ (({𝑋} × {𝑦}) ∈ (𝐵 ↑m {𝑋}) ↔ ({𝑋} × {𝑦}):{𝑋}⟶𝐵)
20	17, 19	sylibr 237	. . . . . . . 8 ⊢ (𝑦 ∈ 𝐵 → ({𝑋} × {𝑦}) ∈ (𝐵 ↑m {𝑋}))
21		vex 3457	. . . . . . . . . . 11 ⊢ 𝑦 ∈ V
22	21	fvconst2 7206	. . . . . . . . . 10 ⊢ (𝑋 ∈ {𝑋} → (({𝑋} × {𝑦})‘𝑋) = 𝑦)
23	3, 22	mp1i 14	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝐵 → (({𝑋} × {𝑦})‘𝑋) = 𝑦)
24	23	eqcomd 2768	. . . . . . . 8 ⊢ (𝑦 ∈ 𝐵 → 𝑦 = (({𝑋} × {𝑦})‘𝑋))
25	20, 24	jca 521	. . . . . . 7 ⊢ (𝑦 ∈ 𝐵 → (({𝑋} × {𝑦}) ∈ (𝐵 ↑m {𝑋}) ∧ 𝑦 = (({𝑋} × {𝑦})‘𝑋)))
26		eleq1 2850	. . . . . . . 8 ⊢ (𝑥 = ({𝑋} × {𝑦}) → (𝑥 ∈ (𝐵 ↑m {𝑋}) ↔ ({𝑋} × {𝑦}) ∈ (𝐵 ↑m {𝑋})))
27		fveq1 6881	. . . . . . . . 9 ⊢ (𝑥 = ({𝑋} × {𝑦}) → (𝑥‘𝑋) = (({𝑋} × {𝑦})‘𝑋))
28	27	eqeq2d 2773	. . . . . . . 8 ⊢ (𝑥 = ({𝑋} × {𝑦}) → (𝑦 = (𝑥‘𝑋) ↔ 𝑦 = (({𝑋} × {𝑦})‘𝑋)))
29	26, 28	anbi12d 644	. . . . . . 7 ⊢ (𝑥 = ({𝑋} × {𝑦}) → ((𝑥 ∈ (𝐵 ↑m {𝑋}) ∧ 𝑦 = (𝑥‘𝑋)) ↔ (({𝑋} × {𝑦}) ∈ (𝐵 ↑m {𝑋}) ∧ 𝑦 = (({𝑋} × {𝑦})‘𝑋))))
30	25, 29	syl5ibrcom 250	. . . . . 6 ⊢ (𝑦 ∈ 𝐵 → (𝑥 = ({𝑋} × {𝑦}) → (𝑥 ∈ (𝐵 ↑m {𝑋}) ∧ 𝑦 = (𝑥‘𝑋))))
31	30	imp 412	. . . . 5 ⊢ ((𝑦 ∈ 𝐵 ∧ 𝑥 = ({𝑋} × {𝑦})) → (𝑥 ∈ (𝐵 ↑m {𝑋}) ∧ 𝑦 = (𝑥‘𝑋)))
32	16, 31	impbii 212	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m {𝑋}) ∧ 𝑦 = (𝑥‘𝑋)) ↔ (𝑦 ∈ 𝐵 ∧ 𝑥 = ({𝑋} × {𝑦})))
33		mapsncnv.s	. . . . . . 7 ⊢ 𝑆 = {𝑋}
34	33	oveq2i 7427	. . . . . 6 ⊢ (𝐵 ↑m 𝑆) = (𝐵 ↑m {𝑋})
35	34	eleq2i 2854	. . . . 5 ⊢ (𝑥 ∈ (𝐵 ↑m 𝑆) ↔ 𝑥 ∈ (𝐵 ↑m {𝑋}))
36	35	anbi1i 636	. . . 4 ⊢ ((𝑥 ∈ (𝐵 ↑m 𝑆) ∧ 𝑦 = (𝑥‘𝑋)) ↔ (𝑥 ∈ (𝐵 ↑m {𝑋}) ∧ 𝑦 = (𝑥‘𝑋)))
37	33	xpeq1i 5685	. . . . . 6 ⊢ (𝑆 × {𝑦}) = ({𝑋} × {𝑦})
38	37	eqeq2i 2775	. . . . 5 ⊢ (𝑥 = (𝑆 × {𝑦}) ↔ 𝑥 = ({𝑋} × {𝑦}))
39	38	anbi2i 635	. . . 4 ⊢ ((𝑦 ∈ 𝐵 ∧ 𝑥 = (𝑆 × {𝑦})) ↔ (𝑦 ∈ 𝐵 ∧ 𝑥 = ({𝑋} × {𝑦})))
40	32, 36, 39	3bitr4i 306	. . 3 ⊢ ((𝑥 ∈ (𝐵 ↑m 𝑆) ∧ 𝑦 = (𝑥‘𝑋)) ↔ (𝑦 ∈ 𝐵 ∧ 𝑥 = (𝑆 × {𝑦})))
41	40	opabbii 5176	. 2 ⊢ {⟨𝑦, 𝑥⟩ ∣ (𝑥 ∈ (𝐵 ↑m 𝑆) ∧ 𝑦 = (𝑥‘𝑋))} = {⟨𝑦, 𝑥⟩ ∣ (𝑦 ∈ 𝐵 ∧ 𝑥 = (𝑆 × {𝑦}))}
42		mapsncnv.f	. . . . 5 ⊢ 𝐹 = (𝑥 ∈ (𝐵 ↑m 𝑆) ↦ (𝑥‘𝑋))
43		df-mpt 5191	. . . . 5 ⊢ (𝑥 ∈ (𝐵 ↑m 𝑆) ↦ (𝑥‘𝑋)) = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (𝐵 ↑m 𝑆) ∧ 𝑦 = (𝑥‘𝑋))}
44	42, 43	eqtri 2785	. . . 4 ⊢ 𝐹 = {⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (𝐵 ↑m 𝑆) ∧ 𝑦 = (𝑥‘𝑋))}
45	44	cnveqi 5858	. . 3 ⊢ ◡𝐹 = ◡{⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (𝐵 ↑m 𝑆) ∧ 𝑦 = (𝑥‘𝑋))}
46		cnvopab 6135	. . 3 ⊢ ◡{⟨𝑥, 𝑦⟩ ∣ (𝑥 ∈ (𝐵 ↑m 𝑆) ∧ 𝑦 = (𝑥‘𝑋))} = {⟨𝑦, 𝑥⟩ ∣ (𝑥 ∈ (𝐵 ↑m 𝑆) ∧ 𝑦 = (𝑥‘𝑋))}
47	45, 46	eqtri 2785	. 2 ⊢ ◡𝐹 = {⟨𝑦, 𝑥⟩ ∣ (𝑥 ∈ (𝐵 ↑m 𝑆) ∧ 𝑦 = (𝑥‘𝑋))}
48		df-mpt 5191	. 2 ⊢ (𝑦 ∈ 𝐵 ↦ (𝑆 × {𝑦})) = {⟨𝑦, 𝑥⟩ ∣ (𝑦 ∈ 𝐵 ∧ 𝑥 = (𝑆 × {𝑦}))}
49	41, 47, 48	3eqtr4i 2795	1 ⊢ ◡𝐹 = (𝑦 ∈ 𝐵 ↦ (𝑆 × {𝑦}))

This proof depends on syntax axioms:   ∧ wa 401   = wceq 1570   ∈ wcel 2145  Vcvv 3453  {csn 4587  {copab 5171   ↦ cmpt 5190   × cxp 5657  ^◡ccnv 5658  ⟶wf 6533  ‘cfv 6537  (class class class)co 7416   ↑_m cmap 8829

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 2215  ax-ext 2734  ax-sep 5255  ax-nul 5267  ax-pow 5334  ax-pr 5402  ax-un 7739

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 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3079  df-rex 3089  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4871  df-iun 4956  df-br 5108  df-opab 5172  df-mpt 5191  df-id 5554  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-ov 7419  df-oprab 7420  df-mpo 7421  df-1st 7989  df-2nd 7990  df-map 8831

This theorem is used by:  mapsnf1o2  8904  mapsnf1o3  8905  coe1sfi  22439  evl1var  22562  pf1mpf  22578  pf1ind  22581  deg1val  26323