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

Theorem hdmap1l6a 31268
Description: Lemma for hdmap1l6 31280. Part (6) in [Baer] p. 47, case 1. (Contributed by NM, 23-Apr-2015.)
Hypotheses
Ref Expression
hdmap1l6.h  |-  H  =  ( LHyp `  K
)
hdmap1l6.u  |-  U  =  ( ( DVecH `  K
) `  W )
hdmap1l6.v  |-  V  =  ( Base `  U
)
hdmap1l6.p  |-  .+  =  ( +g  `  U )
hdmap1l6.s  |-  .-  =  ( -g `  U )
hdmap1l6c.o  |-  .0.  =  ( 0g `  U )
hdmap1l6.n  |-  N  =  ( LSpan `  U )
hdmap1l6.c  |-  C  =  ( (LCDual `  K
) `  W )
hdmap1l6.d  |-  D  =  ( Base `  C
)
hdmap1l6.a  |-  .+b  =  ( +g  `  C )
hdmap1l6.r  |-  R  =  ( -g `  C
)
hdmap1l6.q  |-  Q  =  ( 0g `  C
)
hdmap1l6.l  |-  L  =  ( LSpan `  C )
hdmap1l6.m  |-  M  =  ( (mapd `  K
) `  W )
hdmap1l6.i  |-  I  =  ( (HDMap1 `  K
) `  W )
hdmap1l6.k  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
hdmap1l6.f  |-  ( ph  ->  F  e.  D )
hdmap1l6cl.x  |-  ( ph  ->  X  e.  ( V 
\  {  .0.  }
) )
hdmap1l6.mn  |-  ( ph  ->  ( M `  ( N `  { X } ) )  =  ( L `  { F } ) )
hdmap1l6e.y  |-  ( ph  ->  Y  e.  ( V 
\  {  .0.  }
) )
hdmap1l6e.z  |-  ( ph  ->  Z  e.  ( V 
\  {  .0.  }
) )
hdmap1l6e.xn  |-  ( ph  ->  -.  X  e.  ( N `  { Y ,  Z } ) )
hdmap1l6.yz  |-  ( ph  ->  ( N `  { Y } )  =/=  ( N `  { Z } ) )
hdmap1l6.fg  |-  ( ph  ->  ( I `  <. X ,  F ,  Y >. )  =  G )
hdmap1l6.fe  |-  ( ph  ->  ( I `  <. X ,  F ,  Z >. )  =  E )
Assertion
Ref Expression
hdmap1l6a  |-  ( ph  ->  ( I `  <. X ,  F ,  ( Y  .+  Z )
>. )  =  (
( I `  <. X ,  F ,  Y >. )  .+b  ( I `  <. X ,  F ,  Z >. ) ) )

