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

Theorem lcfr 31701
Description: Reconstruction of a subspace from a dual subspace of functionals with closed kernels. Our proof was suggested by Mario Carneiro, 20-Feb-2015. (Contributed by NM, 5-Mar-2015.)
Hypotheses
Ref Expression
lcfr.h  |-  H  =  ( LHyp `  K
)
lcfr.o  |-  ._|_  =  ( ( ocH `  K
) `  W )
lcfr.u  |-  U  =  ( ( DVecH `  K
) `  W )
lcfr.s  |-  S  =  ( LSubSp `  U )
lcfr.f  |-  F  =  (LFnl `  U )
lcfr.l  |-  L  =  (LKer `  U )
lcfr.d  |-  D  =  (LDual `  U )
lcfr.t  |-  T  =  ( LSubSp `  D )
lcfr.c  |-  C  =  { f  e.  F  |  (  ._|_  `  (  ._|_  `  ( L `  f ) ) )  =  ( L `  f ) }
lcfr.q  |-  Q  = 
U_ g  e.  R  (  ._|_  `  ( L `  g ) )
lcfr.k  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
lcfr.r  |-  ( ph  ->  R  e.  T )
lcfr.rs  |-  ( ph  ->  R  C_  C )
Assertion
Ref Expression
lcfr  |-  ( ph  ->  Q  e.  S )
Distinct variable groups:    f, F    f, g, L    ._|_ , f, g    R, g    U, f
Allowed substitution hints:    ph( f, g)    C( f, g)    D( f, g)    Q( f, g)    R( f)    S( f, g)    T( f, g)    U( g)    F( g)    H( f, g)    K( f, g)    W( f, g)

Proof of Theorem lcfr
Dummy variables  h  a  b  x are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 lcfr.q . . . 4  |-  Q  = 
U_ g  e.  R  (  ._|_  `  ( L `  g ) )
2 fveq2 5669 . . . . . 6  |-  ( g  =  h  ->  ( L `  g )  =  ( L `  h ) )
32fveq2d 5673 . . . . 5  |-  ( g  =  h  ->  (  ._|_  `  ( L `  g ) )  =  (  ._|_  `  ( L `
 h ) ) )
