Step |
Hyp |
Ref |
Expression |
1 |
|
mgcoval.1 |
|- A = ( Base ` V ) |
2 |
|
mgcoval.2 |
|- B = ( Base ` W ) |
3 |
|
mgcoval.3 |
|- .<_ = ( le ` V ) |
4 |
|
mgcoval.4 |
|- .c_ = ( le ` W ) |
5 |
|
df-mgc |
|- MGalConn = ( v e. _V , w e. _V |-> [_ ( Base ` v ) / a ]_ [_ ( Base ` w ) / b ]_ { <. f , g >. | ( ( f e. ( b ^m a ) /\ g e. ( a ^m b ) ) /\ A. x e. a A. y e. b ( ( f ` x ) ( le ` w ) y <-> x ( le ` v ) ( g ` y ) ) ) } ) |
6 |
5
|
a1i |
|- ( ( V e. X /\ W e. Y ) -> MGalConn = ( v e. _V , w e. _V |-> [_ ( Base ` v ) / a ]_ [_ ( Base ` w ) / b ]_ { <. f , g >. | ( ( f e. ( b ^m a ) /\ g e. ( a ^m b ) ) /\ A. x e. a A. y e. b ( ( f ` x ) ( le ` w ) y <-> x ( le ` v ) ( g ` y ) ) ) } ) ) |
7 |
|
fvexd |
|- ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) -> ( Base ` v ) e. _V ) |
8 |
|
simprl |
|- ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) -> v = V ) |
9 |
8
|
fveq2d |
|- ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) -> ( Base ` v ) = ( Base ` V ) ) |
10 |
9 1
|
eqtr4di |
|- ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) -> ( Base ` v ) = A ) |
11 |
|
fvexd |
|- ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) -> ( Base ` w ) e. _V ) |
12 |
|
simplrr |
|- ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) -> w = W ) |
13 |
12
|
fveq2d |
|- ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) -> ( Base ` w ) = ( Base ` W ) ) |
14 |
13 2
|
eqtr4di |
|- ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) -> ( Base ` w ) = B ) |
15 |
|
simpr |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> b = B ) |
16 |
|
simplr |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> a = A ) |
17 |
15 16
|
oveq12d |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( b ^m a ) = ( B ^m A ) ) |
18 |
17
|
eleq2d |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( f e. ( b ^m a ) <-> f e. ( B ^m A ) ) ) |
19 |
16 15
|
oveq12d |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( a ^m b ) = ( A ^m B ) ) |
20 |
19
|
eleq2d |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( g e. ( a ^m b ) <-> g e. ( A ^m B ) ) ) |
21 |
18 20
|
anbi12d |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( ( f e. ( b ^m a ) /\ g e. ( a ^m b ) ) <-> ( f e. ( B ^m A ) /\ g e. ( A ^m B ) ) ) ) |
22 |
12
|
adantr |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> w = W ) |
23 |
22
|
fveq2d |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( le ` w ) = ( le ` W ) ) |
24 |
23 4
|
eqtr4di |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( le ` w ) = .c_ ) |
25 |
24
|
breqd |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( ( f ` x ) ( le ` w ) y <-> ( f ` x ) .c_ y ) ) |
26 |
8
|
ad2antrr |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> v = V ) |
27 |
26
|
fveq2d |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( le ` v ) = ( le ` V ) ) |
28 |
27 3
|
eqtr4di |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( le ` v ) = .<_ ) |
29 |
28
|
breqd |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( x ( le ` v ) ( g ` y ) <-> x .<_ ( g ` y ) ) ) |
30 |
25 29
|
bibi12d |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( ( ( f ` x ) ( le ` w ) y <-> x ( le ` v ) ( g ` y ) ) <-> ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) ) |
31 |
15 30
|
raleqbidv |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( A. y e. b ( ( f ` x ) ( le ` w ) y <-> x ( le ` v ) ( g ` y ) ) <-> A. y e. B ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) ) |
32 |
16 31
|
raleqbidv |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( A. x e. a A. y e. b ( ( f ` x ) ( le ` w ) y <-> x ( le ` v ) ( g ` y ) ) <-> A. x e. A A. y e. B ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) ) |
33 |
21 32
|
anbi12d |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> ( ( ( f e. ( b ^m a ) /\ g e. ( a ^m b ) ) /\ A. x e. a A. y e. b ( ( f ` x ) ( le ` w ) y <-> x ( le ` v ) ( g ` y ) ) ) <-> ( ( f e. ( B ^m A ) /\ g e. ( A ^m B ) ) /\ A. x e. A A. y e. B ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) ) ) |
34 |
33
|
opabbidv |
|- ( ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) /\ b = B ) -> { <. f , g >. | ( ( f e. ( b ^m a ) /\ g e. ( a ^m b ) ) /\ A. x e. a A. y e. b ( ( f ` x ) ( le ` w ) y <-> x ( le ` v ) ( g ` y ) ) ) } = { <. f , g >. | ( ( f e. ( B ^m A ) /\ g e. ( A ^m B ) ) /\ A. x e. A A. y e. B ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) } ) |
35 |
11 14 34
|
csbied2 |
|- ( ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) /\ a = A ) -> [_ ( Base ` w ) / b ]_ { <. f , g >. | ( ( f e. ( b ^m a ) /\ g e. ( a ^m b ) ) /\ A. x e. a A. y e. b ( ( f ` x ) ( le ` w ) y <-> x ( le ` v ) ( g ` y ) ) ) } = { <. f , g >. | ( ( f e. ( B ^m A ) /\ g e. ( A ^m B ) ) /\ A. x e. A A. y e. B ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) } ) |
36 |
7 10 35
|
csbied2 |
|- ( ( ( V e. X /\ W e. Y ) /\ ( v = V /\ w = W ) ) -> [_ ( Base ` v ) / a ]_ [_ ( Base ` w ) / b ]_ { <. f , g >. | ( ( f e. ( b ^m a ) /\ g e. ( a ^m b ) ) /\ A. x e. a A. y e. b ( ( f ` x ) ( le ` w ) y <-> x ( le ` v ) ( g ` y ) ) ) } = { <. f , g >. | ( ( f e. ( B ^m A ) /\ g e. ( A ^m B ) ) /\ A. x e. A A. y e. B ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) } ) |
37 |
|
simpl |
|- ( ( V e. X /\ W e. Y ) -> V e. X ) |
38 |
37
|
elexd |
|- ( ( V e. X /\ W e. Y ) -> V e. _V ) |
39 |
|
simpr |
|- ( ( V e. X /\ W e. Y ) -> W e. Y ) |
40 |
39
|
elexd |
|- ( ( V e. X /\ W e. Y ) -> W e. _V ) |
41 |
|
ovexd |
|- ( ( V e. X /\ W e. Y ) -> ( B ^m A ) e. _V ) |
42 |
|
ovexd |
|- ( ( V e. X /\ W e. Y ) -> ( A ^m B ) e. _V ) |
43 |
|
simprll |
|- ( ( ( V e. X /\ W e. Y ) /\ ( ( f e. ( B ^m A ) /\ g e. ( A ^m B ) ) /\ A. x e. A A. y e. B ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) ) -> f e. ( B ^m A ) ) |
44 |
|
simprlr |
|- ( ( ( V e. X /\ W e. Y ) /\ ( ( f e. ( B ^m A ) /\ g e. ( A ^m B ) ) /\ A. x e. A A. y e. B ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) ) -> g e. ( A ^m B ) ) |
45 |
41 42 43 44
|
opabex2 |
|- ( ( V e. X /\ W e. Y ) -> { <. f , g >. | ( ( f e. ( B ^m A ) /\ g e. ( A ^m B ) ) /\ A. x e. A A. y e. B ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) } e. _V ) |
46 |
6 36 38 40 45
|
ovmpod |
|- ( ( V e. X /\ W e. Y ) -> ( V MGalConn W ) = { <. f , g >. | ( ( f e. ( B ^m A ) /\ g e. ( A ^m B ) ) /\ A. x e. A A. y e. B ( ( f ` x ) .c_ y <-> x .<_ ( g ` y ) ) ) } ) |