Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mapd0 Structured version   Visualization version   Unicode version

Theorem mapd0 35245
Description: Projectivity map of the zero subspace. Part of property (f) in [Baer] p. 40. TODO: does proof need to be this long for this simple fact? (Contributed by NM, 15-Mar-2015.)
Hypotheses
Ref Expression
mapd0.h  |-  H  =  ( LHyp `  K
)
mapd0.m  |-  M  =  ( (mapd `  K
) `  W )
mapd0.u  |-  U  =  ( ( DVecH `  K
) `  W )
mapd0.o  |-  O  =  ( 0g `  U
)
mapd0.c  |-  C  =  ( (LCDual `  K
) `  W )
mapd0.z  |-  .0.  =  ( 0g `  C )
mapd0.k  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
Assertion
Ref Expression
mapd0  |-  ( ph  ->  ( M `  { O } )  =  {  .0.  } )

Proof of Theorem mapd0
Dummy variables  f 
g are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mapd0.h . . 3  |-  H  =  ( LHyp `  K
)
2 mapd0.u . . 3  |-  U  =  ( ( DVecH `  K
) `  W )
3 eqid 2453 . . 3  |-  ( LSubSp `  U )  =  (
LSubSp `  U )
4 eqid 2453 . . 3  |-  (LFnl `  U )  =  (LFnl `  U )
5 eqid 2453 . . 3  |-  (LKer `  U )  =  (LKer `  U )
6 eqid 2453 . . 3  |-  ( ( ocH `  K ) `
 W )  =  ( ( ocH `  K
) `  W )
7 mapd0.m . . 3  |-  M  =  ( (mapd `  K
) `  W )
8 mapd0.k . . 3  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
91, 2, 8dvhlmod 34690 . . . 4  |-  ( ph  ->  U  e.  LMod )
10 mapd0.o . . . . 5  |-  O  =  ( 0g `  U
)
1110, 3lsssn0 18183 . . . 4  |-  ( U  e.  LMod  ->  { O }  e.  ( LSubSp `  U ) )
129, 11syl 17 . . 3  |-  ( ph  ->  { O }  e.  ( LSubSp `  U )
)
131, 2, 3, 4, 5, 6, 7, 8, 12mapdval 35208 . 2  |-  ( ph  ->  ( M `  { O } )  =  {
f  e.  (LFnl `  U )  |  ( ( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  f )
) )  =  ( (LKer `  U ) `  f )  /\  (
( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  f )
)  C_  { O } ) } )
14 simprrr 776 . . . . . . . . . . 11  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( ( ( ocH `  K ) `
 W ) `  ( (LKer `  U ) `  g ) )  C_  { O } )
159adantr 467 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  U  e.  LMod )
168adantr 467 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
17 eqid 2453 . . . . . . . . . . . . . 14  |-  ( Base `  U )  =  (
Base `  U )
18 simprl 765 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  g  e.  (LFnl `  U ) )
1917, 4, 5, 15, 18lkrssv 32674 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( (LKer `  U ) `  g
)  C_  ( Base `  U ) )
201, 2, 17, 3, 6dochlss 34934 . . . . . . . . . . . . 13  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( (LKer `  U ) `  g
)  C_  ( Base `  U ) )  -> 
( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  e.  (
LSubSp `  U ) )
2116, 19, 20syl2anc 667 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( ( ( ocH `  K ) `
 W ) `  ( (LKer `  U ) `  g ) )  e.  ( LSubSp `  U )
)
2210, 3lssle0 18185 . . . . . . . . . . . 12  |-  ( ( U  e.  LMod  /\  (
( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
)  e.  ( LSubSp `  U ) )  -> 
( ( ( ( ocH `  K ) `
 W ) `  ( (LKer `  U ) `  g ) )  C_  { O }  <->  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
)  =  { O } ) )
2315, 21, 22syl2anc 667 . . . . . . . . . . 11  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( ( ( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
)  C_  { O } 
<->  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  =  { O } ) )
2414, 23mpbid 214 . . . . . . . . . 10  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( ( ( ocH `  K ) `
 W ) `  ( (LKer `  U ) `  g ) )  =  { O } )