43cbviunv 4072 . . . 4  |-  U_ g  e.  R  (  ._|_  `  ( L `  g
) )  =  U_ h  e.  R  (  ._|_  `  ( L `  h ) )
51, 4eqtri 2408 . . 3  |-  Q  = 
U_ h  e.  R  (  ._|_  `  ( L `  h ) )
6 lcfr.k . . . . . . 7  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
76adantr 452 . . . . . 6  |-  ( (
ph  /\  h  e.  R )  ->  ( K  e.  HL  /\  W  e.  H ) )
8 eqid 2388 . . . . . . 7  |-  ( Base `  U )  =  (
Base `  U )
9 lcfr.f . . . . . . 7  |-  F  =  (LFnl `  U )
10 lcfr.l . . . . . . 7  |-  L  =  (LKer `  U )
11 lcfr.h . . . . . . . . 9  |-  H  =  ( LHyp `  K
)
12 lcfr.u . . . . . . . . 9  |-  U  =  ( ( DVecH `  K
) `  W )
1311, 12, 6dvhlmod 31226 . . . . . . . 8  |-  ( ph  ->  U  e.  LMod )
1413adantr 452 . . . . . . 7  |-  ( (
ph  /\  h  e.  R )  ->  U  e.  LMod )
15 lcfr.r . . . . . . . . . 10  |-  ( ph  ->  R  e.  T )
16 eqid 2388 . . . . . . . . . . 11  |-  ( Base `  D )  =  (
Base `  D )
17 lcfr.t . . . . . . . . . . 11  |-  T  =  ( LSubSp `  D )
1816, 17lssss 15941 . . . . . . . . . 10  |-  ( R  e.  T  ->  R  C_  ( Base `  D
) )
1915, 18syl 16 . . . . . . . . 9  |-  ( ph  ->  R  C_  ( Base `  D ) )
20 lcfr.d . . . . . . . . . 10  |-  D  =  (LDual `  U )
219, 20, 16, 13ldualvbase 29242 . . . . . . . . 9  |-  ( ph  ->  ( Base `  D
)  =  F )
2219, 21sseqtrd 3328 . . . . . . . 8  |-  ( ph  ->  R  C_  F )
2322sselda 3292 . . . . . . 7  |-  ( (
ph  /\  h  e.  R )  ->  h  e.  F )
248, 9, 10, 14, 23lkrssv 29212 . . . . . 6  |-  ( (
ph  /\  h  e.  R )  ->  ( L `  h )  C_  ( Base `  U
) )
25 lcfr.o . . . . . . 7  |-  ._|_  =  ( ( ocH `  K
) `  W )
2611, 12, 8, 25dochssv 31471 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( L `  h )  C_  ( Base `  U ) )  ->  (  ._|_  `  ( L `  h )
)  C_  ( Base `  U ) )
277, 24, 26syl2anc 643 . . . . 5  |-  ( (
ph  /\  h  e.  R )  ->  (  ._|_  `  ( L `  h ) )  C_  ( Base `  U )
)
2827ralrimiva 2733 . . . 4  |-  ( ph  ->  A. h  e.  R  (  ._|_  `  ( L `  h ) )  C_  ( Base `  U )
)
29 iunss 4074 . . . 4  |-  ( U_ h  e.  R  (  ._|_  `  ( L `  h ) )  C_  ( Base `  U )  <->  A. h  e.  R  ( 
._|_  `  ( L `  h ) )  C_  ( Base `  U )
)
3028, 29sylibr 204 . . 3  |-  ( ph  ->  U_ h  e.  R  (  ._|_  `  ( L `  h ) )  C_  ( Base `  U )
)
315, 30syl5eqss 3336 . 2  |-  ( ph  ->  Q  C_  ( Base `  U ) )
325a1i 11 . . 3  |-  ( ph  ->  Q  =  U_ h  e.  R  (  ._|_  `  ( L `  h
) ) )
3320, 13lduallmod 29269 . . . . . . 7  |-  ( ph  ->  D  e.  LMod )
34 eqid 2388 . . . . . . . 8  |-  ( 0g
`  D )  =  ( 0g `  D
)
3534, 17lss0cl 15951 . . . . . . 7  |-  ( ( D  e.  LMod  /\  R  e.  T )  ->  ( 0g `  D )  e.  R )
3633, 15, 35syl2anc 643 . . . . . 6  |-  ( ph  ->  ( 0g `  D
)  e.  R )
379, 20, 34, 13ldual0vcl 29267 . . . . . . . . 9  |-  ( ph  ->  ( 0g `  D
)  e.  F )
388, 9, 10, 13, 37lkrssv 29212 . . . . . . . 8  |-  ( ph  ->  ( L `  ( 0g `  D ) ) 
C_  ( Base `  U
) )
39 lcfr.s . . . . . . . . 9  |-  S  =  ( LSubSp `  U )
4011, 12, 8, 39, 25dochlss 31470 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( L `  ( 0g `  D ) )  C_  ( Base `  U ) )  -> 
(  ._|_  `  ( L `  ( 0g `  D
) ) )  e.  S )
416, 38, 40syl2anc 643 . . . . . . 7  |-  ( ph  ->  (  ._|_  `  ( L `
 ( 0g `  D ) ) )  e.  S )
42 eqid 2388 . . . . . . . 8  |-  ( 0g
`  U )  =  ( 0g `  U
)
4342, 39lss0cl 15951 . . . . . . 7  |-  ( ( U  e.  LMod  /\  (  ._|_  `  ( L `  ( 0g `  D ) ) )  e.  S
)  ->  ( 0g `  U )  e.  ( 
._|_  `  ( L `  ( 0g `  D ) ) ) )
4413, 41, 43syl2anc 643 . . . . . 6  |-  ( ph  ->  ( 0g `  U
)  e.  (  ._|_  `  ( L `  ( 0g `  D ) ) ) )
45 fveq2 5669 . . . . . . . . 9  |-  ( h  =  ( 0g `  D )  ->  ( L `  h )  =  ( L `  ( 0g `  D ) ) )
4645fveq2d 5673 . . . . . . . 8  |-  ( h  =  ( 0g `  D )  ->  (  ._|_  `  ( L `  h ) )  =  (  ._|_  `  ( L `
 ( 0g `  D ) ) ) )
