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 31038

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 7871	. . . . . . . . 9 ⊢ (𝑧 ∈ (V × V) ↔ 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
2	1	biimpi 215	. . . . . . . 8 ⊢ (𝑧 ∈ (V × V) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
3	2	ad2antrl 725	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
4		fvex 6787	. . . . . . . . . . . 12 ⊢ (1^st ‘𝑧) ∈ V
5	4	elsn 4576	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑧) ∈ {𝑋} ↔ (1^st ‘𝑧) = 𝑋)
6	5	biimpi 215	. . . . . . . . . 10 ⊢ ((1^st ‘𝑧) ∈ {𝑋} → (1^st ‘𝑧) = 𝑋)
7	6	ad2antrl 725	. . . . . . . . 9 ⊢ ((𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))) → (1^st ‘𝑧) = 𝑋)
8	7	adantl 482	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → (1^st ‘𝑧) = 𝑋)
9	8	opeq1d 4810	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
10	3, 9	eqtrd 2778	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑧 = ⟨𝑋, (2^nd ‘𝑧)⟩)
11		simplr 766	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑋 ∈ 𝑉)
12		simprrr 779	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))
13		elimasng 5996	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑉 ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) → ((2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}) ↔ ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴))
14	13	biimpa 477	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑉 ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
15	11, 12, 12, 14	syl21anc 835	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
16	10, 15	eqeltrd 2839	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑧 ∈ 𝐴)
17		fvres 6793	. . . . . . 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 2778	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ((1^st ↾ 𝐴)‘𝑧) = 𝑋)
20	16, 19	jca 512	. . . 4 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋))
21		df-rel 5596	. . . . . . . . 9 ⊢ (Rel 𝐴 ↔ 𝐴 ⊆ (V × V))
22	21	biimpi 215	. . . . . . . 8 ⊢ (Rel 𝐴 → 𝐴 ⊆ (V × V))
23	22	adantr 481	. . . . . . 7 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → 𝐴 ⊆ (V × V))
24	23	sselda 3921	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ 𝑧 ∈ 𝐴) → 𝑧 ∈ (V × V))
25	24	adantrr 714	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 ∈ (V × V))
26	17	ad2antrl 725	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ((1^st ↾ 𝐴)‘𝑧) = (1^st ‘𝑧))
27		simprr 770	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ((1^st ↾ 𝐴)‘𝑧) = 𝑋)
28	26, 27	eqtr3d 2780	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (1^st ‘𝑧) = 𝑋)
29	28, 5	sylibr 233	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (1^st ‘𝑧) ∈ {𝑋})
30	28, 29	eqeltrrd 2840	. . . . . . . . 9 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑋 ∈ {𝑋})
31		simpr 485	. . . . . . . . . . 11 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → 𝑥 = 𝑋)
32	31	opeq1d 4810	. . . . . . . . . 10 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → ⟨𝑥, (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
33	32	eleq1d 2823	. . . . . . . . 9 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → (⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴 ↔ ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴))
34		1st2nd 7880	. . . . . . . . . . . 12 ⊢ ((Rel 𝐴 ∧ 𝑧 ∈ 𝐴) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
35	34	ad2ant2r 744	. . . . . . . . . . 11 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
36	28	opeq1d 4810	. . . . . . . . . . 11 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
37	35, 36	eqtrd 2778	. . . . . . . . . 10 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 = ⟨𝑋, (2^nd ‘𝑧)⟩)
38		simprl 768	. . . . . . . . . 10 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 ∈ 𝐴)
39	37, 38	eqeltrrd 2840	. . . . . . . . 9 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
40	30, 33, 39	rspcedvd 3563	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ∃𝑥 ∈ {𝑋}⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴)
41		df-rex 3070	. . . . . . . 8 ⊢ (∃𝑥 ∈ {𝑋}⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴 ↔ ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
42	40, 41	sylib 217	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
43		fvex 6787	. . . . . . . 8 ⊢ (2^nd ‘𝑧) ∈ V
44	43	elima3 5976	. . . . . . 7 ⊢ ((2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}) ↔ ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
45	42, 44	sylibr 233	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))
46	29, 45	jca 512	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))
47	25, 46	jca 512	. . . 4 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))))
48	20, 47	impbida 798	. . 3 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → ((𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))) ↔ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)))
49		elxp7 7866	. . . 4 ⊢ (𝑧 ∈ ({𝑋} × (𝐴 “ {𝑋})) ↔ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))))
50	49	a1i 11	. . 3 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (𝑧 ∈ ({𝑋} × (𝐴 “ {𝑋})) ↔ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))))
51		fo1st 7851	. . . . . . 7 ⊢ 1^st :V–onto→V
52		fofn 6690	. . . . . . 7 ⊢ (1^st :V–onto→V → 1^st Fn V)
53	51, 52	ax-mp 5	. . . . . 6 ⊢ 1^st Fn V
54		ssv 3945	. . . . . 6 ⊢ 𝐴 ⊆ V
55		fnssres 6555	. . . . . 6 ⊢ ((1^st Fn V ∧ 𝐴 ⊆ V) → (1^st ↾ 𝐴) Fn 𝐴)
56	53, 54, 55	mp2an 689	. . . . 5 ⊢ (1^st ↾ 𝐴) Fn 𝐴
57		fniniseg 6937	. . . . 5 ⊢ ((1^st ↾ 𝐴) Fn 𝐴 → (𝑧 ∈ (^◡(1^st ↾ 𝐴) “ {𝑋}) ↔ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)))
58	56, 57	ax-mp 5	. . . 4 ⊢ (𝑧 ∈ (^◡(1^st ↾ 𝐴) “ {𝑋}) ↔ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋))
59	58	a1i 11	. . 3 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (𝑧 ∈ (^◡(1^st ↾ 𝐴) “ {𝑋}) ↔ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)))
60	48, 50, 59	3bitr4rd 312	. 2 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (𝑧 ∈ (^◡(1^st ↾ 𝐴) “ {𝑋}) ↔ 𝑧 ∈ ({𝑋} × (𝐴 “ {𝑋}))))
61	60	eqrdv 2736	1 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (^◡(1^st ↾ 𝐴) “ {𝑋}) = ({𝑋} × (𝐴 “ {𝑋})))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 = wceq 1539 ∃wex 1782 ∈ wcel 2106 ∃wrex 3065 Vcvv 3432 ⊆ wss 3887 {csn 4561 ⟨cop 4567 × cxp 5587 ^◡ccnv 5588 ↾ cres 5591 “ cima 5592 Rel wrel 5594 Fn wfn 6428 –onto→wfo 6431 ‘cfv 6433 1^st c1st 7829 2^nd c2nd 7830

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2709 ax-sep 5223 ax-nul 5230 ax-pr 5352 ax-un 7588

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2068 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2816 df-nfc 2889 df-ral 3069 df-rex 3070 df-rab 3073 df-v 3434 df-dif 3890 df-un 3892 df-in 3894 df-ss 3904 df-nul 4257 df-if 4460 df-sn 4562 df-pr 4564 df-op 4568 df-uni 4840 df-br 5075 df-opab 5137 df-mpt 5158 df-id 5489 df-xp 5595 df-rel 5596 df-cnv 5597 df-co 5598 df-dm 5599 df-rn 5600 df-res 5601 df-ima 5602 df-iota 6391 df-fun 6435 df-fn 6436 df-f 6437 df-fo 6439 df-fv 6441 df-1st 7831 df-2nd 7832

This theorem is referenced by: gsummpt2d 31309

W3C validator