2524fveq2d 5874 . . . . . . . . 9  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( ( ( ocH `  K ) `  W
) `  { O } ) )
26 simprrl 775 . . . . . . . . 9  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )
)
271, 2, 6, 17, 10doch0 34938 . . . . . . . . . . 11  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( ( ( ocH `  K ) `  W
) `  { O } )  =  (
Base `  U )
)
288, 27syl 17 . . . . . . . . . 10  |-  ( ph  ->  ( ( ( ocH `  K ) `  W
) `  { O } )  =  (
Base `  U )
)
2928adantr 467 . . . . . . . . 9  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( ( ( ocH `  K ) `
 W ) `  { O } )  =  ( Base `  U
) )
3025, 26, 293eqtr3d 2495 . . . . . . . 8  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( (LKer `  U ) `  g
)  =  ( Base `  U ) )
31 eqid 2453 . . . . . . . . . 10  |-  (Scalar `  U )  =  (Scalar `  U )
32 eqid 2453 . . . . . . . . . 10  |-  ( 0g
`  (Scalar `  U )
)  =  ( 0g
`  (Scalar `  U )
)
3331, 32, 17, 4, 5lkr0f 32672 . . . . . . . . 9  |-  ( ( U  e.  LMod  /\  g  e.  (LFnl `  U )
)  ->  ( (
(LKer `  U ) `  g )  =  (
Base `  U )  <->  g  =  ( ( Base `  U )  X.  {
( 0g `  (Scalar `  U ) ) } ) ) )
3415, 18, 33syl2anc 667 . . . . . . . 8  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  ( ( (LKer `  U ) `  g
)  =  ( Base `  U )  <->  g  =  ( ( Base `  U
)  X.  { ( 0g `  (Scalar `  U ) ) } ) ) )
3530, 34mpbid 214 . . . . . . 7  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  g  =  ( ( Base `  U
)  X.  { ( 0g `  (Scalar `  U ) ) } ) )
36 mapd0.c . . . . . . . . 9  |-  C  =  ( (LCDual `  K
) `  W )
37 mapd0.z . . . . . . . . 9  |-  .0.  =  ( 0g `  C )
381, 2, 17, 31, 32, 36, 37, 8lcd0v 35191 . . . . . . . 8  |-  ( ph  ->  .0.  =  ( (
Base `  U )  X.  { ( 0g `  (Scalar `  U ) ) } ) )
3938adantr 467 . . . . . . 7  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  .0.  =  (
( Base `  U )  X.  { ( 0g `  (Scalar `  U ) ) } ) )
4035, 39eqtr4d 2490 . . . . . 6  |-  ( (
ph  /\  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )  ->  g  =  .0.  )
4140ex 436 . . . . 5  |-  ( ph  ->  ( ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) )  -> 
g  =  .0.  )
)
42 eqid 2453 . . . . . . . 8  |-  ( Base `  C )  =  (
Base `  C )
431, 36, 42, 37, 8lcd0vcl 35194 . . . . . . . 8  |-  ( ph  ->  .0.  e.  ( Base `  C ) )
441, 36, 42, 2, 4, 8, 43lcdvbaselfl 35175 . . . . . . 7  |-  ( ph  ->  .0.  e.  (LFnl `  U ) )
4531, 32, 17, 4, 5lkr0f 32672 . . . . . . . . . . . . 13  |-  ( ( U  e.  LMod  /\  .0.  e.  (LFnl `  U )
)  ->  ( (
(LKer `  U ) `  .0.  )  =  (
Base `  U )  <->  .0.  =  ( ( Base `  U )  X.  {
( 0g `  (Scalar `  U ) ) } ) ) )
469, 44, 45syl2anc 667 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( (LKer `  U ) `  .0.  )  =  ( Base `  U )  <->  .0.  =  ( ( Base `  U
)  X.  { ( 0g `  (Scalar `  U ) ) } ) ) )
4738, 46mpbird 236 . . . . . . . . . . 11  |-  ( ph  ->  ( (LKer `  U
) `  .0.  )  =  ( Base `  U
) )
4847fveq2d 5874 . . . . . . . . . 10  |-  ( ph  ->  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  .0.  ) )  =  ( ( ( ocH `  K
) `  W ) `  ( Base `  U
) ) )
4948fveq2d 5874 . . . . . . . . 9  |-  ( ph  ->  ( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  .0.  )
) )  =  ( ( ( ocH `  K
) `  W ) `  ( ( ( ocH `  K ) `  W
) `  ( Base `  U ) ) ) )
501, 2, 6, 17, 8dochoc1 34941 . . . . . . . . 9  |-  ( ph  ->  ( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( Base `  U
) ) )  =  ( Base `  U
) )
5149, 50eqtrd 2487 . . . . . . . 8  |-  ( ph  ->  ( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  .0.  )
) )  =  (
Base `  U )
)
5251, 47eqtr4d 2490 . . . . . . 7  |-  ( ph  ->  ( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  .0.  )
) )  =  ( (LKer `  U ) `  .0.  ) )
531, 2, 6, 17, 10doch1 34939 . . . . . . . . . 10  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( ( ( ocH `  K ) `  W
) `  ( Base `  U ) )  =  { O } )
548, 53syl 17 . . . . . . . . 9  |-  ( ph  ->  ( ( ( ocH `  K ) `  W
) `  ( Base `  U ) )  =  { O } )
5548, 54eqtrd 2487 . . . . . . . 8  |-  ( ph  ->  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  .0.  ) )  =  { O } )
56 eqimss 3486 . . . . . . . 8  |-  ( ( ( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  .0.  )
)  =  { O }  ->  ( ( ( ocH `  K ) `
 W ) `  ( (LKer `  U ) `  .0.  ) )  C_  { O } )