Proof of Theorem hdmap1l6a
StepHypRef Expression
1 hdmap1l6.h . . . 4  |-  H  =  ( LHyp `  K
)
2 hdmap1l6.u . . . 4  |-  U  =  ( ( DVecH `  K
) `  W )
3 hdmap1l6.v . . . 4  |-  V  =  ( Base `  U
)
4 hdmap1l6.p . . . 4  |-  .+  =  ( +g  `  U )
5 hdmap1l6.s . . . 4  |-  .-  =  ( -g `  U )
6 hdmap1l6c.o . . . 4  |-  .0.  =  ( 0g `  U )
7 hdmap1l6.n . . . 4  |-  N  =  ( LSpan `  U )
8 hdmap1l6.c . . . 4  |-  C  =  ( (LCDual `  K
) `  W )
9 hdmap1l6.d . . . 4  |-  D  =  ( Base `  C
)
10 hdmap1l6.a . . . 4  |-  .+b  =  ( +g  `  C )
11 hdmap1l6.r . . . 4  |-  R  =  ( -g `  C
)
12 hdmap1l6.q . . . 4  |-  Q  =  ( 0g `  C
)
13 hdmap1l6.l . . . 4  |-  L  =  ( LSpan `  C )
14 hdmap1l6.m . . . 4  |-  M  =  ( (mapd `  K
) `  W )
15 hdmap1l6.i . . . 4  |-  I  =  ( (HDMap1 `  K
) `  W )
16 hdmap1l6.k . . . 4  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
17 hdmap1l6.f . . . 4  |-  ( ph  ->  F  e.  D )
18 hdmap1l6cl.x . . . 4  |-  ( ph  ->  X  e.  ( V 
\  {  .0.  }
) )
19 hdmap1l6.mn . . . 4  |-  ( ph  ->  ( M `  ( N `  { X } ) )  =  ( L `  { F } ) )
20 hdmap1l6e.y . . . 4  |-  ( ph  ->  Y  e.  ( V 
\  {  .0.  }
) )
21 hdmap1l6e.z . . . 4  |-  ( ph  ->  Z  e.  ( V 
\  {  .0.  }
) )
22 hdmap1l6e.xn . . . 4  |-  ( ph  ->  -.  X  e.  ( N `  { Y ,  Z } ) )
23 hdmap1l6.yz . . . 4  |-  ( ph  ->  ( N `  { Y } )  =/=  ( N `  { Z } ) )
24 hdmap1l6.fg . . . 4  |-  ( ph  ->  ( I `  <. X ,  F ,  Y >. )  =  G )
25 hdmap1l6.fe . . . 4  |-  ( ph  ->  ( I `  <. X ,  F ,  Z >. )  =  E )
261, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25hdmap1l6lem2 31267 . . 3  |-  ( ph  ->  ( M `  ( N `  { ( Y  .+  Z ) } ) )  =  ( L `  { ( G  .+b  E ) } ) )
2724, 25oveq12d 5838 . . . . 5  |-  ( ph  ->  ( ( I `  <. X ,  F ,  Y >. )  .+b  (
I `  <. X ,  F ,  Z >. ) )  =  ( G 
.+b  E ) )
2827sneqd 3655 . . . 4  |-  ( ph  ->  { ( ( I `
 <. X ,  F ,  Y >. )  .+b  (
I `  <. X ,  F ,  Z >. ) ) }  =  {
( G  .+b  E
) } )
2928fveq2d 5490 . . 3  |-  ( ph  ->  ( L `  {
( ( I `  <. X ,  F ,  Y >. )  .+b  (
I `  <. X ,  F ,  Z >. ) ) } )  =  ( L `  {
( G  .+b  E
) } ) )
3026, 29eqtr4d 2320 . 2  |-  ( ph  ->  ( M `  ( N `  { ( Y  .+  Z ) } ) )  =  ( L `  { ( ( I `  <. X ,  F ,  Y >. )  .+b  ( I `  <. X ,  F ,  Z >. ) ) } ) )
311, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25hdmap1l6lem1 31266 . . 3  |-  ( ph  ->  ( M `  ( N `  { ( X  .-  ( Y  .+  Z ) ) } ) )  =  ( L `  { ( F R ( G 
.+b  E ) ) } ) )
3227oveq2d 5836 . . . . 5  |-  ( ph  ->  ( F R ( ( I `  <. X ,  F ,  Y >. )  .+b  ( I `  <. X ,  F ,  Z >. ) ) )  =  ( F R ( G  .+b  E
) ) )
3332sneqd 3655 . . . 4  |-  ( ph  ->  { ( F R ( ( I `  <. X ,  F ,  Y >. )  .+b  (
I `  <. X ,  F ,  Z >. ) ) ) }  =  { ( F R ( G  .+b  E
) ) } )
3433fveq2d 5490 . . 3  |-  ( ph  ->  ( L `  {
( F R ( ( I `  <. X ,  F ,  Y >. )  .+b  ( I `  <. X ,  F ,  Z >. ) ) ) } )  =  ( L `  { ( F R ( G 
.+b  E ) ) } ) )
3531, 34eqtr4d 2320 . 2  |-  ( ph  ->  ( M `  ( N `  { ( X  .-  ( Y  .+  Z ) ) } ) )  =  ( L `  { ( F R ( ( I `  <. X ,  F ,  Y >. ) 
.+b  ( I `  <. X ,  F ,  Z >. ) ) ) } ) )
361, 2, 16dvhlmod 30568 . . . . 5  |-  ( ph  ->  U  e.  LMod )
37 eldifi 3300 . . . . . 6  |-  ( Y  e.  ( V  \  {  .0.  } )  ->  Y  e.  V )
3820, 37syl 17 . . . . 5  |-  ( ph  ->  Y  e.  V )
39 eldifi 3300 . . . . . 6  |-  ( Z  e.  ( V  \  {  .0.  } )  ->  Z  e.  V )
4021, 39syl 17 . . . . 5  |-  ( ph  ->  Z  e.  V )
413, 4lmodvacl 15636 . . . . 5  |-  ( ( U  e.  LMod  /\  Y  e.  V  /\  Z  e.  V )  ->  ( Y  .+  Z )  e.  V )
4236, 38, 40, 41syl3anc 1184 . . . 4  |-  ( ph  ->  ( Y  .+  Z
)  e.  V )
433, 4, 6, 7, 36, 38, 40, 23lmodindp1 15766 . . . 4  |-  ( ph  ->  ( Y  .+  Z
)  =/=  .0.  )
44 eldifsn 3751 . . . 4  |-  ( ( Y  .+  Z )  e.  ( V  \  {  .0.  } )  <->  ( ( Y  .+  Z )  e.  V  /\  ( Y 
.+  Z )  =/= 
.0.  ) )
4542, 43, 44sylanbrc 647 . . 3  |-  ( ph  ->  ( Y  .+  Z
)  e.  ( V 
\  {  .0.  }
) )
461, 8, 16lcdlmod 31050 . . . 4  |-  ( ph  ->  C  e.  LMod )
471, 2, 16dvhlvec 30567 . . . . . . 7  |-  ( ph  ->  U  e.  LVec )
48 eldifi 3300 . . . . . . . 8  |-  ( X  e.  ( V  \  {  .0.  } )  ->  X  e.  V )
4918, 48syl 17 . . . . . . 7  |-  ( ph  ->  X  e.  V )
503, 6, 7, 47, 38, 21, 49, 23, 22lspindp2 15883 . . . . . 6  |-  ( ph  ->  ( ( N `  { X } )  =/=  ( N `  { Y } )  /\  -.  Z  e.  ( N `  { X ,  Y } ) ) )
5150simpld 447 . . . . 5  |-  ( ph  ->  ( N `  { X } )  =/=  ( N `  { Y } ) )
521, 2, 3, 6, 7, 8, 9, 13, 14, 15, 16, 17, 19, 51, 18, 38hdmap1cl 31263 . . . 4  |-  ( ph  ->  ( I `  <. X ,  F ,  Y >. )  e.  D )
533, 6, 7, 47, 20, 40, 49, 23, 22lspindp1 15881 . . . . . 6  |-  ( ph  ->  ( ( N `  { X } )  =/=  ( N `  { Z } )  /\  -.  Y  e.  ( N `  { X ,  Z } ) ) )
5453simpld 447 . . . . 5  |-  ( ph  ->  ( N `  { X } )  =/=  ( N `  { Z } ) )
551, 2, 3, 6, 7, 8, 9, 13, 14, 15, 16, 17, 19, 54, 18, 40hdmap1cl 31263 . . . 4  |-  ( ph  ->  ( I `  <. X ,  F ,  Z >. )  e.  D )
569, 10lmodvacl 15636 . . . 4  |-  ( ( C  e.  LMod  /\  (
I `  <. X ,  F ,  Y >. )  e.  D  /\  (
I `  <. X ,  F ,  Z >. )  e.  D )  -> 
( ( I `  <. X ,  F ,  Y >. )  .+b  (
I `  <. X ,  F ,  Z >. ) )  e.  D )
5746, 52, 55, 56syl3anc 1184 . . 3  |-  ( ph  ->  ( ( I `  <. X ,  F ,  Y >. )  .+b  (
I `  <. X ,  F ,  Z >. ) )  e.  D )
58 eqid 2285 . . . . . 6  |-  ( LSubSp `  U )  =  (
LSubSp `  U )
593, 58, 7, 36, 38, 40lspprcl 15730 . . . . . 6  |-  ( ph  ->  ( N `  { Y ,  Z }
)  e.  ( LSubSp `  U ) )
603, 4, 7, 36, 38, 40lspprvacl 15751 . . . . . 6  |-  ( ph  ->  ( Y  .+  Z
)  e.  ( N `
 { Y ,  Z } ) )
