Step |
Hyp |
Ref |
Expression |
1 |
|
tgval2 |
|- ( B e. V -> ( topGen ` B ) = { z | ( z C_ U. B /\ A. x e. z E. y e. B ( x e. y /\ y C_ z ) ) } ) |
2 |
1
|
eleq2d |
|- ( B e. V -> ( A e. ( topGen ` B ) <-> A e. { z | ( z C_ U. B /\ A. x e. z E. y e. B ( x e. y /\ y C_ z ) ) } ) ) |
3 |
|
elex |
|- ( A e. { z | ( z C_ U. B /\ A. x e. z E. y e. B ( x e. y /\ y C_ z ) ) } -> A e. _V ) |
4 |
3
|
adantl |
|- ( ( B e. V /\ A e. { z | ( z C_ U. B /\ A. x e. z E. y e. B ( x e. y /\ y C_ z ) ) } ) -> A e. _V ) |
5 |
|
uniexg |
|- ( B e. V -> U. B e. _V ) |
6 |
|
ssexg |
|- ( ( A C_ U. B /\ U. B e. _V ) -> A e. _V ) |
7 |
5 6
|
sylan2 |
|- ( ( A C_ U. B /\ B e. V ) -> A e. _V ) |
8 |
7
|
ancoms |
|- ( ( B e. V /\ A C_ U. B ) -> A e. _V ) |
9 |
8
|
adantrr |
|- ( ( B e. V /\ ( A C_ U. B /\ A. x e. A E. y e. B ( x e. y /\ y C_ A ) ) ) -> A e. _V ) |
10 |
|
sseq1 |
|- ( z = A -> ( z C_ U. B <-> A C_ U. B ) ) |
11 |
|
sseq2 |
|- ( z = A -> ( y C_ z <-> y C_ A ) ) |
12 |
11
|
anbi2d |
|- ( z = A -> ( ( x e. y /\ y C_ z ) <-> ( x e. y /\ y C_ A ) ) ) |
13 |
12
|
rexbidv |
|- ( z = A -> ( E. y e. B ( x e. y /\ y C_ z ) <-> E. y e. B ( x e. y /\ y C_ A ) ) ) |
14 |
13
|
raleqbi1dv |
|- ( z = A -> ( A. x e. z E. y e. B ( x e. y /\ y C_ z ) <-> A. x e. A E. y e. B ( x e. y /\ y C_ A ) ) ) |
15 |
10 14
|
anbi12d |
|- ( z = A -> ( ( z C_ U. B /\ A. x e. z E. y e. B ( x e. y /\ y C_ z ) ) <-> ( A C_ U. B /\ A. x e. A E. y e. B ( x e. y /\ y C_ A ) ) ) ) |
16 |
15
|
elabg |
|- ( A e. _V -> ( A e. { z | ( z C_ U. B /\ A. x e. z E. y e. B ( x e. y /\ y C_ z ) ) } <-> ( A C_ U. B /\ A. x e. A E. y e. B ( x e. y /\ y C_ A ) ) ) ) |
17 |
4 9 16
|
pm5.21nd |
|- ( B e. V -> ( A e. { z | ( z C_ U. B /\ A. x e. z E. y e. B ( x e. y /\ y C_ z ) ) } <-> ( A C_ U. B /\ A. x e. A E. y e. B ( x e. y /\ y C_ A ) ) ) ) |
18 |
2 17
|
bitrd |
|- ( B e. V -> ( A e. ( topGen ` B ) <-> ( A C_ U. B /\ A. x e. A E. y e. B ( x e. y /\ y C_ A ) ) ) ) |