5755, 56syl 17 . . . . . . 7  |-  ( ph  ->  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  .0.  ) )  C_  { O } )
5844, 52, 57jca32 538 . . . . . 6  |-  ( ph  ->  (  .0.  e.  (LFnl `  U )  /\  (
( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  .0.  )
) )  =  ( (LKer `  U ) `  .0.  )  /\  (
( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  .0.  )
)  C_  { O } ) ) )
59 eleq1 2519 . . . . . . 7  |-  ( g  =  .0.  ->  (
g  e.  (LFnl `  U )  <->  .0.  e.  (LFnl `  U ) ) )
60 fveq2 5870 . . . . . . . . . . 11  |-  ( g  =  .0.  ->  (
(LKer `  U ) `  g )  =  ( (LKer `  U ) `  .0.  ) )
6160fveq2d 5874 . . . . . . . . . 10  |-  ( g  =  .0.  ->  (
( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
)  =  ( ( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  .0.  )
) )
6261fveq2d 5874 . . . . . . . . 9  |-  ( g  =  .0.  ->  (
( ( ocH `  K
) `  W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  .0.  )
) ) )
6362, 60eqeq12d 2468 . . . . . . . 8  |-  ( g  =  .0.  ->  (
( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
) )  =  ( (LKer `  U ) `  g )  <->  ( (
( ocH `  K
) `  W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  .0.  ) ) )  =  ( (LKer `  U
) `  .0.  )
) )
6461sseq1d 3461 . . . . . . . 8  |-  ( g  =  .0.  ->  (
( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } 
<->  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  .0.  ) )  C_  { O } ) )
6563, 64anbi12d 718 . . . . . . 7  |-  ( g  =  .0.  ->  (
( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } )  <->  ( (
( ( ocH `  K
) `  W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  .0.  ) ) )  =  ( (LKer `  U
) `  .0.  )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  .0.  ) )  C_  { O } ) ) )
6659, 65anbi12d 718 . . . . . 6  |-  ( g  =  .0.  ->  (
( g  e.  (LFnl `  U )  /\  (
( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
) )  =  ( (LKer `  U ) `  g )  /\  (
( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
)  C_  { O } ) )  <->  (  .0.  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  .0.  ) ) )  =  ( (LKer `  U
) `  .0.  )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  .0.  ) )  C_  { O } ) ) ) )
6758, 66syl5ibrcom 226 . . . . 5  |-  ( ph  ->  ( g  =  .0. 
->  ( g  e.  (LFnl `  U )  /\  (
( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
) )  =  ( (LKer `  U ) `  g )  /\  (
( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
)  C_  { O } ) ) ) )
6841, 67impbid 194 . . . 4  |-  ( ph  ->  ( ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) )  <->  g  =  .0.  ) )
69 fveq2 5870 . . . . . . . . 9  |-  ( f  =  g  ->  (
(LKer `  U ) `  f )  =  ( (LKer `  U ) `  g ) )
7069fveq2d 5874 . . . . . . . 8  |-  ( f  =  g  ->  (
( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  f )
)  =  ( ( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
) )
7170fveq2d 5874 . . . . . . 7  |-  ( f  =  g  ->  (
( ( ocH `  K
) `  W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  f
) ) )  =  ( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  g )
) ) )
7271, 69eqeq12d 2468 . . . . . 6  |-  ( f  =  g  ->  (
( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  f )
) )  =  ( (LKer `  U ) `  f )  <->  ( (
( ocH `  K
) `  W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )
) )
7370sseq1d 3461 . . . . . 6  |-  ( f  =  g  ->  (
( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  f
) )  C_  { O } 
<->  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) )
7472, 73anbi12d 718 . . . . 5  |-  ( f  =  g  ->  (
( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  f
) ) )  =  ( (LKer `  U
) `  f )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  f
) )  C_  { O } )  <->  ( (
( ( ocH `  K
) `  W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )
7574elrab 3198 . . . 4  |-  ( g  e.  { f  e.  (LFnl `  U )  |  ( ( ( ( ocH `  K
) `  W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  f
) ) )  =  ( (LKer `  U
) `  f )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  f
) )  C_  { O } ) }  <->  ( g  e.  (LFnl `  U )  /\  ( ( ( ( ocH `  K ) `
 W ) `  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) ) )  =  ( (LKer `  U
) `  g )  /\  ( ( ( ocH `  K ) `  W
) `  ( (LKer `  U ) `  g
) )  C_  { O } ) ) )
76 elsn 3984 . . . 4  |-  ( g  e.  {  .0.  }  <->  g  =  .0.  )
7768, 75, 763bitr4g 292 . . 3  |-  ( ph  ->  ( g  e.  {
f  e.  (LFnl `  U )  |  ( ( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  f )
) )  =  ( (LKer `  U ) `  f )  /\  (
( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  f )
)  C_  { O } ) }  <->  g  e.  {  .0.  } ) )
7877eqrdv 2451 . 2  |-  ( ph  ->  { f  e.  (LFnl `  U )  |  ( ( ( ( ocH `  K ) `  W
) `  ( (
( ocH `  K
) `  W ) `  ( (LKer `  U
) `  f )
) )  =  ( (LKer `  U ) `  f )  /\  (
( ( ocH `  K
) `  W ) `  ( (LKer `  U
) `  f )
)  C_  { O } ) }  =  {  .0.  } )
7913, 78eqtrd 2487 1  |-  ( ph  ->  ( M `  { O } )  =  {  .0.  } )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 188    /\ wa 371    = wceq 1446    e. wcel 1889   {crab 2743    C_ wss 3406   {csn 3970    X. cxp 4835   ` cfv 5585   Basecbs 15133  Scalarcsca 15205   0gc0g 15350   LModclmod 18103   LSubSpclss 18167  LFnlclfn 32635  LKerclk 32663   HLchlt 32928   LHypclh 33561   DVecHcdvh 34658   ocHcoch 34927  LCDualclcd 35166  mapdcmpd 35204
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1671  ax-4 1684  ax-5 1760  ax-6 1807  ax-7 1853  ax-8 1891  ax-9 1898  ax-10 1917  ax-11 1922  ax-12 1935  ax-13 2093  ax-ext 2433  ax-rep 4518  ax-sep 4528  ax-nul 4537  ax-pow 4584  ax-pr 4642  ax-un 6588  ax-cnex 9600  ax-resscn 9601  ax-1cn 9602  ax-icn 9603  ax-addcl 9604  ax-addrcl 9605  ax-mulcl 9606  ax-mulrcl 9607  ax-mulcom 9608  ax-addass 9609  ax-mulass 9610  ax-distr 9611  ax-i2m1 9612  ax-1ne0 9613  ax-1rid 9614  ax-rnegex 9615  ax-rrecex 9616  ax-cnre 9617  ax-pre-lttri 9618  ax-pre-lttrn 9619  ax-pre-ltadd 9620  ax-pre-mulgt0 9621  ax-riotaBAD 32537
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 987  df-3an 988  df-tru 1449  df-fal 1452  df-ex 1666  df-nf 1670  df-sb 1800  df-eu 2305  df-mo 2306  df-clab 2440  df-cleq 2446  df-clel 2449  df-nfc 2583  df-ne 2626  df-nel 2627  df-ral 2744  df-rex 2745  df-reu 2746  df-rmo 2747  df-rab 2748  df-v 3049  df-sbc 3270  df-csb 3366  df-dif 3409  df-un 3411  df-in 3413  df-ss 3420  df-pss 3422  df-nul 3734  df-if 3884  df-pw 3955  df-sn 3971  df-pr 3973  df-tp 3975  df-op 3977  df-uni 4202  df-int 4238  df-iun 4283  df-iin 4284  df-br 4406  df-opab 4465  df-mpt 4466  df-tr 4501  df-eprel 4748  df-id 4752  df-po 4758  df-so 4759  df-fr 4796  df-we 4798  df-xp 4843  df-rel 4844  df-cnv 4845  df-co 4846  df-dm 4847  df-rn 4848  df-res 4849  df-ima 4850  df-pred 5383  df-ord 5429  df-on 5430  df-lim 5431  df-suc 5432  df-iota 5549  df-fun 5587  df-fn 5588  df-f 5589  df-f1 5590  df-fo 5591  df-f1o 5592  df-fv 5593  df-riota 6257  df-ov 6298  df-oprab 6299  df-mpt2 6300  df-of 6536  df-om 6698  df-1st 6798  df-2nd 6799  df-tpos 6978  df-undef 7025  df-wrecs 7033  df-recs 7095  df-rdg 7133  df-1o 7187  df-oadd 7191  df-er 7368  df-map 7479  df-en 7575  df-dom 7576  df-sdom 7577  df-fin 7578  df-pnf 9682  df-mnf 9683  df-xr 9684  df-ltxr 9685  df-le 9686  df-sub 9867  df-neg 9868  df-nn 10617  df-2 10675  df-3 10676  df-4 10677  df-5 10678  df-6 10679  df-n0 10877  df-z 10945  df-uz 11167  df-fz 11792  df-struct 15135  df-ndx 15136  df-slot 15137  df-base 15138  df-sets 15139  df-ress 15140  df-plusg 15215  df-mulr 15216  df-sca 15218  df-vsca 15219  df-0g 15352  df-mre 15504  df-mrc 15505  df-acs 15507  df-preset 16185  df-poset 16203  df-plt 16216  df-lub 16232  df-glb 16233  df-join 16234  df-meet 16235  df-p0 16297  df-p1 16298  df-lat 16304  df-clat 16366  df-mgm 16500  df-sgrp 16539  df-mnd 16549  df-submnd 16595  df-grp 16685  df-minusg 16686  df-sbg 16687  df-subg 16826  df-cntz 16983  df-oppg 17009  df-lsm 17300  df-cmn 17444  df-abl 17445  df-mgp 17736  df-ur 17748  df-ring 17794  df-oppr 17863  df-dvdsr 17881  df-unit 17882  df-invr 17912  df-dvr 17923  df-drng 17989  df-lmod 18105  df-lss 18168  df-lsp 18207  df-lvec 18338  df-lsatoms 32554  df-lshyp 32555  df-lcv 32597  df-lfl 32636  df-lkr 32664  df-ldual 32702  df-oposet 32754  df-ol 32756  df-oml 32757  df-covers 32844  df-ats 32845  df-atl 32876  df-cvlat 32900  df-hlat 32929  df-llines 33075  df-lplanes 33076  df-lvols 33077  df-lines 33078  df-psubsp 33080  df-pmap 33081  df-padd 33373  df-lhyp 33565  df-laut 33566  df-ldil 33681  df-ltrn 33682  df-trl 33737  df-tgrp 34322  df-tendo 34334  df-edring 34336  df-dveca 34582  df-disoa 34609  df-dvech 34659  df-dib 34719  df-dic 34753  df-dih 34809  df-doch 34928  df-djh 34975  df-lcdual 35167  df-mapd 35205
This theorem is referenced by:  mapdcnvatN  35246  mapdat  35247  mapdspex  35248  mapdn0  35249  hdmap10  35423  hdmapeq0  35427
  Copyright terms: Public domain W3C validator