1stpreimas - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > 1stpreimas		Structured version Visualization version GIF version

Theorem 1stpreimas 32908

Description: The preimage of a singleton. (Contributed by Thierry Arnoux, 27-Apr-2020.)

**Assertion**
Ref	Expression
1stpreimas	⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (^◡(1^st ↾ 𝐴) “ {𝑋}) = ({𝑋} × (𝐴 “ {𝑋})))

Proof of Theorem 1stpreimas Dummy variables 𝑥 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		1st2ndb 8010	. . . . . . . . 9 ⊢ (𝑧 ∈ (V × V) ↔ 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
2	1	biimpi 218	. . . . . . . 8 ⊢ (𝑧 ∈ (V × V) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
3	2	ad2antrl 738	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
4		fvex 6880	. . . . . . . . . . . 12 ⊢ (1^st ‘𝑧) ∈ V
5	4	elsn 4597	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑧) ∈ {𝑋} ↔ (1^st ‘𝑧) = 𝑋)
6	5	biimpi 218	. . . . . . . . . 10 ⊢ ((1^st ‘𝑧) ∈ {𝑋} → (1^st ‘𝑧) = 𝑋)
7	6	ad2antrl 738	. . . . . . . . 9 ⊢ ((𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))) → (1^st ‘𝑧) = 𝑋)
8	7	adantl 485	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → (1^st ‘𝑧) = 𝑋)
9	8	opeq1d 4837	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
10	3, 9	eqtrd 2797	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑧 = ⟨𝑋, (2^nd ‘𝑧)⟩)
11		simplr 778	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑋 ∈ 𝑉)
12		simprrr 791	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))
13		elimasng 6078	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑉 ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) → ((2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}) ↔ ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴))
14	13	biimpa 480	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑉 ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
15	11, 12, 12, 14	syl21anc 848	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
16	10, 15	eqeltrd 2862	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑧 ∈ 𝐴)
17		fvres 6886	. . . . . . 7 ⊢ (𝑧 ∈ 𝐴 → ((1^st ↾ 𝐴)‘𝑧) = (1^st ‘𝑧))
18	16, 17	syl 17	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ((1^st ↾ 𝐴)‘𝑧) = (1^st ‘𝑧))
19	18, 8	eqtrd 2797	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ((1^st ↾ 𝐴)‘𝑧) = 𝑋)
20	16, 19	jca 519	. . . 4 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋))
21		df-rel 5654	. . . . . . . 8 ⊢ (Rel 𝐴 ↔ 𝐴 ⊆ (V × V))
22	21	birani 507	. . . . . . 7 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → 𝐴 ⊆ (V × V))
23	22	sselda 3936	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ 𝑧 ∈ 𝐴) → 𝑧 ∈ (V × V))
24	23	adantrr 727	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 ∈ (V × V))
25	17	ad2antrl 738	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ((1^st ↾ 𝐴)‘𝑧) = (1^st ‘𝑧))
26		simprr 782	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ((1^st ↾ 𝐴)‘𝑧) = 𝑋)
27	25, 26	eqtr3d 2799	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (1^st ‘𝑧) = 𝑋)
28	27, 5	sylibr 236	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (1^st ‘𝑧) ∈ {𝑋})
29	27, 28	eqeltrrd 2863	. . . . . . . . 9 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑋 ∈ {𝑋})
30		simpr 488	. . . . . . . . . . 11 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → 𝑥 = 𝑋)
31	30	opeq1d 4837	. . . . . . . . . 10 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → ⟨𝑥, (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
32	31	eleq1d 2847	. . . . . . . . 9 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → (⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴 ↔ ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴))
33		1st2nd 8020	. . . . . . . . . . . 12 ⊢ ((Rel 𝐴 ∧ 𝑧 ∈ 𝐴) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
34	33	ad2ant2r 757	. . . . . . . . . . 11 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
35	27	opeq1d 4837	. . . . . . . . . . 11 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
36	34, 35	eqtrd 2797	. . . . . . . . . 10 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 = ⟨𝑋, (2^nd ‘𝑧)⟩)
37		simprl 780	. . . . . . . . . 10 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 ∈ 𝐴)
38	36, 37	eqeltrrd 2863	. . . . . . . . 9 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
39	29, 32, 38	rspcedvd 3583	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ∃𝑥 ∈ {𝑋}⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴)
40		df-rex 3087	. . . . . . . 8 ⊢ (∃𝑥 ∈ {𝑋}⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴 ↔ ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
41	39, 40	sylib 220	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
42		fvex 6880	. . . . . . . 8 ⊢ (2^nd ‘𝑧) ∈ V
43	42	elima3 6056	. . . . . . 7 ⊢ ((2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}) ↔ ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
44	41, 43	sylibr 236	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))
45	28, 44	jca 519	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))
46	24, 45	jca 519	. . . 4 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))))
47	20, 46	impbida 810	. . 3 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → ((𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))) ↔ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)))
48		elxp7 8005	. . . 4 ⊢ (𝑧 ∈ ({𝑋} × (𝐴 “ {𝑋})) ↔ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))))
49	48	a1i 11	. . 3 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (𝑧 ∈ ({𝑋} × (𝐴 “ {𝑋})) ↔ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))))
50		fo1st 7990	. . . . . . 7 ⊢ 1^st :V–onto→V
51		fofn 6780	. . . . . . 7 ⊢ (1^st :V–onto→V → 1^st Fn V)
52	50, 51	ax-mp 5	. . . . . 6 ⊢ 1^st Fn V
53		ssv 3960	. . . . . 6 ⊢ 𝐴 ⊆ V
54		fnssres 6644	. . . . . 6 ⊢ ((1^st Fn V ∧ 𝐴 ⊆ V) → (1^st ↾ 𝐴) Fn 𝐴)
55	52, 53, 54	mp2an 702	. . . . 5 ⊢ (1^st ↾ 𝐴) Fn 𝐴
56		fniniseg 7041	. . . . 5 ⊢ ((1^st ↾ 𝐴) Fn 𝐴 → (𝑧 ∈ (^◡(1^st ↾ 𝐴) “ {𝑋}) ↔ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)))
57	55, 56	ax-mp 5	. . . 4 ⊢ (𝑧 ∈ (^◡(1^st ↾ 𝐴) “ {𝑋}) ↔ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋))
58	57	a1i 11	. . 3 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (𝑧 ∈ (^◡(1^st ↾ 𝐴) “ {𝑋}) ↔ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)))
59	47, 49, 58	3bitr4rd 314	. 2 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (𝑧 ∈ (^◡(1^st ↾ 𝐴) “ {𝑋}) ↔ 𝑧 ∈ ({𝑋} × (𝐴 “ {𝑋}))))
60	59	eqrdv 2760	1 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (^◡(1^st ↾ 𝐴) “ {𝑋}) = ({𝑋} × (𝐴 “ {𝑋})))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 399 = wceq 1560 ∃wex 1799 ∈ wcel 2142 ∃wrex 3086 Vcvv 3454 ⊆ wss 3904 {csn 4582 ⟨cop 4588 × cxp 5645 ^◡ccnv 5646 ↾ cres 5649 “ cima 5650 Rel wrel 5652 Fn wfn 6516 –onto→wfo 6519 ‘cfv 6521 1^st c1st 7968 2^nd c2nd 7969

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1815 ax-4 1829 ax-5 1930 ax-6 1987 ax-7 2028 ax-8 2144 ax-9 2152 ax-10 2175 ax-11 2191 ax-12 2212 ax-ext 2734 ax-sep 5246 ax-nul 5256 ax-pr 5390 ax-un 7718

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3an 1100 df-tru 1563 df-fal 1573 df-ex 1800 df-nf 1804 df-sb 2091 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-ral 3077 df-rex 3087 df-rab 3415 df-v 3456 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-nul 4286 df-if 4481 df-sn 4583 df-pr 4585 df-op 4589 df-uni 4866 df-br 5101 df-opab 5163 df-mpt 5182 df-id 5542 df-xp 5653 df-rel 5654 df-cnv 5655 df-co 5656 df-dm 5657 df-rn 5658 df-res 5659 df-ima 5660 df-iota 6477 df-fun 6523 df-fn 6524 df-f 6525 df-fo 6527 df-fv 6529 df-1st 7970 df-2nd 7971

This theorem is referenced by: gsummpt2d 33229

W3C validator