Theorem epttop 20813

Description: The excluded point topology. (Contributed by Mario Carneiro, 3-Sep-2015.)

Assertion

Ref	Expression
epttop	|- ( ( A e. V /\ P e. A ) -> { x e. ~P A | ( P e. x -> x = A ) } e. (TopOn ` A ) )

Distinct variable groups:   x, A   x, P

Allowed substitution hint:   V( x)

Proof of Theorem epttop

Dummy variables y z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ssrab 3680	. . . . 5 |- ( y C_ { x e. ~P A | ( P e. x -> x = A ) } <-> ( y C_ ~P A /\ A. x e. y ( P e. x -> x = A ) ) )
2		simprl 794	. . . . . . . . 9 |- ( ( ( A e. V /\ P e. A ) /\ ( y C_ ~P A /\ A. x e. y ( P e. x -> x = A ) ) ) -> y C_ ~P A )
3		sspwuni 4611	. . . . . . . . 9 |- ( y C_ ~P A <-> U. y C_ A )
4	2, 3	sylib 208	. . . . . . . 8 |- ( ( ( A e. V /\ P e. A ) /\ ( y C_ ~P A /\ A. x e. y ( P e. x -> x = A ) ) ) -> U. y C_ A )
5		vuniex 6954	. . . . . . . . 9 |- U. y e. _V
6	5	elpw 4164	. . . . . . . 8 |- ( U. y e. ~P A <-> U. y C_ A )
7	4, 6	sylibr 224	. . . . . . 7 |- ( ( ( A e. V /\ P e. A ) /\ ( y C_ ~P A /\ A. x e. y ( P e. x -> x = A ) ) ) -> U. y e. ~P A )
8		eluni2 4440	. . . . . . . . . 10 |- ( P e. U. y <-> E. x e. y P e. x )
9		r19.29 3072	. . . . . . . . . . . . 13 |- ( ( A. x e. y ( P e. x -> x = A ) /\ E. x e. y P e. x ) -> E. x e. y ( ( P e. x -> x = A ) /\ P e. x ) )
10		simpr 477	. . . . . . . . . . . . . . . 16 |- ( ( x e. y /\ ( P e. x -> x = A ) ) -> ( P e. x -> x = A ) )
11	10	impr 649	. . . . . . . . . . . . . . 15 |- ( ( x e. y /\ ( ( P e. x -> x = A ) /\ P e. x ) ) -> x = A )
12		elssuni 4467	. . . . . . . . . . . . . . . 16 |- ( x e. y -> x C_ U. y )
13	12	adantr 481	. . . . . . . . . . . . . . 15 |- ( ( x e. y /\ ( ( P e. x -> x = A ) /\ P e. x ) ) -> x C_ U. y )
14	11, 13	eqsstr3d 3640	. . . . . . . . . . . . . 14 |- ( ( x e. y /\ ( ( P e. x -> x = A ) /\ P e. x ) ) -> A C_ U. y )
15	14	rexlimiva 3028	. . . . . . . . . . . . 13 |- ( E. x e. y ( ( P e. x -> x = A ) /\ P e. x ) -> A C_ U. y )
16	9, 15	syl 17	. . . . . . . . . . . 12 |- ( ( A. x e. y ( P e. x -> x = A ) /\ E. x e. y P e. x ) -> A C_ U. y )
17	16	ex 450	. . . . . . . . . . 11 |- ( A. x e. y ( P e. x -> x = A ) -> ( E. x e. y P e. x -> A C_ U. y ) )
18	17	ad2antll 765	. . . . . . . . . 10 |- ( ( ( A e. V /\ P e. A ) /\ ( y C_ ~P A /\ A. x e. y ( P e. x -> x = A ) ) ) -> ( E. x e. y P e. x -> A C_ U. y ) )
19	8, 18	syl5bi 232	. . . . . . . . 9 |- ( ( ( A e. V /\ P e. A ) /\ ( y C_ ~P A /\ A. x e. y ( P e. x -> x = A ) ) ) -> ( P e. U. y -> A C_ U. y ) )
20	19, 4	jctild 566	. . . . . . . 8 |- ( ( ( A e. V /\ P e. A ) /\ ( y C_ ~P A /\ A. x e. y ( P e. x -> x = A ) ) ) -> ( P e. U. y -> ( U. y C_ A /\ A C_ U. y ) ) )
21		eqss 3618	. . . . . . . 8 |- ( U. y = A <-> ( U. y C_ A /\ A C_ U. y ) )
22	20, 21	syl6ibr 242	. . . . . . 7 |- ( ( ( A e. V /\ P e. A ) /\ ( y C_ ~P A /\ A. x e. y ( P e. x -> x = A ) ) ) -> ( P e. U. y -> U. y = A ) )
23		eleq2 2690	. . . . . . . . 9 |- ( x = U. y -> ( P e. x <-> P e. U. y ) )
24		eqeq1 2626	. . . . . . . . 9 |- ( x = U. y -> ( x = A <-> U. y = A ) )
25	23, 24	imbi12d 334	. . . . . . . 8 |- ( x = U. y -> ( ( P e. x -> x = A ) <-> ( P e. U. y -> U. y = A ) ) )
26	25	elrab 3363	. . . . . . 7 |- ( U. y e. { x e. ~P A | ( P e. x -> x = A ) } <-> ( U. y e. ~P A /\ ( P e. U. y -> U. y = A ) ) )
27	7, 22, 26	sylanbrc 698	. . . . . 6 |- ( ( ( A e. V /\ P e. A ) /\ ( y C_ ~P A /\ A. x e. y ( P e. x -> x = A ) ) ) -> U. y e. { x e. ~P A | ( P e. x -> x = A ) } )
28	27	ex 450	. . . . 5 |- ( ( A e. V /\ P e. A ) -> ( ( y C_ ~P A /\ A. x e. y ( P e. x -> x = A ) ) -> U. y e. { x e. ~P A | ( P e. x -> x = A ) } ) )
29	1, 28	syl5bi 232	. . . 4 |- ( ( A e. V /\ P e. A ) -> ( y C_ { x e. ~P A | ( P e. x -> x = A ) } -> U. y e. { x e. ~P A | ( P e. x -> x = A ) } ) )
30	29	alrimiv 1855	. . 3 |- ( ( A e. V /\ P e. A ) -> A. y ( y C_ { x e. ~P A | ( P e. x -> x = A ) } -> U. y e. { x e. ~P A | ( P e. x -> x = A ) } ) )
31		inss1 3833	. . . . . . . . 9 |- ( y i^i z ) C_ y
32		simprll 802	. . . . . . . . . 10 |- ( ( ( A e. V /\ P e. A ) /\ ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) ) -> y e. ~P A )
33	32	elpwid 4170	. . . . . . . . 9 |- ( ( ( A e. V /\ P e. A ) /\ ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) ) -> y C_ A )
34	31, 33	syl5ss 3614	. . . . . . . 8 |- ( ( ( A e. V /\ P e. A ) /\ ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) ) -> ( y i^i z ) C_ A )
35		vex 3203	. . . . . . . . . 10 |- y e. _V
36	35	inex1 4799	. . . . . . . . 9 |- ( y i^i z ) e. _V
37	36	elpw 4164	. . . . . . . 8 |- ( ( y i^i z ) e. ~P A <-> ( y i^i z ) C_ A )
38	34, 37	sylibr 224	. . . . . . 7 |- ( ( ( A e. V /\ P e. A ) /\ ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) ) -> ( y i^i z ) e. ~P A )
39		elin 3796	. . . . . . . 8 |- ( P e. ( y i^i z ) <-> ( P e. y /\ P e. z ) )
40		simprlr 803	. . . . . . . . . 10 |- ( ( ( A e. V /\ P e. A ) /\ ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) ) -> ( P e. y -> y = A ) )
41		simprrr 805	. . . . . . . . . 10 |- ( ( ( A e. V /\ P e. A ) /\ ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) ) -> ( P e. z -> z = A ) )
42	40, 41	anim12d 586	. . . . . . . . 9 |- ( ( ( A e. V /\ P e. A ) /\ ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) ) -> ( ( P e. y /\ P e. z ) -> ( y = A /\ z = A ) ) )
43		ineq12 3809	. . . . . . . . . 10 |- ( ( y = A /\ z = A ) -> ( y i^i z ) = ( A i^i A ) )
44		inidm 3822	. . . . . . . . . 10 |- ( A i^i A ) = A
45	43, 44	syl6eq 2672	. . . . . . . . 9 |- ( ( y = A /\ z = A ) -> ( y i^i z ) = A )
46	42, 45	syl6 35	. . . . . . . 8 |- ( ( ( A e. V /\ P e. A ) /\ ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) ) -> ( ( P e. y /\ P e. z ) -> ( y i^i z ) = A ) )
47	39, 46	syl5bi 232	. . . . . . 7 |- ( ( ( A e. V /\ P e. A ) /\ ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) ) -> ( P e. ( y i^i z ) -> ( y i^i z ) = A ) )
48	38, 47	jca 554	. . . . . 6 |- ( ( ( A e. V /\ P e. A ) /\ ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) ) -> ( ( y i^i z ) e. ~P A /\ ( P e. ( y i^i z ) -> ( y i^i z ) = A ) ) )
49	48	ex 450	. . . . 5 |- ( ( A e. V /\ P e. A ) -> ( ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) -> ( ( y i^i z ) e. ~P A /\ ( P e. ( y i^i z ) -> ( y i^i z ) = A ) ) ) )
50		eleq2 2690	. . . . . . . 8 |- ( x = y -> ( P e. x <-> P e. y ) )
51		eqeq1 2626	. . . . . . . 8 |- ( x = y -> ( x = A <-> y = A ) )
52	50, 51	imbi12d 334	. . . . . . 7 |- ( x = y -> ( ( P e. x -> x = A ) <-> ( P e. y -> y = A ) ) )
53	52	elrab 3363	. . . . . 6 |- ( y e. { x e. ~P A | ( P e. x -> x = A ) } <-> ( y e. ~P A /\ ( P e. y -> y = A ) ) )
54		eleq2 2690	. . . . . . . 8 |- ( x = z -> ( P e. x <-> P e. z ) )
55		eqeq1 2626	. . . . . . . 8 |- ( x = z -> ( x = A <-> z = A ) )
56	54, 55	imbi12d 334	. . . . . . 7 |- ( x = z -> ( ( P e. x -> x = A ) <-> ( P e. z -> z = A ) ) )
57	56	elrab 3363	. . . . . 6 |- ( z e. { x e. ~P A | ( P e. x -> x = A ) } <-> ( z e. ~P A /\ ( P e. z -> z = A ) ) )
58	53, 57	anbi12i 733	. . . . 5 |- ( ( y e. { x e. ~P A | ( P e. x -> x = A ) } /\ z e. { x e. ~P A | ( P e. x -> x = A ) } ) <-> ( ( y e. ~P A /\ ( P e. y -> y = A ) ) /\ ( z e. ~P A /\ ( P e. z -> z = A ) ) ) )
59		eleq2 2690	. . . . . . 7 |- ( x = ( y i^i z ) -> ( P e. x <-> P e. ( y i^i z ) ) )
60		eqeq1 2626	. . . . . . 7 |- ( x = ( y i^i z ) -> ( x = A <-> ( y i^i z ) = A ) )
61	59, 60	imbi12d 334	. . . . . 6 |- ( x = ( y i^i z ) -> ( ( P e. x -> x = A ) <-> ( P e. ( y i^i z ) -> ( y i^i z ) = A ) ) )
62	61	elrab 3363	. . . . 5 |- ( ( y i^i z ) e. { x e. ~P A | ( P e. x -> x = A ) } <-> ( ( y i^i z ) e. ~P A /\ ( P e. ( y i^i z ) -> ( y i^i z ) = A ) ) )
63	49, 58, 62	3imtr4g 285	. . . 4 |- ( ( A e. V /\ P e. A ) -> ( ( y e. { x e. ~P A | ( P e. x -> x = A ) } /\ z e. { x e. ~P A | ( P e. x -> x = A ) } ) -> ( y i^i z ) e. { x e. ~P A | ( P e. x -> x = A ) } ) )
64	63	ralrimivv 2970	. . 3 |- ( ( A e. V /\ P e. A ) -> A. y e. { x e. ~P A | ( P e. x -> x = A ) } A. z e. { x e. ~P A | ( P e. x -> x = A ) } ( y i^i z ) e. { x e. ~P A | ( P e. x -> x = A ) } )
65		pwexg 4850	. . . . . 6 |- ( A e. V -> ~P A e. _V )
66	65	adantr 481	. . . . 5 |- ( ( A e. V /\ P e. A ) -> ~P A e. _V )
67		rabexg 4812	. . . . 5 |- ( ~P A e. _V -> { x e. ~P A | ( P e. x -> x = A ) } e. _V )
68	66, 67	syl 17	. . . 4 |- ( ( A e. V /\ P e. A ) -> { x e. ~P A | ( P e. x -> x = A ) } e. _V )
69		istopg 20700	. . . 4 |- ( { x e. ~P A | ( P e. x -> x = A ) } e. _V -> ( { x e. ~P A | ( P e. x -> x = A ) } e. Top <-> ( A. y ( y C_ { x e. ~P A | ( P e. x -> x = A ) } -> U. y e. { x e. ~P A | ( P e. x -> x = A ) } ) /\ A. y e. { x e. ~P A | ( P e. x -> x = A ) } A. z e. { x e. ~P A | ( P e. x -> x = A ) } ( y i^i z ) e. { x e. ~P A | ( P e. x -> x = A ) } ) ) )
70	68, 69	syl 17	. . 3 |- ( ( A e. V /\ P e. A ) -> ( { x e. ~P A | ( P e. x -> x = A ) } e. Top <-> ( A. y ( y C_ { x e. ~P A | ( P e. x -> x = A ) } -> U. y e. { x e. ~P A | ( P e. x -> x = A ) } ) /\ A. y e. { x e. ~P A | ( P e. x -> x = A ) } A. z e. { x e. ~P A | ( P e. x -> x = A ) } ( y i^i z ) e. { x e. ~P A | ( P e. x -> x = A ) } ) ) )
71	30, 64, 70	mpbir2and 957	. 2 |- ( ( A e. V /\ P e. A ) -> { x e. ~P A | ( P e. x -> x = A ) } e. Top )
72		pwidg 4173	. . . . . 6 |- ( A e. V -> A e. ~P A )
73	72	adantr 481	. . . . 5 |- ( ( A e. V /\ P e. A ) -> A e. ~P A )
74		eqidd 2623	. . . . . 6 |- ( ( A e. V /\ P e. A ) -> A = A )
75	74	a1d 25	. . . . 5 |- ( ( A e. V /\ P e. A ) -> ( P e. A -> A = A ) )
76		eleq2 2690	. . . . . . 7 |- ( x = A -> ( P e. x <-> P e. A ) )
77		eqeq1 2626	. . . . . . 7 |- ( x = A -> ( x = A <-> A = A ) )
78	76, 77	imbi12d 334	. . . . . 6 |- ( x = A -> ( ( P e. x -> x = A ) <-> ( P e. A -> A = A ) ) )
79	78	elrab 3363	. . . . 5 |- ( A e. { x e. ~P A | ( P e. x -> x = A ) } <-> ( A e. ~P A /\ ( P e. A -> A = A ) ) )
80	73, 75, 79	sylanbrc 698	. . . 4 |- ( ( A e. V /\ P e. A ) -> A e. { x e. ~P A | ( P e. x -> x = A ) } )
81		elssuni 4467	. . . 4 |- ( A e. { x e. ~P A | ( P e. x -> x = A ) } -> A C_ U. { x e. ~P A | ( P e. x -> x = A ) } )
82	80, 81	syl 17	. . 3 |- ( ( A e. V /\ P e. A ) -> A C_ U. { x e. ~P A | ( P e. x -> x = A ) } )
83		ssrab2 3687	. . . . 5 |- { x e. ~P A | ( P e. x -> x = A ) } C_ ~P A
84		sspwuni 4611	. . . . 5 |- ( { x e. ~P A | ( P e. x -> x = A ) } C_ ~P A <-> U. { x e. ~P A | ( P e. x -> x = A ) } C_ A )
85	83, 84	mpbi 220	. . . 4 |- U. { x e. ~P A | ( P e. x -> x = A ) } C_ A
86	85	a1i 11	. . 3 |- ( ( A e. V /\ P e. A ) -> U. { x e. ~P A | ( P e. x -> x = A ) } C_ A )
87	82, 86	eqssd 3620	. 2 |- ( ( A e. V /\ P e. A ) -> A = U. { x e. ~P A | ( P e. x -> x = A ) } )
88		istopon 20717	. 2 |- ( { x e. ~P A | ( P e. x -> x = A ) } e. (TopOn ` A ) <-> ( { x e. ~P A | ( P e. x -> x = A ) } e. Top /\ A = U. { x e. ~P A | ( P e. x -> x = A ) } ) )
89	71, 87, 88	sylanbrc 698	1 |- ( ( A e. V /\ P e. A ) -> { x e. ~P A | ( P e. x -> x = A ) } e. (TopOn ` A ) )

Syntax hints:   -> wi 4   <-> wb 196   /\ wa 384   A.wal 1481   = wceq 1483   e. wcel 1990   A.wral 2912   E.wrex 2913   {crab 2916   _Vcvv 3200   i^i cin 3573   C_ wss 3574   ~Pcpw 4158   U.cuni 4436   ` cfv 5888   Topctop 20698  TopOnctopon 20715

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3202  df-sbc 3436  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-br 4654  df-opab 4713  df-mpt 4730  df-id 5024  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-iota 5851  df-fun 5890  df-fv 5896  df-top 20699  df-topon 20716

This theorem is referenced by:  dfac14lem  21420  dfac14  21421