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 32721

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 8053	. . . . . . . . 9 ⊢ (𝑧 ∈ (V × V) ↔ 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
2	1	biimpi 216	. . . . . . . 8 ⊢ (𝑧 ∈ (V × V) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
3	2	ad2antrl 728	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
4		fvex 6920	. . . . . . . . . . . 12 ⊢ (1^st ‘𝑧) ∈ V
5	4	elsn 4646	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑧) ∈ {𝑋} ↔ (1^st ‘𝑧) = 𝑋)
6	5	biimpi 216	. . . . . . . . . 10 ⊢ ((1^st ‘𝑧) ∈ {𝑋} → (1^st ‘𝑧) = 𝑋)
7	6	ad2antrl 728	. . . . . . . . 9 ⊢ ((𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))) → (1^st ‘𝑧) = 𝑋)
8	7	adantl 481	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → (1^st ‘𝑧) = 𝑋)
9	8	opeq1d 4884	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
10	3, 9	eqtrd 2775	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑧 = ⟨𝑋, (2^nd ‘𝑧)⟩)
11		simplr 769	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑋 ∈ 𝑉)
12		simprrr 782	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))
13		elimasng 6109	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑉 ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) → ((2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}) ↔ ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴))
14	13	biimpa 476	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑉 ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
15	11, 12, 12, 14	syl21anc 838	. . . . . 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 6926	. . . . . . 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 2775	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ((1^st ↾ 𝐴)‘𝑧) = 𝑋)
20	16, 19	jca 511	. . . 4 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋))
21		df-rel 5696	. . . . . . . . 9 ⊢ (Rel 𝐴 ↔ 𝐴 ⊆ (V × V))
22	21	biimpi 216	. . . . . . . 8 ⊢ (Rel 𝐴 → 𝐴 ⊆ (V × V))
23	22	adantr 480	. . . . . . 7 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → 𝐴 ⊆ (V × V))
24	23	sselda 3995	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ 𝑧 ∈ 𝐴) → 𝑧 ∈ (V × V))
25	24	adantrr 717	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 ∈ (V × V))
26	17	ad2antrl 728	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ((1^st ↾ 𝐴)‘𝑧) = (1^st ‘𝑧))
27		simprr 773	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ((1^st ↾ 𝐴)‘𝑧) = 𝑋)
28	26, 27	eqtr3d 2777	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (1^st ‘𝑧) = 𝑋)
29	28, 5	sylibr 234	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (1^st ‘𝑧) ∈ {𝑋})
30	28, 29	eqeltrrd 2840	. . . . . . . . 9 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑋 ∈ {𝑋})
31		simpr 484	. . . . . . . . . . 11 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → 𝑥 = 𝑋)
32	31	opeq1d 4884	. . . . . . . . . 10 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → ⟨𝑥, (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
33	32	eleq1d 2824	. . . . . . . . 9 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → (⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴 ↔ ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴))
34		1st2nd 8063	. . . . . . . . . . . 12 ⊢ ((Rel 𝐴 ∧ 𝑧 ∈ 𝐴) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
35	34	ad2ant2r 747	. . . . . . . . . . 11 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
36	28	opeq1d 4884	. . . . . . . . . . 11 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
37	35, 36	eqtrd 2775	. . . . . . . . . 10 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 = ⟨𝑋, (2^nd ‘𝑧)⟩)
38		simprl 771	. . . . . . . . . 10 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 ∈ 𝐴)
39	37, 38	eqeltrrd 2840	. . . . . . . . 9 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
40	30, 33, 39	rspcedvd 3624	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ∃𝑥 ∈ {𝑋}⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴)
41		df-rex 3069	. . . . . . . 8 ⊢ (∃𝑥 ∈ {𝑋}⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴 ↔ ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
42	40, 41	sylib 218	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
43		fvex 6920	. . . . . . . 8 ⊢ (2^nd ‘𝑧) ∈ V
44	43	elima3 6087	. . . . . . 7 ⊢ ((2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}) ↔ ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
45	42, 44	sylibr 234	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))
46	29, 45	jca 511	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))
47	25, 46	jca 511	. . . 4 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))))
48	20, 47	impbida 801	. . 3 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → ((𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))) ↔ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)))
49		elxp7 8048	. . . 4 ⊢ (𝑧 ∈ ({𝑋} × (𝐴 “ {𝑋})) ↔ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))))
50	49	a1i 11	. . 3 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (𝑧 ∈ ({𝑋} × (𝐴 “ {𝑋})) ↔ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))))
51		fo1st 8033	. . . . . . 7 ⊢ 1^st :V–onto→V
52		fofn 6823	. . . . . . 7 ⊢ (1^st :V–onto→V → 1^st Fn V)
53	51, 52	ax-mp 5	. . . . . 6 ⊢ 1^st Fn V
54		ssv 4020	. . . . . 6 ⊢ 𝐴 ⊆ V
55		fnssres 6692	. . . . . 6 ⊢ ((1^st Fn V ∧ 𝐴 ⊆ V) → (1^st ↾ 𝐴) Fn 𝐴)
56	53, 54, 55	mp2an 692	. . . . 5 ⊢ (1^st ↾ 𝐴) Fn 𝐴
57		fniniseg 7080	. . . . 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 2733	1 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (^◡(1^st ↾ 𝐴) “ {𝑋}) = ({𝑋} × (𝐴 “ {𝑋})))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1537 ∃wex 1776 ∈ wcel 2106 ∃wrex 3068 Vcvv 3478 ⊆ wss 3963 {csn 4631 ⟨cop 4637 × cxp 5687 ^◡ccnv 5688 ↾ cres 5691 “ cima 5692 Rel wrel 5694 Fn wfn 6558 –onto→wfo 6561 ‘cfv 6563 1^st c1st 8011 2^nd c2nd 8012

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1792 ax-4 1806 ax-5 1908 ax-6 1965 ax-7 2005 ax-8 2108 ax-9 2116 ax-10 2139 ax-11 2155 ax-12 2175 ax-ext 2706 ax-sep 5302 ax-nul 5312 ax-pr 5438 ax-un 7754

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3an 1088 df-tru 1540 df-fal 1550 df-ex 1777 df-nf 1781 df-sb 2063 df-mo 2538 df-eu 2567 df-clab 2713 df-cleq 2727 df-clel 2814 df-nfc 2890 df-ne 2939 df-ral 3060 df-rex 3069 df-rab 3434 df-v 3480 df-dif 3966 df-un 3968 df-in 3970 df-ss 3980 df-nul 4340 df-if 4532 df-sn 4632 df-pr 4634 df-op 4638 df-uni 4913 df-br 5149 df-opab 5211 df-mpt 5232 df-id 5583 df-xp 5695 df-rel 5696 df-cnv 5697 df-co 5698 df-dm 5699 df-rn 5700 df-res 5701 df-ima 5702 df-iota 6516 df-fun 6565 df-fn 6566 df-f 6567 df-fo 6569 df-fv 6571 df-1st 8013 df-2nd 8014

This theorem is referenced by: gsummpt2d 33035

W3C validator