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 32602

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 7987	. . . . . . . . 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 6853	. . . . . . . . . . . 12 ⊢ (1^st ‘𝑧) ∈ V
5	4	elsn 4600	. . . . . . . . . . 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 4839	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
10	3, 9	eqtrd 2764	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑧 = ⟨𝑋, (2^nd ‘𝑧)⟩)
11		simplr 768	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑋 ∈ 𝑉)
12		simprrr 781	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))
13		elimasng 6049	. . . . . . . 8 ⊢ ((𝑋 ∈ 𝑉 ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) → ((2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}) ↔ ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴))
14	13	biimpa 476	. . . . . . 7 ⊢ (((𝑋 ∈ 𝑉 ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
15	11, 12, 12, 14	syl21anc 837	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
16	10, 15	eqeltrd 2828	. . . . 5 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))) → 𝑧 ∈ 𝐴)
17		fvres 6859	. . . . . . 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 2764	. . . . 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 5638	. . . . . . . . 9 ⊢ (Rel 𝐴 ↔ 𝐴 ⊆ (V × V))
22	21	biimpi 216	. . . . . . . 8 ⊢ (Rel 𝐴 → 𝐴 ⊆ (V × V))
23	22	adantr 480	. . . . . . 7 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → 𝐴 ⊆ (V × V))
24	23	sselda 3943	. . . . . 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 772	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ((1^st ↾ 𝐴)‘𝑧) = 𝑋)
28	26, 27	eqtr3d 2766	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (1^st ‘𝑧) = 𝑋)
29	28, 5	sylibr 234	. . . . . 6 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → (1^st ‘𝑧) ∈ {𝑋})
30	28, 29	eqeltrrd 2829	. . . . . . . . 9 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑋 ∈ {𝑋})
31		simpr 484	. . . . . . . . . . 11 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → 𝑥 = 𝑋)
32	31	opeq1d 4839	. . . . . . . . . 10 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → ⟨𝑥, (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
33	32	eleq1d 2813	. . . . . . . . 9 ⊢ ((((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) ∧ 𝑥 = 𝑋) → (⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴 ↔ ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴))
34		1st2nd 7997	. . . . . . . . . . . 12 ⊢ ((Rel 𝐴 ∧ 𝑧 ∈ 𝐴) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
35	34	ad2ant2r 747	. . . . . . . . . . 11 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
36	28	opeq1d 4839	. . . . . . . . . . 11 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩ = ⟨𝑋, (2^nd ‘𝑧)⟩)
37	35, 36	eqtrd 2764	. . . . . . . . . 10 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 = ⟨𝑋, (2^nd ‘𝑧)⟩)
38		simprl 770	. . . . . . . . . 10 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → 𝑧 ∈ 𝐴)
39	37, 38	eqeltrrd 2829	. . . . . . . . 9 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ⟨𝑋, (2^nd ‘𝑧)⟩ ∈ 𝐴)
40	30, 33, 39	rspcedvd 3587	. . . . . . . 8 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ∃𝑥 ∈ {𝑋}⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴)
41		df-rex 3054	. . . . . . . 8 ⊢ (∃𝑥 ∈ {𝑋}⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴 ↔ ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
42	40, 41	sylib 218	. . . . . . 7 ⊢ (((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) ∧ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)) → ∃𝑥(𝑥 ∈ {𝑋} ∧ ⟨𝑥, (2^nd ‘𝑧)⟩ ∈ 𝐴))
43		fvex 6853	. . . . . . . 8 ⊢ (2^nd ‘𝑧) ∈ V
44	43	elima3 6027	. . . . . . 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 800	. . 3 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → ((𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))) ↔ (𝑧 ∈ 𝐴 ∧ ((1^st ↾ 𝐴)‘𝑧) = 𝑋)))
49		elxp7 7982	. . . 4 ⊢ (𝑧 ∈ ({𝑋} × (𝐴 “ {𝑋})) ↔ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋}))))
50	49	a1i 11	. . 3 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (𝑧 ∈ ({𝑋} × (𝐴 “ {𝑋})) ↔ (𝑧 ∈ (V × V) ∧ ((1^st ‘𝑧) ∈ {𝑋} ∧ (2^nd ‘𝑧) ∈ (𝐴 “ {𝑋})))))
51		fo1st 7967	. . . . . . 7 ⊢ 1^st :V–onto→V
52		fofn 6756	. . . . . . 7 ⊢ (1^st :V–onto→V → 1^st Fn V)
53	51, 52	ax-mp 5	. . . . . 6 ⊢ 1^st Fn V
54		ssv 3968	. . . . . 6 ⊢ 𝐴 ⊆ V
55		fnssres 6623	. . . . . 6 ⊢ ((1^st Fn V ∧ 𝐴 ⊆ V) → (1^st ↾ 𝐴) Fn 𝐴)
56	53, 54, 55	mp2an 692	. . . . 5 ⊢ (1^st ↾ 𝐴) Fn 𝐴
57		fniniseg 7014	. . . . 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 2727	1 ⊢ ((Rel 𝐴 ∧ 𝑋 ∈ 𝑉) → (^◡(1^st ↾ 𝐴) “ {𝑋}) = ({𝑋} × (𝐴 “ {𝑋})))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1540 ∃wex 1779 ∈ wcel 2109 ∃wrex 3053 Vcvv 3444 ⊆ wss 3911 {csn 4585 ⟨cop 4591 × cxp 5629 ^◡ccnv 5630 ↾ cres 5633 “ cima 5634 Rel wrel 5636 Fn wfn 6494 –onto→wfo 6497 ‘cfv 6499 1^st c1st 7945 2^nd c2nd 7946

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-sep 5246 ax-nul 5256 ax-pr 5382 ax-un 7691

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-ral 3045 df-rex 3054 df-rab 3403 df-v 3446 df-dif 3914 df-un 3916 df-in 3918 df-ss 3928 df-nul 4293 df-if 4485 df-sn 4586 df-pr 4588 df-op 4592 df-uni 4868 df-br 5103 df-opab 5165 df-mpt 5184 df-id 5526 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-iota 6452 df-fun 6501 df-fn 6502 df-f 6503 df-fo 6505 df-fv 6507 df-1st 7947 df-2nd 7948

This theorem is referenced by: gsummpt2d 32962

W3C validator