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

Theorem dihprrnlem1N 31666
Description: Lemma for dihprrn 31668, showing one of 4 cases. (Contributed by NM, 30-Aug-2014.) (New usage is discouraged.)
Hypotheses
Ref Expression
dihprrn.h  |-  H  =  ( LHyp `  K
)
dihprrn.u  |-  U  =  ( ( DVecH `  K
) `  W )
dihprrn.v  |-  V  =  ( Base `  U
)
dihprrn.n  |-  N  =  ( LSpan `  U )
dihprrn.i  |-  I  =  ( ( DIsoH `  K
) `  W )
dihprrn.k  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
dihprrn.x  |-  ( ph  ->  X  e.  V )
dihprrn.y  |-  ( ph  ->  Y  e.  V )
dihprrnlem1.l  |-  .<_  =  ( le `  K )
dihprrnlem1.o  |-  .0.  =  ( 0g `  U )
dihprrnlem1.nz  |-  ( ph  ->  Y  =/=  .0.  )
dihprrnlem1.x  |-  ( ph  ->  ( `' I `  ( N `  { X } ) )  .<_  W )
dihprrnlem1.y  |-  ( ph  ->  -.  ( `' I `  ( N `  { Y } ) )  .<_  W )
Assertion
Ref Expression
dihprrnlem1N  |-  ( ph  ->  ( N `  { X ,  Y }
)  e.  ran  I
)

Proof of Theorem dihprrnlem1N
StepHypRef Expression
1 df-pr 3723 . . . 4  |-  { X ,  Y }  =  ( { X }  u.  { Y } )
21fveq2i 5608 . . 3  |-  ( N `
 { X ,  Y } )  =  ( N `  ( { X }  u.  { Y } ) )
3 eqid 2358 . . . . 5  |-  ( Base `  K )  =  (
Base `  K )
4 dihprrnlem1.l . . . . 5  |-  .<_  =  ( le `  K )
5 dihprrn.h . . . . 5  |-  H  =  ( LHyp `  K
)
6 eqid 2358 . . . . 5  |-  ( join `  K )  =  (
join `  K )
7 eqid 2358 . . . . 5  |-  ( Atoms `  K )  =  (
Atoms `  K )
8 dihprrn.u . . . . 5  |-  U  =  ( ( DVecH `  K
) `  W )
9 eqid 2358 . . . . 5  |-  ( LSSum `  U )  =  (
LSSum `  U )
10 dihprrn.i . . . . 5  |-  I  =  ( ( DIsoH `  K
) `  W )
11 dihprrn.k . . . . 5  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
12 dihprrn.x . . . . . . . 8  |-  ( ph  ->  X  e.  V )
13 dihprrn.v . . . . . . . . 9  |-  V  =  ( Base `  U
)
14 dihprrn.n . . . . . . . . 9  |-  N  =  ( LSpan `  U )
155, 8, 13, 14, 10dihlsprn 31573 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  V
)  ->  ( N `  { X } )  e.  ran  I )
1611, 12, 15syl2anc 642 . . . . . . 7  |-  ( ph  ->  ( N `  { X } )  e.  ran  I )
173, 5, 10dihcnvcl 31513 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( N `  { X } )  e. 
ran  I )  -> 
( `' I `  ( N `  { X } ) )  e.  ( Base `  K
) )
1811, 16, 17syl2anc 642 . . . . . 6  |-  ( ph  ->  ( `' I `  ( N `  { X } ) )  e.  ( Base `  K
) )
19 dihprrnlem1.x . . . . . 6  |-  ( ph  ->  ( `' I `  ( N `  { X } ) )  .<_  W )
2018, 19jca 518 . . . . 5  |-  ( ph  ->  ( ( `' I `  ( N `  { X } ) )  e.  ( Base `  K
)  /\  ( `' I `  ( N `  { X } ) )  .<_  W )
)
21 dihprrn.y . . . . . . 7  |-  ( ph  ->  Y  e.  V )
22 dihprrnlem1.nz . . . . . . 7  |-  ( ph  ->  Y  =/=  .0.  )
23 dihprrnlem1.o . . . . . . . 8  |-  .0.  =  ( 0g `  U )
247, 5, 8, 13, 23, 14, 10dihlspsnat 31575 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  Y  e.  V  /\  Y  =/=  .0.  )  ->  ( `' I `  ( N `  { Y } ) )  e.  ( Atoms `  K )
)
2511, 21, 22, 24syl3anc 1182 . . . . . 6  |-  ( ph  ->  ( `' I `  ( N `  { Y } ) )  e.  ( Atoms `  K )
)
26 dihprrnlem1.y . . . . . 6  |-  ( ph  ->  -.  ( `' I `  ( N `  { Y } ) )  .<_  W )
2725, 26jca 518 . . . . 5  |-  ( ph  ->  ( ( `' I `  ( N `  { Y } ) )  e.  ( Atoms `  K )  /\  -.  ( `' I `  ( N `  { Y } ) )  .<_  W ) )
283, 4, 5, 6, 7, 8, 9, 10, 11, 20, 27dihjatc 31659 . . . 4  |-  ( ph  ->  ( I `  (
( `' I `  ( N `  { X } ) ) (
join `  K )
( `' I `  ( N `  { Y } ) ) ) )  =  ( ( I `  ( `' I `  ( N `
 { X }
) ) ) (
LSSum `  U ) ( I `  ( `' I `  ( N `
 { Y }
) ) ) ) )
295, 10dihcnvid2 31515 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( N `  { X } )  e. 
ran  I )  -> 
( I `  ( `' I `  ( N `
 { X }
) ) )  =  ( N `  { X } ) )
3011, 16, 29syl2anc 642 . . . . 5  |-  ( ph  ->  ( I `  ( `' I `  ( N `
 { X }
) ) )  =  ( N `  { X } ) )
315, 8, 13, 14, 10dihlsprn 31573 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  Y  e.  V
)  ->  ( N `  { Y } )  e.  ran  I )
3211, 21, 31syl2anc 642 . . . . . 6  |-  ( ph  ->  ( N `  { Y } )  e.  ran  I )
335, 10dihcnvid2 31515 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( N `  { Y } )  e. 
ran  I )  -> 
( I `  ( `' I `  ( N `
 { Y }
) ) )  =  ( N `  { Y } ) )
3411, 32, 33syl2anc 642 . . . . 5  |-  ( ph  ->  ( I `  ( `' I `  ( N `
 { Y }
) ) )  =  ( N `  { Y } ) )
3530, 34oveq12d 5960 . . . 4  |-  ( ph  ->  ( ( I `  ( `' I `  ( N `
 { X }
) ) ) (
LSSum `  U ) ( I `  ( `' I `  ( N `
 { Y }
) ) ) )  =  ( ( N `
 { X }
) ( LSSum `  U
) ( N `  { Y } ) ) )
365, 8, 11dvhlmod 31352 . . . . 5  |-  ( ph  ->  U  e.  LMod )
3712snssd 3839 . . . . 5  |-  ( ph  ->  { X }  C_  V )
3821snssd 3839 . . . . 5  |-  ( ph  ->  { Y }  C_  V )
3913, 14, 9lsmsp2 15933 . . . . 5  |-  ( ( U  e.  LMod  /\  { X }  C_  V  /\  { Y }  C_  V
)  ->  ( ( N `  { X } ) ( LSSum `  U ) ( N `
 { Y }
) )  =  ( N `  ( { X }  u.  { Y } ) ) )
4036, 37, 38, 39syl3anc 1182 . . . 4  |-  ( ph  ->  ( ( N `  { X } ) (
LSSum `  U ) ( N `  { Y } ) )  =  ( N `  ( { X }  u.  { Y } ) ) )
4128, 35, 403eqtrrd 2395 . . 3  |-  ( ph  ->  ( N `  ( { X }  u.  { Y } ) )  =  ( I `  (
( `' I `  ( N `  { X } ) ) (
join `  K )
( `' I `  ( N `  { Y } ) ) ) ) )
422, 41syl5eq 2402 . 2  |-  ( ph  ->  ( N `  { X ,  Y }
)  =  ( I `
 ( ( `' I `  ( N `
 { X }
) ) ( join `  K ) ( `' I `  ( N `
 { Y }
) ) ) ) )
4311simpld 445 . . . . 5  |-  ( ph  ->  K  e.  HL )
44 hllat 29605 . . . . 5  |-  ( K  e.  HL  ->  K  e.  Lat )
4543, 44syl 15 . . . 4  |-  ( ph  ->  K  e.  Lat )
463, 5, 10dihcnvcl 31513 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( N `  { Y } )  e. 
ran  I )  -> 
( `' I `  ( N `  { Y } ) )  e.  ( Base `  K
) )
4711, 32, 46syl2anc 642 . . . 4  |-  ( ph  ->  ( `' I `  ( N `  { Y } ) )  e.  ( Base `  K
) )
483, 6latjcl 14249 . . . 4  |-  ( ( K  e.  Lat  /\  ( `' I `  ( N `
 { X }
) )  e.  (
Base `  K )  /\  ( `' I `  ( N `  { Y } ) )  e.  ( Base `  K
) )  ->  (
( `' I `  ( N `  { X } ) ) (
join `  K )
( `' I `  ( N `  { Y } ) ) )  e.  ( Base `  K
) )
4945, 18, 47, 48syl3anc 1182 . . 3  |-  ( ph  ->  ( ( `' I `  ( N `  { X } ) ) (
join `  K )
( `' I `  ( N `  { Y } ) ) )  e.  ( Base `  K
) )
503, 5, 10dihcl 31512 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( `' I `  ( N `
 { X }
) ) ( join `  K ) ( `' I `  ( N `
 { Y }
) ) )  e.  ( Base `  K
) )  ->  (
I `  ( ( `' I `  ( N `
 { X }
) ) ( join `  K ) ( `' I `  ( N `
 { Y }
) ) ) )  e.  ran  I )
5111, 49, 50syl2anc 642 . 2  |-  ( ph  ->  ( I `  (
( `' I `  ( N `  { X } ) ) (
join `  K )
( `' I `  ( N `  { Y } ) ) ) )  e.  ran  I
)
5242, 51eqeltrd 2432 1  |-  ( ph  ->  ( N `  { X ,  Y }
)  e.  ran  I
)
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 358    = wceq 1642    e. wcel 1710    =/= wne 2521    u. cun 3226    C_ wss 3228   {csn 3716   {cpr 3717   class class class wbr 4102   `'ccnv 4767   ran crn 4769   ` cfv 5334  (class class class)co 5942   Basecbs 13239   lecple 13306   0gc0g 13493   joincjn 14171   Latclat 14244   LSSumclsm 15038   LModclmod 15720   LSpanclspn 15821   Atomscatm 29505   HLchlt 29592   LHypclh 30225   DVecHcdvh 31320   DIsoHcdih 31470
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1546  ax-5 1557  ax-17 1616  ax-9 1654  ax-8 1675  ax-13 1712  ax-14 1714  ax-6 1729  ax-7 1734  ax-11 1746  ax-12 1930  ax-ext 2339  ax-rep 4210  ax-sep 4220  ax-nul 4228  ax-pow 4267  ax-pr 4293  ax-un 4591  ax-cnex 8880  ax-resscn 8881  ax-1cn 8882  ax-icn 8883  ax-addcl 8884  ax-addrcl 8885  ax-mulcl 8886  ax-mulrcl 8887  ax-mulcom 8888  ax-addass 8889  ax-mulass 8890  ax-distr 8891  ax-i2m1 8892  ax-1ne0 8893  ax-1rid 8894  ax-rnegex 8895  ax-rrecex 8896  ax-cnre 8897  ax-pre-lttri 8898  ax-pre-lttrn 8899  ax-pre-ltadd 8900  ax-pre-mulgt0 8901
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1319  df-fal 1320  df-ex 1542  df-nf 1545  df-sb 1649  df-eu 2213  df-mo 2214  df-clab 2345  df-cleq 2351  df-clel 2354  df-nfc 2483  df-ne 2523  df-nel 2524  df-ral 2624  df-rex 2625  df-reu 2626  df-rmo 2627  df-rab 2628  df-v 2866  df-sbc 3068  df-csb 3158  df-dif 3231  df-un 3233  df-in 3235  df-ss 3242  df-pss 3244  df-nul 3532  df-if 3642  df-pw 3703  df-sn 3722  df-pr 3723  df-tp 3724  df-op 3725  df-uni 3907  df-int 3942  df-iun 3986  df-iin 3987  df-br 4103  df-opab 4157  df-mpt 4158  df-tr 4193  df-eprel 4384  df-id 4388  df-po 4393  df-so 4394  df-fr 4431  df-we 4433  df-ord 4474  df-on 4475  df-lim 4476  df-suc 4477  df-om 4736  df-xp 4774  df-rel 4775  df-cnv 4776  df-co 4777  df-dm 4778  df-rn 4779  df-res 4780  df-ima 4781  df-iota 5298  df-fun 5336  df-fn 5337  df-f 5338  df-f1 5339  df-fo 5340  df-f1o 5341  df-fv 5342  df-ov 5945  df-oprab 5946  df-mpt2 5947  df-1st 6206  df-2nd 6207  df-tpos 6318  df-undef 6382  df-riota 6388  df-recs 6472  df-rdg 6507  df-1o 6563  df-oadd 6567  df-er 6744  df-map 6859  df-en 6949  df-dom 6950  df-sdom 6951  df-fin 6952  df-pnf 8956  df-mnf 8957  df-xr 8958  df-ltxr 8959  df-le 8960  df-sub 9126  df-neg 9127  df-nn 9834  df-2 9891  df-3 9892  df-4 9893  df-5 9894  df-6 9895  df-n0 10055  df-z 10114  df-uz 10320  df-fz 10872  df-struct 13241  df-ndx 13242  df-slot 13243  df-base 13244  df-sets 13245  df-ress 13246  df-plusg 13312  df-mulr 13313  df-sca 13315  df-vsca 13316  df-0g 13497  df-poset 14173  df-plt 14185  df-lub 14201  df-glb 14202  df-join 14203  df-meet 14204  df-p0 14238  df-p1 14239  df-lat 14245  df-clat 14307  df-mnd 14460  df-submnd 14509  df-grp 14582  df-minusg 14583  df-sbg 14584  df-subg 14711  df-cntz 14886  df-lsm 15040  df-cmn 15184  df-abl 15185  df-mgp 15419  df-rng 15433  df-ur 15435  df-oppr 15498  df-dvdsr 15516  df-unit 15517  df-invr 15547  df-dvr 15558  df-drng 15607  df-lmod 15722  df-lss 15783  df-lsp 15822  df-lvec 15949  df-lsatoms 29218  df-oposet 29418  df-ol 29420  df-oml 29421  df-covers 29508  df-ats 29509  df-atl 29540  df-cvlat 29564  df-hlat 29593  df-llines 29739  df-lplanes 29740  df-lvols 29741  df-lines 29742  df-psubsp 29744  df-pmap 29745  df-padd 30037  df-lhyp 30229  df-laut 30230  df-ldil 30345  df-ltrn 30346  df-trl 30400  df-tendo 30996  df-edring 30998  df-disoa 31271  df-dvech 31321  df-dib 31381  df-dic 31415  df-dih 31471
  Copyright terms: Public domain W3C validator