6158, 7, 36, 59, 60lspsnel5a 15748 . . . . 5  |-  ( ph  ->  ( N `  {
( Y  .+  Z
) } )  C_  ( N `  { Y ,  Z } ) )
623, 58, 7, 36, 59, 49lspsnel5 15747 . . . . . 6  |-  ( ph  ->  ( X  e.  ( N `  { Y ,  Z } )  <->  ( N `  { X } ) 
C_  ( N `  { Y ,  Z }
) ) )
6322, 62mtbid 293 . . . . 5  |-  ( ph  ->  -.  ( N `  { X } )  C_  ( N `  { Y ,  Z } ) )
64 nssne2 3237 . . . . 5  |-  ( ( ( N `  {
( Y  .+  Z
) } )  C_  ( N `  { Y ,  Z } )  /\  -.  ( N `  { X } )  C_  ( N `  { Y ,  Z } ) )  ->  ( N `  { ( Y  .+  Z ) } )  =/=  ( N `  { X } ) )
6561, 63, 64syl2anc 644 . . . 4  |-  ( ph  ->  ( N `  {
( Y  .+  Z
) } )  =/=  ( N `  { X } ) )
6665necomd 2531 . . 3  |-  ( ph  ->  ( N `  { X } )  =/=  ( N `  { ( Y  .+  Z ) } ) )
671, 2, 3, 5, 6, 7, 8, 9, 11, 13, 14, 15, 16, 18, 17, 45, 57, 66, 19hdmap1eq 31260 . 2  |-  ( ph  ->  ( ( I `  <. X ,  F , 
( Y  .+  Z
) >. )  =  ( ( I `  <. X ,  F ,  Y >. )  .+b  ( I `  <. X ,  F ,  Z >. ) )  <->  ( ( M `  ( N `  { ( Y  .+  Z ) } ) )  =  ( L `
 { ( ( I `  <. X ,  F ,  Y >. ) 
.+b  ( I `  <. X ,  F ,  Z >. ) ) } )  /\  ( M `
 ( N `  { ( X  .-  ( Y  .+  Z ) ) } ) )  =  ( L `  { ( F R ( ( I `  <. X ,  F ,  Y >. )  .+b  (
I `  <. X ,  F ,  Z >. ) ) ) } ) ) ) )
6830, 35, 67mpbir2and 890 1  |-  ( ph  ->  ( I `  <. X ,  F ,  ( Y  .+  Z )
>. )  =  (
( I `  <. X ,  F ,  Y >. )  .+b  ( I `  <. X ,  F ,  Z >. ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 5    -> wi 6    /\ wa 360    = wceq 1624    e. wcel 1685    =/= wne 2448    \ cdif 3151    C_ wss 3154   {csn 3642   {cpr 3643   <.cotp 3646   ` cfv 5222  (class class class)co 5820   Basecbs 13143   +g cplusg 13203   0gc0g 13395   -gcsg 14360   LModclmod 15622   LSubSpclss 15684   LSpanclspn 15723   HLchlt 28808   LHypclh 29441   DVecHcdvh 30536  LCDualclcd 31044  mapdcmpd 31082  HDMap1chdma1 31250
This theorem is referenced by:  hdmap1l6d  31272  hdmap1l6e  31273  hdmap1l6f  31274  hdmap1l6j  31278
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-gen 1534  ax-5 1545  ax-17 1604  ax-9 1637  ax-8 1645  ax-13 1687  ax-14 1689  ax-6 1704  ax-7 1709  ax-11 1716  ax-12 1868  ax-ext 2266  ax-rep 4133  ax-sep 4143  ax-nul 4151  ax-pow 4188  ax-pr 4214  ax-un 4512  ax-cnex 8789  ax-resscn 8790  ax-1cn 8791  ax-icn 8792  ax-addcl 8793  ax-addrcl 8794  ax-mulcl 8795  ax-mulrcl 8796  ax-mulcom 8797  ax-addass 8798  ax-mulass 8799  ax-distr 8800  ax-i2m1 8801  ax-1ne0 8802  ax-1rid 8803  ax-rnegex 8804  ax-rrecex 8805  ax-cnre 8806  ax-pre-lttri 8807  ax-pre-lttrn 8808  ax-pre-ltadd 8809  ax-pre-mulgt0 8810
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 937  df-3an 938  df-tru 1312  df-fal 1313  df-ex 1530  df-nf 1533  df-sb 1632  df-eu 2149  df-mo 2150  df-clab 2272  df-cleq 2278  df-clel 2281  df-nfc 2410  df-ne 2450  df-nel 2451  df-ral 2550  df-rex 2551  df-reu 2552  df-rmo 2553  df-rab 2554  df-v 2792  df-sbc 2994  df-csb 3084  df-dif 3157  df-un 3159  df-in 3161  df-ss 3168  df-pss 3170  df-nul 3458  df-if 3568  df-pw 3629  df-sn 3648  df-pr 3649  df-tp 3650  df-op 3651  df-ot 3652  df-uni 3830  df-int 3865  df-iun 3909  df-iin 3910  df-br 4026  df-opab 4080  df-mpt 4081  df-tr 4116  df-eprel 4305  df-id 4309  df-po 4314  df-so 4315  df-fr 4352  df-we 4354  df-ord 4395  df-on 4396  df-lim 4397  df-suc 4398  df-om 4657  df-xp 4695  df-rel 4696  df-cnv 4697  df-co 4698  df-dm 4699  df-rn 4700  df-res 4701  df-ima 4702  df-fun 5224  df-fn 5225  df-f 5226  df-f1 5227  df-fo 5228  df-f1o 5229  df-fv 5230  df-ov 5823  df-oprab 5824  df-mpt2 5825  df-of 6040  df-1st 6084  df-2nd 6085  df-tpos 6196  df-iota 6253  df-undef 6292  df-riota 6300  df-recs 6384  df-rdg 6419  df-1o 6475  df-oadd 6479  df-er 6656  df-map 6770  df-en 6860  df-dom 6861  df-sdom 6862  df-fin 6863  df-pnf 8865  df-mnf 8866  df-xr 8867  df-ltxr 8868  df-le 8869  df-sub 9035  df-neg 9036  df-nn 9743  df-2 9800  df-3 9801  df-4 9802  df-5 9803  df-6 9804  df-n0 9962  df-z 10021  df-uz 10227  df-fz 10778  df-struct 13145  df-ndx 13146  df-slot 13147  df-base 13148  df-sets 13149  df-ress 13150  df-plusg 13216  df-mulr 13217  df-sca 13219  df-vsca 13220  df-0g 13399  df-mre 13483  df-mrc 13484  df-acs 13486  df-poset 14075  df-plt 14087  df-lub 14103  df-glb 14104  df-join 14105  df-meet 14106  df-p0 14140  df-p1 14141  df-lat 14147  df-clat 14209  df-mnd 14362  df-submnd 14411  df-grp 14484  df-minusg 14485  df-sbg 14486  df-subg 14613  df-cntz 14788  df-oppg 14814  df-lsm 14942  df-cmn 15086  df-abl 15087  df-mgp 15321  df-rng 15335  df-ur 15337  df-oppr 15400  df-dvdsr 15418  df-unit 15419  df-invr 15449  df-dvr 15460  df-drng 15509  df-lmod 15624  df-lss 15685  df-lsp 15724  df-lvec 15851  df-lsatoms 28434  df-lshyp 28435  df-lcv 28477  df-lfl 28516  df-lkr 28544  df-ldual 28582  df-oposet 28634  df-ol 28636  df-oml 28637  df-covers 28724  df-ats 28725  df-atl 28756  df-cvlat 28780  df-hlat 28809  df-llines 28955  df-lplanes 28956  df-lvols 28957  df-lines 28958  df-psubsp 28960  df-pmap 28961  df-padd 29253  df-lhyp 29445  df-laut 29446  df-ldil 29561  df-ltrn 29562  df-trl 29616  df-tgrp 30200  df-tendo 30212  df-edring 30214  df-dveca 30460  df-disoa 30487  df-dvech 30537  df-dib 30597  df-dic 30631  df-dih 30687  df-doch 30806  df-djh 30853  df-lcdual 31045  df-mapd 31083  df-hdmap1 31252
  Copyright terms: Public domain W3C validator