4746eleq2d 2455 . . . . . . 7  |-  ( h  =  ( 0g `  D )  ->  (
( 0g `  U
)  e.  (  ._|_  `  ( L `  h
) )  <->  ( 0g `  U )  e.  ( 
._|_  `  ( L `  ( 0g `  D ) ) ) ) )
4847rspcev 2996 . . . . . 6  |-  ( ( ( 0g `  D
)  e.  R  /\  ( 0g `  U )  e.  (  ._|_  `  ( L `  ( 0g `  D ) ) ) )  ->  E. h  e.  R  ( 0g `  U )  e.  ( 
._|_  `  ( L `  h ) ) )
4936, 44, 48syl2anc 643 . . . . 5  |-  ( ph  ->  E. h  e.  R  ( 0g `  U )  e.  (  ._|_  `  ( L `  h )
) )
50 eliun 4040 . . . . 5  |-  ( ( 0g `  U )  e.  U_ h  e.  R  (  ._|_  `  ( L `  h )
)  <->  E. h  e.  R  ( 0g `  U )  e.  (  ._|_  `  ( L `  h )
) )
5149, 50sylibr 204 . . . 4  |-  ( ph  ->  ( 0g `  U
)  e.  U_ h  e.  R  (  ._|_  `  ( L `  h
) ) )
52 ne0i 3578 . . . 4  |-  ( ( 0g `  U )  e.  U_ h  e.  R  (  ._|_  `  ( L `  h )
)  ->  U_ h  e.  R  (  ._|_  `  ( L `  h )
)  =/=  (/) )
5351, 52syl 16 . . 3  |-  ( ph  ->  U_ h  e.  R  (  ._|_  `  ( L `  h ) )  =/=  (/) )
5432, 53eqnetrd 2569 . 2  |-  ( ph  ->  Q  =/=  (/) )
55 eqid 2388 . . . 4  |-  ( +g  `  U )  =  ( +g  `  U )
56 lcfr.c . . . . 5  |-  C  =  { f  e.  F  |  (  ._|_  `  (  ._|_  `  ( L `  f ) ) )  =  ( L `  f ) }
57 rabeq 2894 . . . . . 6  |-  ( F  =  (LFnl `  U
)  ->  { f  e.  F  |  (  ._|_  `  (  ._|_  `  ( L `  f )
) )  =  ( L `  f ) }  =  { f  e.  (LFnl `  U
)  |  (  ._|_  `  (  ._|_  `  ( L `
 f ) ) )  =  ( L `
 f ) } )
589, 57ax-mp 8 . . . . 5  |-  { f  e.  F  |  ( 
._|_  `  (  ._|_  `  ( L `  f )
) )  =  ( L `  f ) }  =  { f  e.  (LFnl `  U
)  |  (  ._|_  `  (  ._|_  `  ( L `
 f ) ) )  =  ( L `
 f ) }
5956, 58eqtri 2408 . . . 4  |-  C  =  { f  e.  (LFnl `  U )  |  ( 
._|_  `  (  ._|_  `  ( L `  f )
) )  =  ( L `  f ) }
606adantr 452 . . . 4  |-  ( (
ph  /\  ( x  e.  ( Base `  (Scalar `  U ) )  /\  a  e.  Q  /\  b  e.  Q )
)  ->  ( K  e.  HL  /\  W  e.  H ) )
6115adantr 452 . . . 4  |-  ( (
ph  /\  ( x  e.  ( Base `  (Scalar `  U ) )  /\  a  e.  Q  /\  b  e.  Q )
)  ->  R  e.  T )
62 lcfr.rs . . . . 5  |-  ( ph  ->  R  C_  C )
6362adantr 452 . . . 4  |-  ( (
ph  /\  ( x  e.  ( Base `  (Scalar `  U ) )  /\  a  e.  Q  /\  b  e.  Q )
)  ->  R  C_  C
)
64 simpr2 964 . . . . 5  |-  ( (
ph  /\  ( x  e.  ( Base `  (Scalar `  U ) )  /\  a  e.  Q  /\  b  e.  Q )
)  ->  a  e.  Q )
65 eqid 2388 . . . . 5  |-  (Scalar `  U )  =  (Scalar `  U )
66 eqid 2388 . . . . 5  |-  ( Base `  (Scalar `  U )
)  =  ( Base `  (Scalar `  U )
)
67 eqid 2388 . . . . 5  |-  ( .s
`  U )  =  ( .s `  U
)
68 simpr1 963 . . . . 5  |-  ( (
ph  /\  ( x  e.  ( Base `  (Scalar `  U ) )  /\  a  e.  Q  /\  b  e.  Q )
)  ->  x  e.  ( Base `  (Scalar `  U
) ) )
6911, 25, 12, 8, 9, 10, 20, 17, 60, 61, 5, 64, 65, 66, 67, 68lcfrlem5 31662 . . . 4  |-  ( (
ph  /\  ( x  e.  ( Base `  (Scalar `  U ) )  /\  a  e.  Q  /\  b  e.  Q )
)  ->  ( x
( .s `  U
) a )  e.  Q )
70 simpr3 965 . . . 4  |-  ( (
ph  /\  ( x  e.  ( Base `  (Scalar `  U ) )  /\  a  e.  Q  /\  b  e.  Q )
)  ->  b  e.  Q )
7111, 25, 12, 55, 9, 10, 20, 17, 59, 5, 60, 61, 63, 69, 70lcfrlem42 31700 . . 3  |-  ( (
ph  /\  ( x  e.  ( Base `  (Scalar `  U ) )  /\  a  e.  Q  /\  b  e.  Q )
)  ->  ( (
x ( .s `  U ) a ) ( +g  `  U
) b )  e.  Q )
7271ralrimivvva 2743 . 2  |-  ( ph  ->  A. x  e.  (
Base `  (Scalar `  U
) ) A. a  e.  Q  A. b  e.  Q  ( (
x ( .s `  U ) a ) ( +g  `  U
) b )  e.  Q )
7365, 66, 8, 55, 67, 39islss 15939 . 2  |-  ( Q  e.  S  <->  ( Q  C_  ( Base `  U
)  /\  Q  =/=  (/) 
/\  A. x  e.  (
Base `  (Scalar `  U
) ) A. a  e.  Q  A. b  e.  Q  ( (
x ( .s `  U ) a ) ( +g  `  U
) b )  e.  Q ) )
7431, 54, 72, 73syl3anbrc 1138 1  |-  ( ph  ->  Q  e.  S )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 359    /\ w3a 936    = wceq 1649    e. wcel 1717    =/= wne 2551   A.wral 2650   E.wrex 2651   {crab 2654    C_ wss 3264   (/)c0 3572   U_ciun 4036   ` cfv 5395  (class class class)co 6021   Basecbs 13397   +g cplusg 13457  Scalarcsca 13460   .scvsca 13461   0gc0g 13651   LModclmod 15878   LSubSpclss 15936  LFnlclfn 29173  LKerclk 29201  LDualcld 29239   HLchlt 29466   LHypclh 30099   DVecHcdvh 31194   ocHcoch 31463
This theorem is referenced by:  mapdrval  31763  mapd1o  31764
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1661  ax-8 1682  ax-13 1719  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2369  ax-rep 4262  ax-sep 4272  ax-nul 4280  ax-pow 4319  ax-pr 4345  ax-un 4642  ax-cnex 8980  ax-resscn 8981  ax-1cn 8982  ax-icn 8983  ax-addcl 8984  ax-addrcl 8985  ax-mulcl 8986  ax-mulrcl 8987  ax-mulcom 8988  ax-addass 8989  ax-mulass 8990  ax-distr 8991  ax-i2m1 8992  ax-1ne0 8993  ax-1rid 8994  ax-rnegex 8995  ax-rrecex 8996  ax-cnre 8997  ax-pre-lttri 8998  ax-pre-lttrn 8999  ax-pre-ltadd 9000  ax-pre-mulgt0 9001
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-fal 1326  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2243  df-mo 2244  df-clab 2375  df-cleq 2381  df-clel 2384  df-nfc 2513  df-ne 2553  df-nel 2554  df-ral 2655  df-rex 2656  df-reu 2657  df-rmo 2658  df-rab 2659  df-v 2902  df-sbc 3106  df-csb 3196  df-dif 3267  df-un 3269  df-in 3271  df-ss 3278  df-pss 3280  df-nul 3573  df-if 3684  df-pw 3745  df-sn 3764  df-pr 3765  df-tp 3766  df-op 3767  df-uni 3959  df-int 3994  df-iun 4038  df-iin 4039  df-br 4155  df-opab 4209  df-mpt 4210  df-tr 4245  df-eprel 4436  df-id 4440  df-po 4445  df-so 4446  df-fr 4483  df-we 4485  df-ord 4526  df-on 4527  df-lim 4528  df-suc 4529  df-om 4787  df-xp 4825  df-rel 4826  df-cnv 4827  df-co 4828  df-dm 4829  df-rn 4830  df-res 4831  df-ima 4832  df-iota 5359  df-fun 5397  df-fn 5398  df-f 5399  df-f1 5400  df-fo 5401  df-f1o 5402  df-fv 5403  df-ov 6024  df-oprab 6025  df-mpt2 6026  df-of 6245  df-1st 6289  df-2nd 6290  df-tpos 6416  df-undef 6480  df-riota 6486  df-recs 6570  df-rdg 6605  df-1o 6661  df-oadd 6665  df-er 6842  df-map 6957  df-en 7047  df-dom 7048  df-sdom 7049  df-fin 7050  df-pnf 9056  df-mnf 9057  df-xr 9058  df-ltxr 9059  df-le 9060  df-sub 9226  df-neg 9227  df-nn 9934  df-2 9991  df-3 9992  df-4 9993  df-5 9994  df-6 9995  df-n0 10155  df-z 10216  df-uz 10422  df-fz 10977  df-struct 13399  df-ndx 13400  df-slot 13401  df-base 13402  df-sets 13403  df-ress 13404  df-plusg 13470  df-mulr 13471  df-sca 13473  df-vsca 13474  df-0g 13655  df-mre 13739  df-mrc 13740  df-acs 13742  df-poset 14331  df-plt 14343  df-lub 14359  df-glb 14360  df-join 14361  df-meet 14362  df-p0 14396  df-p1 14397  df-lat 14403  df-clat 14465  df-mnd 14618  df-submnd 14667  df-grp 14740  df-minusg 14741  df-sbg 14742  df-subg 14869  df-cntz 15044  df-oppg 15070  df-lsm 15198  df-cmn 15342  df-abl 15343  df-mgp 15577  df-rng 15591  df-ur 15593  df-oppr 15656  df-dvdsr 15674  df-unit 15675  df-invr 15705  df-dvr 15716  df-drng 15765  df-lmod 15880  df-lss 15937  df-lsp 15976  df-lvec 16103  df-lsatoms 29092  df-lshyp 29093  df-lcv 29135  df-lfl 29174  df-lkr 29202  df-ldual 29240  df-oposet 29292  df-ol 29294  df-oml 29295  df-covers 29382  df-ats 29383  df-atl 29414  df-cvlat 29438  df-hlat 29467  df-llines 29613  df-lplanes 29614  df-lvols 29615  df-lines 29616  df-psubsp 29618  df-pmap 29619  df-padd 29911  df-lhyp 30103  df-laut 30104  df-ldil 30219  df-ltrn 30220  df-trl 30274  df-tgrp 30858  df-tendo 30870  df-edring 30872  df-dveca 31118  df-disoa 31145  df-dvech 31195  df-dib 31255  df-dic 31289  df-dih 31345  df-doch 31464  df-djh 31511
  Copyright terms: Public domain W3C validator